期中：數位康丁斯基

load dbngraphics.dbn

size 400 300

paper 75 85 85


FAST


//黃矩
repeat a 0 10
{
pen 90 75 30
line 380 (275+a) 325 (275+a)
}


//紅方

repeat a 0 22
{
pen 60 0 30
line (160+a) (220+(a/2)) (150+a) (240+(a/2))
}



//黑三樹
repeat a 0 25
{
pen 100
triangle (200+a) 110 (250-a) 110 225 150
}

repeat b 0 20
{
triangle (210+b) 73 (240-b) 73 225 110
triangle (215+b) 30 (235-b) 30 225 73
}



//右倒三
repeat a 0 60
{
pen 60 (50-a) (a/2)
triangle (250+a) 240 (360-a) 240 305 150
}



//右等三
repeat a 0 30
{
pen 60 (40-a) 10
triangle (275+a) 20 (335-a) 20 305 150
}




//瞳孔
repeat a 0 25
{
circle 305 150 a 100
}

//虹膜
repeat a 25 60
{
circle 305 150 a a
}

//黑外框
repeat a 60 63
{
circle 305 150 a 80
}



//左上彎彎
repeat a 0 5
{
circle 100 (275+a) 35 50
circle 80 (275+a) 55 80
}



//擋
repeat a 0 50
{
pen 75 85 85
line 15 (275+a) 145 (260+a)
triangle 100 280 (150-a) 280 100 200
}


//紅三
repeat a 0 63
{
pen 60 0 30
line (40+a) 180 40 150
}


//綠三
repeat a 0 30
{
pen 65 80 (a/2)
line 40 150 99 (150+a)
}



//大紅直三
repeat a 0 95
{
pen (50+a) (a/2) (a-10)
triangle 100 283 (195-a) 102 100 102
}



//橘倒三
repeat a 0 70
{
pen (80+(a/4)) 35 20
triangle (25+a) 95 95 25 (165-a) 95
}


//下彎
repeat a 0 10
{
circle 95 (-10+a) 60 80
}

//擋
repeat a 10 0
{
pen 75 85 85
line 30 (a) 165 (a)
}


//紅小三
repeat a 0 7
{
pen 80 10 20
triangle 85 110 100 (110-a) 100 102
}

//黃小三
repeat a 0 12
{
pen 90 75 30
triangle 80 125 99 (124-a) 99 112
}

//小灰條
repeat a 0 8
{
pen 15
line 20 (132+a) 99 (132+a)
}


//小黑倒三
repeat a 0 15
{
pen 90
triangle (40+a) 124 (70-a) 124 55 95
}