home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / sliste_h.psq < prev    next >
Encoding:
Text File  |  1993-10-12  |  2.0 KB  |  85 lines
  1. %  *************************************************
  2. %  ** ST▄CKLISTE NACH DIN 6771 (TYP A/HOCHFORMAT) **
  3. %  *************************************************
  4. %
  5. %
  6. %
  7. %
  8. /xl workb 10 sub def           %X-LΣnge des Blattes minus rechter Rand
  9. /yl workh 10 sub def           %Y-LΣnge des Blattes minus unterer Rand
  10. /a 4.25 def                    %Y-Faktor fⁿr internes DIN-Raster
  11. /b 2.6 def                     %X-Faktor fⁿr internes DIN-Raster
  12. /t workb 200 add 1000 idiv def %Multiplikator fⁿr DIN A1 und A0
  13. /a 5.6 a sub t mul a add def   %Neuer A-Wert, wenn Multiplikator=1
  14. /b 3.6 b sub t mul b add def   %Neuer B-Wert, wenn Multiplikator=1
  15. /c 9 a mul def                 %Y-Faktor fⁿr Y-Ausdehnung des Schriftfeldes
  16. /e 72 b mul def                %X-Faktor fⁿr X-Ausdehnung der Stⁿckliste
  17. /a a 2 mul def                 %Y-DIN-Raster*2
  18. /t1 3 def                      %oberer Textoffset
  19. /t2 a t1 sub def               %unterer Textoffset
  20. %
  21. /h÷he (In Verbindung mit Schriftfeld? [1=Ja, 0=Nein]) input def
  22. %
  23. 2 setpen
  24. 1 setdash
  25. 2 t add scalefont
  26. /x xl e sub def
  27. /y yl c h÷he mul sub a 2 mul sub def
  28. %
  29. /liste (Wie viele Listenelemente? ) input def
  30. %
  31. x y moveto
  32. 0 a neg t1 add rmoveto
  33. ( Pos.) show
  34. 5 b mul t1 neg rmoveto
  35. 0 a rlineto
  36. 0 t2 neg rmoveto
  37. ( Men.) show
  38. 5 b mul t2 rmoveto
  39. 0 a neg rlineto
  40. 0 t1 rmoveto
  41. ( Einh.) show
  42. 5 b mul t1 neg rmoveto
  43. 0 a rlineto
  44. 0 t2 neg rmoveto
  45. (      Benennung) show
  46. 22 b mul t2 rmoveto
  47. 0 a neg rlineto
  48. 0 t1 rmoveto
  49. (  Sachnr./Norm-Kurzbez.) show
  50. 21 b mul t1 neg rmoveto
  51. 0 a rlineto
  52. 0 t2 neg rmoveto
  53. (     Werkstoff) show
  54. 14 b mul a neg t2 add rmoveto
  55. e neg 0 rlineto
  56. %
  57. /pos 1 def
  58. liste {
  59. b a neg t1 add rmoveto
  60. pos show
  61. /pos pos 1 add def
  62. 4 b mul t1 neg rmoveto
  63. 0 a rlineto
  64. 5 b mul 0 rmoveto
  65. 0 a neg rlineto
  66. 5 b mul 0 rmoveto
  67. 0 a rlineto
  68. 22 b mul 0 rmoveto
  69. 0 a neg rlineto
  70. 21 b mul 0 rmoveto
  71. 0 a rlineto
  72. 14 b mul a neg rmoveto
  73. e neg 0 rlineto
  74. }
  75. 4 setpen
  76. xl y box
  77. xl e sub y moveto
  78. 0 h÷he neg 1 add 2 a mul mul rlineto
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.