home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 (1993) / nebula.bin / SourceCode / MiniExamples / PerformanceTuning / VisibleView-02 / SomePS.psw < prev    next >
Encoding:
Text File  |  1991-10-18  |  735 b   |  97 lines
  1. defineps somedefs()
  2. %defs
  3. /tripath {
  4. 0 0 moveto
  5. 100 0 lineto
  6. 50  100 lineto
  7. closepath
  8. } def
  9.  
  10. /cirpath {
  11. 100 50 moveto
  12. 50 50 50 0 360 arc
  13. } def
  14.  
  15. /recstroke {
  16. 0 0 100 100 rectstroke
  17. } def
  18.  
  19. /recfill {
  20. 0 0 100 100 rectfill
  21. } def
  22.  
  23. /rec {
  24. .333 setgray
  25. recfill
  26. 0 setgray
  27. recstroke
  28. } def
  29.  
  30. /cir {
  31. .5 setgray
  32. cirpath
  33. fill
  34. 0 setgray
  35. cirpath
  36. stroke
  37. } def
  38.  
  39. /tri {
  40. .666 setgray
  41. tripath
  42. fill
  43. 0 setgray
  44. tripath
  45. stroke
  46. } def
  47.  
  48. /mass {
  49. rec
  50. cir
  51. tri
  52. } def
  53.  
  54. endps
  55.  
  56.  
  57.  
  58. defineps somePS()
  59. %body
  60. gsave
  61. 200 50 translate
  62. 30 rotate
  63. mass
  64. grestore
  65.  
  66. gsave
  67. 150 50 translate
  68. 45 rotate
  69. rec
  70. grestore
  71.  
  72. gsave
  73. 50 150 translate
  74. tri
  75. grestore
  76.  
  77. gsave
  78. 100 100 translate
  79. cir
  80. grestore
  81.  
  82. gsave
  83. 25 25 translate
  84. mass
  85. grestore
  86.  
  87. gsave
  88. 125 275 translate
  89. -60 rotate
  90. mass
  91. grestore
  92.  
  93. endps
  94.  
  95.  
  96.  
  97.