/*  :ts=8 bk=0
 * 3dstars.c:  Spacing out taken a step further
 * by Leo L. Schwab   8607.1
 */
 
#include <exec/types.h>
#include <intuition/intuition.h>
 
#define NSTARS		32
 
extern void *OpenLibrary(), *OpenScreen(), *OpenWindow(), *GetMsg();
extern short rnd();
 
long *IntuitionBase, *GfxBase;
 
struct NewScreen scrdef = {
	0, 0, 320, 200,
	4,		/*  # planes  */
	-1, -1,
	NULL,
	CUSTOMSCREEN,
	NULL, NULL, NULL, NULL
};
 
struct NewWindow windef = {
	0, 0, 320, 200,
	-1, -1,
	CLOSEWINDOW,
	WINDOWCLOSE,
	NULL, NULL, NULL, NULL, NULL,
	0, 0, 0, 0,
	CUSTOMSCREEN
};
 
struct Window *win;
struct Screen *scr;
struct RastPort *rp;
short x[NSTARS], y[NSTARS], z[NSTARS];
short xlo[NSTARS], xro[NSTARS], yo[NSTARS];
 
 
main (ac, av)
char *av[];
int ac;
{
	long xls, xrs, ys;
	long *msg;
	short magic, inc;
	register short i, fz;
 
	if (ac > 1)
		magic = atoi (av[1]);
	else
		magic = 128;
 
	if (ac > 2)
		inc = atoi (av[2]);
	else
		inc = 3;
 
	openstuff ();
	rnd (-5286);
	SetRast (rp, 0L);
	for (i=0, xls=1; i<8; i++, xls += 2) {
		SetRGB4 (&(scr -> ViewPort), (long) i, xls, 0L, 0L);
		SetRGB4 (&(scr -> ViewPort), (long) i+8, 0L, 0L, xls);
	}
 
	for (i=0; i<NSTARS; i++)
		mkpoint (i);
 
	FOREVER {
		for (i=0; i<NSTARS; i++) {
			if ((z[i] -= inc) <= 0)
				mkpoint (i);
			fz = z[i];
			xls = (x[i] - (fz >> 4)) * magic / fz + 160;
			xrs = (x[i] + (fz >> 4)) * magic / fz + 160;
			ys = y[i] * magic / fz + 100;
			SetAPen (rp, 0L);
			WritePixel (rp, (long) xlo[i], (long) yo[i]);
			WritePixel (rp, (long) xro[i], (long) yo[i]);
			if (xls < 0 || xls > 319 || xrs < 0 || xrs > 319 ||
			    ys < 0 || ys > 199)
				mkpoint (i);
			else {
				SetAPen (rp, (long) (256-fz >> 5));
				WritePixel (rp, xls, ys);
				SetAPen (rp, (long) 8+(256-fz >> 5));
				WritePixel (rp, xrs, ys);
				xlo[i] = xls;  xro[i] = xrs;  yo[i] = ys;
			}
		}
		if (msg = GetMsg (win -> UserPort)) {
			ReplyMsg (msg);
			break;
		}
	}
 
	closestuff ();
}
 
mkpoint (i)
register short i;
{
	x[i] = rnd (256) - 128;
	y[i] = rnd (150) - 75;
	z[i] = 255;
}
 
openstuff ()
{
	if (!(IntuitionBase = OpenLibrary ("intuition.library", 0L))) {
		printf ("Intuition open failed.\n");
		die ();
	}
 
	if (!(GfxBase = OpenLibrary ("graphics.library", 0L))) {
		printf ("graphics open failed.\n");
		die ();
	}
 
	if (!(scr = OpenScreen (&scrdef))) {
		printf ("Can't open screen.\n");
		die ();
	}
 
	windef.Screen = scr;
	if (!(win = OpenWindow (&windef))) {
		printf ("Window painted shut.\n");
		die ();
	}
	rp = &(scr -> RastPort);
}
 
closestuff ()
{
	if (win)		CloseWindow  (win);
	if (scr)		CloseScreen  (scr);
	if (GfxBase)		CloseLibrary (GfxBase);
	if (IntuitionBase)	CloseLibrary (IntuitionBase);
}
 
die ()
{
	closestuff ();
	exit (-1);
}