小海龟pclogo做五星红旗

setpc 0
fd 90
setpc 12
(stamprect 100 60"true)
pu setxy [30 130]seth 18 pd
setpc 14
repeat 5[fd 15 rt 720/5 fd 15 lt 360/5]
pu bk 5 pd fill

draw setpc 12
(stamprect 200 100 "true)
fd 80 rt 90 pu fd 10
setw 2 pd setpc 14 repeat 5 [fd 20 rt 144]
fd 20 pu fd 10 lt 90 setw 1 pd
repeat 4 [repeat 5 [fd 10 rt 144]pu bk 10 rt 30 pd]
ht

setpc 0
fd 90
setpc 12
(stamprect 100 60"true)
pu setxy [30 130]seth 18 pd
setpc 14
repeat 5[fd 15 rt 720/5 fd 15 lt 360/5]
pu bk 5 pd fill

呵呵。我刚学。 repeat [fd 50 rt 144].当然，FD的参数不限.

setpc 0
fd 90
setpc 12
(stamprect 100 60"true)
pu setxy [30 130]seth 18 pd
setpc 14
repeat 5[fd 15 rt 720/5 fd 15 lt 360/5]
pu bk 5 pd fill

draw setpc 12
(stamprect 200 100 "true)
fd 80 rt 90 pu fd 10
setw 2 pd setpc 14 repeat 5 [fd 20 rt 144]
fd 20 pu fd 10 lt 90 se