big overhaul
This commit is contained in:
@@ -19,22 +19,20 @@ G54 ; absolute coordinates
|
||||
|
||||
o200 sub ;[Y][Z]
|
||||
G0 Z[#<_z_clearance>]
|
||||
G0 X[#<_x_start>-#<_td>] Y[#1]
|
||||
G0 X[#<_x_start>-#5410] Y[#1]
|
||||
G0 Z[#2]
|
||||
G1 X[#<_x_end>+#<_td>]
|
||||
G1 X[#<_x_end>+#5410]
|
||||
G0 Y[-#1]
|
||||
G1 X[#<_x_start>-#<_td>]
|
||||
G1 X[#<_x_start>-#5410]
|
||||
o200 endsub
|
||||
|
||||
#<_td> = 0.75
|
||||
#<_r_adj> = [#<_r> - #<_td>/2]
|
||||
#<theta> = ACOS[[#<_z_ctr>-#<_td>/2]/#<_r_adj>]
|
||||
#<_r_adj> = [#<_r> - #5410/2]
|
||||
#<theta> = ACOS[[#<_z_ctr>-#5410/2]/#<_r_adj>]
|
||||
;#<z_bot> = [#<_z_ctr> - #<_r_adj>]
|
||||
#<y_top> = [#<_r_adj>*SIN[#<theta>]]
|
||||
|
||||
|
||||
o10 if [#<op> EQ 1]
|
||||
#<_td> = 0.5
|
||||
F5
|
||||
|
||||
o200 call [0][-.35]
|
||||
@@ -50,7 +48,7 @@ o10 elseif [#<op> EQ 2]
|
||||
|
||||
#<t> = #<theta>
|
||||
; o105 while [#<t> LT #<theta>]
|
||||
o200 call [SIN[#<t>]*#<_r_adj>][#<_z_ctr>-COS[#<t>]*#<_r_adj>-#<_td>/2]
|
||||
o200 call [SIN[#<t>]*#<_r_adj>][#<_z_ctr>-COS[#<t>]*#<_r_adj>-#5410/2]
|
||||
|
||||
#<t> = [#<t> + 2]
|
||||
; o105 endwhile
|
||||
@@ -75,34 +73,35 @@ o10 elseif [#<op> EQ 3]
|
||||
|
||||
o101 if [#<i> MOD 2]
|
||||
G1 X#<x> Y+#<y_top> Z0
|
||||
G2 X#<x> Y-#<y_top> Z0 J0 K[#<_z_ctr>-#<_td>/2]
|
||||
G2 X#<x> Y-#<y_top> Z0 J0 K[#<_z_ctr>-#5410/2]
|
||||
|
||||
o101 else
|
||||
G1 X#<x> Y-#<y_top> Z0
|
||||
G3 X#<x> Y+#<y_top> Z0 J0 K[#<_z_ctr>-#<_td>/2]
|
||||
G3 X#<x> Y+#<y_top> Z0 J0 K[#<_z_ctr>-#5410/2]
|
||||
|
||||
o101 endif
|
||||
|
||||
o100 endwhile
|
||||
|
||||
o10 elseif [#<op> EQ 11]
|
||||
#<_td> = [3/16]
|
||||
F4
|
||||
#<_z_top> = 0.0
|
||||
#<_z_bot> = -0.4
|
||||
;o<slot_chop> call [1.476][-.232] [1.476][+.232] [5.5/25.4] [0.0][-0.4]
|
||||
o<slot> call [2.264][-.232] [2.264][+.232] [7.0/25.4] [0.0][-0.4]
|
||||
o<slot> call [2.264][-.232] [2.264][+.232] [8.5/25.4] [0.0][-0.4]
|
||||
o<slot> call [2.264][-.232] [2.264][+.232] [10.0/25.4] [0.0][-0.4]
|
||||
o<slot> call [0] [2.264][-.232] [2.264][+.232] [7.0/25.4]
|
||||
o<slot> call [0] [2.264][-.232] [2.264][+.232] [8.5/25.4]
|
||||
o<slot> call [0] [2.264][-.232] [2.264][+.232] [10.0/25.4]
|
||||
;o<slot_chop> call [3.051][-.232] [3.051][+.232] [5.5/25.4] [0.0][-0.4]
|
||||
|
||||
o10 elseif [#<op> EQ 12]
|
||||
#<_td> = [5/25.4]
|
||||
F4
|
||||
o<slot> call [1.476][-.232] [1.476][+.232] [9.5/25.4] [0.0][-3.2/25.4]
|
||||
o<slot> call [2.264][-.232] [2.264][+.232] [14/25.4] [0.0][-3.2/25.4]
|
||||
o<slot> call [3.051][-.232] [3.051][+.232] [9.5/25.4] [0.0][-3.2/25.4]
|
||||
#<_z_top> = 0.0
|
||||
#<_z_bot> = -3.2/25.4
|
||||
o<slot> call [0] [1.476][-.232] [1.476][+.232] [9.5/25.4]
|
||||
o<slot> call [0] [2.264][-.232] [2.264][+.232] [14/25.4]
|
||||
o<slot> call [0] [3.051][-.232] [3.051][+.232] [9.5/25.4]
|
||||
|
||||
o10 elseif [#<op> EQ 21]
|
||||
#<_td> = [7/16]
|
||||
#<_rc> = 0.3
|
||||
#<_yr> = 1.005
|
||||
|
||||
@@ -111,8 +110,8 @@ o10 elseif [#<op> EQ 21]
|
||||
#<t> = 0
|
||||
o300 while [#<t> LT 90]
|
||||
|
||||
#<y> = [#<_yr>-#<_rc>+[#<_rc>+#<_td>/2]*COS[#<t>]]
|
||||
#<z> = [-#<_rc>+[#<_rc>+#<_td>/2]*SIN[#<t>]-#<_td>/2]
|
||||
#<y> = [#<_yr>-#<_rc>+[#<_rc>+#5410/2]*COS[#<t>]]
|
||||
#<z> = [-#<_rc>+[#<_rc>+#5410/2]*SIN[#<t>]-#5410/2]
|
||||
|
||||
o200 call [#<y>][#<z>]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user