mswlogo nhiều rùa cùng chạy trên sân

Trong ví dụ dưới đây sẽ tạo ra một đàn rùa mà mỗi con sẽ sử lý một công việc riêng, đầu tiên là 100 con rùa đi theo chiều ngang để vẽ các đường chấm ngang bề mặt sân chơi, tọa độ full của sân chơi là (-500 -500 500 500). Tuy nhiên trong bài này ta chỉ cần trích lấy phần màn hình SETACTIVEAREA [-400 -300 400 300] là đủ.

SETTURTLE 0 PU SETPOS [-200 100] PD HT
SETTURTLE 1 PU SETPOS [0 0] PD HT
SETTURTLE 2 PU SETPOS [200 -100] PD HT
SETTURTLE 3 PU SETPOS [-200 -100] PD HT
SETTURTLE 4 PU SETPOS [200 100] PD HT

Đây là lệnh đặt tọa độ cho 5 con rùa, 5 con rùa này sẽ đồng loạt thực hiện vẽ 36 đường tròn bằng các đi 3 bước xoay 2 độ. làm 180 lần thì thành 1 đường tròn, sau đó nó sẽ quay về bên phải 10 độ và làm tiếp cho tới khi đủ 36 lần.

REPEAT 36 [
REPEAT 180 [
SETTURTLE 0 SETPC [4 75 252] FD 3 RT 2
SETTURTLE 1 SETPC [149 247 246] FD 3 RT 2
SETTURTLE 2 SETPC [193 3 240] FD 3 RT 2
SETTURTLE 3 SETPC [50 174 68] FD 3 RT 2
SETTURTLE 4 SETPC [199 217 0] FD 3 RT 2 ]

(GIFSAVE “5Turtle.gif 0 :append 0) MAKE “append “TRUE

SETTURTLE 0 RT 10
SETTURTLE 1 RT 10
SETTURTLE 2 RT 10
SETTURTLE 3 RT 10
SETTURTLE 4 RT 10]

To 5Turtle ; 5 con rùa chạy trên sân chơi 🙂

CS

SETACTIVEAREA [-400 -300 400 300]

MAKE “append “FALSE

Setpc [255 0 255]

PU SETSC [0 0 0] HOME HT CS PD SETPENSIZE [1 1]

(GIFSAVE “5Turtle.gif 0 :append 0) MAKE “append “TRUE

; ** tạo đường chấm chấm ngang màu vàng **

MAKE “T 500 MAKE “I 0

WHILE [:I<101] [SETTURTLE :I PU HT SETX -500 SETY :T SETH 90 PD MAKE “T :T-10 MAKE “I :I+1]

SETPC [253 139 3]

MAKE “I 0 MAKE “T 0

WHILE [:I<201] [WHILE [:T<101] [SETTURTLE :T PD FD 3 PU FD 2 MAKE “T :T+1] MAKE “T 0 MAKE “I :I+1]

(GIFSAVE “5Turtle.gif 0 :append 0) MAKE “append “TRUE

; ** Đặt vị trí cho 5 con rùa **

SETTURTLE 0 PU SETPOS [-200 100] PD HT

SETTURTLE 1 PU SETPOS [0 0] PD HT

SETTURTLE 2 PU SETPOS [200 -100] PD HT

SETTURTLE 3 PU SETPOS [-200 -100] PD HT

SETTURTLE 4 PU SETPOS [200 100] PD HT

REPEAT 36 [

REPEAT 180 [

SETTURTLE 0 SETPC [4 75 252] FD 3 RT 2

SETTURTLE 1 SETPC [149 247 246] FD 3 RT 2

SETTURTLE 2 SETPC [193 3 240] FD 3 RT 2

SETTURTLE 3 SETPC [50 174 68] FD 3 RT 2

SETTURTLE 4 SETPC [199 217 0] FD 3 RT 2

]

(GIFSAVE “5Turtle.gif 0 :append 0) MAKE “append “TRUE

SETTURTLE 0 RT 10

SETTURTLE 1 RT 10

SETTURTLE 2 RT 10

SETTURTLE 3 RT 10

SETTURTLE 4 RT 10]

End