home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.bin / SourceCode / Palettes / RotationSlider / RotationSliderWraps.psw < prev   
Encoding:
Text File  |  1993-01-30  |  2.2 KB  |  108 lines
  1. /* Copyright 1993 by Don Yacktman.  see accompanying source for */
  2. /*   pertinent licensing details. */
  3.  
  4.  
  5. defineps PSdrawBezel(float grayLevel)
  6.   gsave
  7.     newpath 0.16 setlinewidth -44 5 translate
  8.     0.666 setgray
  9.     gsave
  10.       101 101 49 0 translate scale
  11.       newpath 0.5 0.5 0.5 0 360 arc stroke
  12.     grestore 0.08 setlinewidth  0 setgray
  13.     gsave
  14.       100 100 48 2 translate scale
  15.       newpath 0.5 0.5 0.5 0 360 arc stroke
  16.     grestore
  17.     gsave
  18.       100 100 48 0 translate scale
  19.       newpath 0.5 0.5 0.5 0 360 arc stroke
  20.     grestore
  21.     gsave
  22.       100 100 50 2 translate scale
  23.       newpath 0.5 0.5 0.5 0 360 arc stroke
  24.     grestore
  25.     0.333 setgray
  26.     gsave
  27.       100 100 49 1 translate scale
  28.       newpath 0.5 0.5 0.5 0 360 arc stroke
  29.     grestore
  30.     gsave
  31.       100 100 49 0 translate scale
  32.       newpath 0.5 0.5 0.5 0 360 arc stroke
  33.     grestore
  34.     gsave
  35.       100 100 50 1 translate scale
  36.       newpath 0.5 0.5 0.5 0 360 arc stroke
  37.     grestore
  38.     1 setgray
  39.     gsave
  40.       100 100 51 -1 translate scale
  41.       newpath 0.5 0.5 0.5 0 360 arc stroke
  42.     grestore 
  43.     gsave
  44.       100 100 51 0 translate scale
  45.       newpath 0.5 0.5 0.5 0 360 arc stroke
  46.     grestore
  47.     gsave
  48.       100 100 50 -1 translate scale
  49.       newpath 0.5 0.5 0.5 0 360 arc stroke
  50.     grestore
  51.     grayLevel setgray
  52.     gsave
  53.       100 100 50 0 translate scale
  54.       newpath 0.5 0.5 0.5 0 360 arc stroke
  55.     grestore
  56.   grestore
  57. endps
  58.  
  59. defineps PSdrawKnob(float angle)
  60.   gsave
  61.     angle dup cos 50 mul 50 add exch sin 50 mul 50 add translate
  62.     -4 1 translate 0 setgray
  63.     gsave
  64.       8 8 7 -2 translate scale
  65.       newpath 0.5 0.5 0.5 0 360 arc fill
  66.     grestore
  67.     gsave
  68.       8 8 7 0 translate scale
  69.       newpath 0.5 0.5 0.5 0 360 arc fill
  70.     grestore
  71.     gsave
  72.       8 8 5 -2 translate scale
  73.       newpath 0.5 0.5 0.5 0 360 arc fill
  74.     grestore
  75.     0.333 setgray
  76.     gsave
  77.       8 8 6 -1 translate scale
  78.       newpath 0.5 0.5 0.5 0 360 arc fill
  79.     grestore
  80.     gsave
  81.       8 8 6 0 translate scale
  82.       newpath 0.5 0.5 0.5 0 360 arc fill
  83.     grestore
  84.     gsave
  85.       8 8 5 -1 translate scale
  86.       newpath 0.5 0.5 0.5 0 360 arc fill
  87.     grestore
  88.     1 setgray
  89.     gsave
  90.       8 8 4 1 translate scale
  91.       newpath 0.5 0.5 0.5 0 360 arc fill
  92.     grestore
  93.     gsave
  94.       8 8 4 0 translate scale
  95.       newpath 0.5 0.5 0.5 0 360 arc fill
  96.     grestore
  97.     gsave
  98.       8 8 5 1 translate scale
  99.       newpath 0.5 0.5 0.5 0 360 arc fill
  100.     grestore
  101.     0.666 setgray
  102.     gsave
  103.       8 8 5 0 translate scale
  104.       newpath 0.5 0.5 0.5 0 360 arc fill
  105.     grestore
  106.   grestore
  107. endps
  108.