期中考 融合

load dbngraphics.dbn
size 350 300
paper 75 86 80
fast

repeat a 0 10
{
pen 90 80 40
line (15) (260+a) (70) (260+a)
pen (90-a) (95-a) 95
line (231) (120+a) (320) (120+a)
}

Repeat c 0 10
{
circle 75 150 (45+c) 100
circle 75 150 (40+c) 80
circle 75 150 (30+c) 60
circle 75 150 (20+c) 20
circle 75 150 (10+c) 0
circle 75 150 (c) 100
}

Repeat d 0 50
{
pen (d/2) (d/3) (30-d)
triangle (25+d) 225 (125-d) 225 75 150
triangle (50+d) 25 (100-d) 25 75 150
}

Repeat d 0 20
{
pen 100
triangle (120+d) 30 (140-d) 30 130 65
triangle (115+d) 65 (145-d) 65 130 100
triangle (110+d) 100 (150-d) 100 130 135
}

Repeat e 0 70
{
pen (70-(e/2)) (20-(e/2)) (20)
triangle (160) 90 (230-e) 90 230 275
pen (80) (30) (e-50)
triangle (190+e) 85 (325-e) 85 255 25

}

Repeat f 0 20
{
pen 70 0 0
triangle (231) 100 (250-f) 100 231 90

}

Repeat g 0 30
{
pen 90 90 0
triangle (231) 115 (260-g) 115 231 100
pen 100
triangle (275) 110 (305-g) 110 290 85

}

Repeat h 0 75
{
pen (20-(h/2)) (50-(h/3)) 20
triangle (231) 140 (305-h) 140 231 175
pen (70-(h/2)) 0 0
triangle (231) 175 (305-h) 175 305 140
}

Repeat i 0 42
{
pen 70 0 0
triangle (140+i) (220) (180) (210) 190 240
triangle (140+i) (220) (190-i) (240) 150 250
}

作業五:時間變化

//設定畫布大小
size 200 200
//設定背景

repeat w 0 100
{
paper (/8) (*1) (/w)
}

//利用時間控制
repeat y 0 9
{
repeat x 0 200
{
repeat z 100 200
{

pen (x/4) (y*10)
line (100-z) ((y*z)*2) (z+100) (((y+1)*z)*2)

pen (x*5) (y/2)
line (250-z) ((y*z)*5) (0-z) (((y+1)*z)*5)

}
refresh
repeat q 0 200
{
pen q
line 0 q q 0
pen q
line 200 (200-q) (200-q) 200
}
//設計一個以中心點為座標的空心方形
command rect a b c d e
{
pen e (e/2) (e*10)
line (a-c/2) (b-d/2) (a+c/2) (b-d/2)
line (a+c/2) (b-d/2) (a+c/2) (b+d/2)
line (a+c/2) (b+d/2) (a-c/2) (b+d/2)
line (a-c/2) (b+d/2) (a-c/2) (b-d/2)

}

repeat v1 0 200
{
rect 100 100 v1 v1
}
repeat q 0 200
{
pen q
line (q+200) 0 0 (q+200)
pen q
line 0 (200-q) (200-q) 0
}
}

}