作業五 : 蝴蝶紙雕燈罩

size 200 200
paper 100

forever
{
//righrup
repeat x 200 0
{
pen 75 (*20)
line 150 150 100 x
line 150 150 100 x
line 150 150 x 100
line 150 150 x 100
}

//leftdown
repeat x 200 0
{
pen 20 (*20)
line 50 50 100 x
line 50 50 100 x
line 50 50 x 100
line 50 50 x 100
}
//rightdown
repeat x 200 0
{
pen 50 (*20)
line 150 50 100 x
line 150 50 100 x
line 150 50 x 100
line 150 50 x 100
}

repeat x 200 0
{
pen 100 (*20)
line 50 150 100 x
line 50 150 100 x
line 50 150 x 100
line 50 150 x 100
}
}

期中考試 : 數位康丁斯基

load dbngraphics.dbn
paper 88 138 98
size 400 300
fast

//直角三角形
set M 50
Repeat C 100 250
{
pen 70 15 25
triangle (M*5+25) C (M*4) (M*2) (M*5) (M*2)
}

//左綠直角
set A 125
//green
Repeat N 135 160
{
pen 20 40 30
triangle 280 135 (A+151) N (A+220) 135
}


//右下大倒三角
Repeat A 235 375
{
pen 100 65 0
line A 95 305 25
}
pen 100
triangle 160 110 180 154 200 110


set M 36
Repeat B 36 75
{
pen 100
triangle (M*5) B (M*4+20) M (M*5+15)M
}

pen 80 70 26
//右下長方形
line 276 127 370 127
line 276 128 370 128
line 276 129 370 129
line 276 130 370 130
line 276 131 370 131
line 276 132 370 132
line 276 133 370 133

set M 50
//第三行
Repeat C 75 110
{
pen 100
triangle (M*3+29) C (M+110) (M+25) (M*4) (M+25)
}


pen 80 70 20
//左上長方形
line 30 260 90 260
line 30 261 90 261
line 30 262 90 262
line 30 263 90 263
line 30 264 90 264
line 30 265 90 265
line 30 266 90 266
line 30 267 90 267


//重複畫直線組成一個三角形，同時重複畫筆的顏色。
Repeat A 250 200
{
pen 30 50 10
line A 200 200 A
}

Repeat A 250 200
{
pen 100 20 0
line 250 A A 250
}

//圓心

Repeat A 0 48
{
circle 100 150 (A/2+2) 90
}


//左上倒三角
Repeat C 40 165
{
pen 30 0 0

triangle C (M*4+25) (M*2) (M*3) (M*2) (M*4)
}

//外圓
Repeat A 50 60
{
circle 100 150 (A/2+35) 100
}

//右下小倒三角
Repeat A 330 360
{
pen 35 25 0
line A 125 346 95
}


set M 18
Repeat B 18 150
{
pen 49 3 3
triangle (M*5+10) B (M*6+30) M (M*3+15) M
}