2009年10月21日 星期三

pattern - 日出




load dbngraphics.dbn
size 350 350
paper 0 0 20

repeat A 0 350
{
pen 30 24 A
line 0 A 350 A
}

Repeat A 350 0
{
pen 255 255 0 Line (5+A/10) 0 (0+A*60) 350
}
Repeat A 350 0
{
pen 255 69 0 Line (0+A/10) 0 (0+A*20) 325
}
Repeat A 350 0
{
pen 100 0 0 Line (1+A/5) 0 (0+A*10) 280
}


沒有留言:

張貼留言