2009年11月5日 星期四

期中:數位康丁斯基



load dbngraphics.dbn
paper 40 65 65
size 400 300
fast

Repeat A 78 73
{
circle 95 300 A (100-A+30)
}
Repeat A 70 65
{
circle 95 270 A (100-A+10)
}
//BG
pen 40 65 65
Repeat A 150 300
{
line 75 A 220 A
}
//BG
pen 40 65 65
Repeat A 250 300
{
line 0 A 40 A
}
//red
pen 90 10 0
Repeat A 75 160
{
line A 125 75 280
}
//red
pen 80 10 10
Repeat A 175 200
{
line 25 A 75 175
}

//Green
pen 15 30 0
Repeat A 175 200
{
line 25 200 74 A
}
//white
pen 100 100 100
repeat A 164 170
{
line 10 A 74 A
}
//yellow
pen 80 70 15
Repeat A 155 135
{
line 50 155 74 A}
//red
pen 80 10 10
repeat A 125 135
{
line 60 135 74 A
}
//black
pen 0 0 0
Repeat A 25 50
{
line A 147 37 120}
//orange
pen 80 50 10
repeat A 10 120
{
line A 120 64 50
}
//red 4
pen 80 5 10
Repeat A 130 180
{
line A 230 155 255
line A 230 155 205
}
//3 black
Pen 0 0 0
Repeat A 210 235
{
line A 55 222 95
}

pen 0 0 0
repeat A 195 250
{
line A 95 222 135
}
pen 0 0 0
repeat A 185 260
{
line A 135 222 185
}
//red
pen 35 0 0
Repeat A 285 355
{
line A 45 320 185
}
//black
pen 0 0 0
repeat A 265 375
{
line A 250 320 185
}
//
Repeat A 0 40
{
circle 320 185 (A/2) 90
}
//

circle 320 185 61 100
circle 320 185 60 100
circle 320 185 59 100
circle 320 185 58 100
circle 320 185 57 100
circle 320 185 56 100
circle 320 185 55 100
circle 320 185 54 100
circle 320 185 53 100

//yellow 4
pen 90 75 10
repeat A 270 275
{
line 330 A 375 A
}
//
Repeat A 70 60
{
circle 64 1 A (135-A+50)
}




沒有留言:

張貼留言