作業10

期末考

作品一:8分音符

作品二:石磚

作業9

程式碼:

size 300 300

forever

{

paper 100 100 100
pan 90 10

set B 70

repeat A 0 100

{

same?A B

{

line A 0 A B

line(a*2) 0 (a*2) (b*2)

line(a*3) 0 (a*3) (b*3)

line(a*5) 0 (a*5) (b*5)

}

notsame? A B

{

line(a*2) 0 (a*2) (b*2)

line(a*4) 10 (a*4) (b*4)

line(a*7) 25 (a*7) (b*7)

line(a*10) 40 (a*10) (b*10)

line(a*12) 50 (a*12) (a*12)

line 30(a*6) (b*3) (a*6)

line 200 (a*10) (b*10) (a*10)

}

}

}

作業7:應用 Mouse-1-2-3 配合Time 4

程式碼:

size 400 400

paper 10

fast

command rect x y w h c

{

pen c 10 40

line (x-w/3) (y-h/2) (x+w/2) (y-h/2)

line (x+w/3) (y-h/2) (x+w/2) (y+h/2)

line (x+w/3) (y+h/2) (x-w/2) (y+h/2)

line (x-w/3) (y+h/2) (x-w/2) (y-h/2)

}

forever

{

rect 20 20

}

作業8:個人心淂

"can you see me now"與"body movies"是我印象深刻的兩個作品
扭腰,擺臀,揮手,任何一個動作都會在玻璃牆上立即反應出來,
現在的人總是戴著面具在過生活,
少了親切少了關心,卻多了冷漠多了疏離
透過這種互動性的媒體藝術,為大家帶來更多的趣味與互動
增加了人與人之間的交流
嗨~朋友,我正向你招手!

隨著科技的進步,藝術不再只能是單一方的感受,
一方給,一方收,
而是變成創作者與欣賞者可以進行互動,
甚至欣賞者可以融入,變成作品中的一部分
隨著科技的進步,
創作者的創意與巧思,任何天馬行空的想法
都不被受限不再受拘束,讓腦袋裡的點子可以成真
這是令人感到愉快感到滿足的成就感

作業六:自畫像與自由創作

自畫像:

自由創作:

作業5

程式碼:

Load dbngraphics.dbn//設定畫布大小
size 200 200

//設定背景
paper 10

//利用時間控制線條顏色
repeat x 0 200
{
pen 50 10
line 0 0 x 200
}

repeat x 0 200
{
pen 50 10
line 200 200 x 0
}
//設計一個以中心點為座標的空心方形
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 25 25 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 175 175 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 25 175 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 175 25 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}
repeat v1 0 40
{
rect 100 100 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}
//圓圈圈內repeat A 40 60{circle 100 100 (A/2) 20
}