作業四：command square 結構綜合設計

size 200 200paper 100
command square x y s c

{pen 80 c 10line x y (x+(s/4)) (y/s)

line (x+(s/4)) (y/s) (x+s) yline (x+s) y x y}

command square2 x y s c

{pen c 80 80line (x+s) y x y

line x y (x+(s/3)) (y/s)

line (x+(s+3)) (y+s) (x+s) y}

command square3 x y s c

{pen 80 10 cline x y (x+(s/2)) (y+s)

line (x+(s/2)) (y+s) (x+s) y

line (x+s) y (x+(s/2)) (y-s)

line (x+(s/2)) (y-s) x y}

repeat D 10 17

{repeat A 0 5

{repeat B 0 3

{square (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)}}}

repeat D 10 17

{repeat A 0 5

{repeat B 0 3

{square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)}}}

repeat D 10 17

{repeat A 0 4

{repeat B 0 3

{square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)}}}

＊作業三：使用三原型綜合設計創作

load dbngraphics.dbn
paper 100
size 250 250
fast
Repeat A 0 300
{
pen 50
Line 300 (A*4) (A*4) 0
pen 0 100 120
Line 175 (A*5) (A*5) 0
pen 0 60 80
Line 25 (A*6) (A*3) 145
pen 0
Line 50 (A*6) (A*6) 300
}
Repeat A 0 300
{
field 20 20 30 30 0
field 60 60 40 40 10
field 120 120 100 100 20
field 140 140 160 160 30
field 40 40 20 20 40
field 160 160 140 140 50
field 220 220 210 210 60
field 180 180 170 170 70
field 260 260 250 250 80
field 80 80 70 70 90
}

＊作業二：pattern設計應用

size 200 200
Repeat A 0 200{ pen 10 50 100line A A A 0
pen 20 60 90line A A A 10
pen 30 70 80line A A A 20
pen 40 80 70line A A A 30
pen 50 90 60line A A A 40
pen 60 100 50line A A A 50
pen 70 110 40line A A A 60
pen 80 120 30line A A A 70
pen 90 130 20line A A A 80
pen 100 140 10line A A A 90
pen 110 150 0line A A A 100
pen 10 50 100line 0 A A A
pen 20 60 90line 10 A A A
pen 30 70 80line 20 A A A
pen 40 80 70line 30 A A A
pen 50 90 60line 40 A A A
pen 60 100 50line 50 A A A
pen 70 110 40line 60 A A A
pen 80 120 30line 70 A A A
pen 90 130 20line 80 A A A
pen 100 140 10line 90 A A A
pen 110 150 0line 100 A A A}

repeat C 0 8
{
pen 100 50 0
line (96+C) 0 (96+C) 200
line (146+C) 0 (146+C) 200
line (196+C) 0 (196+C) 200
line 0 (196+C) 200 (196+C)
line 0 (146+C) 2000 (146+C)
line 0 (96+C) 200 (96+C)
}
repeat D 0 2
{
pen 100 0 80
line 0 (80+D) 200 (80+D)
line 0 (64+D) 200 (64+D)
line 0 (118+D) 200 (118+D)
line 0 (134+D) 200 (134+D)
line (80+D) 0 (80+D) 200
line (64+D) 0 (64+D) 200
line (118+D) 0 (118+D) 200
line (134+D) 0 (134+D) 200
}
repeat E 0 1
{
pen 40 0 10
line 0 (180+E) 200 (180+E)
line 0 (10+E) 200 (10+E)
line (180+E) 0 (180+E) 200
line (10+E) 0 (10+E) 200
}

＊作業一：名字設計

Ｍｙ　Ｎａｍｅ：涂家琪

paper 80 75 65

size 400 400
pen 50 0 0

line 150 350 150 375

line 140 350 140 375

line 130 375 160 375

line 50 50 325 50

line 75 225 125 350

line 325 225 275 350

line 125 350 275 350

line 105 300 295 300

line 90 260 310 260

line 105 260 105 150

line 140 300 140 50

line 175 200 175 260

line 175 200 215 200

pen 100

line 215 200 215 260

line 310 260 310 150

line 262 200 262 300

line 215 235 310 235

line 262 260 262 50

line 262 235 145 50

line 295 235 175 50

line 262 135 210 50

line 262 135 314 50

pen 25 20 10

line 105 150 310 150

line 105 100 175 100

line 105 50 175 50

line 195 130 227 130

line 184 110 213 110

line 140 75 210 75