作業五 : Time-1234 , forever, refresh 的應用

繽紛交叉沙漏

size 300 100
paper 0
forever
{

Set S (S*2)

repeat a 100 0
{
pen (2*(a)) (a) (3*a)
line 300 (a*3) (s-30) 0



pen ((a)) (2*a) (3*a)

line 0 (s-30) (a*8) 100
}
}