作業五: Z

size 300 300
paper 0 0 0

repeat c 0 100
{
repeat x 0 300
{
paper 10
pen ((%2)*10) ((%40)*5)
line 300 300 0 x line 0 0 x 300 line 0 0 300 (300-x)
line 300 300 (300-x) 0

refresh
}
refresh
}

作業四:股票表

size 300 300paper 0 0 0
command rect a b c d

{pen 200 a (c-d)

line a b a cline c d a bline b d b cline d c a b}
repeat A 0 200
{
rect (A*100) (A*100) (A*100) (A*100)

rect (A*10) (A*100) (A*10) (A*100)

rect (A*10) (A*10) (A*10) (A*10)

rect (A*200) (A*000) (A*200) (A*200)

rect (A*200) (A*200) (A*200) (A*200)}
repeat a 0 200

{pen a a aline 300 (a*4) 0 (a*4)}repeat a 0 200{pen a a aline (a*4) 300 (a*4) 0}
pen 100 100 100

line 0 0 50 50

line 50 50 75 30

line 75 30 125 125

line 125 125 200 75

line 200 75 300 300

作業三:星紋

load dbngraphics.dbnsize 300 300paper 0 0 0
repeat a 2 20{circle 0 150 (5*a) 0}
repeat a 2 20{circle 300 150 (6*a) 0}
repeat a 2 20{circle 150 300 (7*a) 0}
repeat a 2 20{circle 150 0 (8*a) 0}

repeat c 0 150

{pen 90 10 200

triangle 0 0 (c*2) 300 0 150
}
repeat c 0 150

{pen 100 100 100

triangle 300 300 (c*5) 300 150 0
}

作業二:飛

size 200 200paper 0 0 0
repeat a 10 50

{pen (a*2) (a-50) 10

line 0 0 100 (a+10)}

repeat a 10 50

{pen (a*2) (a-50) 10line 100 (a+10) 200 0}

repeat a 10 40

{pen (a*3) 50 10line 0 100 100 (100-a)}

repeat a 10 40

{pen (a*3) 70 10line 100 (100-a) 200 100}

repeat a 10 25

{pen 70 (1*a) 42line 0 100 100 (100+a)}

repeat a 10 25

{pen 70 (1*a) 42line 100 (100+a) 200 100}

repeat a 10 25

{pen (a*2) (a-50) 10line 0 150 100 (150-a)}

repeat a 10 25

{pen (a*2) (a-50) 10line 100 (150-a) 200 150}

repeat a 10 60

{pen 100 200 (a*2)line 0 200 100 (200-a) }

repeat a 10 60{pen 100 200 (a*2)line 100 (200-a) 200 200}

11/06DBN期中考 數位康丁斯基

load dbngraphics.dbn

size 520 420

paper 50 100 100

//黃槓pen 90 100 0

repeat a 0 9

{line 430 (400-a) 495 (400-a)}

//三角(1)repeat b 0 50

{pen 100 triangle 225 35 250 (35+b) 275 35}

//三角(2)repeat b 0 50

{pen 100 triangle 215 85 250 (85+b) 285 85}

//三角(3)repeat b 0 50

{pen 100 triangle 205 135 250 (135+b) 295 135}

//右中白槓pen 0repeat c 0 8

{line 25 (200+c) 100 (200+c)}

//白槓下黑三角repeat d 0 20

{pen 100 triangle 30 150 45 (150-d) 60 150}
//三角形(4)repeat f 0 200

{pen 0 (f-50) 0 triangle 345 50 400 (50+f) 455 50}

//三角形(5)repeat f 0 100

{pen 0 (f-50) 0 triangle 325 355 400 (355-f) 475 355}

//三角(6)Repeat e 0 70

{ pen (70-(e/2)) (20-(e/2)) (20) triangle 100 175 (170-e) 175 100 325}

//三角(9)Repeat e 0 70

{ pen (70) (30) (e-50) triangle (10+e) 110 (120-e)110 65 50 }

//三角(7)repeat h 0 20

{pen 110 0 0triangle 100 (175+h) 100 195 75 195}

//三角(8)repeat h 0 30

{pen 100 100 0triangle 100 (195+h) 100 225 75 225}
//正方形中三角1repeat s 0 75

{pen 20 70 50triangle 25 (225+s) 100 225 25 300}

//正方形中三角2repeat s 0 75

{pen 100 20 10triangle 100 (225+s) 100 300 25 300}

//正方形Repeat i 0 42

{ pen 70 0 0 triangle (240+i) (320) (280) (310) 290 340 triangle (240+i) (320) (290-i) (340) 250 350}

//圓(1)repeat e 0 30{circle 400 250 e 100}

//圓(2)repeat e 0 50{circle 400 250 (e+30) c}

//圓(3)repeat e 0 8{circle 400 250 (e+80) 100}