time

//設定畫布大小
size 450 450
//設定背景
paper 10 12 1
//使運算速度加快
fast
//利用時間控制線條顏色
repeat c 0 500
{
repeat x 0 400
{
pen 20 20 9
line 200 300 (100+x) x
line 280 800 (170+x) x
line 200 0 (10+x) x
line 375 0 x x
line 0 275 x x
line 75 100 x x
line 350 80 (50+x) x
line 190 90 0 x
line 60 60 x 500
line 130 30 600 (100+x)
line 55 0 (100-x) 0
refresh
}
refresh
}
forever
{
Paper 100 1 1
Pen 10
set B 50
repeat A 0 100
{
Same? A B
{
line A 0 A B
}
Notsame? A B
{
line A 100 A B
}
}
}
forever
{
Paper 100 10 1
Pen 5
set B 100
repeat A 0 100
{
Same? A 30
{
line 100 A A A
}
Notsame? A 30
{
line A A A 100
}
}
}