home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 2
/
CDPD_II_2352.bin
/
scope
/
151-175
/
scopedisk165
/
psfill
/
dkul.epsf
< prev
next >
Wrap
Text File
|
1992-10-27
|
5KB
|
168 lines
%!PS-Adobe-2.0 EPSF-1.2
%%Creator:M4 design 818-345-9123
%%Title:DkUpperLeftGradation
%%CreationDate: 10/25/90 4:57 PM
%%BoundingBox: 0 -432 432 0
%%EndComments
/FreeHandDict 200 dict def FreeHandDict begin
/bdef{bind def}bind def
/xdf{exch def}bdef
/hiqual true def
/dr{transform .25 sub round .25 add
exch .25 sub round .25 add exch itransform} bdef
/curveto {dr curveto} bdef
/lineto {dr lineto} bdef
/moveto {dr moveto} bdef
/graystep .005 def
/bottom -0 def
/colorfcn{}def
/delta -0 def
/ffcn{}def
/frac -0 def
/left -0 def
/numsteps -0 def
/numsteps1 -0 def
/radius -0 def
/right -0 def
/top -0 def
/x -0 def
/y -0 def
/setregcolor{0 setgray}bdef
/concatprocs{
/proc2 exch cvlit def/proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
newproc cvx}bdef
/storerect{/top xdf/right xdf/bottom xdf/left xdf}bdef
/rectpath{newpath left bottom moveto left top lineto
right top lineto right bottom lineto closepath}bdef
/CD{/NF exch def
{exch dup/FID ne{exch NF 3 1 roll put}
{pop pop}ifelse}forall NF}bdef
/MN{1 index length/Len exch def
dup length Len add string dup
Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdef
/RC{256 string cvs(|______)anchorsearch
{1 index MN cvn/NewN exch def cvn
findfont dup maxlength dict CD dup/FontName NewN put dup
/Encoding MacVec put NewN exch definefont pop}{pop}ifelse}bdef
/RF{dup FontDirectory exch known{pop}{RC}ifelse}bdef
/FF{dup FontDirectory exch known{findfont}{256 string cvs(|______)exch MN findfont}ifelse}bdef
/MacVec 256 array def
MacVec 0 /Helvetica findfont
/Encoding get 0 128 getinterval putinterval
MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
MacVec 0 32 getinterval astore pop
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registersans/copyrightsans/trademarksans/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
/guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase
/perthousand/Acircumflex/Ecircumflex/Aacute
/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
MacVec 128 128 getinterval astore pop
/stringShow {
/ssf xdf /ssd xdf /sss xdf
0 1 sss length -1 add {
dup ssd exch get currentpoint exch pop moveto
sss exch 1 getinterval ssf } for
} bdef
/Bshow{gsave setlinewidth dup false charpath stroke grestore show} bdef
/Oshow{gsave[1 0 .21 1 0 0]concat show grestore}bdef
/Outshow{gsave .25 setlinewidth false charpath stroke grestore}bdef
/shadfreq 100 def
/Sshow{gsave .06 mul dup neg rmoveto currentscreen 3 -1 roll
shadfreq ge{pop pop}{shadfreq 3 1 roll setscreen}ifelse
0.9 setgray dup show grestore show}bdef
/rgbtaper{frac mul add
5 -2 roll frac mul add
4 -2 roll frac mul add
setrgbcolor}def
/graytaper{frac mul add setgray}bdef
/max{2 copy lt{exch}if pop}bdef
/absmax{2 copy abs exch abs gt{exch}if pop}bdef
/calcstep
{/colorfcn load length 7 ge
{/colorfcn load 1 get /colorfcn load 3 get
/colorfcn load 5 get absmax absmax}
{/colorfcn load 1 get}ifelse
dup 0 ne{graystep div abs}if
dup /numsteps xdf 1 sub dup 0 eq{pop 1}if /numsteps1 xdf}bdef
/logtaper{/frac frac 9 mul 1 add log def}bdef
/radfill{bind /colorfcn xdf /radius xdf /y xdf /x xdf
calcstep gsave ffcn
/delta radius numsteps div neg def
0 1 numsteps{
numsteps1 div /frac xdf colorfcn
newpath x y radius 0 360 arc fill
/radius radius delta add def}for grestore newpath}bdef
/radialfill{/ffcn{clip}def radfill}bdef
/eoradialfill{/ffcn{eoclip}def radfill}bdef
/recfill{bind /colorfcn xdf storerect gsave ffcn
2 index 2 index translate rotate neg exch neg exch translate calcstep
/delta top bottom sub numsteps div neg def
0 1 numsteps{numsteps1 div /frac xdf colorfcn
/bottom top delta add def rectpath fill
/top bottom def}for grestore newpath}bdef
/rectfill{/ffcn{clip}def recfill}bdef
/eorectfill{/ffcn{eoclip}def recfill}bdef
%%EndProlog
/layersave save def
newpath
0 0 moveto
432 0 lineto
432 -432 lineto
0 -432 lineto
closepath
gsave
216 558 -135 457.8 799.8 1068.8 1410.8 {1 -1 1 -1 1 -1 rgbtaper} rectfill
grestore
layersave restore
end