﻿;#50大端直径；#51锥体长；
;#52起刀点至锥体终点距离
;#53锥体半角；#54每刀切深直径值
;#55起刀点离开距离
;#60当前起点X；#61起点最小X
;#63当前终点Z
M03 S800 T0101
#50=80
#51=-150
#52=152
#53=10
#54=4
#55=#52+#51
G00 X90 Z[#55]
G80 X[#50] Z[#51] F210
M98 P0012
G00 X90 Z50
M30

%0012
#60=#50
#61=#50-2*#52*TAN[#53]
WHILE #60 GT #61
#60=#60-#54
IF #60 LT #61
#60=#61
G00 Z50
T0303 F90
ENDIF 
#63=[#50-#60]/2/TAN[#53]*-1+#55
G00 X[#60] Z2
G01 X[#50] Z[#63]
G00 X[#50+2]
G00 Z[#55]
G00 X[#60+2]
ENDW 
M99