home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 2 / CDPD_II_2352.bin / scope / 151-175 / scopedisk165 / psfill / ltctrcir.epsf < prev    next >
Text File  |  1992-10-27  |  5KB  |  220 lines
  1. %!PS-Adobe-2.0 EPSF-1.2
  2. %%Creator:M4 design 818-345-9123
  3. %%Title:LightCtrCircleGradation
  4. %%CreationDate: 10/25/90 5:08 PM
  5. %%BoundingBox: 0 -432 432 0
  6. %%EndComments
  7. /FreeHandDict 200 dict def FreeHandDict begin
  8. /bdef{bind def}bind def
  9. /xdf{exch def}bdef
  10. /hiqual true def
  11. /dr{transform .25 sub round .25 add
  12. exch .25 sub round .25 add exch itransform} bdef
  13. /curveto {dr curveto} bdef
  14. /lineto {dr lineto} bdef
  15. /moveto {dr moveto} bdef
  16. /graystep .005 def
  17. /bottom -0 def
  18. /colorfcn{}def
  19. /delta -0 def
  20. /ffcn{}def
  21. /frac -0 def
  22. /left -0 def
  23. /numsteps -0 def
  24. /numsteps1 -0 def
  25. /radius -0 def
  26. /right -0 def
  27. /top -0 def
  28. /x -0 def
  29. /y -0 def
  30. /setregcolor{0 setgray}bdef
  31. /concatprocs{
  32. /proc2 exch cvlit def/proc1 exch cvlit def
  33. /newproc proc1 length proc2 length add array def
  34. newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
  35. newproc cvx}bdef
  36. /storerect{/top xdf/right xdf/bottom xdf/left xdf}bdef
  37. /rectpath{newpath left bottom moveto left top lineto
  38. right top lineto right bottom lineto closepath}bdef
  39. /CD{/NF exch def
  40. {exch dup/FID ne{exch NF 3 1 roll put}
  41. {pop pop}ifelse}forall NF}bdef
  42. /MN{1 index length/Len exch def
  43. dup length Len add string dup
  44. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdef
  45. /RC{256 string cvs(|______)anchorsearch
  46. {1 index MN cvn/NewN exch def cvn
  47. findfont dup maxlength dict CD dup/FontName NewN put dup
  48. /Encoding MacVec put NewN exch definefont pop}{pop}ifelse}bdef
  49. /RF{dup FontDirectory exch known{pop}{RC}ifelse}bdef
  50. /FF{dup FontDirectory exch known{findfont}{256 string cvs(|______)exch MN findfont}ifelse}bdef
  51. /MacVec 256 array def
  52. MacVec 0 /Helvetica findfont
  53. /Encoding get 0 128 getinterval putinterval
  54. MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
  55. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  56. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  57. MacVec 0 32 getinterval astore pop
  58. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  59. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  60. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  61. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  62. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  63. /registersans/copyrightsans/trademarksans/acute/dieresis/notequal/AE/Oslash
  64. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  65. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  66. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  67. /guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
  68. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  69. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  70. /daggerdbl/periodcentered/quotesinglbase/quotedblbase
  71. /perthousand/Acircumflex/Ecircumflex/Aacute
  72. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  73. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  74. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  75. MacVec 128 128 getinterval astore pop
  76. /stringShow {
  77. /ssf xdf /ssd xdf /sss xdf
  78. 0 1 sss length -1 add {
  79. dup ssd exch get currentpoint exch pop moveto
  80. sss exch 1 getinterval ssf } for
  81. } bdef
  82. /Bshow{gsave setlinewidth dup false charpath stroke grestore show} bdef
  83. /Oshow{gsave[1 0 .21 1 0 0]concat show grestore}bdef
  84. /Outshow{gsave .25 setlinewidth false charpath stroke grestore}bdef
  85. /shadfreq 100 def
  86. /Sshow{gsave .06 mul dup neg rmoveto currentscreen 3 -1 roll
  87. shadfreq ge{pop pop}{shadfreq 3 1 roll setscreen}ifelse
  88. 0.9 setgray dup show grestore show}bdef
  89. /rgbtaper{frac mul add
  90. 5 -2 roll frac mul add
  91. 4 -2 roll frac mul add
  92. setrgbcolor}def
  93. /graytaper{frac mul add setgray}bdef
  94. /max{2 copy lt{exch}if pop}bdef
  95. /absmax{2 copy abs exch abs gt{exch}if pop}bdef
  96. /calcstep
  97. {/colorfcn load length 7 ge
  98. {/colorfcn load 1 get /colorfcn load 3 get
  99. /colorfcn load 5 get absmax absmax}
  100. {/colorfcn load 1 get}ifelse
  101. dup 0 ne{graystep div abs}if
  102. dup /numsteps xdf 1 sub dup 0 eq{pop 1}if /numsteps1 xdf}bdef
  103. /logtaper{/frac frac 9 mul 1 add log def}bdef
  104. /radfill{bind /colorfcn xdf /radius xdf /y xdf /x xdf
  105. calcstep gsave ffcn
  106. /delta radius numsteps div neg def
  107. 0 1 numsteps{
  108. numsteps1 div /frac xdf colorfcn
  109. newpath x y radius 0 360 arc fill
  110. /radius radius delta add def}for grestore newpath}bdef
  111. /radialfill{/ffcn{clip}def radfill}bdef
  112. /eoradialfill{/ffcn{eoclip}def radfill}bdef
  113. /recfill{bind /colorfcn xdf storerect gsave ffcn
  114. 2 index 2 index translate rotate neg exch neg exch translate calcstep
  115. /delta top bottom sub numsteps div neg def
  116. 0 1 numsteps{numsteps1 div /frac xdf colorfcn
  117. /bottom top delta add def rectpath fill
  118. /top bottom def}for grestore newpath}bdef
  119. /rectfill{/ffcn{clip}def recfill}bdef
  120. /eorectfill{/ffcn{eoclip}def recfill}bdef
  121. %%EndProlog
  122. /layersave save def
  123. newpath
  124. 0 -216 moveto
  125. 0 -96.8 96.8 0 216 0 curveto
  126. 335.2 0 432 -96.8 432 -216 curveto
  127. 432 -335.2 335.2 -432 216 -432 curveto
  128. 96.8 -432 0 -335.2 0 -216 curveto
  129. closepath
  130. gsave
  131. 216 -216 305.4 {0 1 0 1 0 1 rgbtaper} radialfill
  132. grestore
  133. layersave restore
  134. end
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.