%
O0024(SPRAL MACRO )
#100=2500(DEVIR)
#101=500(ILERLEME)
#102=3(TAKIM NO)
#1=10(TAKIM CAPI)
#2=50(BASLANGIC YARI CAP)
#10=1(BIR TURDAKI =Z= DRNLIGI)
#11=2(BIR TURDAKI=CAP KCLMESI)
#12=80.(BITIS CAPI)
#13=[[#1/2]+#12/2]
#14=#11/2
#3=[#11/4]
#4=[#10/2]
#5=[#4/4]
#6=[[#1/2]+#2]
M6T#102
M3S#100
G0G90G54G43H#102X#6Y0.Z100.
G0Z0.
WHILE[#6GT0]DO1
IF[#6EQ#13]GOTO10
N3G1Y#6Z-#4,R#6F3000
IF[#6EQ#13]GOTO10
#4=[#4+#5]
IF[#6EQ#13]GOTO10
X-#6Z-#4,R#6
IF[#6EQ#13]GOTO10
#6=[#6-#3]
IF[#6EQ#13]GOTO10
#4=[#4+#5]
IF[#6EQ#13]GOTO10
Y-#6Z-#4,R#6
IF[#6EQ#13]GOTO10
#6=[#6-#3]
IF[#6EQ#13]GOTO10
#4=[#4+#5]
IF[#6EQ#13]GOTO10
X#6Z-#4,R#6
IF[#6EQ#13]GOTO10
#6=[#6-#3]
IF[#6EQ#13]GOTO10
#4=[#4+#5]
IF[#6EQ#13]GOTO10
END1
IF[#5001EQ-#14]GOTO11
IF[#5002EQ-#14]GOTO12
N10G1X#13F#101
G3I-#13F#101
M30
N11G3I#13F#101
N12
G0Z100.
G0G91G28Z0.
G0G91G28Y0.
M30
(MADE IN FIRTINA)
%
simulatör programlarında da çalışırmı?
ben tezgahta denedim çalışıyor.
gıderı vr gıdesi yk.. hell kardesm..
en yakınzamanda deneyeceğim emeğine sağlık
güzel paylaşım elinize saglık.....