作業五：急馳慾望挑逗下

size 450 350
paper 100

//
repeat a 350 0
{
pen 85 60
line 225 175 450 a
}
//
repeat a 350 0
{
pen 70 10
line 225 175 450 (a/2)
}

// repeat b 350 0
{
pen 85 60
line 225 175 0 b
}
//
repeat b 350 0
{
pen 70 10
line 225 175 0 (b/2)
}
//
repeat x 175 275
{
pen 255 242
line 225 175 x 0
}

作業四：黑暗中的竹林；角落哭泣的鬼東西

size 114 390
paper 100

fast

command s x y z c
{
pen (20+c) (30+(5*c)) (20+c)
line (0-(z)) (x-y+(z)) (5-(z)) (x-y+z)

line (100-z) (x+y-(z)) (100-(z)) (x+y-z)
}

repeat c 0 40
{
repeat a 0 10
{
repeat b 0 60
{

s a (b*13) (c*6) (b*2)

}
}
}

作業三：海波滾滾

load dbngraphics.dbn
paper 10 10 65
size 300 300
fast

Circle 0 0 10 10
Circle 0 0 20 20
Circle 0 0 30 30
Circle 0 0 40 40

Circle 80 0 10 10
Circle 80 0 20 20
Circle 80 0 30 30
Circle 80 0 40 40

Circle 160 0 10 10
Circle 160 0 20 20
Circle 160 0 30 30
Circle 160 0 40 40

Circle 240 0 10 10
Circle 240 0 20 20
Circle 240 0 30 30
Circle 240 0 40 40

Circle 320 0 10 10
Circle 320 0 20 20
Circle 320 0 30 30
Circle 320 0 40 40
//-------------------------
Circle 38 30 10 20
Circle 38 30 20 30
Circle 38 30 30 40
Circle 38 30 40 50

Circle 119 30 10 20
Circle 119 30 20 30
Circle 119 30 30 40
Circle 119 30 40 50

Circle 200 30 10 20
Circle 200 30 20 30
Circle 200 30 30 40
Circle 200 30 40 50

Circle 280 30 10 20
Circle 280 30 20 30
Circle 280 30 30 40
Circle 280 30 40 50
//-------------------------
Circle 0 80 10 50
Circle 0 80 20 40
Circle 0 80 30 30
Circle 0 80 40 10

Circle 80 80 10 50
Circle 80 80 20 40
Circle 80 80 30 30
Circle 80 80 40 10

Circle 160 80 10 50
Circle 160 80 20 40
Circle 160 80 30 30
Circle 160 80 40 10

Circle 240 80 10 50
Circle 240 80 20 40
Circle 240 80 30 30
Circle 240 80 40 10

Circle 320 80 10 50
Circle 320 80 20 40
Circle 320 80 30 30
Circle 320 80 40 10
//-------------------------
Circle 38 123 10 40
Circle 38 123 20 30
Circle 38 123 30 20
Circle 38 123 40 10

Circle 119 123 10 40
Circle 119 123 20 30
Circle 119 123 30 20
Circle 119 123 40 10

Circle 200 123 10 40
Circle 200 123 20 30
Circle 200 123 30 20
Circle 200 123 40 10

Circle 280 123 10 40
Circle 280 123 20 30
Circle 280 123 30 20
Circle 280 123 40 10

期中：康丁斯基

load dbngraphics.dbn
size 550 400
paper 40 80 80

fast


repeat a 0 40
{
pen 100
triangle (285+a) 150 (355-a) 150 320 200
triangle (295+a) 90 (345-a) 90 320 150
triangle (305+a) 35 (335-a) 35 320 90
}

//上方黃色小長方塊
repeat a 0 10
{
pen 100 (70+(a*1)) 20
line 525 (360+a) 475 (360+a)
}

//上方紅色小正方形
repeat a 0 35
{
pen (100-(a/3)) 0 0
line (225+a) (310-(a/3)) (245+a) (340-(a/3))
}
//紅色小三角
repeat a 0 15
{
pen 60 0 0
line 150 (135+a) (150-(a*2)) (135+a)
}

//黃色小三角與白色小方塊
repeat a 0 20
{
pen 100 (70+(a*1)) 20
line 150 (150+a) (150-(a*2)) (150+a)
pen 100 100 120
line 150 (175+(a/2))25 (175+(a/2))
}

//黑色小倒三角
repeat a 0 35
{
pen 100
line (50+(a/2)) (160-a) (85-(a/2)) (160-a)
}

//幾何彩色三角
repeat a 0 240
{
pen 6 32 26
line 150 (240-(a/5)) (150-(a/3)) (240-(a/5))

pen (100-(a/5)) 0 0
line (70+(a/3)) (193+(a/5)) 70 (193+(a/5))

pen (100-(a/8)) 0 (a/7)
line (150+(a/2)) (375-a) 150 (375-a)

pen 168 50 37
line (150+((a/5)*2)) (45+(a/3)) (150-((a/5)*2)) (45+(a/3))
}
//
repeat a 0 10
{
circle 150 0 (a+70) (80)
}
repeat a 0 30
{
pen 40 80 80
rectangle (75+a) (0+a) (225-a) (0-a)
}
//眼球
repeat a 0 70
{
circle 450 200 a (0+(a/3))
}
repeat a 0 15
{
circle 450 200 (a+70) (50+(a*4))
}
repeat a 0 25
{
circle 450 200 (a) (100)
}
//眼球下方三角形
repeat a 0 180
{
pen 63 24 23
line (400+(a/4)) (25+(a)) (500-(a/5)) (25+(a))
}
//大三角
repeat a 0 70
{
pen 33 72 56
triangle (400+a) 310 500 310 450 225
}

repeat a 0 70
{
pen 33 72 56
triangle (400+a) (310-a) (500-a) (310-a) 450 225
}