home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / fplotter.psq < prev    next >
Encoding:
Text File  |  1993-10-12  |  973 b   |  62 lines
  1. /xh workb 2 div def
  2. /yh workh 2 div def
  3. 0 yh moveto
  4. workb yh lineto
  5. xh 0 moveto
  6. xh workh lineto
  7. /x_ink workb 72 div def
  8. /x 0 def
  9. /y1 yh 5 sub def
  10. /y2 yh 5 add def
  11. 73 {
  12. x y1 moveto x y2 lineto
  13. /x x x_ink add def
  14. }
  15. /y_ink workh 20 div def
  16. /y 0 def
  17. /x1 xh 5 sub def
  18. /x2 xh 5 add def
  19. 21 {
  20. x1 y moveto x2 y lineto
  21. /y y y_ink add def
  22. }
  23. /stern (Ausgabe mit Stern?) (JA|NEIN) dialog def
  24. /x 0 def
  25. /winkel 0 def
  26. /x_merk 0 def
  27. /y_merk yh def
  28. 73 {
  29. /y winkel sin def
  30. /y y yh mul def
  31. /y yh y sub def
  32. x_merk y_merk moveto
  33. x y lineto
  34. /x_merk x def
  35. /y_merk y def
  36. stern 1 eq if
  37. sterne_zeichnen call
  38. endif
  39. /x x x_ink add def
  40. /winkel winkel 10 add def
  41. }
  42. sterne_zeichnen#
  43. /x_links x 2 sub def
  44. /x_rechts x 2 add def
  45. /y_oben y 2 sub def
  46. /y_unten y 2 add def
  47. x_links y_oben moveto x_rechts y_unten lineto
  48. x_rechts y_oben moveto x_links y_unten lineto
  49. x_rechts y moveto x_links y lineto
  50. x y_oben moveto x y_unten lineto
  51. return
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.