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