home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / GEODEM.ZIP / GEOM8.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-07-17  |  11.8 KB  |  192 lines
  1. Geometry
  2. Form1
  3. Picture3
  4. LinkOpt
  5. Linkage
  6. CubeOpt
  7. Rotating Cube
  8. GeoPic
  9. Picture1
  10. VScroll1
  11. VScroll2
  12. Picture2
  13.     RunButton
  14. StopButton
  15. ExitButton
  16. Form_Clickq
  17. CircInterSect
  18. Sigma1+
  19. Sigma2
  20. PartA
  21. PartB
  22. Sigma
  23. PartC.
  24. Command1_Click"
  25. Command2_Click
  26. GeoPic
  27. Command3_Click
  28. ExitButton_Click
  29. ClearButton_Click
  30. TestButton_Click
  31.     drawwidthK
  32. sfAngle1
  33.     dfLinkLen
  34. dfLever2LenU
  35.     dfLever2X
  36.     dfLever2Y
  37. DrawMech
  38.     LeverEndX
  39.     LeverEndY7
  40. MechPic
  41. VScroll1U
  42. valueA
  43. @    Form_Load
  44. RunButton_Click
  45. VScroll1_Change$
  46. iAnglec
  47.     RunButton
  48. enabled
  49. StopButtonL
  50. TestButton
  51. StopButton_Click
  52. VScroll2_Change
  53. dfLever2
  54. VScroll2
  55. VScroll1_GotFocus
  56. ExitButton
  57. VScroll2_GotFocusd
  58. Form_Paint-
  59. BorderBoxRaised
  60. Picture1C
  61. Picture2
  62. Picture3
  63. CubeOpt_Click
  64. CubeOpts
  65. scalewidth
  66. scaleheight
  67. scaletopb
  68.     scaleleft
  69. LinkOpt_Click
  70. LinkOpt7
  71. smallchange
  72. largechange
  73. DrawAxis
  74. Alpha
  75. iEraseB
  76. sfAlpha
  77. sfBeta
  78. singe>
  79. dfCubeVertX
  80. dfCubeVertY
  81. dfCubeVertZ:
  82. GeoPic_Click
  83.     drawstyle
  84. DrawCube
  85.     CubeVertX
  86.     CubeVertY
  87. RotateCubeI
  88.     forecolor
  89. Rotate
  90. Theta
  91. Theta1
  92. RotatePoint
  93. SolidRotate.
  94. dfAlpha
  95. dfBetae
  96. dfCubeVertX0u
  97. dfCubeVertY0
  98. dfCubeVertZ0
  99. dfCubeVertX1
  100. dfCubeVertY1
  101. dfCubeVertZ1X
  102. NewCube
  103. dfCubeVert0g
  104. CenterOfRotation
  105. dfCubeVert16
  106. Printed
  107. RunCubeRotation
  108. visible
  109. WipeNewCubet
  110. enable
  111.     CircInter
  112. SolidRotate2
  113. Source1
  114. Source2
  115. Bleft
  116. BWide
  117. width
  118. BHigh
  119. height
  120. objects^
  121. Geometry and animation from...
  122. Ivory Tower Software
  123. Richard Wagner, vice president, development
  124. CIS 76427,2611
  125. Input lever angle, single floating
  126. Length of the link from the input lever to the output lever'
  127. Length of the output lever, double floating 
  128. X coordinate of the output lever center of rotationi
  129. Y coordinate of the output lever center of rotationi
  130. Spherical coordinate of axis of cube rotation (about Z from +X)V
  131. Spherical coordinate of axis of cube rotation (from X-Y plane)
  132. Array of cube vertices' X coordinates (start)u
  133. Array of cube vertices' Y coordinates (start)u
  134. Array of cube vertices' Z coordinates (start)u
  135. Array of cube vertices' X coordinates (end)t
  136. Array of cube vertices' Y coordinates (end)t
  137. Array of cube vertices' Z coordinates (end)c    
  138. ExitButton_Click
  139. DrawMech
  140. Radius is 10 in a scalewidth of 100o
  141. Double precision is used because CircInterSect needs its
  142. Erases previous line
  143. Convert input angle to radians
  144. Call the GEO dll subroutine to find the intersection of the two circles:
  145. Form_Load
  146. double floating cube vertex X starting
  147. VScroll1_Change
  148. RunButton_Click
  149. 2 degree incrementse
  150. StopButton_Click
  151. VScroll2_Change
  152. VScroll1_GotFocus
  153. VScroll2_GotFocus
  154. Form_Paint
  155. CubeOpt_Click
  156. LinkOpt_Click
  157. DrawAxis
  158. Point p defines the axis of rotation
  159. which in this application passes through
  160. the origin
  161. Erase the existing lineh
  162. Draw the new line 
  163. DrawCube
  164. The cube to draw exists in 3-space. This drawing is a simple flat projection
  165. onto the X-Y plane so it will show no perspective (no sense of "depth").
  166. See the demo application CSC.MAK for an example of true perspective renderingi
  167. of 3d objects.
  168. Just to keep track of vertices, this routine tacks on a number for each corner.e
  169. To erase, draw over previous with background color, using "Cls" makes a jumpy picture.
  170. Erase the cube
  171. Redraw the cube
  172. RotateCube
  173. For each vertex, call SolidRotate to find its new point in 3-space for the angle it rotates through:
  174. These are "home" coordinates which never changes
  175. These are the new coordinates to draw the rotated cube
  176. NewCube
  177. Draw a virgin cube
  178. RunCubeRotation
  179. A rotation axis pointt
  180. 5 degree incrementsg
  181. Theta must be between -pi and pi
  182. Erase previous cube drawingc
  183. Put the axis back if neededa
  184. The other rotation axis points
  185. 90 makes a nice long lineo
  186. Draw the new cubeh
  187. Be friendlyc
  188. WipeNewCube
  189. Erase a virgin cube 
  190. BorderBoxRaised
  191. This sub simulates a raised surface on the form by drawing lines.e
  192.