%@MACRO
#1=50.;
#2=24.;
#3=50.;
#4=10.;
#5=0.2;
G0X0.Z52.;
WHILE (#3>=#4) DO;
#10=#2*SQRT(1-(#3*#3)/(#1*#1));
G1X(2*#10)Z#3F0.2;
#3=#3-#5;
END_WHILE;
M30;
#1=50.;
#2=24.;
#3=50.;
#4=10.;
#5=0.2;
G0X0.Z52.;
WHILE (#3>=#4) DO;
#10=#2*SQRT(1-(#3*#3)/(#1*#1));
G1X(2*#10)Z#3F0.2;
#3=#3-#5;
END_WHILE;
M30;