PC LOGO 动画 过程 有些创意5
发布网友
发布时间：2023-10-11 14:50
共1个回答
热心网友
时间：2024-12-04 14:01
to xing
lt 54
repeat 5[fd 50 rt 144 fd 50 lt 72]
end
to bian
ht make "a 5
repeat 5[ make "b random 14 setpc :b bian1 :a wait 3 make "a :a+5 \
pu rt 90 bk 5 rt 90 make "b random 14 setpc :b pd bian2 :a \
pu lt 90 bk 5 lt 90 pd make "a :a+5 wait 2]
end
to bian2 :a
repeat 108[fd 0.0174*:a lt 1]
end
to bian1 :a
repeat 108[fd 0.0174*:a rt 1]
end
to shan
cs
ask 0[ht]
ht tellall 1 5
setbg 0
ask 0[setpc 14 xingx]
each [pu home lt 55 repeat who[pu fd 50 rt 144 fd 50 lt 72]rt 72 bk 5 lt 90 pd]
ask 0[pu rt 90 fd 10 pd fill]
bian
shan
end
to xingx
home
setpc 12
lt 54
repeat 5[fd 50 rt 144 fd 50 lt 72]
fd 50 rt 162 fd 95 bk 27.5 repeat 5[fd 27.5 bk 27.5 rt 72] rt 36
repeat 5[fd 68 bk 68 rt 72]
rt 20 repeat 5[pu fd 5 pd fill bk 5 rt 72]setpc 14
lt 20 lt 36 fd 27.5 rt 55
repeat 5[fd 50 rt 144 fd 50 lt 72]
lt 56 lt 180 fd 95 bk 68 lt 36
repeat 5[fd 27.5 bk 27.5 rt 72] rt 36
repeat 5[fd 68 bk 68 rt 72]
lt 20 repeat 5[pu fd 8 pd fill bk 8 lt 72]
end追问还有吗
追答海龟游泳：
to hgyy
tellall 1 5
ask 0[ht]
draw fs pu setxy[-140 120]pd
repeat 2[rt 90 fd 279 rt 90 fd 239]
pu
setx(random 280)-140
sety(random 240)-120
pd
make "q random 90
each [tq :q]
end
to tq :q
seth :q
pu
fd 2 wait 1
if or xcor>135 xcor116 ycor<-115 then make "q 180-:q
tq :q
end
参考资料：自己做的
