home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.bin / SourceCode / Palettes / Chart / Source / BarChartPS.psw < prev    next >
Encoding:
Text File  |  1994-06-07  |  1.7 KB  |  99 lines
  1. // -------------------------------------------------------------------------------------
  2. // custom PS for BarChart palette
  3. // -------------------------------------------------------------------------------------
  4.  
  5. // draw crossHair at specified point
  6. defineps _barDrawCrossHair(float x, y, len)
  7.     newpath
  8.     x len 2 div sub y moveto len 0 rlineto
  9.     x y len 2 div sub moveto 0 len rlineto
  10.     stroke
  11. endps
  12.  
  13. // draw text 90 deg counterclockwise
  14. defineps _barDrawVertText(float x, y; char *string)
  15.     newpath
  16.     x y translate
  17.     0 0 moveto
  18.     90 rotate
  19.     (string) show
  20.     stroke
  21. endps
  22.  
  23. // draw text
  24. defineps _barDrawText(float x, y; char *string)
  25.     newpath
  26.     x y moveto
  27.     (string) show
  28.     stroke
  29. endps
  30.  
  31. // draw small rectangular point
  32. defineps _barDrawPoint(float x, y; float width)
  33.     newpath
  34.     x y moveto
  35.     width 2 div
  36.     neg dup rmoveto
  37.     0 width rlineto
  38.     width 0 rlineto
  39.     0 width neg rlineto
  40.     closepath
  41.     fill
  42. endps
  43.  
  44. // draw absolute line
  45. defineps _barALine(float x, y; float x2, y2)
  46.     newpath
  47.     x y moveto
  48.     x2 y2 lineto
  49.     stroke
  50. endps
  51.  
  52. // draw relative line
  53. defineps _barRLine(float x, y; float dx, dy)
  54.     newpath
  55.     x y moveto
  56.     dx dy rlineto
  57.     stroke
  58. endps
  59.  
  60. // draw absolute box
  61. defineps _barBox(float x, y; float x2, y2; float color)
  62.     newpath
  63.     1 setlinewidth
  64.     x y moveto
  65.     x y2 lineto
  66.     x2 y2 lineto
  67.     x2 y lineto
  68.     closepath
  69.     gsave
  70.     color setgray fill
  71.     grestore
  72.     0 setgray stroke
  73. endps
  74.  
  75. // draw absolute box outline
  76. defineps _barOutline(float x, y; float x2, y2; float dash, color)
  77.     newpath
  78.     1 setlinewidth
  79.     dash 0 gt { [ dash dash ] 0 setdash } if
  80.     x y moveto
  81.     x y2 lineto
  82.     x2 y2 lineto
  83.     x2 y lineto
  84.     closepath
  85.     color setgray stroke
  86. endps
  87.  
  88. // draw absolute box path
  89. defineps _barClipBox(float x, y; float w, h)
  90.     newpath
  91.     x y moveto
  92.     0 h rlineto
  93.     w 0 rlineto
  94.     0 h neg rlineto
  95.     closepath
  96.     clip
  97.     newpath
  98. endps
  99.