期中考

load dbngraphics.dbn
paper 0 50 60
size 400 300
fast


paper 20 50 60

pen 100 70 0
set A 275
line 30 A 75 A
set A 276
line 30 A 75 A
set A 277
line 30 A 75 A
set A 278
line 30 A 75 A
set A 279
line 30 A 75 A
set A 280
line 30 A 75 A
set A 281
line 30 A 75 A

Load dbngraphics.dbn

Repeat A 0 20
{
circle 75 150 (20-A) 90
}

Repeat B 0 5
{
circle 75 150 (50-B) 90
}


pen 0
set A 130
line 325 A 375 A
set A 131
line 325 A 375 A
set A 132
line 325 A 375 A
set A 133
line 325 A 375 A
set A 134
line 325 A 375 A
set A 135
line 325 A 375 A
set A 136
line 325 A 375 A

Load dbngraphics.dbn
fast
Pen 70 20 0
triangle 75 150 25 250 125 250
triangle 75 150 50 25 100 25


Repeat c 0 70
{
pen 50 25 38
triangle 75 150 (25+c) 250 (125-c) 250
}

Repeat c 0 50
{
pen 50 25 38
triangle 75 150 (50+c) 25 (100-c) 25
}


Repeat c 0 20
{
pen 85
triangle 145 50 (135+c) 25 (155-c) 25
triangle 145 85 (130+c) 50 (160-c) 50
triangle 145 115 (125+c) 85 (165-c) 85
}

Repeat c 0 90
{
pen 90 40 10
triangle 300 25 (200+c) 90 (375-c) 90
}

Repeat d 0 20
{
pen 75
triangle 350 90 (335+d) 115 (365-d) 115
}

Repeat d 0 80
{
pen 80 20 30
triangle 325 275 (175+d) 100 (325-d) 100
}

Repeat d 0 5
{
pen 80 75 20
triangle 350 120 325 (120-d) 325 (113+d)
}

Repeat d 0 5
{
pen 60 20 20
triangle 350 110 325 (110-d) 325 (100+d)
}

作業四: 使用command square 結構綜合設計

春天


大海


布丁


梯田
size 200 200
paper 0 50 0
command square x y s c
{
pen (2*(c)) (3*c) (c)
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 5
{
repeat B 0 5
{
square (10+(A+A)*15) (10+(B+B)*15) 25 ((A+B)*8)
}
}
repeat A 4 0
{
repeat B 4 0
{
square (25+(A+A)*15) (25+(B+B)*15) 25 ((A+B)*7)
}
}