MACRO ZOUT2
ZOUT;2
ENDM

MACRO ZIN2
ZIN;2
ENDM

MACRO gear
GP ctr 0,0
GP ctr ^DClick center point: (0,0)
GN N 15
GN N ^DEnter teeth#: (15)
IFZ N MacroDone
IFN N MacroDone
GV PI 3.141592654
GV r1 5*N/pi
GV r0 r1+5
GV r2 r1/2
GV r3 (r1+r0)/2
GN index 0
:Loop
GCOS cosine 360*index/N
GSIN sine 360*index/N
GP P1 ref ctr @R2*cosine-2.5*sine,R2*sine+2.5*cosine
GP P2 ref ctr @R2*cosine+2.5*sine,R2*sine-2.5*cosine
GP P3 ref ctr @R3*cosine+2.5*sine,R3*sine-2.5*cosine
GP P4 ref ctr @R0*cosine,R0*sine
GP P5 ref ctr @R3*cosine-2.5*sine,R3*sine+2.5*cosine
POLY P1;P2;P3;P4;P5;;;
GN index index+1
IFP N-index Loop
CIRR r1 ctr;
CIRR 1.5 ctr;
:MacroDone
ENDM


MACRO ger2
GP ctr 0,0
GP ctr ^DClick center point: (0,0)
GN N 15
GN N ^DEnter teeth#: (15)
IFZ N MacroDone
IFN N MacroDone
GV PI 3.141592654
GV r1 5*N/pi
GV r0 r1+5
GV r2 r1/2
GV r3 (r1+r0)/2
GN index 0
:Loop
GCOS cosine 360*(index+0.5)/N-90
GSIN sine 360*(index+0.5)/N-90
GP P1 ref ctr @r0*cosine-2.5*sine,5
GP P2 ref ctr @r0*cosine-2.5*sine,-2.5
GP P3 ref ctr @r0*cosine,-5
GP P4 ref ctr @r0*cosine+2.5*sine,-2.5
GP P5 ref ctr @r0*cosine+2.5*sine,5
IFP sine NoDraw
POLY P1 P2 P3 P4 P5;;;
:NoDraw
GN index index+1
IFP N-index Loop
:MacroDone
ENDM