2009年10月28日 星期三

WORK4-使用command square 結構綜合!?

請看圖
作品名稱:這次怎麼做這麼久?~阿呆
請看程式碼
load dbngraphics.dbn
size 300 300
fast
Repeat a 0 300
{
pen 80 (a*120)(a-50*2)
line 0 a 300 a
}
size 300 300
command box x y s p
{
pen (p/2) 80 50
circle (x+s) y (y/2) x
}

repeat A 10 0
{
repeat B 0 10
{
box ((A+A)*15) (10+(B+B)*15) (20*2) (20*B)
box ((B-B)/15) (10-(A-A)/15) (20/2) (20/A)
}
}
請看影片

2009年10月20日 星期二

WORK3-三原型!?

圖片



程式碼

load dbngraphics.dbn

paper 75

size 300 300

fast
repeat a 20 50

{

repeat b 150 750

{

pen 50 150 30

Circle 50 50 a (a+5)

Circle b (a+5) (b+5/2) a
pen b

Circle 300 300 a (a+5*2)
repeat a 0 40

{

Repeat A 0 50

{

triangle (b*5) 0 (b*5+25) a (b*6) 0}
}
}

}


影片檔


解說:名稱月蝕,原本是想把名字取成Q毛,後來還是作罷。

影片長約13分,想看海棉寶寶卡通的人不要點喔!

2009年10月8日 星期四

WORK2-Pattern!?



圖片





恩..中間的網狀線調是想表現"道路",越往前走越崎嶇,就像人ㄧ樣,越長大要面對的事情就越多,旁邊像眼睛的線條就是目光,雖然我們總會被旁人影響,但也還是可以走出自己的路,道路盡頭的顏色是綠色,綠色有希望的意思,也是說不到最後ㄧ刻,不要輕易放棄。



-------------------------------這是分隔線--------------------------------------





程式碼






size 300 300



paper 0 30 0



fast
Repeat A 0 350



{



pen 50 (A+50) 80



line 0 (A*15-10) 300 A



line (A*6-10) 0 A 300



line (A*5-10) 0 A 300



}
Repeat B 0 350



{



Repeat A 50 150



{



pen B (B+150/2) 20
line 0 (B*10) (B*10) 250



line 0 (B*20) (B*20) 300



line 250 (B*20) (B*20) 0



line 300 (B*20) (B*20) 0



}



}




------------------------------ 還是分隔線--------------------------------------






影片




其實這個作業還是花了我不少時間,我果真還是對要打程式的東西不熟。

------------------------------ 又是分隔線--------------------------------------

新發售!!



NEW-PATTERN



圖片



程式碼
size 400 400
paper 0size 400 400paper 0
fast
Command paperc rref gref bref{set r (rref*20/255)set g (gref*20/255)set b (bref*20/255)

paper r g b}
size 400 400paperc 50 150 255
Command compare xref yref{smaller? xref 7{smaller? yref 7{pen (((14-xref)*(14-yref)*5/6)-12)}notsmaller? yref 7{pen (((14-xref)*yref*5/6)-12)}}notsmaller? xref 7{smaller? yref 7{pen ((xref*(14-yref)*5/6)-12)}notsmaller? yref 7{pen ((xref*yref*5/6)-12)}}}


Repeat x 1 25{Repeat y 1 25{
compare x y
set L (30*x-20)set B (30*y-20)set R (30*x)set T (30*y)set U 3
line L B R Bline R B R Tline R T L Tline L T L B

}}
Repeat A 2 350{ pen 50 (A+50) 80line 0 (A*15-10) 300 Aline (A*6-10) 0 A 300line (A*5-10) 0 A 300}
Repeat B 1 350{ Repeat A 5 150{pen B (B+150) 20
line 0 (B*10) (B*10) 250 line 0 (B*20) (B*20) 300line 250 (B*20) (B*20) 0line 300 (B*20) (B*20) 0
}}

(請原諒我不分割程式碼)

影片