home *** CD-ROM | disk | FTP | other *** search
/ Nebula / nebula.bin / Documents / Diagram / UW_Palettes / Gears.dpalette (.txt) < prev    next >
NeXT TypedStream Data  |  1992-07-30  |  5KB  |  153 lines
  1. typedstream
  2.     PrintInfo
  3. Object
  4. *fffffcsiii*s***i
  5. Letter
  6.     PotOfGold
  7. NeXT 400 dpi Laser Printer
  8. rainbow
  9. ffffii
  10. PaletteView
  11. GraphicView
  12. ViewGrid
  13.     Responder
  14. EditView
  15. cccf    
  16. @iiffcc
  17. LightOrderedSet
  18. LightUnsortedCollection
  19. LightOrderedCollection
  20. LightCollection
  21. compare:
  22.     PSGraphic
  23. Graphic
  24.     cccccc#@@
  25. LineTaskTextGraphic
  26. LineTaskGraphic
  27. SplineGraphic
  28. LineGraphic
  29. [1021c]%!PS-Adobe-2.0 EPSF-2.0
  30. %%Title:Gear9.eps
  31. %%Creator: Kevin Brain (ksbrain@zeus.UWaterloo.ca)
  32. %%CreationDate: Thursday June 11 1992
  33. %%Pages: 0 1
  34. %%BoundingBox: 0 0 100 100 
  35. %%EndComments
  36. % eps drawing of a gear for Diagram palette
  37. /gears 9 store
  38. /orad 50 store    % outer radius of gear
  39. /irad 25 store        % inner radius of gear
  40. /iang {180 gears div} store    % inner angle
  41. % sides of the teeth are computed to be parallel to a line drawn
  42. % from the centre of the gear to the center of the tooth
  43. % (involves cosine law...)
  44. /mess { irad 2 exp orad 2 exp sub irad 2 exp iang cos mul sub
  45.     orad 2 exp neg div}  store
  46. /oang {1 mess 2 exp sub sqrt mess div 1 atan} def
  47. /diffby2 {iang oang sub 2 div } def
  48. orad orad translate
  49. %mess 1 lt  mess 0 gt and {0 -15 moveto (in range) show}  {0 -15 moveto (out of range) show} ifelse
  50. irad 0 moveto
  51. 1 1 gears {
  52. pop                % we don't use the value from the for
  53. 0 0 orad diffby2 dup oang add arc
  54. %0 0 orad 0 iang arc
  55. 0 0 irad iang dup 2 mul arc
  56. iang 2 mul rotate
  57. } for
  58. %0 0 moveto
  59. %(done) show
  60. [1023c]%!PS-Adobe-2.0 EPSF-2.0
  61. %%Title:Gear15.eps
  62. %%Creator: Kevin Brain (ksbrain@zeus.UWaterloo.ca)
  63. %%CreationDate: Thursday June 11 1992
  64. %%Pages: 0 1
  65. %%BoundingBox: 0 0 100 100 
  66. %%EndComments
  67. % eps drawing of a gear for Diagram palette
  68. /gears 15 store
  69. /orad 50 store    % outer radius of gear
  70. /irad 35 store        % inner radius of gear
  71. /iang {180 gears div} store    % inner angle
  72. % sides of the teeth are computed to be parallel to a line drawn
  73. % from the centre of the gear to the center of the tooth
  74. % (involves cosine law...)
  75. /mess { irad 2 exp orad 2 exp sub irad 2 exp iang cos mul sub
  76.     orad 2 exp neg div}  store
  77. /oang {1 mess 2 exp sub sqrt mess div 1 atan} def
  78. /diffby2 {iang oang sub 2 div } def
  79. orad orad translate
  80. %mess 1 lt  mess 0 gt and {0 -15 moveto (in range) show}  {0 -15 moveto (out of range) show} ifelse
  81. irad 0 moveto
  82. 1 1 gears {
  83. pop                % we don't use the value from the for
  84. 0 0 orad diffby2 dup oang add arc
  85. %0 0 orad 0 iang arc
  86. 0 0 irad iang dup 2 mul arc
  87. iang 2 mul rotate
  88. } for
  89. %0 0 moveto
  90. %(done) show
  91. %!PS-Adobe-2.0 EPSF-2.0
  92. %%Title:Gear12.eps
  93. %%Creator: Kevin Brain (ksbrain@zeus.UWaterloo.ca)
  94. %%CreationDate: Thursday June 11 1992
  95. %%Pages: 0 1
  96. %%BoundingBox: 0 0 100 100 
  97. %%EndComments
  98. % eps drawing of a gear for Diagram palette
  99. /gears 12 store
  100. /orad 50 store    % outer radius of gear
  101. /irad 35 store        % inner radius of gear
  102. /iang {180 gears div} store    % inner angle
  103. % sides of the teeth are computed to be parallel to a line drawn
  104. % from the centre of the gear to the center of the tooth
  105. % (involves cosine law...)
  106. /mess { irad 2 exp orad 2 exp sub irad 2 exp iang cos mul sub
  107.     orad 2 exp neg div}  store
  108. /oang {1 mess 2 exp sub sqrt mess div 1 atan} def
  109. /diffby2 {iang oang sub 2 div } def
  110. orad orad translate
  111. %mess 1 lt  mess 0 gt and {0 -15 moveto (in range) show}  {0 -15 moveto (out of range) show} ifelse
  112. irad 0 moveto
  113. 1 1 gears {
  114. pop                % we don't use the value from the for
  115. 0 0 orad diffby2 dup oang add arc
  116. %0 0 orad 0 iang arc
  117. 0 0 irad iang dup 2 mul arc
  118. iang 2 mul rotate
  119. } for
  120. %0 0 moveto
  121. %(done) show
  122. %!PS-Adobe-2.0 EPSF-2.0
  123. %%Title:Gear8.eps
  124. %%Creator: Kevin Brain (ksbrain@zeus.UWaterloo.ca)
  125. %%CreationDate: Thursday June 11 1992
  126. %%Pages: 0 1
  127. %%BoundingBox: 0 0 100 100 
  128. %%EndComments
  129. % eps drawing of a gear for Diagram palette
  130. /gears 8 store
  131. /orad 50 store    % outer radius of gear
  132. /irad 30 store        % inner radius of gear
  133. /iang {180 gears div} store    % inner angle
  134. % sides of the teeth are computed to be parallel to a line drawn
  135. % from the centre of the gear to the center of the tooth
  136. % (involves cosine law...)
  137. /mess { irad 2 exp orad 2 exp sub irad 2 exp iang cos mul sub
  138.     orad 2 exp neg div}  store
  139. /oang {1 mess 2 exp sub sqrt mess div 1 atan} def
  140. /diffby2 {iang oang sub 2 div } def
  141. orad orad translate
  142. %mess 1 lt  mess 0 gt and {0 -15 moveto (in range) show}  {0 -15 moveto (out of range) show} ifelse
  143. irad 0 moveto
  144. 1 1 gears {
  145. pop                % we don't use the value from the for
  146. 0 0 orad diffby2 dup oang add arc
  147. %0 0 orad 0 iang arc
  148. 0 0 irad iang dup 2 mul arc
  149. iang 2 mul rotate
  150. } for
  151. %0 0 moveto
  152. %(done) show
  153.