home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / servis / ovladace / drivers / K40160PE.EXE / PS40DRV.DLL / 259 / 8 < prev   
Text File  |  2000-01-04  |  6KB  |  84 lines
  1.  
  2. userdict /KPDL_Win_Driver_Incr 300 dict dup begin put
  3. %%BeginResource: file KPDL 1.0 0
  4. /bd{bind def}bind def/ld{load def}bd/ed{exch def}
  5. bd/a{currentpoint}bd/c/curveto ld/d/dup ld/e/eofill ld/f/fill ld/tr/translate
  6. ld/gr/grestore ld/gs/gsave ld/j/setlinejoin ld/L/lineto ld/M/moveto ld/n
  7. /newpath ld/cp/closepath ld/rm/rmoveto ld/sl/setlinewidth ld/sd/setdash ld/g
  8. /setgray ld/r/setrgbcolor ld/s/stroke ld/t/show ld/aw/awidthshow ld/im
  9. /imagemask ld/MS{moveto show}bd/SF{findfont exch scalefont setfont}bd/SM{cmtx
  10. setmatrix}bd/MF{findfont exch makefont setfont}bd/CM{/cmtx matrix currentmatrix
  11. def}bd/B{M exch dup 0 rlt exch 0 exch rlt neg 0 rlt}bd/CB{B cp eoclip}bd/EA{1
  12. index 0/G0 put 4 string 1 1 4 -1 roll{3 copy neg exch cvs dup 0 71 put cvn 3 -1
  13. roll exch put}for pop}bd/rlt/rlineto ld/L2?/languagelevel where{pop
  14. languagelevel 2 ge}{false}ifelse def
  15. %%EndResource
  16. %%BeginResource: file KPDL_Win_Utils 1.0 0
  17. /|/def load def/,/load load |/~/exch , |/?/ifelse , |/!/pop , |/`/begin , |/^
  18. /index , |/@/dup , |/$/roll , |/U/userdict , |/&/currentdict , |/F/false , |/T/true ,
  19. |/E/end , |/Ac/arc , |/An/arcn , |/A/ashow , |/V/div , |/-C/rcurveto ,
  20. |/+S/scale , |/Ji/setfont , |/Lc/setlinecap , |/LH/showpage , |/W/widthshow ,
  21. |/R/rotate , |/b{bind |}bind |/bd{bind |}bind |/xd{~ |}bd/ld{, |}bd/lw/sl ld
  22. /lc/Lc ld/lj/j ld/sg/setgray ld/L2? F/languagelevel where{! languagelevel 2
  23. ge{! T}if}if |/gg{@ not{U/DefIf_save save put}if U/DefIf_bool 2 ^ put}b
  24. /DefIf_El{if U/DefIf_bool get not @{U/DefIf_save get restore}if}b/ee{DefIf_El !
  25. }b/self & |/reinitialize{[/TextInit/GraphInit/UtilsInit counttomark{@ where{
  26. self eq}{F}?{cvx exec}{!}?}repeat cleartomark}b/initialize{`{/ADO_mxRot ~ |
  27. /TextInitialised? F | reinitialize E}{U/Pscript_Win_Data 200 dict @ ` put
  28. /ADO_mxRot ~ |/TextInitialised? F | reinitialize}?}b/terminate{!{& self eq{
  29. exit}{E}?}loop E}b/suspend/terminate , |/resume{` Pscript_Win_Data `}b/snap{
  30. transform 0.25 sub round 0.25 add ~ 0.25 sub round 0.25 add ~ itransform}b
  31. /dsnap{dtransform round ~ round ~ idtransform}b<04>cvn{}|/setjn{{statusdict
  32. /jobname known{statusdict/jobname 3 -1 $ put}if}stopped cleartomark}b/solid{[]
  33. 0 setdash}b/setdsh{0 setdash}b/colspRefresh{}b/rp{4 2 $ M 1 ^ 0 rlt 0 ~ rlt neg 0
  34. rlt}b/rr{1 ^ 0 rlt 0 ~ rlt neg 0 rlt cp}b
  35. %%EndResource
  36. %%BeginResource: file KPDL_Win_Utils_L1 1.0 0
  37. L2? not gg{/rf{n rp f}b/fx{1 1 dtransform @ 0 ge{1 sub 1}{1 add -0.25}? 3 -1 $
  38. @ 0 ge{1 sub 1}{1 add -0.25}? 3 1 $ 4 1 $ idtransform 4 -2 $ idtransform}b/BZ{
  39. 4 -2 $ snap tr +S fx rf}b/rs{n rp cp s}b/rc{n rp clip n}b/sg{setgray}b/sco{
  40. setrgbcolor}b/sgco{{sg}{sco}?}b}ee
  41. %%EndResource
  42. %%BeginResource: file KPDL_Win_Utils_L2 1.0 0
  43. L2? gg{/colspA/DeviceGray |/colspABC/DeviceRGB |/setAorABC{{colspA}{colspABC}?
  44. setcolorspace}b/rf/rectfill , |/fx{1 1 dtransform @ 0 ge{1 sub 0.5}{1 add -0.5
  45. }? 3 -1 $ @ 0 ge{1 sub 0.5}{1 add -0.5}? 3 1 $ 4 1 $ idtransform 4 -2 $
  46. idtransform}b/BZ{4 -2 $ snap tr +S fx rf}b/rs/rectstroke , |/rc/rectclip , |/sg
  47. {@ @ setcolor}b/sco{setcolor}b/colspRefresh{colspABC setcolorspace}b/sgco{{sg
  48. }{sco}?}b/UtilsInit{F setglobal}b/definecolorrendering{/ColorRendering
  49. defineresource !}b/findcolorrendering{@/ColorRendering resourcestatus{! !
  50. /ColorRendering findresource T}{! F}?}b/selectcolorrendering{@/ColorRendering
  51. resourcestatus{! !/ColorRendering}{!/DefaultColorRendering/ColorRendering}?
  52. findresource setcolorrendering}b}ee
  53. %%EndResource
  54. %%BeginResource: file KPDL_Win_Nup 1.0 0
  55. U `/realshowpage 0 |/$m matrix |/nx_nup 0 |/ny_nup 0 |/pagew_nup 0 |/pageh_nup
  56. 0 |/paperw_nup 0 |/paperh_nup 0 |/nups 0 |/pgx_nup 0 |/pgy_nup 0 |
  57. /papermarg_nup 1 |/pagemarg_nup 10 |/framenup T |/nupv 5 array |/xoffset 0 |
  58. /yoffset 0 |/borderlinewidth 0 |/angle 0 | E/definenup{/LH/nupshowpage , |
  59. nupv astore !/pgx_nup 0 store/pgy_nup 0 store}bind |/startnup{/pgy_nup ~ store
  60. /pgx_nup ~ store nupv aload !/ny_nup ~ store/nx_nup ~ store/pageh_nup ~ store
  61. /pagew_nup ~ store @/angle ~ store R clippath/nups pathbbox 3 -1 $ sub
  62. papermarg_nup sub ny_nup V pagemarg_nup sub pageh_nup V ~ 3 -1 $ sub
  63. papermarg_nup sub nx_nup V pagemarg_nup sub pagew_nup V 2 copy gt{~}if ! store
  64. nups @ +S/paperw_nup pagew_nup pagemarg_nup nups V add store/paperh_nup
  65. pageh_nup pagemarg_nup nups V add store pathbbox $m aload ! pagemarg_nup nups
  66. V @ 8 ^ 11 ^ sub paperh_nup ny_nup mul sub add 2 V ~ 9 ^ 12 ^ sub paperw_nup
  67. nx_nup mul sub add 2 V 8 -2 $ add 0 gt{9}{neg 7}? ^ add 4 -1 $ sub ~ 5 -2 $
  68. add 0 gt{5}{neg 3}? ^ add 3 -1 $ sub 2 copy/yoffset ~ store/xoffset ~ store tr
  69. ! ! ! !/paperw_nup paperw_nup paperh_nup $m idtransform abs/paperh_nup ~ store
  70. abs store/pagew_nup pagew_nup pageh_nup $m idtransform abs/pageh_nup ~ store
  71. abs store $m 0 get abs $m 1 get abs lt{/nx_nup ny_nup/ny_nup nx_nup store
  72. store}if 0.48 nups V @/borderlinewidth ~ store sl $m concat pgx_nup paperw_nup
  73. mul pgy_nup paperh_nup mul tr $m matrix invertmatrix concat n startpage}bind |
  74. /reinitnup{startnup}bind |/startpage{gs 0 0 $m transform pagew_nup pageh_nup $m
  75. dtransform rc}bind |/realshowpage/LH , |/nupshowpage{gr $m concat framenup{
  76. pagemarg_nup 2 V nups V @ $m idtransform abs neg ~ abs neg ~ paperw_nup
  77. paperh_nup rs}if/pgx_nup pgx_nup 1 add @ nx_nup eq{! 0 store paperw_nup 1
  78. nx_nup sub mul/pgy_nup pgy_nup 1 add @ ny_nup eq{! 0 store paperh_nup 1 ny_nup
  79. sub mul}{store paperh_nup}?}{store paperw_nup 0}? tr $m matrix invertmatrix
  80. concat startpage}bind |/finalpage{gr realshowpage/LH/realshowpage , |}bind |
  81. %%EndResource
  82. end
  83.  
  84.