[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)
}



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