作業七: 應用 Mouse-1-2-3 配合Time 4 創作 - 水流波動

水流波動(水乳交融?!)


IE執行

//程式碼

size 400 400
paper 10
fast
command rect a b x y c
{
pen c time4 100
line (a-x/2) (b-y/2) (a+x/2) (b-y/2)
}
forever
{
rect mouse1 mouse2 30 20 time4
}

作業六: 應用 Mouse-paint - 自畫像&自由創作

自畫像






謎樣女子

size 400 400

forever
{
set [mouse 1 mouse 2] mouse 3
set [(mouse 1+1) (mouse 2)] mouse 3>
set [(mouse 1>-1) (mouse 2>)] mouse 3>
set [(mouse 1>) (mouse 2>+1)] mouse 3>
set [(mouse 1>) (mouse 2>-1)] mouse 3>
set [(mouse 1>+1) (mouse 2>+1)] mouse 3>
set [(mouse 1>-1) (mouse 2>-1)] mouse 3>
set [(mouse 1>-1) (mouse 2>+1)] mouse 3>
set [(mouse 1>+1) (mouse 2>-1)] mouse 3>

}

作業五 : Time-1234,forever,refresh 的應用 - 請進

請往箭頭霓虹燈方向，請進

size 300 300
paper 100

repeat a 0 10
{
repeat b 0 300
{
pen (b/2) (a*10)
line 300 300 b 0

pen (b/5) (a+50)
line 300 0 b 300
}
}

期中：數位康丁斯基

size 350 300
paper 70 150 100
load dbngraphics.dbn
fast

Repeat A 20 85
{
pen 80 20 0
line A 100 85 25
}

Repeat A 85 150
{
pen 80 20 0
line A 100 85 25
}

Repeat A 175 90
{
pen 60 0 0
line A 110 90 275
}

Repeat A 30 45
{
pen 100
line A 130 45 100
}

Repeat A 45 60
{
pen 100
line A 130 45 100
}

Repeat A 75 89
{
pen 80 0 0
line A 120 89 110
}

Repeat A 65 89
{
pen 80 150 30
line A 135 89 120
}

Repeat A 142 148
{
pen 0
line 20 A 89 A
}

Repeat A 89 40
{
pen 0 50 0
line A 160 89 185
}

Repeat A 40 89
{
pen 50 0 0
line A 185 40 160
}

Repeat A 89 40
{
pen 0 50 0
line A 160 89 185
}

Repeat A 20 85
{
pen 80 20 0
line A 100 85 25
}

Repeat A 60 55
{
Circle 265 165 A 100
}

Repeat A 55 20
{
Circle 265 165 A 0
}

Repeat A 20 1
{
Circle 265 165 A 100
}

Repeat A 220 265
{
pen 30 0 0
line A 250 265 165
}

Repeat A 265 310
{
pen 30 0 0
line A 250 265 165
}

Repeat A 265 290
{
pen 40 0 0
line A 20 265 165
}

Repeat A 240 265
{
pen 40 0 0
line A 20 265 165
}

Repeat A 130 140
{
pen 80 0 0
line A 220 140 210
}

Repeat A 140 150
{
pen 80 0 0
line A 220 140 210
}

Repeat A 130 140
{
pen 80 0 0
line A 220 140 230
}

Repeat A 140 150
{
pen 80 0 0
line A 220 140 230
}

Repeat A 180 200
{
pen 100
line A 110 200 150
}

Repeat A 200 220
{
pen 100
line A 110 200 150
}

Repeat A 185 200
{
pen 100
line A 75 200 110
}

Repeat A 200 215
{
pen 100
line A 75 200 110
}

Repeat A 190 200
{
pen 100
line A 30 200 75
}

Repeat A 200 210
{
pen 100
line A 30 200 75
}

Repeat A 280 270
{
pen 100 150 30
line 275 A 325 A
}

作業四: command square - 冏

DBN讓我爆炸 冏 , 因此有此一系列各種狀態的冏

冏 (怒)

轉成圖片漸層沒有很明顯

冏 (正常膚色)

冏 (憂鬱)

冏 (中毒)

冏 (嘔)

//怒冏程式碼
size 250 250
load dbngraphics.dbn
fast

command square y u w t
{
repeat n y w
{
line n t n u
}
}

pen 100 29 0
square 0 0 250 50

pen 100 25 0
square 0 50 250 100

pen 100 20 0
square 0 100 250 150

pen 100 10 0
square 0 150 250 200

pen 100 0 0
square 0 200 250 250

repeat A 120 110
{
circle 0 250 A 100
}

pen 95
square 150 130 162 250

pen 95
square 150 130 250 139

pen 95
square 63 0 73 100
square 73 90 175 100
square 175 0 188 100

作業三 : 三原型 - 丸尾末雄

丸尾末雄 ( 小丸子的班長 )

load dbngraphics.dbn
size 300 300
paper 150 80 50
fast

repeat A 120 130
{
pen 100
line 160 A 140 A
}

repeat A 140 130
{
circle 0 125 A 90
}

repeat A 140 130
{
circle 300 125 A 90
}

set A 0
set B 125
circle A B 105 A
circle A B 80 A
circle A B 60 A
circle A B 45 A
circle A B 30 A
circle A B 20 A
circle A B 10 A

circle 300 B 105 A
circle 300 B 80 A
circle 300 B 60 A
circle 300 B 45 A
circle 300 B 30 A
circle 300 B 20 A
circle 300 B 10 A

pen 100
set c 300
line 180 c 180 225
line 181 c 181 225
line 182 c 182 225
line 210 c 210 250
line 211 c 211 250
line 240 c 240 265
line 270 c 270 280

作業二 : pattern - 山光水色

size 300 300
paper 0
repeat A 75 100
{
pen 80 100 180
line 0 A 300 A
}
repeat A 110 300
{
pen 150 80 20
line 0 A 300 A
}
repeat A 50 0
{
pen 0
line (A*7) 300 (A*5) 110
}
repeat A 0 50
{
pen 100 50 0
line 300 (A*7) (A*6) 75
}
repeat A 0 25
{
pen 100 200 0
line 0 (75+(A*90)) 300 (75+(A*10))
line 0 (75+(A*90)+1) 300 (75+(A*10)+1)
line 0 (75+(A*90)+2) 300 (75+(A*10)+10)
}
repeat A 0 50
{
pen 90 80 170
line 255 (A*7) (A*6) 75pen 50 30 100line 300 (A*7) (A*8) 75
}
repeat A 0 25
{
pen 0 80 100line 0 (A*3) 300 (A*3)
}
repeat A 50 0
{
pen 200 20 30
Line 300 (A*6) (A*6) 0
}

作業一 ：個人中文名字設計 - 簡瑞宏

程式碼

size 250 200

paper 100

pen 0

line 25 200 25 135

line 25 1 25 125

line 25 175 220 175

line 75 175 75 150

line 112 125 25 125

line 112 125 112 75

line 25 75 112 75

line 25 105 110 105

line 140 175 140 90

line 212 1 212 145

line 212 1 112 1

line 112 1 112 50

line 112 50 200 50

line 112 25 200 25

pen 50 80 0

line 175 50 175 75

line 175 75 249 75

line 249 1 249 75

line 225 25 225 75

line 175 175 175 110

line 175 110 240 110

line 240 110 240 160

line 112 90 225 90

line 130 125 155 125

pen 100 0 0

line 10 55 70 55

line 70 55 70 30

line 17 30 60 30

line 35 1 35 20

line 35 1 50 1

line 50 1 50 10

line 10 1 10 55

0925

綠色軟體
http://ossacc.moe.edu.tw/modules/tinyd1/index.php?id=5

DBN 下載 http://dbn.media.mit.edu/
路徑: [Download DBN 3.0.1]→[Windows]→[I agree to the terms specified]

DBN note
紙張尺寸 size (數值) (數值)
　　　　　　放大倍數觀看畫面-size 100 100 2(放大兩倍)
紙張顏色 paper (R數值) (G數值) (B數值)
　　　　　　　白色=paper 0，paper 100 (黑色)，paper 90 (深灰色)
畫筆顏色 pen (R數值) (G數值) (B數值)
　　　　　　灰階數值- 從白色(0)→黑色(100)
直線 line (X1數值) (Y1數值) (X2數值) (Y2數值)

homework:個人中文名設計