[Sin]Same?Notsame?-馬賽克在錯視

利用辜狗在尋找靈感，看到了一個公司的網頁
上面很多馬賽克藝術的磁磚
便找了一個來當作雛形

http://www.18luo.com/goods/cid-368731.html

於是就想說既然那麼多線條，應該可以用判斷式來製作
就寫了一大段非常長的程式碼...

因為想要把細節作好，所以有很多地方都是重複的
只是數值不同，花很多時間再找他的規律性...=.=

黑色的部份就懶的用了...在打下去眼睛就要花掉了=口=!!!!









很長的程式碼，請享用~
一樣的連點2~5下即可全選~

size 400 400
paper 60 70 80

forever
{
set r 360
set m 0
set n 0
set s 16
set p 0
set c 104
set x 16
set bb <time 4>
set rr <time 3>

repeat a 0 76
{
pen rr 40 (bb+20)
line (a) (r+x) (a) (r+(x*2))
line (a-(s)) (r+x-c) (a-(s)) (r+(x*2)-c)
line (a-(s*2)) (r+x-(c*2)) (a-(s*2)) (r+(x*2)-(c*2))
line (a-(s*3)) (r+x-(c*3)) (a-(s*3)) (r+(x*2)-(c*3))

//pen 30 40 80
line (56+p) (a-72) (72+p) (a-72)

}

repeat a 0 500
{

pen 30 40 (bb+20)
line (a+76) (r-m) (a+76) (r+x-m)
line (a+60) (r-m-c) (a+60) (r+x-m-c)
line (a+44) (r-m-(c*2)) (a+44) (r+x-m-(c*2))
line (a+28) (r-m-(c*3)) (a+28) (r+x-m-(c*3))

//pen 30 40 80
line (72+p-c) (20+a) (88+p-c) (20+a)
line (72+p) (4+a) (88+p) (4+a)
line (72+p+c) (a-16) (88+p+c) (a-16)
line (72+p+(c*2)) (a-32) (88+p+(c*2)) (a-32)
line (72+p+(c*3)) (a-48) (88+p+(c*3)) (a-48)

same? a c
{
set m 16
set n 100
set p 16

}

same? a (c*2)
{
set m 32
set n 200
set p 32
}

same? a (c*3)
{
set m 48
set n 300
set p 48
}
same? a (c*4)
{
set m 64
set n 400
set p 64
}

}

repeat a 0 3
{
repeat b 0 20
{
pen 100 30 30
line (b+(16*a)-32) (16+(104*a)) (b+(16*a)-32) (20+(104*a))
line (b+(16*a)-52) (20+(104*a)) (b+(16*a)-52) (24+(104*a))
line (52+b+(16*a)) (4+(104*a)) (52+b+(16*a)) (8+(104*a))
line (b+72+(16*a)) (0+(104*a)) (b+72+(16*a)) (4+(104*a))
line (156+b+(16*a)) ((104*a)-12) (156+b+(16*a)) ((104*a)-16)
line (b+72+(16*a)+104) ((104*a)-16) (b+72+(16*a)+104) ((104*a)-20)
line (276+b+(16*a)) ((104*a)+72) (276+b+(16*a)) ((104*a)+76)
line (b+72+(16*a)+224) ((104*a)+68) (b+72+(16*a)+224) ((104*a)+72)
line (380+b+(16*a)) ((104*a)+56) (380+b+(16*a)) ((104*a)+60)
line (24+(a*104)) (44+b-(a*16)) (28+(a*104)) (44+b-(a*16))
line (28+(a*104)) (64+b-(a*16)) (32+(a*104)) (64+b-(a*16))
line (40+(a*104)) (148+b-(a*16)) (44+(a*104)) (148+b-(a*16))
line (44+(a*104)) (168+b-(a*16)) (48+(a*104)) (168+b-(a*16))
line (56+(a*104)) (252+b-(a*16)) (60+(a*104)) (252+b-(a*16))
line (60+(a*104)) (272+b-(a*16)) (64+(a*104)) (272+b-(a*16))
line (72+(a*104)) (356+b-(a*16)) (76+(a*104)) (356+b-(a*16))
line (76+(a*104)) (376+b-(a*16)) (80+(a*104)) (376+b-(a*16))

}
}

repeat a 0 4
{
pen 100 30 30
line (4*8+a) 332 (4*8+a) 336
line (4*4+a) 228 (4*4+a) 232
line (4*1+a) 120 (4*1+a) 124
line (4*7+a) 44 (4*7+a) 48
line (4*6+a) 80 (4*6+a) 84
line (4*33+a) 28 (4*33+a) 32
line (4*32+a) 64 (4*32+a) 68
line (4*59+a) 12 (4*59+a) 16
line (4*58+a) 48 (4*58+a) 52
line (4*84+a) 32 (4*84+a) 36
line (4*11+a) 148 (4*11+a) 152
line (4*10+a) 184 (4*10+a) 188
line (4*37+a) 132 (4*37+a) 136
line (4*36+a) 168 (4*36+a) 172
line (4*63+a) 116 (4*63+a) 120
line (4*62+a) 152 (4*62+a) 156
line (4*89+a) 100 (4*89+a) 104
line (4*88+a) 136 (4*88+a) 140
line (4*15+a) 252 (4*15+a) 256
line (4*14+a) 288 (4*14+a) 292
line (4*41+a) 236 (4*41+a) 240
line (4*40+a) 272 (4*40+a) 276
line (4*67+a) 220 (4*67+a) 224
line (4*66+a) 256 (4*66+a) 260
line (4*93+a) 204 (4*93+a) 208
line (4*92+a) 240 (4*92+a) 244
line (4*19+a) 356 (4*19+a) 360
line (4*18+a) 392 (4*18+a) 396
line (4*45+a) 340 (4*45+a) 344
line (4*44+a) 376 (4*44+a) 380
line (4*71+a) 324 (4*71+a) 328
line (4*70+a) 360 (4*70+a) 364
line (4*97+a) 308 (4*97+a) 312
line (4*96+a) 344 (4*96+a) 348
line (4*25+a) 312 (4*25+a) 316
line (4*34+a) 316 (4*34+a) 320
line (4*51+a) 292 (4*51+a) 296
line (4*60+a) 296 (4*60+a) 300
line (4*77+a) 276 (4*77+a) 280
line (4*86+a) 280 (4*86+a) 284
line (4*21+a) 208 (4*21+a) 212
line (4*30+a) 212 (4*30+a) 216
line (4*47+a) 188 (4*47+a) 192
line (4*56+a) 192 (4*56+a) 196
line (4*73+a) 172 (4*73+a) 176
line (4*82+a) 176 (4*82+a) 180
line (4*99+a) 156 (4*99+a) 160
line (4*17+a) 104 (4*17+a) 108
line (4*26+a) 108 (4*26+a) 112
line (4*43+a) 84 (4*43+a) 88
line (4*52+a) 88 (4*52+a) 92
line (4*69+a) 68 (4*69+a) 72
line (4*78+a) 72 (4*78+a) 76
line (4*95+a) 52 (4*95+a) 56
line (4*13+a) 0 (4*13+a) 4
line (4*81+a) 380 (4*81+a) 384
line (4*90+a) 384 (4*90+a) 392

}

repeat b 0 100
{
pen bb
line (b*4) 0 (b*4) 400
line 0 (b*4) 400 (b*4)
}

}

[Sin]Key-不盡相同

按鍵整合
原本想說再來玩一次時間差
想說每個色塊在不同的時間點上
往同一個方向延展過去應該會很不錯...
結果勒...結果勒...
竟然要等repeat執行完才可以畫下一個...

如果下判斷式，那這個程式碼可能會沒完沒了吧=▽=+
畢竟把26個字母都排進去了..."OTZ
所以就只能用fast去增加repeat的執行速度...
看久了，有點像是音響的頻譜...
所以就很三八的搞了一個沒有對到節奏
也不知道在打什麼的鬼玩意兒...

即使是落在相對的位置上
每個色塊也都長的有點不同

因每次出現的時間不同，產生出來的效果也不盡相同

一樣的連點2~5下即可全選~

load dbngraphics.dbn
size 360 200
fast

//Left Lines Drewing
forever
{

same? <key 17> 100
{

set b <time 4>

repeat aa 0 180
{
pen b 20 b
line aa 200 aa 180
}
}

same? <key 23> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 180 aa 160
}
}

same? <key 5> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 160 aa 140
}
}

same? <key 18> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 140 aa 120
}
}

same? <key 20> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 120 aa 100
}
}

same? <key 25> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 100 aa 80
}
}

same? <key 21> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 80 aa 60
}
}

same? <key 9> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 60 aa 40
}
}

same? <key 15> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 40 aa 20
}
}

same? <key 16> 100
{
set b <time 4>
repeat aa 0 180
{
pen b 20 b
line aa 20 aa 0
}
}

//Right Lines Drewing

same? <key 1> 100
{

set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 200 aa 180
}
}

same? <key 19> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 180 aa 160
}
}

same? <key 4> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 160 aa 140
}
}

same? <key 6> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 140 aa 120
}
}

same? <key 7> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 120 aa 100
}
}

same? <key 8> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 100 aa 80
}
}

same? <key 10> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 80 aa 60
}
}

same? <key 11> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 60 aa 40
}
}

same? <key 12> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 40 aa 20
}
}

same? <key 26> 100
{
set b <time 4>
repeat aa 360 180
{
pen b 20 b
line aa 20 aa 0
}
}

//top&down lines

same? <key 22> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 170 bb 150 bb
}
}

same? <key 3> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 130 bb 110 bb
}
}

same? <key 24> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 90 bb 70 bb
}
}


same? <key 2> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 190 bb 210 bb
}
}

same? <key 14> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 230 bb 250 bb
}
}

same? <key 13> 100
{
set b <time 4>
repeat bb 200 0
{
pen b 20 b
line 270 bb 290 bb
}
}

}

[Ta]解決dbn容易當機的問題

請至→數位藝術教育暨創作推廣計畫

[Ta]解決 「< >」 被吃掉問題

礙於Html語法的關係
在Google部落格上打上< >會被語法判定為標籤
(EX：<html >、</html >、<a >、</a >諸如此類的)

這時候，就想起榮吉跟志宇老師在課堂上有補充過解決一些特殊符號的顯示
<→＆lt;
>→＆gt;

※請記得把&變成半形

好用的取代就派上用場啦XDDD
把程式碼複製到記事本或是word都可以
將這兩個大於小於個別取代成特殊碼的語法就可以在部落格顯示了~

[Sin]期末→憂鬱的城市

照慣例的連點2~4、5、6次即可全選...

size 200 100
paper <time 4>

repeat aa 0 100
{
pen (aa-30)
line 0 aa 200 aa
}

forever
{
same? <mouse 3> 100
{
set s <mouse 1>
set g (<time 4>%5)
set c <mouse 2>
repeat a 0 0
{
repeat b 0 s
{
pen <time 4>
line (b-(a*10)) (<mouse 2>) (b-(a*10)) (<mouse 2>+20)
line (b-(a*10)-20) (<mouse 2>+20) (b-(a*10)-20) (<mouse 2>+40)
line (b-(a*10)-20) (<mouse 2>-20) (b-(a*10)-20) (<mouse 2>)

line (200-(b+(a*10))) (<mouse 2>) (200-(b-(a*10))) (<mouse 2>+20)
line (220-(b+(a*10))) (<mouse 2>-40) (220-(b-(a*10))) (<mouse 2>-60)
line (220-(b+(a*10))) (<mouse 2>-20) (220-(b-(a*10))) (<mouse 2>)

}
}
}

}

[Sin]心得

　　「Body movies」是我印象較深的一個作品，利用媒體藝術達到人際間交流，讓彼此不相識的人產生關聯，這比起現今網路上推廣的交友朋台來的直接又有趣又直接。其實在顏明宏老師的「科技藝術」這門課，我們也有看到類似的作品，那是利用媒體科技將車站樓梯變成一個個的鋼琴鍵盤，使得人們開始喜歡走樓梯，也變成一群人會在那邊玩著。
　　近幾次去新一代參觀，其實大部分台灣的互動媒體還是僵持在一對一，或是一對「少數的」多，作品製作起來的規模不算很大；總覺得台灣是一個很適合將互動科技以及藝術融入生活當中的地方，但實際面看起來，即便是一個很成功有趣的作品，其實很多人也都會有種害羞、不好意思去接觸、玩弄的感覺，說起來我們年輕一代的人也很矛盾呢，感覺上喜歡嘗鮮，卻又對於互動媒體沒什麼興趣感覺…對於這一點，其實還挺可惜的。

[Sin]Work07-「虛實間的扭曲空間」

先把作好的放上來...
因為它是用滑鼠去製作出來的
所以規律性上比較人性一點?
便還是使用以往的交錯式來製作

噩夢

size 400 400
paper 30 30 80
fast
command rect x y w h c
{
pen h h c
line x y (x+w) (y+w)
line x y (x-w) (y+w)
line x y (x+w) (y-w)
line x y (x-w) (y-w)

}

forever
{
rect <mouse 1> <mouse 2> (60-(<time 3>)) 30 (30+<time 4>)
}

思考

size 400 400
paper 100 80 20
fast
command rect x y w h c
{
pen (90+(c/3)) (45+(c/3)) (h-10)
line x y (x+w) (y+w)
line x y (x-w) (y+w)
line x y (x+w) (y-w)
line x y (x-w) (y-w)

}

forever
{
rect <mouse 1> <mouse 2> (60-(<time 3>)) 30 (<time 4>)
}

相框

size 400 400
paper 100 80 80
fast
command rect x y w h c
{
pen (c) (h) (h)
line x y (x+w) (y+w)
line x y (x-w) (y+w)
line x y (x+w) (y-w)
line x y (x-w) (y-w)

}

forever
{
rect <mouse 1> <mouse 2> (60-(<time 4>)) 30 (<time 4>)
}

俯視建築中的鋼架

size 400 400
paper 0
fast
command rect x y w h c
{
pen (100-(c)) (100-(c)) (100-(c/2))
rectangle (x-w) (y-w) (x+w) (y+w)

}

forever
{
rect <mouse 1> <mouse 2> (30-(<time 4>)+10) 30 (<time 4>)
}

無方向性

size 400 400
paper 100 80 20
fast
command rect x y w h c
{
pen (90+(c/3)) (45+(c/3)) (h-10)
line (x-w+10) y x (y+w)
line x (y+w) (x+w-10) (y)
line (x-w+10) y (x-w-10) (y)
line (x-w-10) y (x-w+10) (y-10)
line (x+w-10) y (x+w+10) (y)
line (x+w+10) y (x+w-10) (y-10)
line (x-w+10) (y-10) (x-w) (y-33)
line (x-w) (y-33) x (y-22)
line (x+w-10) (y-10) (x+w) (y-33)
line (x+w) (y-33) x (y-22)

}

forever
{
rect <mouse 1> <mouse 2> 20 10 (<time 4>)
}

[Sin]Mouse-「自畫像」&「熊貓殺人事件?」

這個東西...搞的像是P-BBS線上繪圖留言板似的...
又只能用滑鼠點擊控制黑跟白...
一整個就是詭異...

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>

}

後來才想到...用graphics來寫的程式還比較短...

load dbngraphics.dbn
size 400 400

command rect x y a b c
{
field x y a b c
}

forever
{
rect (<mouse 1>+1) (<mouse 2>+1) (<mouse 1>-1) (<mouse 2>-1) <mouse 3>

}

老實說............






這個人是誰...這個人是誰...這個人是誰...這個人是誰...

這個人是誰...這個人是誰...這個人是誰...這個人是誰...

這個人是誰...這個人是誰...這個人是誰...這個人是誰...

這個人是誰...這個人是誰...這個人是誰...這個人是誰...


另一張...熊貓吧...XD"

看到室友送的熊貓公仔，就加上不知所云的東西.........

............臨時沒靈感=ˇ="

[Sin]Time-「翻頁」&「映襯」

上次練習過一次之後，這次還是想回歸灰階的感覺
色階雖簡單，但想想100種色階跑出來變化還是很大的=___="

於是想到以前上影音課的時候
范范老師說過很多東西，其實構造都一樣
只是改變一下它的方向以及時間差就可以成為一個豐富的作品

就這樣，上下來個方向以及色階顛倒，加上中間的時間差
看起來就很像一種連鎖反應一般
不過感覺很像書本一直被翻來翻去的XD"

不然看中間那條還蠻像波浪舞的(誤?)
仔細看中間，是否會變大變小呢?

之後因為覺得跑的有點慢...便加上了fast指令
結果又跑出了另一種效果，差異蠻大的
就想說一起放上來分享好了

「翻頁」↓




※礙於Html會將<>內的文字當成標籤語法...
所以就以檔案下載的方式...
無毒請安心食用=..=
程式碼↓
翻頁Doc檔


「映襯」↓







因為有經過排列的關係
以中間為對稱軸，左右兩邊的階調是剛好為顛倒的
程式碼按此↓
映襯Doc檔

[Sin]期中考

照慣例的連擊2~3下可全選(限定IE?)

load dbngraphics.dbn
size 550 400
paper 50 80 80

fast


repeat a 0 40
{
pen 100
triangle (205+a) 150 (275-a) 150 240 210
triangle (215+a) 100 (265-a) 100 240 150
triangle (220+a) 40 (260-a) 40 240 100
}

//yellow
repeat a 0 10
{
pen 100 (60+(a*2)) 10
line 25 (360+a) 80 (360+a)
}

repeat a 0 33
{
pen (100-(a/2)) 0 0
line (315+a) (290-(a/2)) (330+a) (320-(a/2))

}

repeat a 0 15
{
pen 60 0 0
line 420 (135+a) (420+(a*2)) (135+a)
}

repeat a 0 20
{
pen (80+a) (70+a) 0
line 420 (150+a) (420+(a*2)) (150+a)
pen 90 90 100
line 420 (175+(a/2)) 525 (175+(a/2))

}

repeat a 0 36
{
pen 100
line (465+(a/2)) (160-a) (500-(a/2)) (160-a)
}

repeat a 0 7
{
circle 425 365 (a+40) (80)
circle 445 355 (a+60) (80)
}


repeat a 0 30
{
pen 50 80 80
rectangle (370+a) (310+a) (420-a) (400-a)
}

repeat a 0 240
{
pen (100-(a/8))
line 420 (195+(a/5)) (500-(a/3)) (195+(a/5))
pen (100-(a/5)) 0 0
line (420+(a/3)) (243-(a/5)) 500 (243-(a/5))
pen (100-(a/5)) 0 (a/8)
line (300+(a/2)) (135+a) 420 (135+a)
pen (50+(a/4)) (50) (30)
line (440+((a/5)*2)) (45+(a/3)) (440-((a/5)*2)) (45+(a/3))

}

repeat a 0 5
{
pen 30 0 0
triangle (300) 135 420 135 420 (375-a)
pen 60 20 0
triangle 345 125 (540-a) 125 440 45
}

repeat a 0 10
{
circle 445 0 (a+70) (80)
}

repeat a 0 30
{
pen 50 80 80
rectangle (350+a) (0+a) (540-a) (15-a)
}


repeat a 0 70
{
circle 130 200 a (0+(a/3))
}

repeat a 0 180
{
pen (20+(a/4)) 10 (20+(a/18))
line (85+(a/4)) (25+(a)) (170-(a/5)) (25+(a))
}

repeat a 0 15
{
circle 130 200 (a+70) (50+(a*4))
}

repeat a 0 25
{
circle 130 200 (a) (100)
}

repeat a 0 70
{
pen (20+(a/4)) (10+a) (20+(a/18))
triangle (60+a) (310-a) (195-a) (310-a) 130 210
}

[ta]無言的練習

嗯...無言了

盯著中間的黑線看，到底是不是一條平行的線勒?

size 180 100
paper 100
fast

repeat a 0 179
{
pen a 0 0
line a 0 a 100
}

forever
{

set ss
set dd
repeat a 0 10
{
repeat b 0 5
{

pen (ss) (20) (dd)
line ((ss+(a*dd))-20) (0) ((ss+(a*dd))-20) (100)

}
pen 100
line 0 50 200 50
}

}

[Sin]Command - 汽水味覺感

想了很久，很難有畫面出來 便在Google上搜尋了一下「馬賽克」 結果就找到了下面這張

圖片來源：http://www.riton.com.tw/images/pic_253.jpg

就開始使用DBN製作 ...... ...... 嗯...感覺差強人意啦XD"

不過讓我想到之前上課看到的芬達汽水那個作品

還有阮媽色彩學的味覺感官 便取了這個名字

哈，因為挺相像的XDD"

口味依此為

蔓越莓、柳橙、冰淇淋、青蘋果、葡萄

可樂、ZERO、薄荷檸檬(?)、萊姆、藍莓(?)

...內含自創口味?

很多的程式碼囧...
(依照口味順序)

(滑鼠連擊2~3下可全選※限定IE?)

蔓越莓

size 114 390
paper 0

fast


command ss x y z c
{
pen (40+(10*c)) (c) c
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

柳橙

size 114 390
paper 0

fast


command ss x y z c
{
pen (40+(10*c)) (35+c) c
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

冰淇淋

size 114 390
paper 0

fast

command ss x y z c
{
pen (8*((c/2)/3)) (30+c) (50+c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

青蘋果

size 114 390
paper 0

fast


command ss x y z c
{
pen (20+c) (30+(5*c)) (20+c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

葡萄

size 114 390
paper 0

fast

command ss x y z c
{
pen (2*(c)) (c) (3*c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

可樂

size 114 390
paper 0

fast


command ss x y z c
{
pen (5*(c/2)) (3*(c/2)) (3*(c/3))
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

ZERO

size 114 390
paper 0

fast


command ss x y z c
{
pen (140-(c*2))
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

薄荷檸檬

size 114 390
paper 0

fast


command ss x y z c
{
pen (2*(c)) (3*c) (c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

萊姆

size 114 390
paper 0

fast


command ss x y z c
{
pen ((c)) (2*c) (3*c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

藍莓

command ss x y z c
{
pen (2*(c)) (c) (3*c)
line (0+(z)) (x+y-(z)) (5+(z)) (x+y-z)

line (113-z) (x+y-(z)) (108-(z)) (x+y-z)
}

repeat c 0 20
{
repeat a 0 5
{
repeat b 0 33
{

ss a (b*13) (c*6) (b*2)

}
}
}

[Sin]三原型合體之「摺紙-花朵」&「圈圈字」

新增一枚圓形練習
感謝FaceBook的廣告所提供的靈感XDDD



(連擊兩至三次，可全選)

load dbngraphics.dbn
size 300 240
paper 0 50 100
fast

repeat a 1 20
{
set b 1
circle 150 124 (10*a) 0


}

repeat a 0 40
{
pen 0 0 100
line 0 (240-a) 300 (240-a)
line 0 (a) 300 (a)

}

repeat a 0 85
{
triangle (155) 80 (155+a) 150 240 150
}

repeat a 0 105
{
triangle (205+a) 70 300 150 305 70

}

repeat a 0 50
{
line (50+a) 200 (50+a) 150
line (50+a) 40 (50+a) 90
line (260+(a/5)) (70+a) 300 (70+a)
}

repeat a 0 5
{
line (150+a) 0 (150+a) 240
}



在筆記本上無意畫出來的怪畫面，利用線條描繪出來之後
忽然有種摺紙的感覺....
之後再用了漸層上色，愕然的發現，還可以玩了錯視
是哪一個正方形在上?哪一個在下?
看中間兩條線，到底是有平行還是不平行?

很想寫長一點，這樣搭配滑鼠去滾動視窗應該很有趣...
不過程式碼真的是太長了..........想太多還是?

以下是冗長的程式碼..........
(在文字框內空白處，連擊兩到三次(?)可以全選...)

在筆記本上一時的靈感，利用線條構成

最後決定加上灰階的變化

結果呈現出來的感覺就像是紙折出來的花

感覺挺妙的...........

而且還多出了一種錯試的感覺

是哪一個正方形在上?哪一個在下?

左右兩條的中線，到底有沒有平行?

原本想說在畫長一點...

但礙於程式碼實在有夠冗長......

所以打消念頭.........想太多還是...?

不過結果倒是非常有趣~哈

以下是長到不行的程式碼

(點擊滑鼠二至三下(?)可以全選)

Load dbngraphics.dbn
size 400 500
paper 100
fast

repeat a 0 40
{
repeat b 0 2
{
pen 75
line (200+a*5) ((b*200)+5) (200+a*5) ((b*200)+95)
line (a*5) ((b*200)+105) (a*5) ((b*200)+195)
line 0 ((b*200)+(a/2)*5) (200) ((b*200)+(a/2)*5)
line 200 ((b*200+100)+(a/2)*5) (400) ((b*200+100)+(a/2)*5)
}
}

pen 100
line 300 0 300 500

line 100 0 100 500

//field

//
repeat a 0 4
{

field (60+(a*10)) (490-(a*10)) (100) 450 (30-(a*10))
}

repeat a 0 4
{

field 100 (485-(a*10)) (140-(a*10)) 445 (10+(a*10))
}

repeat a 0 4
{

field (100) (445) (140-(a*10)) (405+(a*10)) (30-(a*10))
}

repeat a 0 4
{

field (60+(a*10)) 450 100 (410+(a*10)) (10+(a*10))
}

//

repeat a 0 4
{

field (50+(a*10)) (400-(a*10)) (100) 350 (50-(a*10))
}

repeat a 0 4
{

field 100 (395-(a*10)) (150-(a*10)) 345 (10+(a*10))
}

repeat a 0 4
{

field (100) (295+(a*10)) (150-(a*10)) (345) (50-(a*15))
}

repeat a 0 4
{

field (50+(a*10)) 350 100 (300+(a*10)) (10+(a*10))
}

//

repeat a 0 5
{

field (40+(a*10)) (280-(a*10)) (100) 220 (70-(a*15))
}

repeat a 0 5
{

field 100 (275-(a*10)) (160-(a*10)) 215 (10+(a*15))
}

repeat a 0 5
{

field (100) (215) (160-(a*10)) (155+(a*10)) (70-(a*15))
}

repeat a 0 5
{

field (40+(a*10)) 220 100 (160+(a*10)) (10+(a*15))
}

//
repeat a 0 6
{

field (30+(a*10)) (150-(a*10)) (100) 80 (90-(a*15))
}

repeat a 0 6
{

field 100 (145-(a*10)) (170-(a*10)) 75 (10+(a*15))
}

repeat a 0 6
{

field (100) (75) (170-(a*10)) (5+(a*10)) (90-(a*15))
}

repeat a 0 6
{

field (30+(a*10)) 80 100 (10+(a*10)) (10+(a*15))
}

//rec
//---------------------left-----------------------------------
//a-01-le
repeat a 0 4
{

pen 100
rectangle (60+(a*10)) (490-(a*10)) (100) 450
}

repeat a 0 4
{

pen 100
rectangle 100 (485-(a*10)) (140-(a*10)) 445
}

//a-02-le
repeat a 0 4
{

pen 100
rectangle (50+(a*10)) (400-(a*10)) (100) 350
}

repeat a 0 4
{

pen 100
rectangle 100 (395-(a*10)) (150-(a*10)) 345
}

//a-03-le
repeat a 0 5
{

pen 100
rectangle (40+(a*10)) (280-(a*10)) (100) 220
}

repeat a 0 5
{

pen 100
rectangle 100 (275-(a*10)) (160-(a*10)) 215
}

//a-04-le
repeat a 0 6
{

pen 100
rectangle (30+(a*10)) (150-(a*10)) (100) 80
}

repeat a 0 6
{

pen 100
rectangle 100 (145-(a*10)) (170-(a*10)) 75
}

//--------------------right----------------------------------------

//a-01-ri
repeat a 0 4
{

pen 100
rectangle (100) (445) (140-(a*10)) (405+(a*10))
}

repeat a 0 4
{

pen 100
rectangle (60+(a*10)) 450 100 (410+(a*10))
}

//a-02-ri
repeat a 0 4
{

pen 100
rectangle (100) (345) (150-(a*10)) (295+(a*10))
}

repeat a 0 4
{

pen 100
rectangle (50+(a*10)) 350 100 (300+(a*10))
}
//a-03-ri
repeat a 0 5
{

pen 100
rectangle (100) (215) (160-(a*10)) (155+(a*10))
}

repeat a 0 5
{

pen 100
rectangle (40+(a*10)) 220 100 (160+(a*10))
}
//a-04-ri
repeat a 0 6
{

pen 100
rectangle (100) (75) (170-(a*10)) (5+(a*10))
}

repeat a 0 6
{

pen 100
rectangle (30+(a*10)) 80 100 (10+(a*10))
}

//---------------------b---------------------------------
//field

//
repeat a 0 6
{

field (230+(a*10)) (420) (300) (350+(a*10)) (90-(a*15))
}

repeat a 0 6
{

field (300) (425) (370-(a*10)) (355+(a*10)) (10+(a*15))
}

repeat a 0 6
{

field (300) (495-(a*10)) (370-(a*10)) (425) (90-(a*15))
}

repeat a 0 6
{

field (230+(a*10)) (490-(a*10)) (300) (420) (10+(a*15))
}

//

repeat a 0 5
{

field (240+(a*10)) (280) (300) (220+(a*10)) (70-(a*15))
}

repeat a 0 5
{

field (240+(a*10)) (340-(a*10)) 300 (280) (10+(a*15))
}

repeat a 0 5
{

field (300) (345-(a*10)) (360-(a*10)) (285) (70-(a*15))
}

repeat a 0 5
{

field (300) (285) (360-(a*10)) (225+(a*10)) (10+(a*15))
}

//

repeat a 0 4
{

field (250+(a*10)) (195-(a*10)) (300) (145) (10+(a*15))
}

repeat a 0 4
{

field (300) (150) (350-(a*10)) (100+(a*10)) (10+(a*15))
}

repeat a 0 4
{

field (300) (200-(a*10)) (350-(a*10)) (150) (50-(a*10))
}

repeat a 0 4
{

field (250+(a*10)) (145) 300 (95+(a*10)) (50-(a*10))
}

//
repeat a 0 4
{

field (260+(a*10)) (85-(a*10)) (300) (45) (10+(a*10))
}

repeat a 0 4
{

field (300) (50) (340-(a*10)) (10+(a*10)) (10+(a*10))
}

repeat a 0 4
{

field (300) (90-(a*10)) (340-(a*10)) (50) (30-(a*10))
}

repeat a 0 4
{

field (260+(a*10)) 45 300 (5+(a*10)) (30-(a*10))
}

//rec
//---------------------left-----------------------------------
//b-01-le
repeat a 0 6
{

pen 100
rectangle (230+(a*10)) (420) (300) (350+(a*10))
}

repeat a 0 6
{

pen 100
rectangle (300) (425) (370-(a*10)) (355+(a*10))
}

//b-02-le
repeat a 0 5
{

pen 100
rectangle (240+(a*10)) (280) (300) (220+(a*10))
}

repeat a 0 5
{

pen 100
rectangle (300) (285) (360-(a*10)) (225+(a*10))
}

//b-03-le
repeat a 0 5
{

pen 100
rectangle (250+(a*10)) (195-(a*10)) (300) (145)
}

repeat a 0 5
{

pen 100
rectangle (300) (150) (350-(a*10)) (100+(a*10))
}

//b-04-le
repeat a 0 4
{

pen 100
rectangle (260+(a*10)) (85-(a*10)) (300) (45)
}

repeat a 0 4
{

pen 100
rectangle (300) (50) (340-(a*10)) (10+(a*10))
}

//--------------------right----------------------------------------

//b-01-ri
repeat a 0 6
{

pen 100
rectangle (300) (495-(a*10)) (370-(a*10)) (425)
}

repeat a 0 6
{

pen 100
rectangle (230+(a*10)) (490-(a*10)) (300) (420)
}

//b-02-ri
repeat a 0 5
{

pen 100
rectangle (300) (345-(a*10)) (360-(a*10)) (285)
}

repeat a 0 5
{

pen 100
rectangle (240+(a*10)) (340-(a*10)) 300 (280)
}

//b-03-ri
repeat a 0 5
{

pen 100
rectangle (300) (200-(a*10)) (350-(a*10)) (150)
}

repeat a 0 5
{

pen 100
rectangle (250+(a*10)) (145) 300 (95+(a*10))
}

//b-04-ri
repeat a 0 4
{

pen 100
rectangle (300) (90-(a*10)) (340-(a*10)) (50)
}

repeat a 0 4
{

pen 100
rectangle (260+(a*10)) 45 300 (5+(a*10))
}

[Sin]Pattern-風的流動

嗯，經過試玩了巢狀式的Repeat...
發現它的加加減減可以行成一些意想不到的樣子
可以讓同一條線經由Repeat A、B變成相互交織，有一樣規律的變化
所以就想到了沙子經風吹拂之後的樣子
便試了一下~ 有點長，有多種顏色變化

影片


先來個沙漠樣

size 600 500
paper 80 40 20
fast
repeat a 0 250
{
pen (a/3-50) (a/3-70) 0
line 600 (a*3) 0 (a*2)
}

repeat a 0 60
{
repeat b 0 20
{
pen (a+50) 50 20
line (a*2-50) (b*60-100) (a*20) b
}
}

水波


size 600 500
paper 100 100 100
fast
repeat a 0 250
{
pen 0 0 (a)
line 600 (a*3) 0 (a*2)
}

repeat a 0 60
{
repeat b 0 20
{
pen 0 (b/2*5+10) (a+100)
line (a*2-50) (b*60-100) (a*20) b
}
}

草原


size 600 500
paper 80 100 20
fast
repeat a 0 250
{
pen 0 (a) 0
line 600 (a*3) 0 (a*2)
}

repeat a 0 60
{
repeat b 0 20
{
pen 0 (a+10) (b/4*5)
line (a*2-50) (b*60-100) (a*20) b
}
}

火焰(森林大火?)


size 600 500
paper 100 20 0
fast
repeat a 0 250
{
pen (a/3+100) 0 0
line 600 (a*3) 0 (a*2)
}

repeat a 0 60
{
repeat b 0 20
{
pen (a+50) 0 0
line (a*2-50) (b*60-100) (a*20) b
}
}

烏雲(雲中月圓?)


size 600 500
paper 40
fast

repeat a 0 250
{
pen (100-a/3+10)
line 600 (a*3) 0 (a*2)
}



紫色...不知道是啥...程式碼也沒複製到=.=...

[ta]Repeat 內填亂完練習

奇妙的東西，數值加加減減、乘乘除除就有很多變化
而且程式碼又短=.=

不過變太多了，程式碼都被蓋掉了，噗...

[Sin]Work_01 個人中文名字設計-陳漢章

呀...這有點囧...之前上課申請的網址是「md-95452136」
之後去老師的部落格才發現是「dm-95452136」=.=...

上次上課申請的→這裡
虧我都把作業傳上去了...

重新發一次吧XD"

=============================================

dbn第一次的使用，有點類似大二的Processing...
只是這個要使用的指令比較簡單，比起C++或是AS也少了嚴格的格式規定

因為只有線條構成，就想到可以弄得像是現在衣服很流行的格子交錯的花紋
有些地方讓它故意凸出，有點像是手工縫織的感覺
不過礙於要一條一條的寫程式碼實在有點太過於麻煩...
就在老師的Blog上先看了dbn的教學，找了一下迴圈怎麼執行，就有先使用到repeat的寫法了...

以下是攏長的程式碼

size 450 550
paper 100 50 0

repeat A 0 50
{
pen 100 70 0
line (a*5) 0 (a*6) 600
pen 100 60 0
line 0 (a*5) 500 (a*6)
}

repeat A 30 80
{
pen 40
line (a*7) 0 (a*4) 600
}

repeat A 50 80
{
pen 30
line (a*7) 600 (a*4) 00
}

//chen right

repeat A 40 87
{
pen 60 0 0
line (A*5) 445 (A*5) 500
line (A*5) 430 (A*5) 400
line (A*5) 355 (A*5) 295
line (A*5) 250 (A*5) 220
pen 100 0 0
line ((A*5)+2) 445 ((A*5)+2) 500
line ((A*5)+2) 430 ((A*5)+2) 400
line ((A*5)+2) 355 ((A*5)+2) 295
line ((A*5)+2) 250 ((A*5)+2) 220
}

repeat A 45 86
{
pen 60 0 0
line 395 (A*5) 435 (A*5)
line 200 (A*5) 240 (A*5)
pen 100 0 0
line 395 ((A*5)+2) 435 ((A*5)+2)
line 200 ((A*5)+2) 240 ((A*5)+2)
}

repeat A 40 70
{
pen 60 0 0
line (A*5) 180 (A*5) 150
line (A*5) 60 (A*5) 25
pen 100 0 0
line ((A*5)+2) 180 ((A*5)+2) 150
line ((A*5)+2) 60 ((A*5)+2) 25
}

repeat A 62 87
{
pen 60 0 0
line (A*5) 120 (A*5) 90
pen 100 0 0
line ((A*5)+2) 120 ((A*5)+2) 90
}

repeat A 5 105
{
pen 60 0 0
line 310 (A*5) 350 (A*5)
pen 100 0 0
line 310 ((A*5)+2) 350 ((A*5)+2)
}

//chen left
repeat A 1 32
{
pen 60 0 0
line (A*5) 445 (A*5) 500
line (A*5) 175 (A*5) 150
pen 100 0 0
line ((A*5)+2) 445 ((A*5)+2) 500
line ((A*5)+2) 175 ((A*5)+2) 150
}

repeat A 15 32
{
pen 60 0 0
line (A*5) 400 (A*5) 375
line (A*5) 315 (A*5) 290
pen 100 0 0
line ((A*5)+2) 400 ((A*5)+2) 375
line ((A*5)+2) 315 ((A*5)+2) 290
}

repeat A 73 100
{
pen 60 0 0
line 140 (A*5) 160 (A*5)
pen 100 0 0
line 140 ((A*5)+2) 160 ((A*5)+2)
}

repeat A 58 80
{
pen 60 0 0
line 75 (A*5) 95 (A*5)
pen 100 0 0
line 75 ((A*5)+2) 95 ((A*5)+2)
}

repeat A 28 65
{
pen 60 0 0
line 140 (A*5) 160 (A*5)
pen 100 0 0
line 140 ((A*5)+2) 160 ((A*5)+2)
}

repeat A 5 100
{
pen 60 0 0
line 5 (A*5) 50 (A*5)
pen 100 0 0
line 5 ((A*5)+2) 50 ((A*5)+2)

}

//Han

repeat A 10 19
{
pen 100
line (A*5) 130 (A*5) 120
line (A*5) 85 (A*5) 75
pen 0 0 100
line ((A*5)+3) 130 ((A*5)+3) 120
line ((A*5)+3) 85 ((A*5)+3) 75
}

repeat A 4 12
{
pen 100
line 64 (A*5) 79 (A*5)
pen 0 0 100
line 64 ((A*5)+3) 79 ((A*5)+3)
}

repeat A 23 40
{
pen 100
line (A*5) 150 (A*5) 140
line (A*5) 100 (A*5) 90
line (A*5) 70 (A*5) 60
line (A*5) 35 (A*5) 25
pen 0 0 100
line ((A*5)+3) 150 ((A*5)+3) 140
line ((A*5)+3) 100 ((A*5)+3) 90
line ((A*5)+3) 70 ((A*5)+3) 60
line ((A*5)+3) 35 ((A*5)+3) 25
}

repeat A 25 38
{
pen 100
line (A*5) 125 (A*5) 115
line (A*5) 55 (A*5) 45
pen 0 0 100
line ((A*5)+3) 125 ((A*5)+3) 115
line ((A*5)+3) 55 ((A*5)+3) 45
}

repeat A 24 33
{
pen 100
line 125 (A*5) 135 (A*5)
line 185 (A*5) 195 (A*5)
pen 0 0 100
line 125 ((A*5)+3) 135 ((A*5)+3)
line 185 ((A*5)+3) 195 ((A*5)+3)
}

repeat A 12 20
{
pen 100
line 115 (A*5) 125 (A*5)
line 185 (A*5) 200 (A*5)
pen 0 0 100
line 115 ((A*5)+3) 125 ((A*5)+3)
line 185 ((A*5)+3) 200 ((A*5)+3)
}

repeat A 11 25
{
pen 100
line 145 (A*5) 170 (A*5)
pen 0 0 100
line 145 ((A*5)+3) 170 ((A*5)+3)
}

repeat A 1 11
{
pen 100
line 135 (A*5) 145 (A*5)
line 175 (A*5) 185 (A*5)
pen 0 0 100
line 135 ((A*5)+3) 145 ((A*5)+3)
line 175 ((A*5)+3) 185 ((A*5)+3)
}

//chang

repeat A 69 94
{
pen 100
line (A*5) 150 (A*5) 140
line (A*5) 120 (A*5) 110
line (A*5) 100 (A*5) 90
line (A*5) 70 (A*5) 60
line (A*5) 45 (A*5) 35
line (A*5) 20 (A*5) 10
pen 0 0 100
line ((A*5)+2) 150 ((A*5)+2) 140
line ((A*5)+2) 120 ((A*5)+2) 110
line ((A*5)+2) 100 ((A*5)+2) 90
line ((A*5)+2) 70 ((A*5)+2) 60
line ((A*5)+2) 45 ((A*5)+2) 35
line ((A*5)+2) 20 ((A*5)+2) 10
}

repeat A 28 35
{
pen 100
line 382 (A*5) 417 (A*5)
pen 0 0 100
line 382 ((A*5)+2) 417 ((A*5)+2)
}

repeat A 22 30
{
pen 100
line 361 (A*5) 371 (A*5)
line 431 (A*5) 441 (A*5)
pen 0 0 100
line 361 ((A*5)+2) 371 ((A*5)+2)
line 431 ((A*5)+2) 441 ((A*5)+2)
}

repeat A 18 8
{
pen 100
line 435 (A*5) 445 (A*5)
line 345 (A*5) 355 (A*5)
pen 0 0 100
line 435 ((A*5)+2) 445 ((A*5)+2)
line 345 ((A*5)+2) 355 ((A*5)+2)
}

repeat A 1 8
{
pen 100
line 382 (A*5) 417 (A*5)
pen 0 0 100
line 382 ((A*5)+2) 417 ((A*5)+2)
}