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
}}

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

影片