home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Wtestowe / Detailer / DETAILER.Z / Detailer.rsr / STR#_5.txt < prev    next >
Encoding:
Text File  |  1996-10-28  |  2.7 KB  |  271 lines
  1. newpath %f %f moveto %f %f lineto stroke
  2.  
  3.  
  4. newpath %f %f %f 0 360 arc closepath fill
  5.  
  6.  
  7. /bwx %f def
  8.  
  9.  
  10. /bhx %f def
  11.  
  12.  
  13. /dobox {bwx 0 rlineto 0 bhx neg rlineto
  14.  
  15.  
  16. bwx neg 0 rlineto closepath fill} def
  17.  
  18.  
  19. %f setgray newpath %f %f moveto dobox
  20.  
  21.  
  22. 0.5 setlinewidth
  23.  
  24.  
  25. 0 setgray 
  26.  
  27. 1 setgray 
  28.  
  29. 40 dict begin gsave
  30.  
  31.  
  32. /width %d def /height %d def /fact %f def
  33.  
  34.  
  35. /picstr width string def
  36.  
  37.  
  38. /dopic {
  39.  
  40.  
  41. {} {} {} {} setcolortransfer
  42.  
  43.  
  44. {} settransfer
  45.  
  46.  
  47. width height 8 [width 0 0 height neg 0 height]
  48.  
  49.  
  50. {currentfile picstr readstring pop} false 4 colorimage
  51.  
  52.  
  53. {currentfile picstr readstring pop} image
  54.  
  55.  
  56. } def
  57.  
  58.  
  59. gsave %d %d translate width fact mul height fact mul scale
  60.  
  61.  
  62. dopic
  63.  
  64.  
  65. gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
  66.  
  67.  
  68. grestore
  69.  
  70.  
  71. gsave
  72.  
  73.  
  74. /width %d def
  75.  
  76.  
  77. /height %d def
  78.  
  79.  
  80. /pixwidth %d def
  81.  
  82.  
  83. /pixheight %d def
  84.  
  85.  
  86. /picstr %d string def
  87.  
  88.  
  89. {} {} {} {} setcolortransfer
  90.  
  91.  
  92. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  93.  
  94.  
  95. %d %d translate %f %f scale 1 -1 scale 0 %d translate
  96.  
  97.  
  98. /dopic
  99. {  width height 8
  100.   [width 0 0 height neg 0 height]
  101.  
  102.  
  103. %f %f /sproc%c load %f %f /sproc%c load
  104.  
  105.  
  106. %f %f /sproc%c load %f %f /sproc load setcolorscreen
  107.  
  108.  
  109. %f %f /sproc%c load setscreen
  110.  
  111.  
  112. %f setgray newpath %f %f moveto lbox
  113.  
  114.  
  115. 1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
  116.  
  117.  
  118. /sproc%c {
  119.  
  120. } def
  121.  
  122.  
  123. /picstr width %d mul string def
  124.  
  125.  
  126. /lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
  127.  
  128.  
  129.   bwx 6 mul neg 0 rlineto closepath fill } def
  130.  
  131.  
  132. 0 setgray newpath %f %f moveto lbox
  133.  
  134.  
  135. % see the C code for font scaling
  136.  
  137.  
  138. 1 setgray %f %f moveto
  139.  
  140.  
  141. (C) show
  142.  
  143.  
  144. (M) show
  145.  
  146.  
  147. (Y) show
  148.  
  149.  
  150. (K) show
  151.  
  152.  
  153. cyan
  154.  
  155. magenta
  156.  
  157. yellow
  158.  
  159. black
  160.  
  161. 0 setgray %f %f moveto (C50 M50 Y50) show
  162.  
  163.  
  164. 1 setgray %f %f moveto (C50 M50 Y60) show
  165.  
  166.  
  167. 0 setgray %f %f moveto (C45 M55 Y65) show
  168.  
  169.  
  170. 1 setgray %f %f moveto (K50) show
  171.  
  172.  
  173. 0 setgray %f %f moveto
  174.  
  175.  
  176. PM
  177.  
  178. AM
  179.  
  180. (Detailer file: %s: %s %s: %s plate) show
  181.  
  182.  
  183. gsave 0 %d translate 1 -1 scale
  184.  
  185.  
  186.   {currentfile picstr readhexstring pop} image
  187.  
  188.  
  189.   {currentfile picstr readhexstring pop} false 4 colorimage
  190.  
  191.  
  192.   {currentfile picstr readhexstring pop} false 3 colorimage
  193.  
  194.  
  195.   {currentfile picstr readstring pop} false 3 colorimage
  196.  
  197.  
  198. pixwidth pixheight scale
  199.  
  200.  
  201. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  202.  
  203.  
  204. grestore end
  205.  
  206.  
  207. %!PS-Adobe-3.0 EPSF-3.0
  208.  
  209.  
  210. %%Creator: Detailer Version 1.0
  211.  
  212.  
  213. %%%%Title: %s
  214.  
  215.  
  216. %%%%CreationDate: %s %s
  217.  
  218.  
  219. %%%%BoundingBox: 0 0 %d %d
  220.  
  221.  
  222. %%SuppressDotGainCompensation
  223.  
  224.  
  225. %%DocumentProcessColors: Cyan Magenta Yellow Black
  226.  
  227.  
  228. %%DocumentProcessColors: Cyan
  229.  
  230.  
  231. %%DocumentProcessColors: Magenta
  232.  
  233.  
  234. %%DocumentProcessColors: Yellow
  235.  
  236.  
  237. %%DocumentProcessColors: Black
  238.  
  239.  
  240. %%%%CyanPlate:%s
  241.  
  242.  
  243. %%%%MagentaPlate:%s
  244.  
  245.  
  246. %%%%YellowPlate:%s
  247.  
  248.  
  249. %%%%BlackPlate:%s
  250.  
  251.  
  252. %%EndComments
  253.  
  254.  
  255. save
  256. restore
  257.  
  258.  
  259. dopic
  260.  
  261.  
  262. %%Extensions: CMYK
  263.  
  264.  
  265. %%DocumentData: Clean8Bit
  266.  
  267.  
  268. %%DocumentData: Binary
  269.  
  270.  
  271.