home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / geodem / glob8.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  798 b   |  25 lines
  1. 'Global Module
  2.  
  3. 'Geometry and animation from...
  4.  
  5. 'Ivory Tower Software
  6. 'Richard Wagner, vice president, development
  7. 'CIS 76427,2611
  8.  
  9. Global Const dfPi = 3.14159265358979    'double float Pi is the ratio of a circle's circumference to its diameter
  10.  
  11. Declare Sub CircInter Lib "Geo.dll" (ByVal a1#, ByVal a2#, ByVal b1#, ByVal b2#, ByVal r1#, ByVal r2#, x1 As Double, x2 As Double, y1 As Double, y2 As Double)
  12. Declare Sub SolidRotate Lib "Geo.dll" (ByVal o1#, ByVal o2#, ByVal o3#, ByVal p1#, ByVal p2#, ByVal p3#, r1#, r2#, r3#, ByVal theta#)
  13.  
  14. 'This demo represents a collaboration by
  15.  
  16. '   Ivory Tower Software
  17.  
  18. '           and
  19.  
  20. '    Software Sculptors
  21.  
  22. 'We hope you like it, and we hope that you will consider licensing GEO.DLL for
  23. 'royalty-free use with your applications.
  24.  
  25.