期中數位康丁斯基

load dbngraphics.dbn
size 430 340
paper 61 75 60

//三下三角
repeat s 0 50
{
pen 100triangle 200 35 220 (35+s) 240 35
}
//三中三角
repeat s 0 50
{
pen 100
triangle 195 85 220 (85+s) 245 85
}
//三上三角
repeat s 0 50
{
pen 100
triangle 190 135 220 (135+s) 250 135
}
//橘三角
repeat s 200 0
{
pen 100 (s-100) 0
triangle 170 125 95 (125+s) 175 125
}
//fast
//白長方pen 0
repeat a 0 9
{
line 25 (150+a) 95 (150+a)
}
//黑三角
repeat s 0 25
{
pen 100
triangle 35 138 50 (138-s) 63 138
}
//三角紅
repeat s 0 10
{
pen 100 0 0
triangle 95 135 75 135 95 (135-s)
}
//三角黃
repeat s 0 10
{
pen 100 100 0
triangle 95 145 70 145 95 (145-s)
}
//橘三角
repeat s 70 0
{
pen 100 s 0
triangle 20 113 90 (113-s) 150 113
}
//正下三角
repeat s 0 60
{
pen 20 60 40
triangle 95 175 95 225 (35+s) 175
}
//正上三角
repeat s 0 50
{
pen 80 20 10
triangle 95 225 35 175 35 (175+s)
}
//fast
//正方形
repeat s 25 0
{
pen 100 0 0line (215-s) (245+s) (190-s) (220+s)
}
//小Circle
repeat c 0 25
{
circle 325 180 c 100
}
fast
//中Circle
repeat c 0 50
{
circle 325 180 (c+25) c
}
//大Circle
repeat c 0 8
{
circle 325 180 (c+75) 100
}

//右黃槓
pen 100 100 40
repeat a 0 9
{
line 340 (325-a) 400 (325-a)
}
//上三角
repeat s 0 100
{
pen 80 (s-70) 0
triangle 380 280 325 (280-s) 250 280
}
//下三角
repeat s 0 150
{
pen 400 (s-50) 0
triangle 280 25 325 (25+s) 365 25
}