Macro for Sprocket

[AlwMVMO]

I made some improvements to the text at the end of the macro.

Code:

   NL$ = Chr$(13) + Chr$(10)
   SprText$ = "Teeth=" + Str$(Tn) + NL$
   SprText$ = SprText$ + "Pitch=" + Str$(P) + NL$
   SprText$ = SprText$ + "Roller_D=" + Str$(Rd) + NL$
   SprText$ = SprText$ + "Pitch_D=" + Str$(Pr*2) + NL$
   SprText$ = SprText$ + "Max_D=" + Str$((Pr+(Rd*0.35))*2)
   dcCreateText 0, -5, 0, SprText$

I translated the comment 'proba duzego na promien', I got 'large test per radius'.