level 1
happy886rr
楼主
CLGO3D 绘图脚本语言，是CLGO平面绘图语言的3D版，目前处在测试阶段。将GDI+绘图库更换为OPENGL库，因此实现了三维线段绘制。
下载下图，存为a.zip，解压即是（含2000行左右源代码，一直开源，从不保留。）
2017年06月12日 05点06分
1
下载下图，存为a.zip，解压即是（含2000行左右源代码，一直开源，从不保留。）
TO MORNING_GLORY :R :H
FOR ::A -:R :R
IF ::A%10=0
MAKE :PENC=RAND(15)+1 :PENZ=::A
MAKE :H=SQRT(:R^2-::A^2)
REPEAT 36
PU
FD :H
PD
FD 10
BK :H+10
RT 10
]
]
]
TO MAIN
MAKE :PENW=6
MORNING_GLORY 300 0
WAIT
效果图
