作業四 command square 結構綜合設計

size 150 150
paper 100 100 20
command square x y s c
{
pen c
line x y s (s+s)


}
repeat A 1 20
{
repeat B 0 20
{
square (A*10+3) (B*10+5) 2 (A+B*10)
}
}

作業三 ：三原型

load dbngraphics.dbn
paper 100 20 20
size 300 300
fast

circle 150 150 190 15
circle 150 150 170 15
circle 150 150 150 15
circle 150 150 130 15
circle 150 150 110 15
circle 150 150 90 15
circle 150 150 70 15
circle 150 150 50 15
circle 150 150 30 15
circle 150 150 10 15


circle 0 150 149 0
circle 0 150 145 0
circle 0 150 140 0
circle 0 150 135 0
circle 0 150 130 0



circle 300 150 149 0
circle 300 150 145 0
circle 300 150 140 0
circle 300 150 135 0
circle 300 150 130 0

作業二 延伸

程式碼
size 300 300
paper 0
fast

Repeat A 0 100
{
pen 255 20 147
line 0 (A*3) 5 (A*3)

pen 25
line 27 (A*3) 50 (A*3)

pen 2 2 200
line 27 (A*3) 32 (A*3)

pen 35
line 0 (A*3) 300 (A*3)
pen 2 2 200
line 50 (A*3) 250 (A*3)

pen 45
line 0 (A*6) 300 (A*6)
pen 2 2 2
line 0 (A*6) 300 (A*6)
}

Repeat A 0 300
{
pen 0 50 0
Line 300 (A*6) (A*6) 0

pen 60 5 5
Line 150 (A*6) (A*6) 0

pen 60 5 5
Line 0 (A*6) (A*6) 300

pen 0 50 0
Line 0 (A*6) (A*6) 150
}