command square 結構綜合設計

主題：蕨類

參考圖片↓

完成↓

程式碼↓ load dbngraphics.dbnsize 200 200paper 100 command square3 x y s c{ pen c 80 12 line y s x (x+c) line x (y+c) (y+s) (x+s) line x (x+c) (x+s) (c+s) line (y+s) (c+s) (y+s) c line (y+c) s c y}repeat A 0 10{ repeat B 0 5 { square3 (2+(A+B)*15) (10+(A+A)*15) 55 ((A+B)*4) }} command square4 x y s c{ pen c 54 27 line y s x (x+c) line x (y+c) (y+s) (x+s) line x (c+c) (x+s) (c+s) line (x+s) (c+s) (y+s) c line (y+c) x c y}repeat A 0 10{ repeat B 0 5 { square4 (2+(A+B)*15) (10+(A+A)*15) 55 ((A+B)*4) }}

作業三: CPU

Load dbngraphics.dbn
size 300 300
paper 0 40 60
pen 0


rectangle 20 20 280 280
rectangle 25 25 275 275
rectangle 30 30 270 270
rectangle 35 35 265 265
rectangle 40 40 260 260
rectangle 45 45 255 255
rectangle 50 50 250 250
rectangle 55 55 245 245
rectangle 60 60 240 240
rectangle 65 65 235 235
rectangle 70 70 230 230
rectangle 75 75 225 225

field 75 75 225 225 100

//第一列-小方形

rectangle 80 110 110 80
rectangle 80 115 110 145
rectangle 80 150 110 180
rectangle 80 185 110 215

//第二列-小方形
rectangle 115 110 145 80
rectangle 115 115 145 145
rectangle 115 150 145 180
rectangle 115 185 145 215

//第三列-小方形
rectangle 155 110 185 80
rectangle 155 115 185 145
rectangle 155 150 185 180
rectangle 155 185 185 215

//第四列-小方形
rectangle 190 110 220 80
rectangle 190 115 220 145
rectangle 190 150 220 180
rectangle 190 185 220 215

pattern - 日出

load dbngraphics.dbn
size 350 350
paper 0 0 20

repeat A 0 350
{
pen 30 24 A
line 0 A 350 A
}

Repeat A 350 0
{
pen 255 255 0 Line (5+A/10) 0 (0+A*60) 350
}
Repeat A 350 0
{
pen 255 69 0 Line (0+A/10) 0 (0+A*20) 325
}
Repeat A 350 0
{
pen 100 0 0 Line (1+A/5) 0 (0+A*10) 280
}