New Trajectory Planner - Testers/programs wanted

o<circle_arc_test_b> sub

;simulator test only, not useful for anything

;arc lead in, segmented circular path, arc lead out TP test  

;segment is the length of each straight move to make up circular path
;set path tolerance with G64 Pn Qn in MDI before running

#<diameter>	=     #1 (= 4 diameter)
#<segment> =      #2 (=.005 segment size)
#<x_center>	=     #3 (= 2 X center)
#<y_center>	=     #4 (= 2 Y center)
#<z_safe> =       #5 (= .25 Z safe)
#<Feed_rate> =    #6 (= 100 Feed rate)
#<Kerf>	 =        #7 (= .025 Kerf)
#<Lead_in> =      #8 (= .25 Lead in)
#<Lead_out> =     #9 (= .25 Lead out)
#<Arc_Lead_out> = #10 (= .20 Arc Lead out)

#<Main_cord> = 54
#<Temp_cord> = 55
#<Main_cord_n> = 1
#<Temp_cord_n> = 2

G17 (xy plane)
G20 (inches)
G40 (cancel cutter radius compensation)
G49 (cancel tool length offset)
G90 (absolute distance mode)
G94 (units/min feed rate)

G#<Main_cord>

#<radius> = [[#<diameter> / 2] - [#<Kerf> / 2]]
#<circumference> = [[22/7] * [#<radius> *2]]
#<number> = [#<circumference> / #<segment>]
#<number> =FUP[#<number>] ;number of segments in full circle
(debug, number #<number>)
#<deg> = [360 / #<number>] ; degs each segment
(debug, deg #<deg>)
#<segment_final> = [#<circumference> / #<number>]
(debug, segment final #<segment_final>)
#<Arc_deg_out> = FUP [[#<Arc_Lead_out> / #<segment_final>]]
(debug, arc deg out #<Arc_deg_out>)
G90
G0 Z #<z_safe>
G0 X #<x_center> Y #<y_center>
G10 L20 P#<Temp_cord_n> X0 Y0 Z#<z_safe> (set Temp cord)
G#<Temp_cord> 
G0 x[#<radius> - #<Lead_in>] y0
G91 (relative distance mode)
F#<Feed_rate>
G3 x#<Lead_in> R [#<Lead_in>/2]

#<circle_number> = [#<number> + #<Arc_deg_out>]

o100 repeat [#<circle_number>]
 G1 ^#<deg>
o100 endrepeat

M63 P0 (turn off digital motion)
G3 x-#<Lead_out> R [#<Lead_out>/2]
G90 (absolute distance mode)
G#<Main_cord>

o<circle_arc_test_b> endsub

%
(1" square with rounded corners)
G90 G54 G20
g64
G0 X0 Y.25 Z0
G1 Y.75 F999
G2 X.25 Y1 I.25
G1 X.75
G2 X1 Y.75 J-.25
G1 Y.25
G2 X.75 Y0 I-.25
G1 X.25
G2 X0 Y.25 J.25
M30