Hãy chuyển câu lệnh dưới đây thành hai thủ tục. Thủ tục 1 vẽ hình cánh
1/4
Hãy chuyển câu lệnh dưới đây thành hai thủ tục. Thủ tục 1 vẽ hình cánh hoa tuyết. Thủ tục 2, chứa thủ tục 1, vẽ bông hoa tuyết.
REPEAT 6 [FD 50 REPEAT 6 [FD 10 BK 10 RT 60] BK 50 RT 60]
Trong câu lệnh trên, bông hoa tuyết gồm 6 cánh, mỗi cánh có 6 chi tiết. Hãy thay đổi các con số để bông tuyết có nhiều (ít) cánh hoa hơn, mỗi cánh có nhiều (ít) chi tiết hơn. Thêm câu lệnh để đổi màu bút, nét bút.
Giải thích
• Thủ tục cánh hoa tuyết
to canhhoatuyet
SETPENCOLOR 4
REPEAT 8 [FD 10 BK 10 RT 45]
End;
• Thủ tục bông hoa tuyết
to bonghoatuyet
SETPENCOLOR 4
REPEAT 8[FD 50 REPEAT 8[canhhoatuyet] BK 50 RT 60]
End;