draw2
繪圖教學(二)
- 一個圓是360度,有6個組成,二個6邊形相差角度為60度 。
- 程式:
- 解法1:一步一步走
- 解法2:repeat 6[repeat 6[fd 50 rt 60] rt 60]
- 題目二:12個八邊形
- 作法同上,想一想二個八邊形的相差角度有幾度?
- 題目三:12光芒圖
- 作法很多種, 一樣可以一條式子寫完,提示如下:
- 12個3角形構成
- 12光芒 + 1個正12邊形
- 題目四:房子
- 程式:
- TO AAA
- ; 屋身
- REPEAT 2 [ FD 100 RT 90 FD 200 RT 90 ]
- END
- TO BBB
- ; 屋頂
- RT 30
- REPEAT 3 [ FD 100 RT 120 ]
- LT 30
- END
- TO CCC
- ; 窗戶
- REPEAT 4 [
- REPEAT 4 [ FD 20 RT 90 ]
- RT 90
- ]
- END
- TO DDD
- ; 門
- REPEAT 2 [ FD 75 RT 90 FD 60 RT 90 ]
- END
- TO EEE
- ; 門把
- REPEAT 180 [ PU FD 4 PD FD 1 PU BK 5 PD RT 2 ]
- END
- TO MAIN
- ; 房屋
- CS
- AAA
- SETPOS [0 100]
- BBB
- SETPOS [100 100]
- BBB
- PU
- SETPOS [35 70]
- PD
- CCC
- PU
- SETPOS [165 70]
- PD
- CCC
- PU
- SETPOS [80 35]
- PD
- EEE
- PU
- SETPOS [70 2]
- PD
- DDD
- SETPOS [70 0]
- DDD
- END
- 題目五:蛋糕
- 程式:
- to cake
- repeat 2[fd 50 rt 90 fd 100 rt 90]
- lt 90 fd 50 lt 90
- repeat 2[fd 50 lt 90 fd 200 lt 90]
- pu ;將畫筆收起來
- fd 5 rt 90 bk 70 ;將小海龜移動到大蛋糕裡面
- setfc [255 000 000] ;設定裡面顏色為紅色
- fill ;填入顏色
- rt 90 fd 30 ;移動小海龜到小蛋糕裡面
- setfc [255 000 255] ;設定裡面顏色為粉紅色
- fill ;填入顏色
- end
- to star :n :s
- if :n=0 [stop]
- repeat 6[fd :s lt 150 star :n-1 :s*0.4 lt 60 fd :s lt 90]
- end