o sub # = #1 (=30) # = #2 (=6) # = [#/2] # = [#/2] # = [[#/2]-8+[[#]/2]] # = [#/2] #= [#500] # = [#510] #= [#520] #= [#501] #= [#530] #= [#540] #= [#502] #= [#503] o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif o if [# le 0] #=# o endif #=[#504] o if [#le100] #=1000 o endif #=[#505] o if [#le10] #=50 o endif #=[#506] o if [#gt2] #=0.5 o endif o if [#eq0] #=0.5 o endif (TOQUE EM X +) G91 ; incremental mode G38.2 F# X# ; probe until contact, signal error G90 ; absolute mode G0 X[#5061-#] ; backup G91 ; incremental mode G38.2 F# X[#*4.0] ; probe again slowly G90 ; absolute mode #500=[[[#/2]-#5061]*2] ; calcula diam esfera G0 X[#5061-#] ; backup G0 G90 X-[#5061-[#*2]] (TOQUE EM X -) G91 ; incremental mode G38.2 F# X[#*-4.0] ; probe again slowly G90 ; absolute mode #501=[[[#/2]-[#5061*-1]]*2] ; calcula diam esfera G0 X[#5061+#] ; backup G0 G90 X0 Y[[#5061+[#*2]]*-1] (TOQUE EM Y+) G91 ; incremental mode G38.2 F# Y[#*4.0] ; probe again slowly G90 ; absolute mode #502=[[[#/2]-#5062]*2] ; calcula diam esfera G0 Y[#5062-#] ; backup G0 G90 Y-[#5062-[#*2]] (TOQUE EM Y-) G91 ; incremental mode G38.2 F# Y[#*-4.0] ; probe again slowly G90 ; absolute mode #503=[[[#/2]-[#5062*-1]]*2] ; calcula diam esfera G0 Y[#5062+#] ; backup G00 X0 Y0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #=sin[45] #=cos[45] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 45 Backup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; # =[#*#] # =[#*#] # =[#*#] # =[#*#] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Posiciona para 45;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G0 G90 X# Y# ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TOQUE EM 45;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G90 G38.2 F# X# Y# ; probe until contact, signal error G90 ; absolute mode G0 X# Y# ; backup G90 G38.2 F# X# Y# ; probe again slowly G90 ; absolute mode #=#5420 #=#5421 #=sqrt[[#*#]+[#*#]] oif[#lt0] #=[#*-1] oendif #510=[[[#/2]-[#]]*2] ; calcula diam esfera G0 X# Y# ; backup G00 X0 Y0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 135 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #=sin[135] #=cos[135] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 135 Backup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; # =[#*#] # =[#*#] # =[#*#] # =[#*#] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Posiciona para 135;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G0 G90 X# Y# ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TOQUE EM 135;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G90 G38.2 F# X# Y# ; probe until contact, signal error G90 ; absolute mode G0 X# Y# ; backup G90 G38.2 F# X# Y# ; probe again slowly G90 ; absolute mode #=#5420 #=#5421 #=sqrt[[#*#]+[#*#]] oif[#lt0] #=[#*-1] oendif #520=[[[#/2]-[#]]*2] ; calcula diam esfera G0 X# Y# ; backup G00 X0 Y0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 225 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #=sin[225] #=cos[225] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 225 Backup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; # =[#*#] # =[#*#] # =[#*#] # =[#*#] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Posiciona para 225;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G0 G90 X# Y# ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TOQUE EM 225;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G90 G38.2 F# X# Y# ; probe until contact, signal error G90 ; absolute mode G0 X# Y# ; backup G90 G38.2 F# X# Y# ; probe again slowly G90 ; absolute mode #=#5420 #=#5421 #=sqrt[[#*#]+[#*#]] oif[#lt0] #=[#*-1] oendif #530=[[[#/2]-[#]]*2] ; calcula diam esfera G0 X# Y# ; backup G00 X0 Y0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 315 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #=sin[315] #=cos[315] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Calculo 315 Backup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; # =[#*#] # =[#*#] # =[#*#] # =[#*#] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Posiciona para 315;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G0 G90 X# Y# ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TOQUE EM 315;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; G90 G38.2 F# X# Y# ; probe until contact, signal error G90 ; absolute mode G0 X# Y# ; backup G90 G38.2 F# X# Y# ; probe again slowly G90 ; absolute mode #=#5420 #=#5421 #=sqrt[[#*#]+[#*#]] oif[#lt0] #=[#*-1] oendif #540=[[[#/2]-[#]]*2] ; calcula diam esfera G0 X# Y# ; backup G00 X0 Y0 o endsub