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

}
}
}