Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/rc/globe
#!/bin/rc rfork n fn angle { gmt=`{date -u} echo $gmt | awk -F'[ :]' '{print (360*(($4*60+$5)/(24*60))-180)}' } fn mmap { while () { map orthographic -o 0 `{angle} 0 sleep 60 } } mmap | plot