home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / balken.psq next >
Encoding:
Text File  |  1993-10-12  |  2.1 KB  |  137 lines
  1. % *************************************
  2. %            Balkengrafik mit PS+
  3. %                    Version 1.0
  4. %             von Carsten Peters
  5. % *************************************
  6.  
  7. hintergrund call
  8. gitterlinien call
  9. daten_auswerten call
  10.  
  11. hintergrund#
  12. /dy workh 50 div def
  13. /y 0 def
  14. /yy dy def
  15. /startwert 180 def
  16. /endwert 240 def
  17. /farbaenderung endwert startwert sub 50 div def
  18. /farbwert startwert def
  19. 50 {
  20. farbwert 50 100 hlscolor
  21. 0 y moveto
  22. workb yy fbox
  23. /y y dy add def
  24. /yy yy dy add def
  25. /farbwert farbwert farbaenderung add def
  26. }
  27. return
  28.  
  29. gitterlinien#
  30. /vx workb 0.05 mul def
  31. /vy workh 0.05 mul def
  32. /wb_merk workb def
  33. /wh_merk workh def
  34. /workb workb 0.9 mul def
  35. /workh workh 0.9 mul def
  36.  
  37. 0 0 0 rgbcolor
  38. 1 findpen setpen
  39. /dx workb 4 div def
  40. /dy workh 4 div def
  41. /dxx workb dx sub 6 div def
  42. /dyy workh dy sub 6 div def
  43.  
  44. /x vx dxx add def
  45. /xx vx def
  46. /y vy workh dy sub add def
  47. 7 {
  48. /x x dxx add def
  49. x vy moveto
  50. x y lineto
  51. xx vy workh add lineto
  52. /xx xx dxx add def
  53. }
  54.  
  55. 7 {
  56. vx dx add y moveto
  57. vx workb add y lineto
  58. /y y dyy sub def
  59. }
  60.  
  61. /x vx def
  62. /xx vx dx add def
  63. /y vy workh add def
  64. /yy vy workh dy sub add def
  65. 7 {
  66. x y moveto
  67. xx yy lineto
  68. /y y dyy sub def
  69. /yy yy dyy sub def
  70. }
  71.  
  72. /x vx workb dx sub add def
  73. /y vy workh add def
  74. /xx vx def
  75. /yy xy def
  76. /dxxx dx 6 div def
  77. /dyyy dy 6 div def
  78. 7 {
  79. x y moveto
  80. xx y lineto
  81. /x x dxxx add def
  82. /xx xx dxxx add def
  83. /y y dyyy sub def
  84. }
  85.  
  86. /x vx def
  87. /y vy dy add def
  88. /xx vx def
  89. /yy vy workh add def
  90. 7 {
  91. x y moveto
  92. x yy lineto
  93. /x x dxxx add def
  94. /y y dyyy sub def
  95. /yy yy dyyy sub def
  96. }
  97.  
  98. /workb wb_merk def
  99. /workh wh_merk def
  100. return
  101.  
  102. daten_auswerten#
  103. /maxwert workh vx sub dx sub def
  104. /abnahme maxwert 50 div def
  105. /wert maxwert def
  106. /helligkeit 10 def
  107. 7 {
  108. /nummer 0 def
  109. 6 {
  110. /nummer nummer inc def
  111. /wert wert abnahme sub def 
  112. /helligkeit helligkeit inc def
  113. balken_zeichnen call
  114. }
  115. /reihe reihe inc def
  116. }
  117. return
  118.  
  119. balken_zeichnen#
  120. 120 helligkeit 100 hlscolor
  121. /x vx nummer inc dxx mul add dxxx reihe mul sub def
  122. /y workh dy sub vy sub dyyy reihe mul add def
  123. x y moveto
  124. x dxx add y wert sub fbox
  125. return
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.