SÁCH GIÁO KHOA LỚP 5.[r]
(1)(2)(3)-B1: Viết thủ tục vẽ hình tam giác - B2:
to hinh1
SETPENCOLOR SETPENSIZE [3 3]
Repeat [tamgiac fd 50 rt 90] end
-b1: Viết thủ tục vẽ hình vng - B2:
to hinh4
SETPENCOLOR 17 SETPENSIZE [3 3]
Repeat 10 [hinhvuong pu fd 58 pd rt 36] end
to hinh8
SETPENCOLOR 10 SETPENSIZE [3 3] Rt 90
Repeat [repeat [tamgiac rt 60] pu fd 50 pd] end
to T1
CS SETPENCOLOR
REPEAT 30 [REPEAT [FD 30 RT 60] RT 12] PU BK 60 RT 90 BK 120
SETPENCOLOR
LABEL [ CHUC MUNG SINH NHAT ME ] end
to Hoavan
cs ht
setpensize [2 2]
repeat 4[ellipse2 20 80 rt 90] repeat 4[fd 160 bk 160 rt 90] arc 360 160
bk 160 pu lt 90 fd 160 rt 90 pd repeat 4[fd 320 rt 90]
end to 4hv
cs ht
REPEAT [REPEAT [FD 100 RT 90] RT 90] REPEAT [REPEAT [FD 50 RT 90] RT 90] LT 45
REPEAT [REPEAT [FD 100 RT 90] RT 90] REPEAT [REPEAT [FD 50 RT 90] RT 90]
(4)to tg
cs ht
REPEAT [REPEAT [FD 100 RT 120] RT 60] LT 30
REPEAT [REPEAT [FD 100 RT 120] RT 60]
end
RT 30 FOR [i 20 110 10] [REPEAT [FD :i RT 120]
to ngoisao
cs ht
lt 90 repeat 3[fd 90 rt 120] fd 60 rt 60 bk 30 repeat 3[fd 90 rt 120] pu fd 30 lt 60 fd 30 rt 90 pd repeat 6[fd 52 rt 60]
end
to ngoisao2
cs ht rt 18
repeat 5[fd 100 rt 144] lt 36
repeat 5[fd 62 rt 360/5]
end
repeat 8[repeat 4[fd 100 rt 90] fd 100 rt 360/8]
to hoathila
repeat 30 [fd rt 2] ; vẽ cung tròn làm cành hoa repeat 12[fd 10 bk 10 rt 360/12] ; vẽ hoa
repeat 30[lt bk 3] ; lùi Rùa trở ban đầu ngược lại của cung tròn tiến lên làm cành hoa.
end
to 12canhhoa
cs ht
repeat 12[hoathila rt 360/12] ; vẽ 12 cành hoa
(5)to hinhtron
repeat 60[fd 40 bk 40 rt 6] ; Vẽ bơng hoa gồm 60 bán kính sát nhau.
end
to 3bonghoa
cs ht lt 20
fd 150 hinhtron bk 150 ;Vẽ hoa thứ 1
rt 20 fd 200 hinhtron bk 200; Vẽ hoa thứ 2
rt 20 fd 100 hinhtron ; Vẽ hoa thứ 3 end
to hinhtron
repeat 360[fd 40 bk 40 rt 1]; Vẽ hình trịn (quả bóng)
end
To chumbong cs
setpc hinhtron fd 50 rt 72; 5 bóng màu khác nhau.
setpc hinhtron fd 50 rt 72 setpc hinhtron fd 50 rt 72 setpc hinhtron fd 50 rt 72 setpc hinhtron rt 72 setpc pu bk 150 lt 25 pd
repeat 5[fd 110 bk 110 rt 12]; Vẽ sợi dây bóng. end
*
5 bóng cách tạo thành hình ngũ giác nên vẽ xong cho Rùa quay góc 72 độ.to vongco
cs rt 180
repeat 20 [circle pu fd 20 pd rt 10]
end
to hinhtron ; Thủ tục vẽ hình trịn có 100 bán kính
repeat 100[fd 40 bk 40 rt 360/100]
end
to mat ; Thủ tục vẽ mắt sâu setpc
repeat 360[fd bk rt 360/360]
end
to consau
cs st setpc
repeat 15[hinhtron fd 30 rt 120/15];Lệnh vẽ thân sâu
lt 45 bk 20 fd 20 rt 90 bk 20 fd 20 ; Vẽ miệng sâu
lt 45 pu bk 10 pd bk 30 rt 90 mat pd; Vẽ mắt sâu pu fd 20 pd mat ; Vẽ mắt sâu
(6)to canhhoa; thủ tục vẽ cánh hoa
repeat 2[repeat 90[fd rt 1] rt 90]
end
to hoasen
cs ht lt 120
repeat 12[canhhoa rt 180/13]
end to trangtri
cs ht repeat 3[ setpc
label "T rt 7.5 fd 20 label "h rt 7.5 fd 20 label "a rt 7.5 fd 20 label "n rt 7.5 fd 20 setpc
label "h rt 7.5 fd 20 label "p rt 7.5 fd 20 label "h rt 7.5 fd 20 label "o rt 7.5 fd 20 setpc
label "V rt 7.5 fd 20 label "i rt 7.5 fd 20 label "n rt 7.5 fd 20 label "h rt 7.5 fd 20 setpc
label "Y rt 7.5 fd 20 label "e rt 7.5 fd 20 label "n rt 7.5 fd 20 label "* rt 7.5 fd 20] setpensize [3 3]
setpc
repeat 360[rt 7.5 fd 20]; Lệnh vẽ hình trịn bên ngoài