home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / sch_feld.psq < prev    next >
Encoding:
Text File  |  1993-10-12  |  2.9 KB  |  131 lines
  1. %  *******************************
  2. %  ** SCHRIFTFELD NACH DIN 6771 **
  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 DIN 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 13 a mul def                %Y-Faktor fⁿr Y-Ausdehnung des Schriftfeldes
  16. /e 72 b mul def                %X-Faktor fⁿr X-Ausdehnung des Schriftfeldes
  17. /toff 1 def                    %Text-Offset
  18. %
  19. %  ********** SCHRIFTFELDBEGRENZUNG **********
  20. %
  21. 1 setdash
  22. 4 setpen
  23. /xstart xl e sub def           %X links oben des Schriftfeldes
  24. /ystart yl c sub def           %Y links oben des Schriftfeldes
  25. xstart ystart moveto
  26. xl yl box
  27. %
  28. %  ********** HORRIZONTALE LINIEN **********
  29. %
  30. 2 setpen
  31. 38 b mul 1.5 a mul rmoveto
  32. 34 b mul 0 rlineto
  33. 0 2.5 a mul rmoveto
  34. e neg 0 rlineto
  35. 21 b mul 4 a mul rmoveto
  36. 17 b mul 0 rlineto
  37. 34 b mul a rmoveto
  38. 51 b mul neg 0 rlineto
  39. 46 b mul 2 a mul rmoveto
  40. 5 b mul 0 rlineto
  41. 0 a rmoveto
  42. e neg 0 rlineto
  43. %
  44. %  ********** VERTIKALE LINIEN **********
  45. %
  46. 3 b mul xstart add 4 a mul ystart add moveto
  47. 0 9 a mul rlineto
  48. 10 b mul 0 rmoveto
  49. 0 9 a mul neg rlineto
  50. 5 b mul 0 rmoveto
  51. 0 9 a mul rlineto
  52. 3 b mul 0 rmoveto
  53. 0 c neg rlineto
  54. 4 b mul 4 a mul rmoveto
  55. 0 4 a mul rlineto
  56. 6 b mul a rmoveto
  57. 0 9 a mul neg rlineto
  58. 7 b mul 0 rmoveto
  59. 0 c rlineto
  60. 17 b mul 0 rmoveto
  61. 0 a neg rlineto
  62. 12 b mul 0 rmoveto
  63. 0 3 a mul neg rlineto
  64. 9 b mul neg 9 a mul neg rmoveto
  65. 0 1.5 a mul rlineto
  66. %
  67. %  ********** TRENNLINIEN **********
  68. %
  69. 1 setpen
  70. xstart 5 a mul ystart add moveto
  71. 4 {
  72. 38 b mul 0 rlineto
  73. 38 b mul neg a rmoveto
  74. }
  75. 3 {
  76. 21 b mul 0 rlineto
  77. 21 b mul neg a rmoveto
  78. }
  79. %
  80. %  ********** BESCHRIFTUNG **********
  81. %
  82. 2.5 t add scalefont
  83. 21 b mul xstart add toff add ystart toff 2 mul add moveto
  84. (Allgemein-) show
  85. 0 5 t add rmoveto
  86. (toleranzen) show
  87. 0 5 t add rmoveto
  88. (DIN 7168-m) show
  89. 38 b mul xstart add toff add ystart toff 2 mul add moveto
  90. (Ma▀stab) show
  91. 20 b mul 0 rmoveto
  92. (Gewicht) show
  93. 1.5 t add scalefont
  94. 21 b mul xstart add toff add 4 a mul ystart add toff add moveto
  95. 0 a rmoveto
  96. (Bearb) show
  97. 0 a rmoveto
  98. (Gepr.) show
  99. 0 a rmoveto
  100. (Norm) show
  101. b 4 mul a 2 mul neg rmoveto
  102. 0 a neg rmoveto
  103. (Datum) show
  104. 6 b mul 0 rmoveto
  105. (Name) show
  106. xstart toff add 12 a mul ystart add toff add moveto
  107. (Zust.) show
  108. 3 b mul 0 rmoveto
  109. (─nderung) show
  110. 10 b mul 0 rmoveto
  111. (Datum) show
  112. 5 b mul 0 rmoveto
  113. (Name) show
  114. 20 b mul 0 rmoveto
  115. (Ers. fⁿr:) show
  116. 17 b mul 0 rmoveto
  117. (Ers. durch:) show
  118. 12 b mul 3 a mul neg rmoveto
  119. (Blatt) show
  120. 3 b mul 2 a mul rmoveto
  121. (Bl.) show
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.