Message from discussion
shfill: /ShadingType 2, computed parameters
The group you are posting to is a
Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 |
Newsgroups: comp.lang.postscript
From: jdaw1 <jdawise...@gmail.com>Date: Thu, 11 Mar 2010 16:38:42 -0800 (PST)
Local: Thurs, Mar 11 2010 7:38 pm
Subject: Re: shfill: /ShadingType 2, computed parameters
Another note to self:
/RaysStrokeCode
{
ThisName (Julian) eq {0.75 setgray stroke}
{
0.36 setlinewidth
WithinPage0 WithinPage1 eq
{
RaysAngle0 90 add RaysAngleOffset sub 1 mul 360 div {dup 1 ge {1
sub} {exit} ifelse} loop 1 0.8 sethsbcolor stroke
}
{
strokepath clipsave clip
% Help received at groups.google.com/group/comp.lang.postscript/
browse_thread/thread/888d4167a7eaadb2
<<
/Function
<<
/DataSource
RaysAngle0 90 add RaysAngleOffset sub 1 mul 360 div {dup 1 ge {1
sub} {exit} ifelse} loop 1 0.8 gsave sethsbcolor currentrgbcolor
grestore
RaysAngle1 90 add RaysAngleOffset sub 1 mul 360 div {dup 1 ge {1
sub} {exit} ifelse} loop 1 0.8 gsave sethsbcolor currentrgbcolor
grestore
(123456) % 6 numbers, one byte each; can re-use string so will
5 -1 0 {exch dup 4 2 roll exch 255 mul 0.5 add floor cvi put}
for
/BitsPerSample 8
/FunctionType 0 /Domain [0 1] /Range [0 1 0 1 0 1] /Order
1 /Size [2] /N 1
>>
/Coords [ X0 Y0 X1 Y1 ]
/ShadingType 2 /ColorSpace /DeviceRGB /Extend [true dup]
>>
shfill cliprestore newpath
} ifelse % WithinPage0 WithinPage1 eq
} ifelse % ThisName ...
} def % /RaysStrokeCode
You must Sign in before you can post messages. You do not have the permission required to post.
|
