%
O1728(KARE VE KARE KONIK MAKRO PRO)

(DEGISKENLER)
(*************)
#1=50(BUYUK KENAR)
#2=20(KUCUK KENAR)
#3=50(DERINLIK)
#4=3(KABA Z DARBESI)
#5=0.3(HASSAS Z DARBESI)
#8=5(KABA KURESEL R )
#9=2(HASSAS KURESEL R )
#10=3(KABA DUVAR PASO)
#11=0.5(HASSAS ICIN STOK)
(*******************)
(******SABIT********)
#6=[[[[#1-#2]/2]/#3]*#4]
#7=[[[[#1-#2]/2]/#3]*#5]
#12=ASIN[[[#1-#2]/2]/#3]
#13=90-#12
#14=SIN[#13]*#8


#1=[[#1/2]-#11]
#2=[[#2/2]-#11]

#28=#3
#29=#10
#30=#1
#31=#2
#32=#4
#33=#6
#4=0
#3=#3-#11
#1=#1-#14

N10(KABA)
M6T11
M03S2000
G55
G0B0
G43X0Y0Z100H11M08

N20
#10=0

N30
#1=#1-#6
#4=#4+#32
IF[#4GE#3]THEN#4=#3

N40
#10=#10+#29
IF[#10GE#1]GOTO60

N50
G01Z-#4F500
X-#10
Y#10
X#10
Y-#10
GOTO40

N60
G01Z-#4F500
X-#1
Y#1
X#1
Y-#1
X-#1
Y0
X0

IF[#4EQ#3]GOTO70
GOTO20

N70
#1=#30+#11
#2=#31+#11
#3=#28
#4=#32
#6=#33
#10=#29

N80
G40G01X0Y0
G0Z200
M05
M09

N100(HASSAS)

M30
%