作業三: 紳士先生

作業三 : 三原型設計創作-紳士先生



load dbngraphics.dbn

size 300 300
paper 100 80 90
fast

Repeat A 25 225
{
pen 90 70 10
rectangle 40 A 255 A
}

Repeat A 75 150
{
pen A (A-20) (A+20)
line A A 150 A
}


Repeat B 0 20
{

circle 200 150 (20-B) 60
circle 75 150 (20-B) 60
}

Repeat A 225 240
{
pen 0 0 0
rectangle 25 A 275 A
}

Repeat A 240 300
{
pen 0 0 0
rectangle 50 A 250 A
}

Repeat D 0 15
{
circle 125 50 (15-D) 40
}

Repeat A 100 175
{
pen 90 85 10
rectangle 255 A 280 A
}

Repeat A 100 175
{
pen 90 85 10
rectangle 40 A 25 A
}

1014作業二

paper 90 90 10
size 300 300
repeat a -20 300
{
pen 90 40 40
line 300 (10+a) 0 (10+a)
}
repeat b 25 0
{
pen 90 90 10
line 0 (25-b) 300 (25-b)
line 0 (275+b) 300 (275+b)
}

repeat c 1 10
{
pen 100 100 100
line (40+C) 175 (25+C) 225
line (80+C) 175 (25+C) 225
line (80+C) 175 (150+C) 185
line (150+C) 185 (175+C) 250
line (175+C) 250 (205+C) 185
line (205+C) 185 (225+C) 90
line (225+C) 90 (50+C) 50
line (50+C) 50 (40+C) 175
}
repeat c 1 10
{
pen 0 0 0
line (100+C) 135 (65+C) 150
line (100+C) 135 (65+C) 125
line (100+C) 135 (75+C) 100

line (150+C) 135 (185+C) 165
line (150+C) 135 (200+C) 145
line (150+C) 135 (200+C) 120
}
repeat D 0 5
{
pen 100 80 100
line 0 (280+D) 300 (280+D)
line 0 (260+D) 300 (260+D)
line 0 (240+D) 300 (240+D)
line 0 (220+D) 300 (220+D)
line 0 (200+D) 300 (200+D)
line 0 (180+D) 300 (180+D)
line 0 (160+D) 300 (160+D)
line 0 (140+D) 300 (140+D)
line 0 (120+D) 300 (120+D)
line 0 (100+D) 300 (100+D)
line 0 (80+D) 300 (80+D)
line 0 (60+D) 300 (60+D)
line 0 (40+D) 300 (40+D)
line 0 (20+D) 300 (20+D)
}
repeat D -12 2
{
pen 100 80 100
line 0 (280+D) 300 (280+D)
line 0 (260+D) 300 (260+D)
line 0 (240+D) 300 (240+D)
line 0 (220+D) 300 (220+D)
line 0 (200+D) 300 (200+D)
line 0 (180+D) 300 (180+D)
line 0 (160+D) 300 (160+D)
line 0 (140+D) 300 (140+D)
line 0 (120+D) 300 (120+D)
line 0 (100+D) 300 (100+D)
line 0 (80+D) 300 (80+D)
line 0 (60+D) 300 (60+D)
line 0 (40+D) 300 (40+D)
line 0 (20+D) 300 (20+D)
}

repeat a -20 300
{
pen 100 80 100
line 0 (0+a) 300 (300+a)
}
pen 60 20 90
line 25 275 75 275
line 25 275 25 225
line 25 225 75 225
line 25 250 65 250
line 90 225 90 275
line 90 275 125 225
line 125 225 125 275
line 150 275 150 225
line 150 275 175 275
line 175 275 200 250
line 200 250 175 225
line 175 225 150 225