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分多鐘，我想看完會抓狂 所以只傳了快速的

WoRk 5-動態意象設計-轉盤

有圖有真相
_____________________________________________________________________________________
程式碼

###### TIME不給打呢 都變空白#######

size 200 200
PAPER 20
forever
{
REPEAT A 0 100
{
PEN 0 0
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-20)
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-20) 0 0
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-40) 0 0
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-40)
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-60)
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-60) 0 0
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REFRESH
}_____________________________________________________________________________________
結果

_____________________________________________________________________________________
另一種效果

CoMmAnD-格子花紋

有圖有真相

_____________________________________________________________________________________

城市馬

size 184 400
paper 50 10 45
fast
command square x y s c
{
pen ((s*x)+10) (x/2) c
line x y x c
line x (y+(50*s)) x (c+(50*s))
}

repeat a 0 400
{
pen 100
line 0 a 10 a
line 13 a 33 a
line 36 a 56 a
line 59 a 79 a
line 82 a 102 a
line 105 a 125 a
line 128 a 148 a
line 151 a 171 a
line 174 a 194 a
}

repeat g 105 125
{
repeat e 59 79
{
repeat z 1 7
{
square g 5 z 30
square e 5 z 30
}
}
}

repeat d 36 56
{
repeat h 128 148
{
repeat z 1 7
{
square d 10 z 35
square h 10 z 35
}
}
}

repeat c 13 33
{
repeat i 151 171
{
repeat z 1 7
{
square c 15 z 40
square i 15 z 40
}
}
}

repeat j 174 184
{
repeat b 0 10
{
repeat z 1 7
{
square j 20 z 45
square b 20 z 45
}
}
}

repeat f 82 102
{
repeat z 1 7
{
square f 2 z 27
}
}
____________________________________________________________________________________

配色二

參考－歐普藝術

三原型－仿歐普藝術

有圖有真相



利用黑白的強烈對比，造成視覺上的錯視；我想應該有沾到邊吧 :( _____________________________________________________________________________________

程式碼

size 280 300

Load dbngraphics.dbn

set c 50

repeat a 140 0
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 275
{

pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 10
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 265
{

pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 20
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 255
{

pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 30
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 245
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 40
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 235
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 50
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 225
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 60
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 215
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 70
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 205
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 80
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 195
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 90
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 185
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 100
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 175
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 110
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 165
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 120
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 155
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 130
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 145
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}



_____________________________________________________________________________________

WoRk2-Pattern

有圖有真相


基於都要唬爛一段，我也不免俗的來一下 → 俯衝而下的鳳凰

_____________________________________________________________________________________


程式碼



size 200 200
Repeat A 0 50

{
REPEAT B 0 50
{
pen 90

Line 50 50 (A*4) (B*4)

Line (B*4) (A*4) 50 50
}

}


_____________________________________________________________________________________

個人中文名字設計 - 林楙政

程式碼

size 500 500
paper 80
pen 0
line 0 75 230 75
line 0 400 500 400
line 100 500 100 75
line 50 75 50 300
line 100 250 150 250
line 175 285 330 285
line 230 285 230 75
line 150 250 190 130
line 190 130 230 230
line 185 350 275 350
line 275 350 225 310
line 330 0 330 500
line 330 285 280 240
line 210 313 260 295
line 425 400 425 200
line 330 285 425 200
line 425 200 500 125
line 280 240 280 75
line 425 200 425 50