[9fans] globe

[9fans] globe

[Steve Simon]

[-- Attachment #1: Type: text/plain, Size: 119 bytes --]

Ok,

After hassle from many 9fans I have rewritten globe to
work properly - though it is now C (attached).

-Steve

[-- Attachment #2: globe.c --]
[-- Type: text/plain, Size: 530 bytes --]

#include <u.h>
#include <libc.h>

/*
 * globe.c - calculate the rotation of
 * the earth as viewed from the sun
 *
 * usage: 
 *	map orthographic -o `{globe} | plot
 */
void
main()
{
	enum {
		declination = 23.47,
		degperhour = 15.0
	};
	Tm*tm;
	double roll, pitch, yaw;

	tm = gmtime(time(nil));
	roll = -(cos((tm->yday+284) * PI/182.5)) * declination;
	pitch = (sin((tm->yday+284) * PI/182.5)) * declination;
	yaw = (tm->hour+ (tm->min/60) -12) * degperhour;

	print("%f %f %f\n", pitch, yaw, roll);
}

Re: [9fans] globe

[andrey mirtchovski]

ouch, running 'map' with the output of the new globe hung my
machine. now i have to go to the university to reboot it and see why...

:(

On Sat, 2 Oct 2004, Steve Simon wrote:

> Ok,
>
> After hassle from many 9fans I have rewritten globe to
> work properly - though it is now C (attached).
>
> -Steve

Re: [9fans] globe

[Jack Johnson]

On Sat, 2 Oct 2004 09:18:20 -0600 (MDT), andrey mirtchovski
<mirtchov@cpsc.ucalgary.ca> wrote:
> ouch, running 'map' with the output of the new globe hung my
> machine. now i have to go to the university to reboot it and see why...

Look on the bright side.  You're on the same continent as your university.

-Jack

Re: [9fans] globe

[andrey mirtchovski]

> Look on the bright side.  You're on the same continent as your university.
> 
> -Jack

you're right...  on the other hand the fact that i can run to the
university and reboot the machine every time i crash it is no excuse
for being stupid.  this time it hung because it simply ran out of
processes calling the same script over and over again recursively.
this morning i faced a terminal spewing 'no procs' messages over and
over.

signed: silly

Re: [9fans] globe

[Axel Belinfante]

[-- Attachment #1: Type: text/plain, Size: 530 bytes --]

I tried to make a 'globeloop' that continously updates the globe
in the same plot (I used mapdemo for inspiration).

I found one little thing in globe.c:

> 	yaw = (tm->hour+ (tm->min/60) -12) * degperhour;
 	yaw = (tm->hour+ (tm->min/60.0) -12) * degperhour;

(without the .0 in 60.0 yaw would change once per hour on the hour)

I attached my current globeloop script; it assumes that
globe.c has been installed as games/globeangle .

I don't script in rc very often (guess it shows; feedback welcome)

Axel.



[-- Attachment #2: Type: text/plain, Size: 681 bytes --]

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

Re: [9fans] globe

[Tiit Lankots]

>> All that's needed for it to work locally is:
>>
>> timezone=`{cat /adm/timezone/GMT}
>>
>
> I don't get it. Do you mean
> timezone=`{cat /adm/timezone/local}

Your variant is a no-op. Think about how the timezone stuff works.

Re: [9fans] globe

[Gorka Guardiola Múzquiz]

> All that's needed for it to work locally is:
> 
> timezone=`{cat /adm/timezone/GMT}
> 

I don't get it. Do you mean 
timezone=`{cat /adm/timezone/local}
?

Re: [9fans] globe

[Rob Pike]

All that's needed for it to work locally is:

timezone=`{cat /adm/timezone/GMT}


-rob

Re: [9fans] globe

[Steve Simon]

> please add a '-u' to the date to work for other time zones:

Quite right,

I had a -u but  must have deleted it when I
"tidied it up" prior to posting (Ugh).

-Steve

Re: [9fans] globe

[andrey mirtchovski]

>    http://pages.cpsc.ucalgary.ca/~mirtchov/screenshtos/globe-u.gif
>    http://pages.cpsc.ucalgary.ca/~mirtchov/screenshtos/globe.gif

oops, s/shtos/shots/

my bad...

Re: [9fans] globe

[andrey mirtchovski]

for those of us in north america there's a similarly simple weather
monitoring service (it was very interesting to watch florida this
past month):

     http://pages.cpsc.ucalgary.ca/~mirtchov/p9/nasat/

meteorological analysis not included :)

Re: [9fans] globe

[andrey mirtchovski]

you guys and your proximity to GMT :)

globe won't work in canada, no matter how much i try to persuade it that
the great white north is still part of the colonies :)

please add a '-u' to the date to work for other time zones:

 	#!/bin/rc

 	gmt=`{date -u}
 	angle=`{echo $gmt | awk -F'[ :]' '{print (360*(($4*60+$5)/(24*60))-180)}'}
 	map orthographic -o 0 $angle 0 | plot

examples with and without '-u':

     http://pages.cpsc.ucalgary.ca/~mirtchov/screenshtos/globe-u.gif
     http://pages.cpsc.ucalgary.ca/~mirtchov/screenshtos/globe.gif

andrey

Re: [9fans] globe

[rog]

> Globe draws an map of the world rotated to present the
> the iluminated side, thus you can judge who is asleep and
> shouldn't be phoned ☺

care should be taken... it gets light at 5am in summer around here!

BTW we already had the same contents of /lib/map here
which people might wish to check before downloading wdbii.tar.gz

[9fans] globe

[Steve Simon]

[-- Attachment #1: Type: text/plain, Size: 410 bytes --]

Friday afternnon toy.

Globe draws an map of the world rotated to present the
the iluminated side, thus you can judge who is asleep and
shouldn't be phoned ☺

Credit to Jef Poskanzer for the idea (ascii map version).

Relies on Doug McIlroy's map databases, which can be downloaded via:

	mkdir /lib/map
	cd /lib/map
	hget http://www.cs.dartmouth.edu/~doug/wdbii.tar.gz | gunzip | tar x

-Steve

[-- Attachment #2: globe --]
[-- Type: text/plain, Size: 139 bytes --]

#!/bin/rc

gmt=`{date}
angle=`{echo $gmt | awk -F'[ :]' '{print (360*(($4*60+$5)/(24*60))-180)}'}
map orthographic -o 0 $angle 0 | plot