作業七

主題:結晶

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

截圖:

影片:


原始碼:
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
}

作業5-time

主題:change 截圖 影片


原始碼
size 100 100 4
paper 100

command rect x y dx dy
{

line (x+dx) (y+dy) (x+dx) (y-dy)
line (x-dx) (y+dy) (x-dx) (y-dy)
line (x-dy) (y+dx) (x+dy) (y+dx)
line (x-dy) (y-dx) (x+dy) (y-dx)
}

repeat a 0 50
{
paper
pen
rect 50 50 (a+1) (a+1)
notsmaller? a 10
{

repeat c 1 (a/5)
{

rect 50 50 (a-(c*5)) (a-(c*5))
}
}
}

期中考-康丁斯基

截圖
影片


原始碼
load dbngraphics.dbn



paper 80 245 220



size 400 300


FAST





//左邊矩形


pen 255 194 14







repeat A 290 280








{




line 10 A 70 A




}




//白色矩形



pen 100 100 100



Repeat A 135 140



{



line 300 A 380 A



}


//矩形(組合)



pen 10 30 10


Repeat A 300 350


{


line A 150 300 175


}


pen 80 0 0


Repeat A 300 350


{


line 350 150 A 175


}


//中間矩形


pen 80 0 0


Repeat A 250 225


{


line 225 A 250 A


}



//左邊三角形





PEN 60 0 0





repeat A 40 110





{





line A 25 75 160




}





//左邊倒三角形





PEN 60 0 0





repeat A 20 130





{





line A 240 75 160




}




//三座三角形



pen 0 0 0



repeat A 150 210



{



line A 125 180 175



}



repeat A 155 205



{



line A 75 180 125



}



repeat A 165 195



{



line A 30 180 75



}



//右邊三角形







pen 85 0 0



Repeat A 230 300



{



line A 100 300 270



}







//右邊倒三角形



pen 100 50 0



Repeat A 250 375



{



line A 90 315 45



}




//右邊倒三角形(小)



pen 0 0 0



Repeat A 350 375



{



line A 120 363 90



}



//右邊三角形(小1)



pen 50 0 0



Repeat A 300 325



{



line A 110 300 100



}



//右邊三角形(小2)



pen 255 194 14



Repeat A 300 325



{



line A 130 300 110



}



//圓形(外)

circle 75 160 60 100



circle 75 160 59 100

circle 75 160 58 100


circle 75 160 57 100

circle 75 160 56 100


circle 75 160 55 100


circle 75 160 54 100


//圓形(內)

circle 75 160 20 100

circle 75 160 19 100

circle 75 160 18 100

circle 75 160 17 100

circle 75 160 16 100

circle 75 160 15 100

circle 75 160 14 100

circle 75 160 13 100

circle 75 160 12 100

circle 75 160 11 100

circle 75 160 10 100

circle 75 160 9 100

circle 75 160 8 100

circle 75 160 7 100

circle 75 160 6 100

circle 75 160 5 100

circle 75 160 4 100

circle 75 160 3 100

circle 75 160 2 100

circle 75 160 1 100

f

command square 綜合結構設計

主題:volume

說明:如控制音量大小般的意象

影片:




原始碼:
paper 50

command square x y s c
{
pen c
line (s+s)c c c




}
repeat A 1 9

{
repeat B 0 9
{
square (A*10+3) (B*10+5) 2 (A+B*10)
}
}

三原形應用

主題:"綻"

說明:如花瓣般綻放

影片:


原始碼:
load dbngraphics.dbn
paper 0 50 50
size 300 300
fast




circle 150 300 149 0
circle 150 300 145 0
circle 150 300 140 0
circle 150 300 135 0
circle 150 300 130 0



circle 150 0 149 0
circle 150 0 145 0
circle 150 0 140 0
circle 150 0 135 0
circle 150 0 130 0


circle 0 150 149 0
circle 0 150 145 0
circle 0 150 140 0
circle 0 150 135 0
circle 0 150 130 0



circle 300 150 149 0
circle 300 150 145 0
circle 300 150 140 0
circle 300 150 135 0
circle 300 150 130 0

patteren 應用

主題-指紋
線條跑完後的的樣子跟指紋很雷同故此命名之



截圖


原始碼
paper 0

repeat A 0 100
{
pen 100
line(0+a*2) 0 (0+a*2) 100
pen 50
line(10+a*2) 0 (10+a*3) 40
pen 50
line(10+a*3) 40 (10+a*2) 100
}

DBN-NAME

名:潘俊宏

原始碼

paper 0 60 50
size 200 300
line 0 275 125 275
line 0 240 125 240
line 0 200 125 200
line 100 275 100 100
line 75 200 75 225
line 125 200 125 225
line 75 225 125 225
line 75 213 125 213
line 100 240 75 250
line 100 240 125 250
line 100 240 75 230
line 100 240 125 230
line 100 200 75 160
line 125 200 100 160
line 100 160 130 160
line 130 165 135 155
line 115 160 100 130
line 123 160 123 150
line 123 150 135 150
line 105 140 135 140
line 135 140 100 100
line 105 140 135 100
line 20 160 90 160
line 20 160 20 140
line 90 160 90 140
line 75 160 35 100
line 90 140 40 140
line 75 140 50 140
line 75 140 50 100
line 50 100 90 100
line 90 110 90 100

NEW

NEW