MWLogo vẽ và tô màu hoa

Đề bài : Hãy dùng MSWLogo vẽ và tô màu hình bông hoa ở trên.

Ở đây chúng tôi viết một thủ tục tổng quát, các bạn có thể vẽ bông hoa với số cạnh (p) và độ dài (n) tùy ý.

Hoa 6 100

To Hoa :p :n

Repeat :p[

Pu ;Nhấc viết lên

Fd :n/2 ; đi tới  một nửa cạnh cảu đa giác

Lt 90 ;Xoay trái 90 độ

Pd    ;Hạ viết xuống

ELLIPSEARC 180 :n/2 :n/3+10 90 ; Vẽ một nửa cung tròn

Pu ; Nhấc viết

Rt 90 ;xoay phải 90 độ

Fd :n/2 ; đi tiếp một nửa cạnh còn lại;

Rt (180-(1-2/:p)*180)] ;Xoay để vẽ tiếp cạnh còn lại

SETFC [255 255 0] ; Thiết lập màu tô nền là vàng

Fd 10 ;đi vào trong bông hoa

Fill ; tô màu

End

Hoa 8 100