[期中：數位開丁斯基]

方→角→圓

中間的導方型~ 後來想到可以利用兩個三角形合體 > <～

不過還是乖乖的傳下課前做好的！！

Load dbngraphics.dbnpaper 30 90 80size 300 230fast
//長方形Repeat y 0 5{pen 170 190 0line 280 (210+y) 245 (210+y)}
Repeat y 0 5{pen 10line 80 (105+y) 15 (105+y)}
//小三1set M 75Repeat A 80 90{ pen 80 10 10triangle 60 90 75 A M 80}
//小三2set M 85Repeat A 80 100{ pen 170 190 0triangle 60 100 90 A M 90}
//左三set M 25Repeat A 110 130{ pen 60 10 10triangle 75 130 25 A M 110}
Repeat A 110 130{pen 90triangle 25 110 75 A 75 110}
//倒黑三
Repeat A 75 100{ pen 90triangle 25 100 38 A 50 100}
set M 110Repeat A 25 75{ pen 60 10 10triangle 25 75 60 A M 75}
set M 140Repeat A 80 220{ pen 60 10 10triangle 145 80 75 A M 80}
//森林set M 170Repeat A 40 75{ pen 100triangle 150 40 160 A M 40}
set M 172Repeat A 75 100{ pen 100triangle 148 75 160 A M 75}
set M 177Repeat A 100 125{pen 100triangle 143 100 160 A M 100}
field 150 150 170 170 10
//上下面三角形Repeat A 110 175{ pen 50 50 50triangle 180 175 225 A 270 175}
Repeat A 25 125{pen 50 50 50triangle 200 25 225 A 250 25}
//圓Repeat A 10 70{circle 225 130 (A/2+10) 90}
//半圓1set t 40circle 60 220 (t-1) 60circle 60 220 (t-2) 60circle 60 220 (t-3) 60circle 60 220 (t-4) 60
//半圓2set t 30circle 75 220 (t-1) 60circle 75 220 (t-2) 60circle 75 220 (t-3) 60