home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Programs / Data / prolog100.ps < prev    next >
Encoding:
Text File  |  2000-09-05  |  11.7 KB  |  160 lines
  1. % Copyright (c)1992-2000 Corel Corporation
  2. % All rights reserved.     v10.0 r0.2
  3. /bd{bind def}bind def/ld{load def}bd/xd{exch def}bd/_ null def/rp{{pop}repeat}
  4. bd/@cp/closepath ld/@gs/gsave ld/@gr/grestore ld/@np/newpath ld/Tl/translate ld
  5. /$sv 0 def/@sv{/$sv save def}bd/@rs{$sv restore}bd/spg/showpage ld/showpage{}
  6. bd currentscreen/@dsp xd/$dsp/@dsp def/$dsa xd/$dsf xd/$sdf false def/$SDF
  7. false def/$Scra 0 def/SetScr/setscreen ld/@ss{2 index 0 eq{$dsf 3 1 roll 4 -1
  8. roll pop}if exch $Scra add exch load SetScr}bd/SepMode_5 where{pop}{/SepMode_5
  9. 0 def}ifelse/CorelIsSeps where{pop}{/CorelIsSeps false def}ifelse
  10. /CorelIsInRIPSeps where{pop}{/CorelIsInRIPSeps false def}ifelse/CorelIsEPS
  11. where{pop}{/CorelIsEPS false def}ifelse/CurrentInkName_5 where{pop}
  12. {/CurrentInkName_5(Composite)def}ifelse/$ink_5 where{pop}{/$ink_5 -1 def}
  13. ifelse/$c 0 def/$m 0 def/$y 0 def/$k 0 def/$t 1 def/$n _ def/$o 0 def/$fil 0
  14. def/$C 0 def/$M 0 def/$Y 0 def/$K 0 def/$T 1 def/$N _ def/$O 0 def/$PF false
  15. def/s1c 0 def/s1m 0 def/s1y 0 def/s1k 0 def/s1t 0 def/s1n _ def/$bkg false def
  16. /SK 0 def/SM 0 def/SY 0 def/SC 0 def/$op false def matrix currentmatrix/$ctm xd
  17. /$ptm matrix def/$ttm matrix def/$stm matrix def/$ffpnt true def
  18. /CorelDrawReencodeVect[16#0/grave 16#5/breve 16#6/dotaccent 16#8/ring
  19. 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle
  20. 16#60/grave 16#7C/bar
  21. 16#82/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  22. 16#88/circumflex/perthousand/Scaron/guilsinglleft/OE
  23. 16#91/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
  24. 16#98/tilde/trademark/scaron/guilsinglright/oe 16#9F/Ydieresis
  25. 16#A1/exclamdown/cent/sterling/currency/yen/brokenbar/section
  26. 16#a8/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/minus/registered/macron
  27. 16#b0/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered
  28. 16#b8/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown
  29. 16#c0/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
  30. 16#c8/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
  31. 16#d0/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply
  32. 16#d8/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  33. 16#e0/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  34. 16#e8/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
  35. 16#f0/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide
  36. 16#f8/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]def
  37. /L2?/languagelevel where{pop languagelevel 2 ge}{false}ifelse def/Comp?{
  38. /LumSepsDict where{pop false}{/AldusSepsDict where{pop false}{1 0 0 0 @gs
  39. setcmykcolor currentcmykcolor @gr add add add 0 ne 0 1 0 0 @gs setcmykcolor
  40. currentcmykcolor @gr add add add 0 ne 0 0 1 0 @gs setcmykcolor currentcmykcolor
  41. @gr add add add 0 ne 0 0 0 1 @gs setcmykcolor currentcmykcolor @gr add add add
  42. 0 ne and and and}ifelse}ifelse}bd/@PL{/LV where{pop LV 2 ge L2? not and{@np
  43. /Courier findfont 12 scalefont setfont 72 144 m
  44. (The PostScript level set in the Corel application is higher than)show 72 132 m
  45. (the PostScript level of this device. Change the PS Level in the Corel)show 72
  46. 120 m(application to Level 1 by selecting the PostScript tab in the print)show
  47. 72 108 m(dialog, and selecting Level 1 from the Compatibility drop down list.)
  48. show flush spg quit}if}if}bd/@BeginSysCorelDict{systemdict/Corel30Dict known
  49. {systemdict/Corel30Dict get exec}if systemdict/CorelLexDict known{1 systemdict
  50. /CorelLexDict get exec}if}bd/@EndSysCorelDict{systemdict/Corel30Dict known
  51. {end}if/EndCorelLexDict where{pop EndCorelLexDict}if}bd AutoFlatness{/@ifl{dup
  52. currentflat exch sub 10 gt{
  53. ([Error: PathTooComplex; OffendingCommand: AnyPaintingOperator]\n)print flush
  54. @np exit}{currentflat 2 add setflat}ifelse}bd/@fill/fill ld/fill{currentflat{
  55. {@fill}stopped{@ifl}{exit}ifelse}bind loop setflat}bd/@eofill/eofill ld/eofill
  56. {currentflat{{@eofill}stopped{@ifl}{exit}ifelse}bind loop setflat}bd/@clip
  57. /clip ld/clip{currentflat{{@clip}stopped{@ifl}{exit}ifelse}bind loop setflat}
  58. bd/@eoclip/eoclip ld/eoclip{currentflat{{@eoclip}stopped{@ifl}{exit}ifelse}
  59. bind loop setflat}bd/@stroke/stroke ld/stroke{currentflat{{@stroke}stopped
  60. {@ifl}{exit}ifelse}bind loop setflat}bd}if L2?{/@ssa{true setstrokeadjust}bd}{
  61. /@ssa{}bd}ifelse/d/setdash ld/j/setlinejoin ld/J/setlinecap ld/M/setmiterlimit
  62. ld/w/setlinewidth ld/O{/$o xd}bd/R{/$O xd}bd/W/eoclip ld/c/curveto ld/C/c ld/l
  63. /lineto ld/L/l ld/rl/rlineto ld/m/moveto ld/n/newpath ld/N/newpath ld/P{11 rp}
  64. bd/u{}bd/U{}bd/A{pop}bd/q/@gs ld/Q/@gr ld/&{}bd/@j{@sv @np}bd/@J{@rs}bd/g{1
  65. exch sub/$k xd/$c 0 def/$m 0 def/$y 0 def/$t 1 def/$n _ def/$fil 0 def}bd/G{1
  66. sub neg/$K xd _ 1 0 0 0/$C xd/$M xd/$Y xd/$T xd/$N xd}bd/k{1 index type
  67. /stringtype eq{/$t xd/$n xd}{/$t 0 def/$n _ def}ifelse/$k xd/$y xd/$m xd/$c xd
  68. /$fil 0 def}bd/K{1 index type/stringtype eq{/$T xd/$N xd}{/$T 0 def/$N _ def}
  69. ifelse/$K xd/$Y xd/$M xd/$C xd}bd/x/k ld/X/K ld/sf{1 index type/stringtype eq{
  70. /s1t xd/s1n xd}{/s1t 0 def/s1n _ def}ifelse/s1k xd/s1y xd/s1m xd/s1c xd}bd/i{
  71. dup 0 ne{setflat}{pop}ifelse}bd/v{4 -2 roll 2 copy 6 -2 roll c}bd/V/v ld/y{2
  72. copy c}bd/Y/y ld/@w{matrix rotate/$ptm xd matrix scale $ptm dup concatmatrix
  73. /$ptm xd 1 eq{$ptm exch dup concatmatrix/$ptm xd}if 1 w}bd/@g{1 eq dup/$sdf xd
  74. {/$scp xd/$sca xd/$scf xd}if}bd/@G{1 eq dup/$SDF xd{/$SCP xd/$SCA xd/$SCF xd}
  75. if}bd/@D{2 index 0 eq{$dsf 3 1 roll 4 -1 roll pop}if 3 copy exch $Scra add exch
  76. load SetScr/$dsp xd/$dsa xd/$dsf xd}bd/$ngx{$SDF{$SCF SepMode_5 0 eq{$SCA}
  77. {$dsa}ifelse $SCP @ss}if}bd/@MN{2 copy le{pop}{exch pop}ifelse}bd/@MX{2 copy ge
  78. {pop}{exch pop}ifelse}bd/InRange{3 -1 roll @MN @MX}bd/@sqr{dup 0 rl dup 0 exch
  79. rl neg 0 rl @cp}bd/currentscale{1 0 dtransform matrix defaultmatrix idtransform
  80. dup mul exch dup mul add sqrt 0 1 dtransform matrix defaultmatrix idtransform
  81. dup mul exch dup mul add sqrt}bd/@unscale{}bd/wDstChck{2 1 roll dup 3 -1 roll
  82. eq{1 add}if}bd/@dot{dup mul exch dup mul add 1 exch sub}bd/@lin{exch pop abs 1
  83. exch sub}bd/cmyk2rgb{3{dup 5 -1 roll add 1 exch sub dup 0 lt{pop 0}if exch}
  84. repeat pop}bd/rgb2cmyk{3{1 exch sub 3 1 roll}repeat 3 copy @MN @MN 3{dup 5 -1
  85. roll sub neg exch}repeat}bd/rgb2g{2 index .299 mul 2 index .587 mul add 1 index
  86. .114 mul add 4 1 roll pop pop pop}bd/WaldoColor_5 where{pop}{/SetRgb
  87. /setrgbcolor ld/GetRgb/currentrgbcolor ld/SetGry/setgray ld/GetGry/currentgray
  88. ld/SetRgb2 systemdict/setrgbcolor get def/GetRgb2 systemdict/currentrgbcolor
  89. get def/SetHsb systemdict/sethsbcolor get def/GetHsb systemdict
  90. /currenthsbcolor get def/rgb2hsb{SetRgb2 GetHsb}bd/hsb2rgb{3 -1 roll dup floor
  91. sub 3 1 roll SetHsb GetRgb2}bd/setcmykcolor where{pop/LumSepsDict where{pop
  92. /SetCmyk_5{LumSepsDict/setcmykcolor get exec}def}{/AldusSepsDict where{pop
  93. /SetCmyk_5{AldusSepsDict/setcmykcolor get exec}def}{/SetCmyk_5/setcmykcolor ld
  94. }ifelse}ifelse}{/SetCmyk_5{cmyk2rgb SetRgb}bd}ifelse/currentcmykcolor where{
  95. pop/GetCmyk/currentcmykcolor ld}{/GetCmyk{GetRgb rgb2cmyk}bd}ifelse
  96. /setoverprint where{pop}{/setoverprint{/$op xd}bd}ifelse/currentoverprint where
  97. {pop}{/currentoverprint{$op}bd}ifelse/@tc_5{5 -1 roll dup 1 ge{pop}{4{dup 6 -1
  98. roll mul exch}repeat pop}ifelse}bd/@trp{exch pop 5 1 roll @tc_5}bd
  99. /setprocesscolor_5{SepMode_5 0 eq{SetCmyk_5}{0 4 $ink_5 sub index exch pop 5 1
  100. roll pop pop pop pop SepsColor true eq{$ink_5 3 gt{1 sub neg SetGry}{0 0 0 4
  101. $ink_5 roll SetCmyk_5}ifelse}{1 sub neg SetGry}ifelse}ifelse}bd
  102. /findcmykcustomcolor where{pop}{/findcmykcustomcolor{5 array astore}bd}ifelse
  103. /Corelsetcustomcolor_exists false def/setcustomcolor where{pop
  104. /Corelsetcustomcolor_exists true def}if CorelIsSeps true eq CorelIsInRIPSeps
  105. false eq and{/Corelsetcustomcolor_exists false def}if
  106. Corelsetcustomcolor_exists false eq{/setcustomcolor{exch aload pop SepMode_5 0
  107. eq{pop @tc_5 setprocesscolor_5}{CurrentInkName_5 eq{4 index}{0}ifelse 6 1 roll
  108. 5 rp 1 sub neg SetGry}ifelse}bd}if/@scc_5{dup type/booleantype eq{dup
  109. currentoverprint ne{setoverprint}{pop}ifelse}{1 eq setoverprint}ifelse dup _ eq
  110. {pop setprocesscolor_5 pop}{findcmykcustomcolor exch setcustomcolor}ifelse
  111. SepMode_5 0 eq{true}{GetGry 1 eq currentoverprint and not}ifelse}bd/colorimage
  112. where{pop/ColorImage{colorimage}def}{/ColorImage{/ncolors xd/$multi xd $multi
  113. true eq{ncolors 3 eq{/daqB xd/daqG xd/daqR xd pop pop exch pop abs{daqR pop
  114. daqG pop daqB pop}repeat}{/daqK xd/daqY xd/daqM xd/daqC xd pop pop exch pop abs
  115. {daqC pop daqM pop daqY pop daqK pop}repeat}ifelse}{/dataaq xd{dataaq ncolors
  116. dup 3 eq{/$dat xd 0 1 $dat length 3 div 1 sub{dup 3 mul $dat 1 index get 255
  117. div $dat 2 index 1 add get 255 div $dat 3 index 2 add get 255 div rgb2g 255 mul
  118. cvi exch pop $dat 3 1 roll put}for $dat 0 $dat length 3 idiv getinterval pop}{
  119. 4 eq{/$dat xd 0 1 $dat length 4 div 1 sub{dup 4 mul $dat 1 index get 255 div
  120. $dat 2 index 1 add get 255 div $dat 3 index 2 add get 255 div $dat 4 index 3
  121. add get 255 div cmyk2rgb rgb2g 255 mul cvi exch pop $dat 3 1 roll put}for $dat
  122. 0 $dat length ncolors idiv getinterval}if}ifelse}image}ifelse}bd}ifelse
  123. /setcmykcolor{1 5 1 roll _ currentoverprint @scc_5/$ffpnt xd}bd
  124. /currentcmykcolor{GetCmyk}bd/setrgbcolor{rgb2cmyk setcmykcolor}bd
  125. /currentrgbcolor{currentcmykcolor cmyk2rgb}bd/sethsbcolor{hsb2rgb setrgbcolor}
  126. bd/currenthsbcolor{currentrgbcolor rgb2hsb}bd/setgray{dup dup setrgbcolor}bd
  127. /currentgray{currentrgbcolor rgb2g}bd/InsideDCS false def/IMAGE/image ld/image
  128. {InsideDCS{IMAGE}{/EPSDict where{pop SepMode_5 0 eq{IMAGE}{dup type/dicttype eq
  129. {dup/ImageType get 1 ne{IMAGE}{dup dup/BitsPerComponent get 8 eq exch
  130. /BitsPerComponent get 1 eq or currentcolorspace 0 get/DeviceGray eq and{
  131. CurrentInkName_5(Black)eq{IMAGE}{dup/DataSource get/TCC xd/Height get abs{TCC
  132. pop}repeat}ifelse}{IMAGE}ifelse}ifelse}{2 index 1 ne{CurrentInkName_5(Black)eq
  133. {IMAGE}{/TCC xd pop pop exch pop abs{TCC pop}repeat}ifelse}{IMAGE}ifelse}
  134. ifelse}ifelse}{IMAGE}ifelse}ifelse}bd}ifelse/WaldoColor_5 true def/$fm 0 def
  135. /wfill{1 $fm eq{fill}{eofill}ifelse}bd/@Pf{@sv SepMode_5 0 eq $Psc 0 ne or
  136. $ink_5 3 eq or{0 J 0 j[]0 d $t $c $m $y $k $n $o @scc_5 pop $ctm setmatrix 72
  137. 1000 div dup matrix scale dup concat dup Bburx exch Bbury exch itransform
  138. ceiling cvi/Bbury xd ceiling cvi/Bburx xd Bbllx exch Bblly exch itransform
  139. floor cvi/Bblly xd floor cvi/Bbllx xd $Prm aload pop $Psn load exec}{1 SetGry
  140. wfill}ifelse @rs @np}bd/F{matrix currentmatrix $sdf{$scf $sca $scp @ss}if $fil
  141. 1 eq{CorelPtrnDoFill}{$fil 2 eq{@ff}{$fil 3 eq{@Pf}{$fil 4 eq
  142. {CorelShfillDoFill}{$t $c $m $y $k $n $o @scc_5{wfill}{@np}ifelse}ifelse}
  143. ifelse}ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if setmatrix}bd/f{@cp F}bd/S{
  144. matrix currentmatrix $ctm setmatrix $SDF{$SCF $SCA $SCP @ss}if $T $C $M $Y $K
  145. $N $O @scc_5{matrix currentmatrix $ptm concat stroke setmatrix}{@np}ifelse $SDF
  146. {$dsf $dsa $dsp @ss}if setmatrix}bd/s{@cp S}bd/B{@gs F @gr S}bd/b{@cp B}bd/_E{
  147. 5 array astore exch cvlit xd}bd/@cc{currentfile $dat readhexstring pop}bd/@sm{
  148. /$ctm $ctm currentmatrix def}bd/@E{/Bbury xd/Bburx xd/Bblly xd/Bbllx xd}bd/@c{
  149. @cp}bd/@P{/$fil 3 def/$Psn xd/$Psc xd array astore/$Prm xd}bd/tcc{@cc}def/@B{
  150. @gs S @gr F}bd/@b{@cp @B}bd/@sep{CurrentInkName_5(Composite)eq{/$ink_5 -1 def}
  151. {CurrentInkName_5(Cyan)eq{/$ink_5 0 def}{CurrentInkName_5(Magenta)eq{/$ink_5 1
  152. def}{CurrentInkName_5(Yellow)eq{/$ink_5 2 def}{CurrentInkName_5(Black)eq
  153. {/$ink_5 3 def}{/$ink_5 4 def}ifelse}ifelse}ifelse}ifelse}ifelse}bd/@whi{@gs
  154. -72000 dup m -72000 72000 l 72000 dup l 72000 -72000 l @cp 1 SetGry fill @gr}
  155. bd/@neg{[{1 exch sub}/exec cvx currenttransfer/exec cvx]cvx settransfer @whi}
  156. bd/deflevel 0 def/@sax{/deflevel deflevel 1 add def}bd/@eax{/deflevel deflevel
  157. dup 0 gt{1 sub}if def deflevel 0 gt{/eax load}{eax}ifelse}bd/eax{{exec}forall}
  158. bd/@rax{deflevel 0 eq{@rs @sv}if}bd systemdict/pdfmark known not{/pdfmark
  159. /cleartomark ld}if/wclip{1 $fm eq{clip}{eoclip}ifelse}bd
  160.