(Makes a turner's cube. See projects.txt for formulas). O sub # = #1 (X Center) # = #2 (Y Center) # = #3 (Current Z) # = #4 (Side) # = #5 (Mill Diameter) # = #6 # = #7 # = #8 # = #9 # = [# * #/2] O if [# eq 0] # = [# - #/2] O endif O if [ #*2*2/3 gt #] G0 X# Y# O call [# + 0.01] # = [ [#/2 - #] + #*#*[1 - 1/sqrt[ 2 ]]] O call [#] [#] [# + 0.01] [# - #] [#] [#] # = [# - 2*#] O call [#] [#] [# - #] [#] [#] [#] [#] [#] [#] O else O call [# + 0.01] G0 X# Y# ; G83 Z[# - 0.02] Q0.02 R# F[#/20] O endif G0 X# Y# O call [# + 0.01] O endsub M2