期中：康丁斯基

load dbngraphics.dbn
size 550 400
paper 40 80 80

fast


repeat a 0 40
{
pen 100
triangle (285+a) 150 (355-a) 150 320 200
triangle (295+a) 90 (345-a) 90 320 150
triangle (305+a) 35 (335-a) 35 320 90
}

//上方黃色小長方塊
repeat a 0 10
{
pen 100 (70+(a*1)) 20
line 525 (360+a) 475 (360+a)
}

//上方紅色小正方形
repeat a 0 35
{
pen (100-(a/3)) 0 0
line (225+a) (310-(a/3)) (245+a) (340-(a/3))
}
//紅色小三角
repeat a 0 15
{
pen 60 0 0
line 150 (135+a) (150-(a*2)) (135+a)
}

//黃色小三角與白色小方塊
repeat a 0 20
{
pen 100 (70+(a*1)) 20
line 150 (150+a) (150-(a*2)) (150+a)
pen 100 100 120
line 150 (175+(a/2))25 (175+(a/2))
}

//黑色小倒三角
repeat a 0 35
{
pen 100
line (50+(a/2)) (160-a) (85-(a/2)) (160-a)
}

//幾何彩色三角
repeat a 0 240
{
pen 6 32 26
line 150 (240-(a/5)) (150-(a/3)) (240-(a/5))

pen (100-(a/5)) 0 0
line (70+(a/3)) (193+(a/5)) 70 (193+(a/5))

pen (100-(a/8)) 0 (a/7)
line (150+(a/2)) (375-a) 150 (375-a)

pen 168 50 37
line (150+((a/5)*2)) (45+(a/3)) (150-((a/5)*2)) (45+(a/3))
}
//
repeat a 0 10
{
circle 150 0 (a+70) (80)
}
repeat a 0 30
{
pen 40 80 80
rectangle (75+a) (0+a) (225-a) (0-a)
}
//眼球
repeat a 0 70
{
circle 450 200 a (0+(a/3))
}
repeat a 0 15
{
circle 450 200 (a+70) (50+(a*4))
}
repeat a 0 25
{
circle 450 200 (a) (100)
}
//眼球下方三角形
repeat a 0 180
{
pen 63 24 23
line (400+(a/4)) (25+(a)) (500-(a/5)) (25+(a))
}
//大三角
repeat a 0 70
{
pen 33 72 56
triangle (400+a) 310 500 310 450 225
}

repeat a 0 70
{
pen 33 72 56
triangle (400+a) (310-a) (500-a) (310-a) 450 225
}