home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HF-PSTC1.DMS / in.adf / Power_Stitch256 / header.ps < prev    next >
Encoding:
Text File  |  1992-09-02  |  5.8 KB  |  553 lines
  1.  
  2.  
  3. /ypos 30     def
  4. /xpos 30     def
  5. /ypos_10 30  def
  6. /xpos_10 30  def
  7.  
  8.  
  9. /h_line
  10. {
  11. newpath
  12. 30 ypos moveto
  13. 530 ypos lineto
  14. stroke
  15. ypos 10 add
  16. /ypos exch def
  17. clear
  18. } def
  19.  
  20. /h_line_10
  21. {
  22. newpath
  23. 30 ypos_10 moveto
  24. 530 ypos_10 lineto
  25. stroke
  26. ypos_10 100 add
  27. /ypos_10 exch def
  28. clear
  29. } def
  30.  
  31.  
  32. /v_line
  33. {
  34. newpath
  35. xpos 30 moveto
  36. xpos 730 lineto
  37. stroke
  38. xpos 10 add
  39. /xpos exch def
  40. clear
  41. }def
  42.  
  43.  
  44. /v_line_10
  45. {
  46. newpath
  47. xpos_10 30 moveto
  48. xpos_10 730 lineto
  49. stroke
  50. xpos_10 100 add
  51. /xpos_10 exch def
  52. clear
  53. }def
  54.  
  55. /areapath
  56. {
  57. newpath
  58. 30 30 moveto
  59. 30 730 lineto
  60. 530 730 lineto
  61. 530 30 lineto
  62. closepath
  63. } def
  64.  
  65. /keygrid    % Draw the grid for the key page
  66. {
  67.  newpath
  68.  moveto
  69.  30 0 rlineto
  70.  0 10 rlineto
  71.  -30 0 rlineto
  72.  0 -10 rlineto
  73.  10 0 rmoveto
  74.  0 10 rlineto
  75.  10 0 rmoveto
  76.  0 -10 rlineto
  77.  closepath
  78.  0.2 setlinewidth
  79.  stroke
  80. }def
  81.  
  82. /normal               % set text font to standard
  83. {
  84. /Times-Roman findfont
  85. 12 scalefont
  86. setfont
  87. }def
  88.  
  89. /b_text               % set text font to standard
  90. {
  91. /Times-Bold findfont
  92. 12 scalefont
  93. setfont
  94. }def
  95.  
  96. /small_text           % set text font to small 
  97. {
  98. /Times-Roman findfont
  99. 9 scalefont
  100. setfont
  101. }def
  102.  
  103. /page_head         % The page header
  104. {
  105. newpath
  106.  30 750 moveto
  107.  500 0 rlineto
  108.  0 40 rlineto
  109.  -500 0 rlineto
  110.  closepath
  111.  0.5 setgray
  112.  fill
  113. stroke
  114.  
  115. newpath
  116.  30 750 moveto
  117.  -5 -5 rlineto
  118.  510 0 rlineto
  119.  0 50 rlineto
  120.  -5 -5 rlineto
  121.  0 -40 rlineto
  122.  closepath
  123.  0.3 setgray
  124.  fill
  125. stroke
  126.  
  127. newpath
  128.  30 750 moveto
  129.  -5 -5 rlineto
  130.  0 50 rlineto
  131.  510 0 rlineto
  132.  -5 -5 rlineto
  133.  -500 0 rlineto
  134.  closepath
  135.  0.8 setgray
  136.  fill
  137. stroke
  138.  
  139. /Times-Bold findfont
  140. 20 scalefont
  141. setfont
  142. newpath
  143. 0 setgray
  144.  60 763 moveto
  145.  (Power Stitch 256 Print Maker      (c) Aspire 2)
  146.  show
  147. }def
  148.  
  149. /Grid       % The grid
  150. {
  151. 0 setlinewidth
  152. 0 setgray
  153.  
  154. 1 10 710 {h_line} for
  155.  
  156. 1 10 510 {v_line} for
  157.  
  158.  
  159. 0.4 setlinewidth
  160.  
  161. 1 100 710 {h_line_10} for
  162.  
  163. 1 100 510 {v_line_10} for
  164.  
  165. 0 setlinewidth
  166. }def
  167.  
  168. /dopage         % The main page outline for the grid
  169. {
  170.  
  171. Grid   
  172. page_head
  173.  
  174. }def
  175.  
  176.  
  177. %==================================================
  178. % THE SYMBOLS
  179.  
  180.  
  181. /sy1  % large square
  182. {
  183.  newpath
  184.  moveto
  185.  -3 -3 rmoveto
  186.  6 0 rlineto
  187.  0 6 rlineto
  188.  -6 0 rlineto
  189.  closepath
  190.  stroke
  191. }def
  192.  
  193. /sy1s % small square
  194. {
  195.  newpath
  196.  moveto
  197.  -3 -3 rmoveto
  198.  1.5 1.5 rmoveto
  199.  3 0 rlineto
  200.  0 3 rlineto
  201.  -3 0 rlineto
  202.  closepath
  203.  stroke
  204. }def
  205.  
  206. /sy2 % large filled square
  207. {
  208.  newpath
  209.  moveto
  210.  -3 -3 rmoveto
  211.  6 0 rlineto
  212.  0 6 rlineto
  213.  -6 0 rlineto
  214.  closepath
  215.  fill
  216.  stroke
  217. }def
  218.  
  219. /sy2s % small filled square
  220. {
  221.  newpath
  222.  moveto
  223.  -3 -3 rmoveto
  224.  1.5 1.5 rmoveto
  225.  3 0 rlineto
  226.  0 3 rlineto
  227.  -3 0 rlineto
  228.  closepath
  229.  fill
  230.  stroke
  231. }def
  232.  
  233. /sy3  % large circle
  234. {
  235.  newpath
  236.  3 0 360 arc
  237.  stroke
  238. }def
  239.  
  240. /sy3s  % small circle
  241. {
  242.  newpath
  243.  1.5 0 360 arc
  244.  stroke
  245. }def
  246.  
  247. /sy4  % filled large circle
  248. {
  249.  newpath
  250.  3 0 360 arc
  251.  fill
  252.  stroke
  253. }def
  254.  
  255. /sy4s  % filled small circle
  256. {
  257.  newpath
  258.  1.5 0 360 arc
  259.  fill
  260.  stroke
  261. }def
  262.  
  263. /sy5  % vertical hour glass
  264. {
  265.  newpath
  266.  moveto
  267.  -3 -3 rmoveto
  268.  6 0 rlineto
  269.  -6 6 rlineto
  270.  6 0 rlineto
  271.  closepath
  272.  stroke
  273. }def
  274.  
  275.  
  276. /sy5s  % small vertical hour glass
  277. {
  278.  newpath
  279.  moveto
  280.  -3 -3 rmoveto
  281.  1.5 1.5 rmoveto
  282.  3 0 rlineto
  283.  -3 3 rlineto
  284.  3 0 rlineto
  285.  closepath
  286.  stroke
  287. }def
  288.  
  289. /sy6  % filled vertical hour glass
  290. {
  291.  newpath
  292.  moveto
  293.  -3 -3 rmoveto
  294.  6 0 rlineto
  295.  -6 6 rlineto
  296.  6 0 rlineto
  297.  closepath
  298.  fill
  299.  stroke
  300. }def
  301.  
  302.  
  303. /sy6s  % filled small vertical hour glass
  304. {
  305.  newpath
  306.  moveto
  307.  -3 -3 rmoveto
  308.  1.5 1.5 rmoveto
  309.  3 0 rlineto
  310.  -3 3 rlineto
  311.  3 0 rlineto
  312.  closepath
  313.  fill
  314.  stroke
  315. }def
  316.  
  317. /sy7  % horizontal hour glass
  318. {
  319.  newpath
  320.  moveto
  321.  -3 -3 rmoveto
  322.  6 6 rlineto
  323.  0 -6 rlineto
  324.  -6 6 rlineto
  325.  closepath
  326.  stroke
  327. }def
  328.  
  329.  
  330. /sy7s  % small horizontal hour glass
  331. {
  332.  newpath
  333.  moveto
  334.  -3 -3 rmoveto
  335.  1.5 1.5 rmoveto
  336.  3 3 rlineto
  337.  0 -3 rlineto
  338.  -3 3 rlineto
  339.  closepath
  340.  stroke
  341. }def
  342.  
  343. /sy8  % filled horizontal hour glass
  344. {
  345.  newpath
  346.  moveto
  347.  -3 -3 rmoveto
  348.  6 6 rlineto
  349.  0 -6 rlineto
  350.  -6 6 rlineto
  351.  closepath
  352.  fill
  353.  stroke
  354. }def
  355.  
  356.  
  357. /sy8s  % filled small vertical hour glass
  358. {
  359.  newpath
  360.  moveto
  361.  -3 -3 rmoveto
  362.  1.5 1.5 rmoveto
  363.  3 3 rlineto
  364.  0 -3 rlineto
  365.  -3 3 rlineto
  366.  closepath
  367.  fill
  368.  stroke
  369. }def
  370.  
  371.  
  372. /sy9  % large diag square
  373. {
  374.  newpath
  375.  moveto
  376.  -3 -3 rmoveto
  377.  6 0 rlineto
  378.  0 6 rlineto
  379.  -6 0 rlineto
  380.  closepath
  381.  6 6 rlineto
  382.  stroke
  383. }def
  384.  
  385. /sy9s % small diag square
  386. {
  387.  newpath
  388.  moveto
  389.  -3 -3 rmoveto
  390.  1.5 1.5 rmoveto
  391.  3 0 rlineto
  392.  0 3 rlineto
  393.  -3 0 rlineto
  394.  closepath
  395.  3 3 rlineto
  396.  stroke
  397. }def
  398.  
  399. /sy10  % large triangle
  400. {
  401.  newpath
  402.  moveto
  403.  -3 -3 rmoveto
  404.  6 0 rlineto
  405.  -3 6 rlineto
  406.  closepath 
  407.  stroke
  408. }def
  409.  
  410. /sy10s % small triangle
  411. {
  412.  
  413.  newpath
  414.  moveto
  415.  -3 -3 rmoveto
  416.  1.5 1.5 rmoveto
  417.  3 0 rlineto
  418.  -1.5 3 rlineto
  419.  closepath
  420.  stroke
  421. }def
  422.  
  423. /sy11  % filled large triangle
  424. {
  425.  newpath
  426.  moveto
  427.  -3 -3 rmoveto
  428.  6 0 rlineto
  429.  -3 6 rlineto
  430.  closepath 
  431.  fill
  432.  stroke
  433. }def
  434.  
  435. /sy11s % filled small triangle
  436. {
  437.  
  438.  newpath
  439.  moveto
  440.  -3 -3 rmoveto
  441.  1.5 1.5 rmoveto
  442.  3 0 rlineto
  443.  -1.5 3 rlineto
  444.  closepath
  445.  fill
  446.  stroke
  447. }def
  448.  
  449. /sy12  % large cross square
  450. {
  451.  newpath
  452.  moveto
  453.  -3 -3 rmoveto
  454.  6 0 rlineto
  455.  0 6 rlineto
  456.  -6 0 rlineto
  457.  closepath
  458.  6 6 rlineto
  459.  -6 0 rmoveto
  460.  6 -6 rlineto
  461.  stroke
  462. }def
  463.  
  464. /sy12s % small cross  square
  465. {
  466.  newpath
  467.  moveto
  468.  -3 -3 rmoveto
  469.  1.5 1.5 rmoveto
  470.  3 0 rlineto
  471.  0 3 rlineto
  472.  -3 0 rlineto
  473.  closepath
  474.  3 3 rlineto
  475.  -3 0 rmoveto
  476.  3 -3 rlineto
  477.  stroke
  478. }def
  479.  
  480. /sy13  % large cross 
  481. {
  482.  newpath
  483.  moveto
  484.  -3 -3 rmoveto
  485.  3 0 rmoveto
  486.  0 6 rlineto
  487.  -3 -3 rmoveto
  488.  6 0 rlineto
  489.  stroke
  490. }def
  491.  
  492. /sy13s  % small cross 
  493. {
  494.  newpath
  495.  moveto
  496.  -3 -3 rmoveto
  497.  1.5 1.5 rmoveto
  498.  3 0 rmoveto
  499.  0 3 rlineto
  500.  -1.5 -1.5 rmoveto
  501.  3 0 rlineto
  502.  stroke
  503. }def
  504.  
  505. /sy14  % large V 
  506. {
  507.  newpath
  508.  moveto
  509.  -3 -3 rmoveto
  510.  3 6 rlineto
  511.  3 -6 rlineto
  512.  stroke
  513. }def
  514.  
  515. /sy14s  % small  V 
  516. {
  517.  newpath
  518.  moveto
  519.  -3 -3 rmoveto
  520.  1.5 1.5 rmoveto
  521.  1.5 3 rlineto
  522.  1.5 -3 rlineto
  523.  stroke
  524. }def
  525.  
  526. /sy15  % large U 
  527. {
  528.  newpath
  529.  moveto
  530.  -3 -3 rmoveto
  531.  0 6 rmoveto
  532.  0 -6 rlineto
  533.  6 0 rlineto
  534.  0 6 rlineto
  535.  stroke
  536. }def
  537.  
  538. /sy15s  % small U 
  539. {
  540.  newpath
  541.  moveto
  542.  -3 -3 rmoveto
  543.  1.5 1.5 rmoveto
  544.  0 3 rmoveto
  545.  0 -3 rlineto
  546.  3 0 rlineto
  547.  0 3 rlineto
  548.  stroke
  549. }def
  550.  
  551.  
  552. %============================================
  553.