作業十

主題:DNA


說明:以X這個字母的連接 呈現出類似DNA的圖像


截圖:




影片:


程式碼:


load dbnletters.dbn

size 250 150 2
fast
paper 100


number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{


pen (/2) (/2)


set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}

作業九

主題:極光
說明:用神秘的極光來作為靈感來源

截圖:

影片:


程式碼:

size 300 150 2
paper 100
fast


set rseed
set bb (3000+)
set mm (3000 +)
number random n
{
set bl (rseed*bb+1)
set rseed (bl%mm)
value (rseed%n)
}

forever
{
fast
notsame? 0
{
repeat s 1 10
{
set
set
pause 1
}
repeat r 0 9
{
set h
repeat g 0 h
{
pen (100-(10*r))
line (+g) (+g) ( +(5*r))

}

}

set j
same? (j%3) 1
{

repeat k 0 400
{
pen 100
line k j k (j*9/8)
}

}

}
}

作業八

前田約翰




作品:(infinity:數萬個數位迴路組成首尾連續不斷線條)



約翰·前田(John Maeda)是電子藝術界一位傳奇性的藝術家、設計師。他擅長將電腦程序的尖端計算性與藝術結合在一起 約翰·前田被稱作“簡易主義大師”，他是世界知名的圖像設計師、視覺藝術家、電腦科技專家，也是麻省理工學院媒體實驗室的教授。他有一些看上去十分晦澀的藝術作品，也為商業品牌做產品設計。
因此他所發明的DBN也奉行他的簡易主義一切以數字跟簡易的指令創造出看似複雜且美麗的圖像

期末考

主題:數位麥田圈
說明:麥田圈的神秘現象到現在在沒辦法合理的解釋,而麥田圈對稱且均衡的圖騰也令許多人深深著迷,我運用對稱的方式讓大家可以輕鬆的創造屬於出自己的麥田圈。





截圖:



影片:



程式碼:



size 400 400
set mapsize 400
paper 10 20 30
number mod x y
{
value (x-(y*(x/y)))
}

set rseed
number random x
{
set r1 (rseed*435437)
set r2 (rseed+945878)
set rseed
value
}
command mirror x y
{
set color
set [x y] color
set temp (mapsize-x)
set [temp y] color
set temp (mapsize-y)
set [x temp] color
set temp (mapsize-x)
set tempx (mapsize-y)
set [temp tempx] color
}
set startx 0
set starty 0
forever
{
same? 100
{
mirror
}
}

作業七

主題:結晶

說明:各式各樣的雪花結晶

截圖:

影片:


原始碼:
size 100 100 3

paper 10 50 60
number mod x y
{
value (x-(y*(x/y)))
}

set rseed
number random x
{
set r1 (rseed*435437)
set r2 (rseed+945878)
set rseed
value
}
command circlepixels cx cy dx dy v
{
set [(cx+dx) (cy+dy)] v
set [(cx+dx) (cy-dy)] v
set [(cx-dx) (cy+dy)] v
set [(cx-dx) (cy-dy)] v
set [(cx+dy) (cy+dx)] v
set [(cx+dy) (cy-dx)] v
set [(cx-dy) (cy+dx)] v
set [(cx-dy) (cy-dx)] v
}

command circle cx cy radius v
{
set x 0
set y radius
set d (1-radius)
circlepixels cx cy x y v
// 707/1000 approximates square root of 0.5 = cos(45)
repeat x 0 (radius*707/1000)
{
set tempd d
smaller? tempd 0
{
set d (d+(2*x)+3)
}
notsmaller? tempd 0
{
set d (d+(2*(x-y))+5)
set y (y-1)
}
circlepixels cx cy x y v
}
}
set startx 0
set starty 0
forever
{

set startx
set starty
set repeattime
repeat b 0 repeattime
{
set a
circle startx starty a (startx+starty)
set [ ] 0
}
}

作業六-自由創作

主題

墨竹

參考圖:

截圖:

影片:


原始碼
size 400 400
paper 0
fast

command rect x y w h c
{
pen 100
line (x-w/x) (y-h/x) (x+w/x) (y-h/x)
line (x+w/w) (y-h/w) (x+w/w) (y+h/w)
line (x+w/y) (y+h/y) (x-w/y) (y+h/y)
line (x-w/h) (y+h/h) (x-w/h) (y-h/h)
}
forever
{
rect 50 20
}

作業六-自畫像

自畫像

截圖:


影片:



原始碼

size 400 400
paper 0
fast

command rect x y w h c
{
pen 100
line (x-w/x) (y-h/x) (x+w/x) (y-h/x)
line (x+w/w) (y-h/w) (x+w/w) (y+h/w)
line (x+w/y) (y+h/y) (x-w/y) (y+h/y)
line (x-w/h) (y+h/h) (x-w/h) (y-h/h)
}
forever
{
rect 50 20
}