/*< 
X11movie

Description
Interactive Datacube Movie

Usage
X11Movie  <file.H head=dev/null

INPUT PARAMETERS
in -      file 		-DATA-	name of input file
n1,n2,n3- integer dataset dimensions, n3 is frame
transp= - char* 	[yes] n1 across, no: n1 down
d1,d2,d3- float   [1]		sample scaling
o1,o2,o3- float   [0]		value of first sample
display - char*   [host:0]  _TERMINAL-  display host
width,height -float [.95],[.95]		movie window size fraction of screen
align   -char*    [tr] align {top,middle,bottom}{left,center,right}
zoom1,zoom2,zoom3 -integer 	zoom in each dimension: 1-16
color - char*     [intensit] reverse,clipped,flag,red-blue,blue,gsi,pen,no
colorfile -char*	alternative color specification file
colnum - float*   (0-255) r g b (0.-1.)
cback - float*    [0.,0.,0.]		background red,green,blue: 0.-255
cpen -  float*    [1.,1.,0]		pen red,green,blue: 0-1.
mask -  integer   [11111110]	mask planes on
contrast -integer	low to high: 1-9
author- char      [login]	 -LABEL-	dataset author
title - char*     plot title
script1..3-char*  script
label1..3  -char*	axis label names
dlabel..3 -float  axis label increments
olabel1..3-float  axis label origins
axis,timeline-char* [no] draw axes and timelines
nfilm - integer   [no] -FILM-	camera shots per frame
nloop -integer   [inf]	filmloops#
movie_timeout -float timeout after these many seconds

Comments
KEYWORDS
movie X11

Category
Graphics

COMPILE LEVEL
DISTR
>*/
/******************************************************************************
 *
 *
 *	main movie routine
 *
 *	Copyright (c) 1986, Rick Ottolini, Stanford University.
 *	Do not copy without author's permission.
 *
 ******************************************************************************
 *
 *	PUBLIC VARIABLES
 *
 ******************************************************************************/

/* import definitions */
#ifndef SOURCE
#define SOURCE "./graphics/X11movie/main.c"
#endif
#ifndef NOSEPLIB
#define OUT	"/dev/null"
#include <sep.main>
#endif

#include "movie.h"

/* export global variables */

/******************************************************************************
 *
 *	INTERACTIVE COMMAND SUBROUTINES
 *
 ******************************************************************************/

/* self documentation in seplib */

/******************************************************************************
 *
 *	ROUTINES
 *
 ******************************************************************************/

/* main routine */
#ifdef NOSEPLIB
main (argc,argv,envp)
int argc; char **argv, **envp;
#else
MAIN()
#endif
	{
#ifdef NOSEPLIB
	initpar(argc,argv);
	doc (SOURCE);
#endif
	Initialize();
	XWMainLoop();
#ifdef notdef
	/* event loop: service interactive commands; output next frame */
	/* exit through Quit() command, error, or kill signal */
	for(;;)
		{
#ifdef SOLARIS
		int rc;
		while ((rc = ReadKey) > 0) Do (rc);
#else
		while (KeyCount() > 0) Do (ReadKey());
#endif
/*		Menu ();	*/
		mainloop();
		}
#endif /* notdef */
	}