M03
S500
TO101
#1=50
#24=20
#15=2.8
#22=40
#30=20
#29=-50
|#23=#30/2
|#10=1
#17=FIX[#1-#24]/#15]
|#18=#1一#17*#15
#19=#18一#24
GOX[#1+41
Z#29
WHILE[#1GT#24JDO1
#9-[#1-#241/2*TAN1#22]+#23
IF[#1LE#18]THEN#15=#1g
#1=#1-#15
IF[#1LT#24]THEN#1=#24
|#2=[#1-#24]/2*TAN[#221+#23
#6=#10*#2
#3=-#6
#11=#10*#9
G1X[#1+#15]Z[#29+#11]FO.1
X#1Z[#29+#6]
Z[#29+#3]
X[#1+#15]Z[#29-#11]
#10=-#10
END1
GOX80
M30