作业帮PC LOGO求一些独特的画法和图像,请列出来!
来源：学生作业帮助网 编辑：作业帮 时间：2024/08/15 16:12:13
PC LOGO求一些独特的画法和图像,请列出来!
PC LOGO求一些独特的画法和图像,请列出来!
PC LOGO求一些独特的画法和图像,请列出来!
;DD 70 4
TO DD :R :N
DRAW HT PU BK :R*1.5 PD LT 90
YUANDG :R :N
END
TO YUANDG :R :N
IF :N=0 THEN STOP
YUANDG :R/2 :N-1
REPEAT 135 [RT 0.5 FD :R*PI/180 RT 0.5] LT 180
YUANDG :R/2 :N-1
RT 180 REPEAT 90 [RT 0.5 FD :R*PI/180 RT 0.5] LT 180
YUANDG :R/2 :N-1
RT 180 REPEAT 135 [RT 0.5 FD :R*PI/180 RT 0.5]
END
比如画实心圆可以用 DOT [x轴 y轴]
一楼的递归太经常碰到了，我随手就可以编出10个这种命令。
to hdfw :r
draw fs
setshape[48 24 72 36 4 64 50 152 73 36 133 66 131 130 65 4 49 24 15 224 17 16 35 136 69 68 88 52 48 24 16 16]
setw 4 setpc 13
stampo...
全部展开
一楼的递归太经常碰到了，我随手就可以编出10个这种命令。
to hdfw :r
draw fs
setshape[48 24 72 36 4 64 50 152 73 36 133 66 131 130 65 4 49 24 15 224 17 16 35 136 69 68 88 52 48 24 16 16]
setw 4 setpc 13
stampoval :r+10 :r+10
setw 1 setpc 9
make "d random 360
label "loop
seth :d fd 1 wait 1
if (xcor*xcor+ycor*ycor>=:r*:r) then[make "d :d+90 +random 90]
if :d>360 then[make "d remainder :d 360]
go "loop
end
打出来是一只蝴蝶（海龟的变形）在一个圆里乱飞。
收起