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:08:20 -0800 (PST)
Local: Thurs, Mar 11 2010 7:08 pm
Subject: Re: shfill: /ShadingType 2, computed parameters
Thank you all for comments. The thing I was missing was put'ting
integers directly into a string: now it works.
Note to self:
/RaysStrokeCode
{
ThisName (Julian) eq {0.75 setgray stroke}
{
0.36 setlinewidth
WithinPage0 WithinPage1 eq
{
GlassesOnSheets SheetNum get length dup dup 4 div CoprimeNear
WithinPage0 mul 1 index mod exch div 1 1 sethsbcolor stroke
}
{
strokepath clipsave clip
<<
/Function
<<
/DataSource
GlassesOnSheets SheetNum get length dup dup 4 div CoprimeNear
WithinPage0 mul 1 index mod exch div 1 1 gsave sethsbcolor
currentrgbcolor grestore
GlassesOnSheets SheetNum get length dup dup 4 div CoprimeNear
WithinPage1 mul 1 index mod exch div 1 1 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.
|
