Drawing a TRUE Involute spur Gear

[AlwMVMO]

I found my copies of Makegear.bas and Gears.bas Macro.
Just click on the attachments below.


  Gears.bas (Size: 3.43 KB / Downloads: 11)

  Makegear.bas (Size: 5.19 KB / Downloads: 10)

Move or Copy these files to your DeltaCad Macros folder then go to the Macro tab in DeltaCad to Run or Edit the Macros.

P.S.
I tried to add the Timer command in Gears.bas to slow down the animation but it kept crashing.
So I added another loop in the Delay subroutine.

Code:

Sub Delay
Dim d As Double
d = 0
For i = 1 To 20000
'add loop
For TT=1 to 10
   Cos(.707)
Next TT
'
d = d + 1
Next i
End Sub