WoRk10- KEY鍵盤應用之永別了dbn

有圖有真相
這次作業我用之前的作業改寫，按c鍵即可變色。
_________________________________________________________________________________________

程式碼


_________________________________________________________________________________________

影片

期末考試-鱗

有圖有真相 _____________________________________________________________________________________
影片
請洽E教_____________________________________________________________________________________

程式碼

WoRk9- Same? & Notsame?

有圖有真相
_____________________________________________________________________________________

影片

_____________________________________________________________________________________

程式碼

魷魚我加了fast，所以要執行程式碼請點第二次才會有正常效果。

TIME 4 一樣顯示不出來，所以...=時間4

為了執行順利，所以..1~50全部列出來 很長唷





FOREVER
{
FAST
PAPER 時間4 20 40
PEN (100-時間4) 20 40
REPEAT A 0 100
{
SAME? A 50
{
line A 0 A 50
line (A+1) 0 (A+1) 50
line (A+2) 0 (A+2) 50
line (A+3) 0 (A+3) 50
line (A+4) 0 (A+4) 50
line (A+5) 0 (A+5) 50
line (A+6) 0 (A+6) 50
line (A+7) 0 (A+7) 50
line (A+8) 0 (A+8) 50
line (A+9) 0 (A+9) 50
line (A+10) 0 (A+10) 50
line (A+11) 0 (A+11) 50
line (A+12) 0 (A+12) 50
line (A+13) 0 (A+13) 50
line (A+14) 0 (A+14) 50
line (A+15) 0 (A+15) 50
line (A+16) 0 (A+16) 50
line (A+17) 0 (A+17) 50
line (A+18) 0 (A+18) 50
line (A+19) 0 (A+19) 50
line (A+20) 0 (A+20) 50
line (A+21) 0 (A+21) 50
line (A+22) 0 (A+22) 50
line (A+23) 0 (A+23) 50
line (A+24) 0 (A+24) 50
line (A+25) 0 (A+25) 50
line (A+26) 0 (A+26) 50
line (A+27) 0 (A+27) 50
line (A+28) 0 (A+28) 50
line (A+29) 0 (A+29) 50
line (A+30) 0 (A+30) 50
line (A+31) 0 (A+31) 50
line (A+32) 0 (A+32) 50
line (A+33) 0 (A+33) 50
line (A+34) 0 (A+34) 50
line (A+35) 0 (A+35) 50
line (A+36) 0 (A+36) 50
line (A+37) 0 (A+37) 50
line (A+38) 0 (A+38) 50
line (A+39) 0 (A+39) 50
line (A+40) 0 (A+40) 50
line (A+41) 0 (A+41) 50
line (A+42) 0 (A+42) 50
line (A+43) 0 (A+43) 50
line (A+44) 0 (A+44) 50
line (A+45) 0 (A+45) 50
line (A+46) 0 (A+46) 50
line (A+47) 0 (A+47) 50
line (A+48) 0 (A+48) 50
line (A+49) 0 (A+49) 50
line (A+50) 0 (A+50) 50
}
NOTSAME? A 50
{
line (A/2) 100 (A/2) 50
}
}
}

WoRk8 -心得

雖然看完影片後我忘了很多內容....，但至今我的腦海還記得"前田約翰(John Maeda)"，相信有專心上課的人都知道他是位日裔美國人。所以我就上網找了關於他的資料，此時我才知道原來他是FLASH技術的先驅之一。

看過他的介紹後，其中說明了他的父親從來認為藝術不能當飯吃；但是此時他的父親卻對他說"你現在學得夠多了，去做你想做的事吧"。以上這段話我相信大家應該都不陌生，從小如果不是專心於課業上都會被爸媽挖苦說
這樣就能當飯吃嗎、哪樣又能當飯吃...諸如此類的當飯吃一籮筐，相信大家都很熟悉。但孰不知這樣可能會抹煞了一位年輕有為的藝術家...，他提倡"簡單"以平衡"複雜"，強調簡單並不必然就是廉價或功能少，而是要追求典雅與便利。以上這段話我非常喜歡，希望任何東西都能堅持與他一樣的理念...不要再是一分錢一分貨=.=

WoRk7- TiMe 4 & MoUsE 1 2 3

有圖有真相

黃昏


清晨
_____________________________________________________________________________________

影片

_____________________________________________________________________________________

程式碼

由於在正常情況下，time 4 mouse 123 皆無法顯示，所以變成這樣

清晨
SIZE 400 400
paper 90
FOREVER
{
pen 30 時間4 90
LINE 0 冒失2 400 冒失2

}

黃昏
SIZE 400 400
paper 90
FOREVER
{
pen 90 (100-時間4) 20
LINE 0 冒失2 400 冒失2

}

WoRk6 (Mouse 1 2 3)-自由創作

有圖有真相

自畫像
____________________________________________________________________________________
自由創作
_____________________________________________________________________________________
影片

有史以來最爛的畫圖工具，橡皮擦只有十字準心般大小

自由創作

_____________________________________________________________________________________

自畫像


_____________________________________________________________________________________

程式碼


由於MOUSE 1 2 3 顯示不出來，所以請自行在set後面加入



自畫像
SIZE 400 400

FOREVER
{
SET [(+0) (+0)]
SET [(+1) (+0)]
SET [(-1) (+0)]
SET [(+0) (+1)]
SET [(+0) (-1)]
SET [(+1) (+1)]
SET [(-1) (-1)]
SET [(-1) (+1)]
SET [(+1) (-1)]
}

自由創作
SIZE 400 400

FOREVER
{
SET [(+0) (+0)]
SET [(-1) (-1)]
SET [(+1) (+1)]
}

期中考-康丁斯基-融合

有圖有真相這張圖來的珍貴，難產3.4次才成功一張

_____________________________________________________________________________________
程式碼
Load dbngraphics.dbn

SIZE 700 500

FAST

PAPER 50 80 75

//左上黃色長條
REPEAT A 30 120
{
PEN 100 70 10
LINE A 460 A 475
}

//左上倒三角
REPEAT A 400 260
{
PEN 40 (400-A) 10
TRIANGLE 80 400 175 A 265 400
}

//左下正三角
REPEAT A 30 260
{
PEN 40 0 10
TRIANGLE 120 30 175 A 225 30
}

//中間黑色正三角(上)
REPEAT A 185 260
{
PEN 100
TRIANGLE 270 185 310 A 350 185
}

//中間黑色正三角(中)
REPEAT A 115 185
{
PEN 100
TRIANGLE 280 115 310 A 345 115
}

//中間黑色正三角(下)
REPEAT A 60 115
{
PEN 100
TRIANGLE 290 60 310 A 335 60
}

//右邊最長的直角三角
REPEAT A 175 470
{
PEN 80 20 20
TRIANGLE 360 175 510 A 510 175
}

//右中紅色小三角
REPEAT A 510 530
{
PEN 60 10 10
TRIANGLE 510 175 A 185 510 185
}

//右中黃色小三角
REPEAT A 510 540
{
PEN 90 80 0
TRIANGLE 510 185 A 205 510 205
}

//右中白長條
REPEAT A 510 625
{
PEN 10
LINE A 215 A 225
}

//右中斜下三角
REPEAT A 510 595
{
PEN 10 40 20
TRIANGLE 510 235 A 235 510 285
}

//右中斜上三角
REPEAT A 510 595
{
PEN 60 10 10
TRIANGLE 595 235 A 285 595 285
}

//黑色倒三角
REPEAT A 150 200
{
PEN 100
TRIANGLE 550 200 580 A 610 200
}

//右下橘色三角
REPEAT A 50 150
{
PEN 90 40 0
TRIANGLE 435 150 535 A 635 150
}

//中上的小正方形
REPEAT A 350 382
{
REPEAT B 375 412
{
PEN 60 20 0
TRIANGLE 370 375 410 A 425 385
TRIANGLE 370 375 390 B 425 385
}
}

//上面的兩弦
REPEAT A 1 10
{
CIRCLE 510 470 60 0
CIRCLE 510 (470-A) 60 0
}
REPEAT A 1 10
{
CIRCLE 540 425 60 50
CIRCLE 540 (425-A) 60 50
}
REPEAT A 430 524
{
PEN 50 80 75
TRIANGLE 435 325 A 500 510 500
}
REPEAT A 510 575
{
PEN 50 80 75
LINE A 460 A 500
}
REPEAT A 470 350
{
PEN 80 20 20
TRIANGLE 450 350 510 A 510 350
}
REPEAT A 570 600
{
PEN 50 80 75
LINE A 425 A 500
}

//下面的弦
REPEAT B 1 20
{
CIRCLE 535 0 80 100
CIRCLE 535 (0+B) 80 100
}
REPEAT A 0 50
{
PEN 50 80 75
TRIANGLE 425 0 473 A 520 0
TRIANGLE 575 0 598 A 635 0
}

//最大的圓
REPEAT A 0 40
{
CIRCLE 175 260 A 100
}
REPEAT B 40 105
{
CIRCLE 175 260 B 10
}
REPEAT A 105 110
{
CIRCLE 175 260 A 100
}_____________________________________________________________________________________

影片
由於慢動作的要長達7分多鐘，我想看完會抓狂 所以只傳了快速的