期中：數位康丁斯基

圖：

影片：

程式碼：
load dbngraphics.dbn

size 600 500
paper 0 100 90
fast

//----------------
repeat A 125 275
{
pen 100 0 0
line 125 460 A 200
}
//----------
repeat A 50 125
{
pen 100 10 0
line 50 270 A 315
}
repeat A 50 125
{
pen 0 30 0
line 125 315 A 270
}
//--------------
pen 100 100 80
Repeat A 250 260
{
line 25 A 125 A
}
//------------------
repeat A 90 125
{
pen 100 100 0
line 125 215 A 235
}
repeat A 105 125
{
pen 80 0 0
line 125 200 A 215
}
//-----------------
repeat A 45 80
{
pen 100
line 65 180 A 220
}
//---------------
repeat A 25 225
{
pen 100 50 0
line 125 65 A 180
}
//-------------------
repeat A 275 350
{
pen 100
line 315 290 A 235
}
repeat A 280 345
{
pen 100
line 315 235 A 165
}
repeat A 280 345
{
pen 100
line 315 165 A 75
}
//----------------
pen 0
Repeat B 100 20
{
circle 465 275 B 0
}
pen 100
Repeat B 0 25
{
circle 465 275 B 100
}
pen 100
Repeat B 100 95
{
circle 465 275 B 100
}
//----------------
repeat A 405 525
{
pen 50 00 0
line 465 275 A 400
}
repeat A 425 505
{
pen 50 00 0
line 465 275 A 75
}
//----------------------
pen 100 100 0
Repeat A 465 475
{
line 510 A 575 A
}