work 4 稿紙

// enter program

size 200 200
paper 0



command square x y s c
{
pen (c/20)
line x y (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
command square2 x y s c
{
pen c
line (x-s) y x y
line x y (x-(s/2)) (y-s)
line (x-(s/2)) (y-s) (x-s) y
}

command square x y s c
{
pen (c/2)
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
}

command square5 x y s c
{
pen (c/4)
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 19
{
repeat B 0 19
{
square5 (A*10+2) (B*10+2) 5 (100-(A*B-50))
}
}

command square3 x y s c
{
pen c
line 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 10 50
{
repeat B 20 30
{
square3 (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)
}
}
}



repeat A 10 0
{

}

work III 黑色饗宴

size 300 300
paper 0


Repeat A 0 300
{
pen 100
Line (20+A*4) 0 (20+A*4) 300
pen 50
Line (15+A*4) 0 (15+A*4) 300
pen 20
Line (10+A*4) 0 (10+A*4) 300
pen 10
Line (5+A*4) 0 (5+A*4) 300

pen 100
Line (20+A/8) 300 (20+A/8) 0
pen 50
Line (15+A/4) 300 (15+A/4) 0
pen 20
Line (10+A/2) 300 (10+A/2) 0
pen 10
Line (5+A/1) 300 (5+A/1) 0
}



Repeat A 0 300

{

pen 90

Line 0 (A*6) (A*6) 300

pen 90

Line 0 (A*6) (A*6) 0

}


Repeat A 0 300
{
pen A
line A A 300 A
}

Test go rock go

Load dbngraphics.dbn
size 300 300 2
paper 50 65 65
fast

Repeat B 0 20
{
circle 65 145 (15-B) 75
}

Repeat c 0 5
{
circle 65 145 (45-c) 75
}

Repeat A 260 270
{
pen 85 55 15
rectangle 20 A 75 A
}

Repeat A 125 133
{
pen 100 100 100
rectangle 225 A 290 A
}

Repeat c 0 70
{
pen 40 25 25
triangle 65 145 (20+c) 220 (120-c) 220
}

Repeat c 0 50
{
pen 35 40 40
triangle 65 145 (45+c) 20 (100-c) 20
}

Repeat c 0 20
{
pen 100
triangle 140 145 (120+c) 110 (160-c) 110
triangle 140 110 (125+c) 75 (155-c) 75
triangle 140 75 (130+c) 40 (150-c) 40

}

Repeat c 0 60
{
pen 80 30 10
triangle 245 25 (200+c) 90 (290-c) 90
}

Repeat d 0 20
{
pen 100
triangle 270 85 (260+d) 110 (275-d) 110
}

Repeat d 0 50
{
pen 75 20 20
triangle 225 275 (165+d) 100 (225-d) 100
}

Repeat d 0 5
{
pen 75 90 20
triangle 250 120 225 (120-d) 225 (113+d)
}

Repeat d 0 5
{
pen 40 15 25
triangle 250 120 225 (120-d) 225 (113+d)
}