Một số hình ảnh đẹp do Mswlogo tạo ra.

Giới thiệu với các bạn một số hình vẽ đẹp được tạo bởi Mswlogo

TO a

cs
SETACTIVEAREA [-150 -250 350 250]
Setpc [255 0 255]
MAKE “append “FALSE

px

setpensize [200 200]
repeat 36 [
fd 20 rt 10
(GIFSAVE “01.gif 0 :append 0)
MAKE “append “TRUE]

END

To b

SETACTIVEAREA [-250 -250 250 250]
MAKE “append “FALSE
PENNORMAL
CS

For [i -1 15] [

repeat 720 [fd power 1.2 :i rt repcount]
(GIFSAVE “02.gif 0 :append 0)
MAKE “append “TRUE
lt 45]

End

To c

cs
SETACTIVEAREA [-190 -190 150 150]
MAKE “append “FALSE

px

repeat 100 [
repeat 34 [fd 12 rt 10]
(GIFSAVE “03.gif 0 :append 0)
MAKE “append “TRUE
rt 90]

PENNORMAL

End

Repeat 4 [repeat 30 [lt 90 fd 4 rt 90 fd 4] rt 90]

Repeat 4 [repeat 20 [lt 160 fd 20 rt 160 fd 20] rt 90]

repeat 8 [repeat 20 [lt 170 fd 20 rt 170 fd 20] rt 45]

for [i 0 220 sin :i/1000] [fd :i bk :i rt 51]

for [i 100 10 -5] [repeat 5 [repeat 6 [fd :i lt 72] lt 144]]

for [i 100 10 -10] [repeat 5 [repeat 5 [fd :i lt 72] lt 72]]

repeat 2000 [pu home seth random 361 fd 40 pd fd random 200]

To d

cs
SETSCREENCOLOR [0 0 0]
SETPENCOLOR [0 255 0]
SETACTIVEAREA [-200 -200 200 200]
MAKE “append “FALSE

For [t 0 180] [seth :t fd 200 * sin :t*7 home
(GIFSAVE “04.gif 0 :append 0)
MAKE “append “TRUE]
End