to circle

repeat 360[fd 1 lt 1]

end

draw

setw 4

setbg 7

pu fd 200 lt 90 fd 120

pd setpc 9 circle

pu bk 120

pd setpc 0 circle

pu bk 120

pd setpc 12 circle

pu lt 90 fd 70 rt 90 fd 60

pd setpc 10 circle

pu fd 120

pd setpc 14 circle

=============================以上為程式程式碼

下面給你解釋一下:

下面這個是定義一個畫圓的過程

to circle

下面是重複360次前進1,左轉1,畫出來的就是一個圓

repeat 360[fd 1 lt 1]

end

draw 初始化螢幕

setw 4 將畫筆的寬度設定成4,這樣更好看一些

setbg 7 將背景色設定成7,就是灰色

pu fd 200 lt 90 fd 120 將小海龜移動到畫第一個圓的地方

上面那個一共有4條命令,你可以分開執行,那樣更直觀一些

pd setpc 9 circle 這個是落筆,然後把畫筆的顏色設定成9(setpc 9),就是藍色

然後呼叫circle,就是前面定義的那個畫圓的過程

pu bk 120 後退120,準備畫第二個圓

pd setpc 0 circle 畫第二個圓(黑色的)

pu bk 120

pd setpc 12 circle 第三個圓(紅色的)

pu lt 90 fd 70 rt 90 fd 60 這個是將小海龜移動到右下角的那個圓的位置

你可以分步執行一下

pd setpc 10 circle 畫第四個圓(綠色的)

pu fd 120

pd setpc 14 circle 畫最後一個圓(黃色的)

關於顏色:

0 1 2 3 4 5 6 7 分別是:

黑 藍 綠 青 紅 紫 棕 灰

8 9 10 11 12 13 14 15 分別是:

深灰 亮藍 亮綠 亮青 亮紅 亮紫 黃 白

另外你也可以直接用畫圓命令(STAMPOVAL)畫