作業四

size 300 300
paper 50 60 20
command square x y s c
{
pen 80 60 c
line y y x (c+s)
line y (y*s) (x*s) (y/s)
}
repeat A 0 60
{
pen 30 60 80
repeat B 0 60
{
square (A*50+5) (B*30+10) 1 (60+(A*B-60))
}
}
command square x y s c
{
pen c
line (s+s)c c c
}
repeat A 1 5
{
repeat B 0 5
{
square (A*50+5) (B*5+5) 2 (A+B*20)
}
}

作業三

load dbngraphics.dbn

paper 100
size 300 300
fast

circle 145 150 145 0
circle 145 150 125 0
circle 145 150 30 0
circle 145 150 35 0
circle 145 150 40 0
circle 145 150 45 0
circle 145 150 55 0
circle 145 150 100 0
circle 145 150 75 0
circle 145 150 50 0
circle 145 150 25 0
circle 145 150 30 0
circle 145 150 35 0
circle 145 150 40 0
circle 145 150 45 0
circle 145 150 55 0
circle 145 150 60 0
circle 145 150 100 0
circle 145 150 105 0
circle 145 150 110 0
circle 145 150 115 0
circle 145 150 120 0
circle 145 150 125 0
circle 145 150 130 0
circle 145 150 135 0
circle 145 150 140 0
circle 145 150 145 0
circle 145 150 95 0
circle 145 150 90 0
circle 145 150 85 0
circle 145 150 80 0
circle 145 150 75 0
circle 145 150 70 0
circle 145 150 65 0

作業二

load dbngraphics.dbn
paper 60 50 90
size 300 300
repeat a -20 300
{
pen 80 100 30
line 300 (10+a) 0 (10+a)}
fast
circle 150 150 125 50
circle 150 150 124 49
circle 150 150 123 48
circle 150 150 122 47
circle 150 150 121 46
circle 150 150 120 45
circle 150 150 119 44

Repeat A 0 45
{
circle 200 180 (A/2+0) 40
circle 100 180 (A/2+0) 40
}

作業一

size 500 400

paper 120 40 50

pen 60 200 200

line 25 375 225 375

line 25 350 225 350

line 25 350 25 250

line 25 250 225 250

line 225 350 225 250

line 125 390 125 100

line 75 200 225 200

line 50 150 375 150

line 125 150 50 75

line 125 150 200 75

line 100 100 150 100

line 150 100 125 75

line 125 75 175 75

line 175 75 150 25

line 150 25 123 28

line 110 100 75 25

line 250 390 425 390

line 425 390 425 300

line 425 300 400 325

line 325 390 275 300

line 275 275 275 175

line 275 275 400 275

line 400 275 400 175

line 275 175 450 175

line 275 245 400 245

line 275 215 400 215

line 300 175 250 90

line 250 90 350 25

line 325 175 275 25

line 380 175 380 125

line 450 175 450 125

line 380 125 450 125

line 380 110 370 25

line 380 110 450 110

line 450 110 450 25

line 450 25 440 30

line 375 75 450 75

line 375 50 450 50