作業五：Time

程式碼：

Load dbngraphics.dbn
size 200 200
paper 50

command rect x y w h c
{

pen c

line (x-w/2) (y-h/2) (x+w/4) (y-h/4)

line (x+w/4) (y-h/2) (x+w/4) (y+h/4)

line (x+w/2) (y+h/2) (x-w/4) (y+h/4)

line (x-w/4) (y+h/2) (x-w/4) (y-h/4)
}

repeat v1 0 200
{

rect 100 100 v1 v1

}

repeat x 0 5
{
Circle 175 60 x 5
}
repeat x 0 5
{
Circle 25 150 x 50
}
repeat x 0 5
{
Circle 175 150 x 20
}
repeat x 0 5
{
Circle 100 175 x 15
}
repeat x 0 5
{
Circle 125 25 x 5
}
repeat x 0 5
{
Circle 20 75 x 10
}
repeat x 0 5
{
Circle 25 150 x 5
}

作業四：command square-出口

程式碼：

size 220 220
paper 100

command square x y s c
{
pen c
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 10
{
repeat B 0 10
{
square (10+(A+A)*15) (10+(B+B)*15) 25 ((A+B)*8)
}
}
repeat A 4 0
{
repeat B 4 0
{
square (25+(A+A)*15) (25+(B+B)*15) 25 ((A+B)*7)
}
}


command square2 x y s c
{
pen 100 10 c
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}

期中：數位康丁斯基

背景顏色點第一次的時候會跑不出來
要點第二次才會跑出來 >.<
所以錄的畫面時間會有點久...

程式碼：

Load dbngraphics.dbn
paper 20 80 80
size 300 230fast

Repeat E 0 6

{

pen 160 200 10

line 250 (200+E) 285 (200+E)

}

Repeat A 175 125

{

pen 10 20 35

triangle 200 175 235 A 275 175

}

Repeat A 25 125

{

pen 30 0 20

triangle 210 25 235 A 260 25

}

Repeat A 40 75

{

pen 100triangle 175 40 185 A 195 40

}

Repeat A 75 100

{

pen 100

triangle 173 75 185 A 195 75

}

Repeat A 100 125

{

pen 100

triangle 170 100 185 A 200 100

}

Repeat A 90 210

{

pen 150 10 10

triangle 150 90 75 A 75 90

}

Repeat A 85 35

{

pen 90 50 10

triangle 25 85 75 A 125 85

}

Repeat A 90 100

{

pen 200 10 20

triangle 60 100 75 A 75 100

}

Repeat A 100 115

{

pen 90 80 10

triangle 55 115 75 A 75 115

}

Repeat A 110 90

{

pen 100

triangle 20 110 30 A 45 110

}

repeat W 0 6

{

pen 0 line 25 (120+W) 75 (120+W)

}

Repeat A 130 150

{

pen 10 30 20

triangle 30 130 75 A 75 130

}

Repeat A 150 130

{

pen 180 10 10

triangle 30 130 30 A 75 150

}
Repeat A 175 150

{

pen 180 10 10

triangle 125 150 125 A 150 150

}

Repeat A 175 150

{

pen 180 10 10

triangle 125 175 150 A 150 150

}

circle 235 125 35 35

circle 235 125 34 34

circle 235 125 33 33

circle 235 125 15 15

circle 235 125 14 14

circle 235 125 13 13

circle 235 125 12 12

circle 235 125 11 11

circle 235 125 10 10

circle 235 125 9 9

circle 235 125 8 8

circle 235 125 7 7

circle 235 125 6 6

circle 235 125 5 5

circle 235 125 4 4

circle 235 125 3 3

circle 235 125 2 2

circle 235 125 1 1

set t 45

circle 75 25 (t-1) 30

circle 75 25 (t-2) 30

circle 75 25 (t-3) 30

circle 75 25 (t-4) 30

circle 75 25 (t-5) 30

circle 75 25 (t-6) 30

circle 75 25 (t-7) 30

circle 75 25 (t-8) 30

作業三：三原形綜合設計創作-花火

用各種大小不同的圓設計了像煙火形狀的圖案
再利用方形和三角形排列出房屋線條
構成了一幅像在放煙火的圖樣

程式碼：

load dbngraphics.dbn

paper 0 0 0

size 500 300

fast
circle 75 125 20 20

circle 75 125 25 25

circle 75 125 30 30

circle 75 125 5 5

circle 75 125 4 4

circle 75 125 3 3

circle 150 300 100 0

circle 150 300 75 0

circle 150 300 50 0

circle 150 300 25 0
circle 275 175 25 25

circle 275 175 20 20

circle 275 175 15 15
circle 275 125 10 10

circle 225 170 10 10

circle 325 170 10 10

circle 275 225 10 10

circle 242 140 10 10

circle 310 140 10 10

circle 310 205 10 10

circle 242 205 10 10
circle 500 290 25 25

circle 500 290 35 35

circle 500 290 45 45

circle 500 290 55 55
pen 100 100 100

line 300 30 310 50

line 310 50 340 50

line 340 50 350 30

line 390 60 400 60

line 395 65 395 55
triangle 350 30 361 60 375 30

triangle 430 30 448 60 465 30
rectangle 300 0 350 30

rectangle 380 0 425 40

rectangle 350 0 375 30

rectangle 390 40 415 70

rectangle 430 0 465 30

rectangle 470 0 495 80

pen 100 100 0

rectangle 480 10 490 30

rectangle 480 50 490 70

rectangle 325 50 335 60

pen 100 0 0

rectangle 400 20 415 35
pen 100 0 0

Repeat A 25 75

{

line 73 A 78 A

}

pen 100 100 0

line 25 80 45 100

line 15 120 40 120

line 75 165 75 185

line 25 170 50 150

line 130 170 110 150

line 115 120 140 120

line 105 100 125 80

作業二：pattern- 跳

由幾個不同顏色的三角色塊堆疊在一起
形成了一幅跳躍的顏色畫面

程式碼:

size 350 350

paper 20
Repeat A 0 250

{

pen (A+20) (A+20) A

line A A 125 A

}
repeat A 175 350

{

pen 80 50 0
line A (A-10) 175 (A+40)

}
fast

Repeat B 0 50

{

Repeat A 0 50

{

Set [(A*8) (B*8)] 80}

}
Repeat A 75 150

{

pen 0 50 50
line (A-20) (A+20) 150 A

}

作業一：個人中文名字設計

中文名字：黃思怡


程式碼：
size 500 500
paper 20 40 70
pen 100 100 100
line 25 425 475 425
line 50 475 50 100
line 325 475 325 100
line 25 250 450 250
line 50 350 175 350
line 175 350 175 250
line 50 275 175 275
line 125 350 125 250
line 175 250 175 100
line 175 100 350 100
line 225 250 225 100
line 175 200 375 200
line 375 375 375 200
line 300 425 300 200
line 50 200 175 200
line 50 200 125 250
line 125 250 175 200
pen 150 150 0
line 175 250 175 100
line 175 100 350 100
line 325 250 325 100
line 175 250 325 250
line 175 200 325 200
line 225 250 225 100
line 225 50 325 50
line 225 50 275 100
line 325 50 275 100
pen 300 50 50
line 325 375 475 375
line 325 375 400 425
line 475 375 400 425
line 450 100 450 375
line 300 425 300 200
line 375 375 375 200
line 375 250 450 250
line 300 350 375 350

自由軟體下載專區

教育部自由軟體下載專區
http://ossacc.moe.edu.tw/modules/tinyd1/index.php?id=5