home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / ANWENDUN / DINOS / PDRIVERS / PS.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-12-01  |  13KB  |  258 lines
  1. _PDPARMS
  2. %!PS-Adobe-1.0F
  3. %%Creator: FoxPro Postscript driver, Version 1.0
  4. %%Title:
  5. %%Creation Date: 
  6.          
  7. /ff {outputflag 0 ne {showpage} ifF
  8.             setupsave restore
  9.             /setupsave save def 
  10.             0 linepos moveto} def
  11. /nl {newpath linepos 
  12.          {ff}
  13.          {/linepos linepos lineheight sub def}
  14.      ifelse
  15.      0 linepos moveto} def
  16. /say { show
  17.       /outputflag 1 def} def
  18. /norm {
  19.  findfont 
  20.      
  21.  scalefont setfont} def
  22. /rmt {rmoveto} def
  23. /xy {/objx cp pop def /objy cp exch pop def} def
  24. /mtxy {objx objy moveto} def
  25. /slw {0 setlinewidth} def
  26. /trim {{( ) anchorsearch {pop} {exit} ifelse} loop} defF
  27. /strw {dup length /strwidth exch def} def
  28. /numwidth {dup stringwidth pop strwidth exch sub} def
  29. /jfy {strw trim numwidth} def
  30. /rj {jfy 0 rmt xy} def
  31. /ctr {jfy 2 div 0 rmt xy} def
  32. /cp {currentpoint} def
  33. /mt {moveto} def
  34. /font {findfont exch scalefont setfont} def
  35. /rol {cp 3 -1 roll} def
  36. /mv {rol exch mt pop} def
  37. /up {rol add mt} def
  38. /dn {rol sub mt} def
  39. /u1 {xy 0 
  40.  -.1 mul rmt} def
  41. /u2 {dup stringwidth
  42.      
  43.  setlinewidth
  44.       rlineto gsave stroke grestore
  45.       mtxy slw say} def
  46. /gcp {mt 1 0 rmt} defF
  47. /l1 {dup 0 le {
  48.  sub} {
  49.  add} ifelse 0 exch rlineto} def
  50. /l2 {0 rlineto} def
  51. /dhl {0 .4 rmt l2 0 .2 rmt l2} def
  52. /dvl {.4 0 rmt l1 .2 0 rmt l1} def
  53. /lm {rol 0 rmt} def
  54. /ulc {mt cp 0 .6 rmt .4 l2 .4 l1} def
  55. /blc {mt cp 0 .4 rmt .4 l2 -.4 l1} def
  56. /urc {mt cp 1 .6 rmt -.4 l2 .4 l1} def
  57. /brc {mt cp 1 .4 rmt -.4 l2 -.4 l1} def
  58. /trc {mt cp 0 .6 rmt .6 l2 -.6 l1} def
  59. /lrc {mt cp 0 .4 rmt .6 l2 .6 l1} def
  60. /tlc {mt cp 1 .4 rmt -.6 l2 .6 l1} def
  61. /llc {mt cp 1 .6 rmt -.6 l2 -.6 l1} defF
  62. /c1 {cp .5 0 rmt 1 l1 gcp} def
  63. /c2 {cp 0 .5 rmt .5 l2 0 -.5 rmt 1 l1 gcp} def
  64. /c3 {c1 -1 0 rmt cp 0 .4 rmt .5 l2 0 .2 rmt -.5 l2 gcp} def
  65. /c4 {c8 -1 0 rmt cp 0 .5 rmt .3 l2 gcp} def
  66. /c5 {cp 0 .5 rmt .6 l2 -.6 0 rmt .5 -.5 dvl gcp} def
  67. /c6 {cp -.5 .5 dhl .5 0 rmt -.6 l1 gcp} def
  68. /c7 {cp ulc blc mt cp .6 0 rmt 1 l1 0 -1 
  69.  sub rmt 0 l1 gcp} def
  70. /c8 {cp -1 1 dvl gcp} def
  71. /c9 {cp blc trc gcp} def
  72. /c10 {cp ulc lrc gcp} def
  73. /c11 {cp 0 .5 rmt -.5 .5 dvl -.6 l2 gcp} def
  74. /c12 {cp -.5 .5 dhl .5 -.2 rmt .5 l1 gcp} def
  75. /c13 {cp 0 .5 rmt .5 l2 -.5 l1 gcp} defF
  76. /c14 {cp 1 .5 rmt -.5 l2 .5 l1 gcp} def
  77. /c15 {cp 0 .5 rmt 1 l2 -.5 0 rmt .5 l1 gcp} def
  78. /c16 {cp 0 .5 rmt 1 l2 -.5 0 rmt -.5 l1 gcp} def
  79. /c17 {cp .5 .5 rmt .5 l2 -.5 -.5 rmt 1 l1 gcp} def
  80. /c18 {cp 0 .5 rmt 1 l2 gcp} def
  81. /c19 {cp 0 .5 rmt 1 l2 -.5 -.5 rmt 1 l1 gcp} def
  82. /c20 {c1 -1 0 rmt cp .5 .4 rmt .5 l2 0 .2 rmt -.5 l2 gcp} def
  83. /c21 {c8 -1 0 rmt cp .6 .5 rmt .4 l2 gcp} def
  84. /c22 {cp urc tlc gcp} defF
  85. /c23 {cp brc llc gcp} def
  86. /c24 {cp urc ulc mt cp 0 .4  rmt 1 l2 gcp} def
  87. /c25 {cp brc blc mt cp 0 .6 rmt 1 l2 gcp} def
  88. /c26 {cp urc brc mt cp .4  0 rmt 1 l1 0 -1 
  89.  sub rmt 0 l1 gcp} def
  90. /c27 {cp -1 1 dhl gcp} def
  91. /c28 {cp ulc blc urc brc gcp} def
  92. /c29 {cp -1 1 dhl .5 0 rmt .4 l1 gcp} def
  93. /c30 {c18 -1 0 rmt cp 0 .5 rmt -.5 .5 dvl gcp} def
  94. /c31 {cp -1 1 dhl .5 -.2 rmt  -.4 l1 gcp} defF
  95. /c32 {c18 -1 0 rmt cp -.5 .5 dvl gcp} def
  96. /c33 {cp 0 .5 rmt -.5 .5 dvl -.2 0 rmt .6 l2 gcp} def
  97. /c34 {cp .5 .4 rmt .6 l1 0 -1 
  98.  sub rmt -.6 .6 dhl gcp} def
  99. /c35 {cp .4 0 rmt -.6 .6 dhl -.6 l1 gcp} def
  100. /c36 {cp .4 .5 rmt .6 l2 -1 -.5 
  101.  sub rmt -.5 .5 dvl gcp} def
  102. /c37 {cp -1 1 dvl mt c18} def
  103. /c38 {cp -1 1 dhl mt c1} def
  104. /c39 {cp 0 .5 rmt .5 l2 .5 l1 gcp} def
  105. /c40 {cp 1 .5 rmt -.5 l2 -.5 l1 gcp} def
  106. /draw {gsave stroke grestore newpath mtxy
  107.       /outputflag 1 def} def
  108. %%EndPrologF
  109. -90 rotate -FFF
  110.  0 translate
  111.  translate
  112.  scale
  113.  findfont 
  114.  scalefont setfont
  115. /pageheight 
  116. /lineheight 
  117.  store
  118. /#copies 
  119.  store
  120. /linepos pageheight 
  121.  sub def
  122. /outputflag 0 def
  123. /setupsave save def
  124. newpath ff
  125. /encodingF
  126. {/newcodes exch def /newfname exch def
  127.  /basefname exch def /basefdict basefname findfont def
  128.  /newfont basefdict maxlength dict def   
  129.  basefdict
  130.  { exch dup /FID ne { dup /Encoding eq
  131.    { exch dup length array copy newfont 3 1 roll put }
  132.    { exch newfont 3 1 roll put }
  133.  ifelse } { pop pop } ifelse } forall
  134.  newfont /FontName newfname put
  135.  newcodes aload pop newcodes length 2 idiv
  136.  { newfont /Encoding get 3 1 roll put} repeat
  137. newfname newfont definefont pop } def
  138. /intl [ 39 /quotesingle 96 /grave 128 /Ccedilla 129 /udieresisF
  139.  130 /eacute 131 /acircumflex 132 /adieresis 133 /agrave
  140.  134 /aring 135 /ccedilla 136 /ecircumflex 137 /edieresis
  141.  138 /egrave 139 /idieresis 140 /icircumflex 141 /igrave
  142.  142 /Adieresis 143 /Aring 144 /Eacute 145 /ae 146 /AE
  143.  147 /ocircumflex 148 /odieresis 149 /ograve
  144.  150 /ucircumflex 151 /ugrave 152 /ydieresis 153 /Odieresis
  145.  154 /Udieresis 155 /cent 156 /sterling 157 /yen
  146.  158 /fi 159 /florin 160 /aacute 161 /iacute 162 /oacute 163 /uacute
  147.  164 /ntilde 165 /Ntilde 166 /ordfeminine 167 /ordmasculine
  148.  168 /questiondown 170 /logicalnot
  149.  173 /exclamdown 174 /guillemotleft 175 /guillemotright
  150.  225 /germandbls 248 /degree
  151.  226 /Gamma 228 /SigmaF
  152.  224 /alpha 227 /pi 243 /lessequal 236 /infinity
  153.  241 /plusminus 242 /greaterequal 246 /divide 240 /equivalence
  154.  247 /approxequal 239 /intersection 238 /element 251 /radical
  155.  ] def
  156.  /Courier /Courier intl encoding
  157.  /Courier-Oblique /Courier-Oblique intl encoding
  158.  /Courier-Bold /Courier-Bold intl encoding
  159.  /Courier-BoldOblique /Courier-BoldOblique intl encoding
  160.  /Helvetica /Helvetica intl encoding
  161.  /Helvetica-Oblique /Helvetica-Oblique intl encoding
  162.  /Helvetica-Bold /Helvetica-Bold intl encoding
  163.  /Helvetica-BoldOblique /Helvetica-BoldOblique intl encoding
  164.  /Times-Roman /Times-Roman intl encoding
  165.  /Times-Italic /Times-Italic intl encoding
  166.  /Times-Bold /Times-Bold intl encoding
  167.  /Times-BoldItalic /Times-BoldItalic intl encoding
  168. PRG;APP;SPR;FXP;SPX
  169. Wo ist F
  170. DOC_HEIGHTDOC_WIDTH
  171. CODE1
  172. CODE1A
  173. CODE1B
  174. CODE1C
  175. CODE2
  176. CODE3
  177. CODE4
  178. CODE5
  179. CODE6
  180. CODE7
  181. CTLCHARS
  182. LEADING
  183. LINEEXT
  184. TRANS_X
  185. TRANS_Y
  186. VALOF9
  187. VALOF21
  188. _PDPARMS
  189. HEADER
  190. TFOOTER
  191. PRG;APP;SPR;FXP;SPX
  192. Wo ist F
  193. CTLCHARS
  194. TLENGTH
  195. _PDPARMS
  196. FROMHERE
  197. TGOTOHERE
  198. CTLCHARS
  199. LENGTH
  200. _PDPARMS
  201.  font 
  202.  norm F
  203.  font 
  204.  norm F
  205.  font 
  206.  norm 
  207. PRG;APP;SPR;FXP;SPX
  208. Wo ist F
  209. TATTRIBS
  210. CTLCHARS
  211. STARTCHARSENDCHARS
  212. UNDER1
  213. UNDER2
  214. SUPER
  215. CHARS
  216. _PDPARMS
  217. SCHK_SPECIALENGTH
  218. PRG;APP;SPR;FXP;SPX
  219. Wo ist F
  220. CTLCHARS
  221. TLENGTH
  222. _PDPARMS
  223. %%Trailer
  224. setupsave restore
  225. /#copies 1 store
  226. PRG;APP;SPR;FXP;SPX
  227. Wo ist F
  228. CODE1
  229. T_PDPARMS
  230.  ctr8
  231. ctr 8
  232. say 8
  233. mtxy 
  234.  0 rmt c
  235. draw mtxy 
  236.  0 rmt (
  237.  draw 
  238. ctr 8
  239. say 8
  240. THETEXT
  241. TUNDERLINE
  242. CENTER
  243. SCURCHAR
  244. LASTALINE
  245. NEWTEXT
  246. RJORCTR
  247. PDONUNLOAD
  248. PDDOCST
  249. PDPAGEST
  250. PDADVPRT
  251. PDOBJECT
  252. PDLINEEND
  253. PDDOCEND
  254. CHK_SPECIA
  255. C:\FOXPRO2\PDRIVER\
  256. C:\FOXPRO2\PDRIVER\PS.PRG
  257. PS.FXP
  258.