【作業五】Time -霓虹燈

size 200 200

paper 10

fast


forever
{

repeat c 0 100

{

repeat x 0 200

{
pen ((%70)*10) ((%30)*2)

line 100 100 0 100

line x 100 x 200

line X 200 x (200-x)

line 100 100 (200-x) 10


refresh

}


refresh

}


}

【期中：數位康丁斯基】

Load dbngraphics.dbn
size 500 375
paper 60 100 80
fast


//黃長條
pen 100 100 20
repeat a 0 12
{
line 410 (345-a) 475 (345-a)
}


//顛倒三角形
Repeat A 375 425
{
pen 40 10 0
line A 20 400 150
}

Repeat A 350 460
{
pen 40 10 0
line A 250 400 150
}

//同心圓
Repeat A 0 20
{
circle 400 150 A 100
}
repeat A 0 30
{
circle 400 150 (A+25) A
}
Repeat A 60 55
{
circle 400 150 A 100
}

//3三角形
repeat a 0 50
{
pen 100
triangle 290 35 305 (35+a) 320 35
}

repeat a 0 50
{
pen 100
triangle 285 80 305 (80+a) 325 80
}

repeat a 0 50
{
pen 100
triangle 275 115 305 (115+a) 330 115
}


//白長條
pen 0
repeat a 0 9
{
line 30 (150+a) 115 (150+a)
}


//大紅三角
repeat a 200 0
{
pen 80 20 20
triangle 115 115 115 (115+a) 225 115
}

//綠紅三角
Repeat A 170 195
{
pen 30 60 20
line 65 170 115 A
}

Repeat A 170 195
{
pen 90 20 10
line 65 A 115 195
}


//黃紅三角
Repeat A 115 125
{
pen 100 20 20
line 95 125 115 A
}
Repeat A 125 146
{
pen 100 100 20
line 85 146 115 A
}


//黑三角
repeat a 0 28
{
pen 100
triangle 45 138 63 (138-a) 81 138
}


//橘三角
repeat a 70 0
{
pen 100 30 0
triangle 25 109 91 (109-a) 157 109
}


//菱形
repeat a 0 20
{
pen 100 20 20
triangle 180 265 200 (265-a) 220 265
}
repeat a 0 20
{
pen 100 20 20
triangle 180 265 200 (265+a) 220 265
}


//下半圓
Repeat A 70 65
{
circle 91 1 A (100-A+50)
}

//上2圓
Repeat A 78 73
{
circle 95 330 A (100-A+30)
}
Repeat A 70 65
{
circle 95 350 A (100-A+10)
}