作業五: 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}

作業一 ：個人中文名字設計 –吳祥豪

size 400 400
paper 0 0 0
pen 255 0 0
line 150 325 150 375

line 225 325 225 375

line 150 375 225 375
line 150 325 260 325
line 260 325 260 285
line 75 285 325 285

line 145 300 170 300

line 155 285 155 150

line 125 250 125 200

line 170 250 170 225

line 170 320 200 235

pen 255 255 255

line 215 260 270 260

line 200 225 280 225

line 250 285 250 185

line 200 300 225 300

line 235 300 265 300

pen 255 255 255

line 175 200 225 200

line 50 185 350 185

line 125 175 125 150

line 275 175 275 150

line 125 175 275 175

line 125 150 275 150

line 10 150 10 115

line 395 150 395 115

line 10 150 395 150

pen 58 113 31

line 200 150 50 50

line 200 395 200 5

line 150 5 200 5

line 100 100 250 100

line 50 75 200 75

line 200 100 325 5