// line it all up
forever
{
Set S <Time 3>
Set S (S*6)
Line 10 50 S 5
Line 5 100 10 (75-S)
Line 100 10 (50-S) 0
Line 75 10 0 S
}