#!/bin/rc

rfork en
{
	delay='?'
	while() {
		date=`{date}
		angle=`{games/globeangle}
		if (~ $"oangle $"angle)
			color=b
		if not
			color=r
		if (~ $delay '?')
		{
			ndate=$date
			oangle=$angle
		}
		{
			echo o
			echo ra -8192 -8492 8192 8492
			echo e
			echo m -8192 8192
			echo co $color
			echo t $date -- $angle
			echo m -8192 -8192
			echo co b
			echo t $ndate -- $oangle -- delay $delay
			map orthographic -o $angle  -s  -d 25
		}
		ndate=`{date}
		delay=`{echo $ndate | awk -F'[ :]+' '{print 65 - $6}'}
		echo m -8192 -8192
		echo co b
		echo t $ndate -- $angle -- delay $delay

		oangle=$angle
		sleep $delay
	}
} | plot