Plan 9 from Bell Labs’s /usr/web/sources/contrib/axel/globe/globeloop

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#!/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

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].