Path: utzoo!attcan!uunet!mcsun!hp4nl!ruuinf!markov
From: markov@ruuinf.cs.ruu.nl (dr.m.h. overmars)
Newsgroups: comp.sys.sgi
Subject: Graphical Demo Program
Keywords: Moving Objects
Message-ID: <3660@ruuinf.cs.ruu.nl>
Date: 2 Aug 90 13:46:55 GMT
Organization: Utrecht University, Dept. of CS
Lines: 736

Here follows a little demo program I wrote. Simply save it to a file, unshar it
(type sh <filename>) and type make. I hope you like it. It probably only runs
well on machines that have at least Turbo Graphics. It was written and tested
on a 4D/25TG. Feel free to extend it and send changes to me.

Mark Overmars

-------------------------------- cut here -------------------------------
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  Makefile README moving.c object.c object.h
# Wrapped by markov@ruuinf on Thu Aug  2 14:30:05 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Makefile' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'Makefile'\"
else
echo shar: Extracting \"'Makefile'\" \(168 characters\)
sed "s/^X//" >'Makefile' <<'END_OF_FILE'
XFILEo = moving.o object.o
X
XFILElib = -lgl_s -lm 
X
Xall : 		moving
X
Xmoving : 	$(FILEo) 
X		cc $(FILEo)  $(FILElib) -o moving
X
X$(FILEo): 	
X		cc -O -c $*.c
X
Xclean:
X		rm *.o
END_OF_FILE
if test 168 -ne `wc -c <'Makefile'`; then
    echo shar: \"'Makefile'\" unpacked with wrong size!
fi
# end of 'Makefile'
fi
if test -f 'README' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(1547 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
Xversion 1.0
X                          MOVING
X                          ======
X
XThis is a simple program, showing some of the 3-dim possibilities of
Xthe Graphical Library. It uses object.c that provides a number of basic
Xobjects, like spheres, cubes and cylinders that can also be used in other
Xprograms. moving has some special features like a moving icon, a possible
Xsecond window on the same moving stuff, it can indicate the number of frames
Xper second it makes, etc.
X
XThe right mouse button operates a menu. This has the following items:
X
XShow Front View:	Gives you a second window.
XObjects:		Here you can indicate which objects you want to see.
XDisplay Mode:		Allows you to switch between wire frame and
X			filled polygons.
XLighting Mode:		Allows you to switch between flat shading and
X			Gouraud shading.
XExtras:			Gives you a submenu:
X				Backface Culling: Toggles backface culling.
X				Show Frames:      Indicates frames per second.
X				Faster:           Faster motion.
X				Slower:           Slower motion.
XExit:			This will be clear (also <Esc> exits).
X
XMotion can be stopped and continued at any moment by pressing the left
Xmouse button.
X
XTo create the program, simply type make.
X
XThe program has only been tested on a 4D/25 TG. I think it needs at least
XTG to run reasonably smooth.
X
XThis program and its code can be used freely. No responsibility is taken
Xwhatsoever. If you make any changes (e.g. add objects), please send me
Xa copy.
X
Xwritten by Mark Overmars, Dept. of Computer Science, Utrecht University,
XEmail: markov@cs.ruu.nl.
X
END_OF_FILE
if test 1547 -ne `wc -c <'README'`; then
    echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'moving.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'moving.c'\"
else
echo shar: Extracting \"'moving.c'\" \(10214 characters\)
sed "s/^X//" >'moving.c' <<'END_OF_FILE'
X#include <gl/gl.h>
X#include <gl/device.h>
X#include <stdio.h>
X#include <sys/time.h>
X#include "object.h"
X
X/****
X   This is a simple application to use the objects defined in\
X   object.c. It draws some rotating objects, using
X   different materials and different transformations.
X   It allows for multiple views of the object in different windows.
X   The right mouse button operates the pop-up menu.
X
X   To add objects: 
X      - create a new object in object.c (and object.h)
X      - add a draw command in redraw
X      - add a material and bind it
X      - add a menu entry
X   Up to 20 different objects are supported
X
X   This is version 1.0.
X
X   Written by Mark Overmars, Dept. of Computer Science, University of Utrecht,
X   Email: markov@cs.ruu.nl
X****/
X
X#define MAXOBJ 20
X
Xint frames,back,wire,flat,incr; /* toggles to indicate whay of display */
Xint ob[MAXOBJ];                 /* indicates which objects to show */
Xint lcount;                     /* last frame cout */
Xfloat time;                     /* the "time" so far */
Xfloat speed;			/* the rotation speed */
Xlong win1, win2;                /* the window identifiers */
X
Xdrw(obj,r1,r2,r3,t1,t2,t3,s1,s2,s3,mat)
X/* draws a particular object. */
XOBJECT obj;
Xfloat r1,r2,r3,t1,t2,t3,s1,s2,s3;
Xint mat;
X{
X    pushmatrix();
X    rot(time*r1,'X'); rot(time*r2,'Y'); rot(time*r3,'Z');
X    translate(t1,t2,t3); scale(s1,s2,s3);
X    lmbind(MATERIAL,mat); drawobject(obj,wire,flat);
X    popmatrix();
X}
X
Xredraw()
X/* draws all the objects in the current window */
X{
X    char str[100];
X    backface(back);
X    /* clear the screen */
X    zclear();
X    RGBcolor(43,169,255);
X    clear();
X    /* do the drawing */
X    if (ob[0]) drw(      sphere,  3.0,3.1,2.0,  2.2, 1.2, 2.0,  0.8,0.8,0.8, 1);
X    if (ob[1]) drw(    cylinder,  3.2,2.6,1.8, -1.9, 1.2, 1.6,  0.3,0.3,1.0, 4);
X    if (ob[2]) drw(        cube,  2.2,3.3,1.4, -1.0, 1.2,-1.5,  0.6,0.6,0.6, 3);
X    if (ob[3]) drw(        cone,  4.2,2.1,3.2,  1.2, 1.3, 1.0,  0.5,0.5,0.8, 2);
X    if (ob[3]) drw(      sphere,  4.2,2.1,3.2,  1.2, 1.3, 0.0,  0.5,0.5,0.5,51);
X    if (ob[4]) drw(      sphere,  1.2,3.3,2.4, -2.0, 1.4,-2.1,  0.8,0.8,0.2, 5);
X    if (ob[5]) drw(        cube,  3.2,3.6,2.4,  1.1, 1.6, 2.5,  0.8,0.3,0.1, 6);
X    if (ob[6]) drw(       glass,  2.7,1.9,3.1,  1.6, 1.3, 0.7,  2.0,2.0,2.0, 7);
X    if (ob[7]) drw(     pyramid,  2.3,2.7,3.3,  1.1, 2.3, 1.7,  0.6,0.6,0.5, 8);
X    /* show frame count if required */
X    if (frames && winget() == win1)
X    {
X    	cpack(0xffffff);
X	cmov(-2.1,-2.1,4.0);
X	sprintf(str,"%d frames per second",lcount);
X	charstr(str);
X    };
X    /* ready */
X    swapbuffers();
X}
X
X/* The identity matrix. */
XMatrix idmat = {1.0,0.0,0.0,0.0,
X	        0.0,1.0,0.0,0.0,
X		0.0,0.0,1.0,0.0,
X		0.0,0.0,0.0,1.0};
X
X/* The different materials. */
Xfloat mater1[] = 
X    {SPECULAR,0.8,0.0,0.0,DIFFUSE,0.4,0.0,0.0,SHININESS,40.0,LMNULL};
Xfloat mater51[] = 
X    {SPECULAR,0.2,0.0,0.1,DIFFUSE,0.8,0.0,0.3,SHININESS,10.0,LMNULL};
Xfloat mater2[] =
X    {SPECULAR,1.0,0.4,0.0,DIFFUSE,1.0,0.4,0.0,SHININESS,80.0,LMNULL};
Xfloat mater3[] =
X    {SPECULAR,0.0,0.0,0.6,DIFFUSE,0.0,0.0,0.8,SHININESS,60.0,LMNULL};
Xfloat mater4[] =
X    {SPECULAR,0.0,1.0,0.0,DIFFUSE,0.0,0.6,0.0,SHININESS,120.0,LMNULL};
Xfloat mater5[] =
X    {SPECULAR,1.0,1.0,0.0,DIFFUSE,0.6,0.6,0.0,SHININESS,100.0,LMNULL};
Xfloat mater6[] =
X    {SPECULAR,1.0,0.0,1.0,DIFFUSE,0.6,0.0,0.6,SHININESS,120.0,LMNULL};
Xfloat mater7[] =
X    {SPECULAR,0.9,0.9,0.9,DIFFUSE,0.6,0.6,0.6,SHININESS,120.0,LMNULL};
Xfloat mater8[] =
X    {SPECULAR,0.4,0.7,0.4,DIFFUSE,0.5,1.0,0.5,SHININESS,50.0,LMNULL};
X
X/* The lightsources. */
Xfloat light1[] = {LCOLOR,1.0,1.0,1.0,POSITION,10.0,10.0,5.0,0.0,LMNULL};
Xfloat light2[] = {LCOLOR,1.0,1.0,1.0,POSITION,-10.0,10.0,5.0,0.0,LMNULL};
X
X/* The lightmodel. */
Xfloat model[] = {AMBIENT,0.4,0.4,0.4,LMNULL};
X
Xinit()
X/* Initializes all settings for a window. */
X{
X    zbuffer(TRUE);
X    doublebuffer();
X    RGBmode();
X    gconfig();
X    mmode(MVIEWING);
X    perspective(400,1.0,1.0,34.0);
X    loadmatrix(idmat);
X    /* set up the devices */
X    qdevice(MOUSE1);
X    qdevice(MOUSE3);
X    qdevice(ESCKEY);
X    qdevice(WINFREEZE);
X    qdevice(WINTHAW);
X    /* define materials and lights */
X    lmdef(DEFMATERIAL, 1, 11, mater1);
X    lmdef(DEFMATERIAL,51, 11, mater51);
X    lmdef(DEFMATERIAL, 2, 11, mater2);
X    lmdef(DEFMATERIAL, 3, 11, mater3);
X    lmdef(DEFMATERIAL, 4, 11, mater4);
X    lmdef(DEFMATERIAL, 5, 11, mater5);
X    lmdef(DEFMATERIAL, 6, 11, mater6);
X    lmdef(DEFMATERIAL, 7, 11, mater7);
X    lmdef(DEFMATERIAL, 8, 11, mater8);
X    lmdef(DEFLIGHT, 1, 10, light1);
X    lmdef(DEFLIGHT, 2, 10, light2);
X    lmdef(DEFLMODEL, 1, 5, model);
X    lmbind(LIGHT0,1);
X    lmbind(LIGHT1,2);
X    lmbind(LMODEL,1);
X}
X
X/*** Handling the menu. ***/
X
Xlong mainmenu, confirmmenu, speedmenu, formmenu, lightmenu, extramenu, omenu;
X
Xcreateobjectmenu()
X{
X    omenu = newpup();
X    addtopup(omenu,"  Show All %x71 | Show None %x72 %l");
X    if (ob[0]) {addtopup(omenu,"-> Sphere %x41");}
X         else  {addtopup(omenu,"   Sphere %x41");};
X    if (ob[1]) {addtopup(omenu,"-> Cylinder %x42");}
X         else  {addtopup(omenu,"   Cylinder %x42");};
X    if (ob[2]) {addtopup(omenu,"-> Cube %x43");}
X         else  {addtopup(omenu,"   Cube %x43");};
X    if (ob[3]) {addtopup(omenu,"-> Ice Cream %x44");}
X         else  {addtopup(omenu,"   Ice Cream %x44");};
X    if (ob[4]) {addtopup(omenu,"-> Disk %x45");}
X         else  {addtopup(omenu,"   Disk %x45");};
X    if (ob[5]) {addtopup(omenu,"-> Diamond %x46");}
X         else  {addtopup(omenu,"   Diamond %x46");};
X    if (ob[6]) {addtopup(omenu,"-> Glass %x47");}
X         else  {addtopup(omenu,"   Glass %x47");};
X    if (ob[7]) {addtopup(omenu,"-> Pyramid %x48");}
X         else  {addtopup(omenu,"   Pyramid %x48");};
X}
X
Xcreateformmenu()
X{
X    formmenu = newpup();
X    if (wire)  {addtopup(formmenu,"-> Wire Frame %x11");}
X         else  {addtopup(formmenu,"   Wire Frame %x11");};
X    if (wire)  {addtopup(formmenu,"   Filled %x12");}
X         else  {addtopup(formmenu,"-> Filled %x12");};
X}
X
Xcreatelightmenu()
X{
X    lightmenu = newpup();
X    if (flat)  {addtopup(lightmenu,"-> Flat Shaded %x21");}
X         else  {addtopup(lightmenu,"   Flat Shaded %x21");};
X    if (flat)  {addtopup(lightmenu,"   Gouraud Shaded %x22");}
X         else  {addtopup(lightmenu,"-> Gouraud Shaded %x22");};
X}
X
Xcreateextramenu()
X{
X    extramenu = newpup();
X    if (back)  {addtopup(extramenu,"-> Backface Culling %x31");}
X         else  {addtopup(extramenu,"   Backface Culling %x31");};
X    if (frames){addtopup(extramenu,"-> Show Frames %x32 %l");}
X         else  {addtopup(extramenu,"   Show Frames %x32 %l");};
X    addtopup(extramenu,"  Faster %x33 |  Slower %x34");
X}
X
Xcreatemenu()
X/* Creates the menu */
X{
X    createobjectmenu();
X    createformmenu();
X    createlightmenu();
X    createextramenu();
X    mainmenu = newpup();
X    addtopup(mainmenu,"Objects Demo %t");
X    if (win2 == 0){addtopup(mainmenu,"Show Front View %x1 %l");}
X    addtopup(mainmenu,"Objects %m",omenu);
X    addtopup(mainmenu,"Display Mode %m",formmenu);
X    addtopup(mainmenu,"Lighting Mode %m",lightmenu);
X    addtopup(mainmenu,"Extras %m %l",extramenu);
X    addtopup(mainmenu,"Exit %x5");
X    confirmmenu = newpup();
X    addtopup(confirmmenu,"Are You Sure? %t|Yes|No");
X}
X
Xdestroymenu()
X/* kills all the menus */
X{
X    freepup(mainmenu);
X    freepup(lightmenu);
X    freepup(formmenu);
X    freepup(confirmmenu);
X    freepup(omenu);
X    freepup(extramenu);
X}
X
X
Xpostmenu()
X/* Displays the menu and takes action. */
X{
X    long entry;
X    int i;
X    entry = dopup(mainmenu);
X    switch (entry) 
X    {
X	case 1:	setpup(mainmenu,1,PUP_GREY);
X    		prefposition(600,1000,500,900);
X    		win2 = winopen("Front View");
X    		winconstraints();
X		iconsize(85,66); keepaspect(1,1);
X		winconstraints();
X    		init();
X    		lookat(10.0,0.0,0.0,0.0,0.0,0.0,0.0);
X		break;
X	case 5:	if (dopup(confirmmenu) == 1) exit(0);
X		break;
X	case 11: wire = 1; break;
X	case 12: wire = 0; break;
X	case 21: flat = 1; break;
X	case 22: flat = 0; break;
X	case 31: back = 1 - back; break;
X	case 32: frames = 1 - frames; break;
X	case 33: speed = speed * 1.5; break;
X	case 34: speed = speed / 1.5; break;
X	case 41:
X	case 42:
X	case 43:
X	case 44:
X	case 45:
X	case 46:
X	case 47:
X	case 48:
X	case 49:
X	case 50:
X	case 51:
X	case 52:
X	case 53:
X	case 54:
X	case 55:
X	case 56:
X	case 57:
X	case 58:
X	case 59:
X	case 60: ob[entry-41] = 1 - ob[entry-41]; break;
X	case 71: for (i=0; i<MAXOBJ; i++) ob[i] = 1; break;
X	case 72: for (i=0; i<MAXOBJ; i++) ob[i] = 0; break;
X    };
X    destroymenu();
X    createmenu();
X}
X
Xmain()
X{
X    Device dev;
X    short val;
X    struct timeval tp;
X    struct timezone tzp;
X    long passed,lastsec,lasttime;
X    int count;
X    int i;
X    /* start up the stuff */
X    makeobjects();
X    prefposition(100,500,500,900);
X    win1 = winopen("Objects");
X    winconstraints(); iconsize(85,66); keepaspect(1,1); winconstraints();
X    init();
X    lookat(0.0,0.0,10.0,0.0,0.0,0.0,0.0);
X    win2 = 0;
X    for (i=0; i<MAXOBJ; i++) ob[i] = 0;
X    ob[0] = ob[1] = ob[2] = 1;
X    frames = 1; back = 1; wire = 0; flat = 0; incr = 1; time= 0.0;
X    speed = 5.0;
X    createmenu();
X    /* ready to go */
X    gettimeofday(&tp,&tzp);
X    lastsec = tp.tv_sec;
X    lasttime = tp.tv_usec;
X    while (1)
X    {
X	/* draw the stuff */
X	gettimeofday(&tp,&tzp);
X        if (incr)
X  	{
X	    passed = 1000000 * (tp.tv_sec - lastsec) + (tp.tv_usec - lasttime);
X	    time = time + speed * passed/250000.0;
X	};
X        if (lastsec != tp.tv_sec) {lcount = count; count = 0;};
X        count++;
X        lastsec = tp.tv_sec;
X        lasttime = tp.tv_usec;
X	winset(win1); redraw();
X	if (win2) {winset(win2); redraw();}
X	/* listen at the devices */
X	if (qtest())
X	{
X	    dev = qread(&val);
X	    if (dev == MOUSE1 && val )
X            {
X		postmenu();
X		gettimeofday(&tp,&tzp);
X        	lastsec = tp.tv_sec;
X        	lasttime = tp.tv_usec;
X            }
X	    else if (dev == ESCKEY) { exit(0); }
X	    else if (dev == REDRAW)
X	        { winset(val); reshapeviewport();}
X	    else if (dev == REDRAWICONIC)
X	        { winset(val); reshapeviewport();}
X	    else if (dev == WINTHAW)
X	        { winset(val); reshapeviewport();}
X	    else if (dev == MOUSE3 && val){ incr = 1 - incr;}
X        }
X    }
X}
END_OF_FILE
if test 10214 -ne `wc -c <'moving.c'`; then
    echo shar: \"'moving.c'\" unpacked with wrong size!
fi
# end of 'moving.c'
fi
if test -f 'object.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'object.c'\"
else
echo shar: Extracting \"'object.c'\" \(7718 characters\)
sed "s/^X//" >'object.c' <<'END_OF_FILE'
X#include <gl/gl.h>
X#include <math.h>
X#include <stdio.h>
X#include "object.h"
X/*
X   This library contains a number of basic objects plus a routine to
X   draw them. All objects have their center at point (0,0,0) and are
X   maximal in a box of size 2*2*2 around the origin. The currently
X   supported objects are:
X
X   cube           	: a simple cube, origin is the center.
X   sphere         	: a nice looking sphere, origin is the center.
X   cylinder       	: a cylinder.
X   cone                 : a cone
X   glass		: a nice glass
X   pyramid              : guess what
X
X
X
X   The following routines exist for use:
X
X   makeobjects()
X		should be called once before using the objects.
X
X   drawobject(obj,wire,flat)
X		to draw object obj. wire indicate whether wire frame
X		drawing is required. flat indicate whether flat shading
X		should be used.
X
X*/
X
X/*************************
X Making Spin Objects
X*************************/
X
X#define PI    3.14159265
X#define ZERO  0.00001
X
Xmakespinobject(obj,smooth,rot,n,x1,z1,nx1,nz1,x2,z2,nx2,nz2)
X/* makes a spin object */
XOBJECT *obj;         /* the object to be created */
Xint smooth;          /* whether smooth or not */
Xint rot;             /* the number of rotation steps */
Xint n;               /* the number of segments to spin */
Xfloat x1[],z1[];     /* (x,z) coordinates of first endpoint of segments */
Xfloat nx1[],nz1[];   /* their normals */
Xfloat x2[],z2[];     /* (x,z) coordinates of second endpoint of segments */
Xfloat nx2[],nz2[];   /* their normals */
X{
X    float th,dth,a1,a2;
X    PATCH *p;
X    int i,j;
X    obj->numb = rot*n;
X    p = obj->pat = (PATCH *) malloc(obj->numb * sizeof(PATCH));
X    dth = 2.0*PI/rot;
X    for (i=0; i<n; i++)
X    {
X        for (j=0; j<rot; j++)
X        {
X 	    th =  dth * j;   
X	    if (smooth) {a1 = th; a2 =th+dth;} else { a1 = a2 = th +dth/2.0;};
X	    if (x1[i] < ZERO || x2[i] <ZERO) {p->numb=3;} else {p->numb = 4;};
X	    p->v[0].x = x1[i]*sin(th);     p->n[0].x = nx1[i]*sin(a1);
X	    p->v[0].y = x1[i]*cos(th);     p->n[0].y = nx1[i]*cos(a1);
X	    p->v[0].z = z1[i];             p->n[0].z = nz1[i];
X	    p->v[1].x = x1[i]*sin(th+dth); p->n[1].x = nx1[i]*sin(a2);
X	    p->v[1].y = x1[i]*cos(th+dth); p->n[1].y = nx1[i]*cos(a2);
X	    p->v[1].z = z1[i];             p->n[1].z = nz1[i];
X	    p->v[2].x = x2[i]*sin(th+dth); p->n[2].x = nx2[i]*sin(a2);
X	    p->v[2].y = x2[i]*cos(th+dth); p->n[2].y = nx2[i]*cos(a2);
X	    p->v[2].z = z2[i];             p->n[2].z = nz2[i];
X	    p->v[3].x = x2[i]*sin(th);     p->n[3].x = nx2[i]*sin(a1);
X	    p->v[3].y = x2[i]*cos(th);     p->n[3].y = nx2[i]*cos(a1);
X	    p->v[3].z = z2[i];             p->n[3].z = nz2[i];
X	    if (x1[i] <ZERO) 
X	    {
X		p->v[1] = p->v[2]; p->n[1] = p->n[2];
X		p->v[2] = p->v[3]; p->n[2] = p->n[3];
X	    };
X	    p++;
X	}
X    }
X}
X
Xmakesmoothspinobject(obj,rot,n,x,z)
X/* makes a smooth, connected spin object */
XOBJECT *obj;         /* the object to be created */
Xint rot;             /* the number of rotation steps */
Xint n;               /* the number of points */
Xfloat x[],z[];       /* (x,z) coordinates of endpoints of segments */
X{
X    float x1[20],z1[20],nx1[20],nz1[20],x2[20],z2[20],nx2[20],nz2[20],l[20];
X    int i;
X    /* fill in the points */
X    x1[0] = x[0]; z1[0] = z[0];
X    for (i=1; i<n ; i++)
X    	{ x1[i] = x2[i-1] = x[i]; z1[i] = z2[i-1] = z[i]; };
X    /* fill in the normals */
X    for (i=0; i<n-1 ; i++)
X      {l[i] = sqrt((x[i+1]-x[i])*(x[i+1]-x[i]) + (z[i+1]-z[i])*(z[i+1]-z[i]));};
X    nx1[0]   = 0.0; nz1[0]   =  1.0;
X    nx2[n-2] = 0.0; nz2[n-2] = -1.0;
X    for (i=1; i<n-1 ; i++)
X    {
X	nx1[i] = nx2[i-1] = ((z[i-1]-z[i])/l[i-1] + (z[i] - z[i+1])/l[i] )/2.0;
X	nz1[i] = nz2[i-1] = ((x[i]-x[i-1])/l[i-1] + (x[i+1] - x[i])/l[i] )/2.0;
X    }
X    /* make it */
X    makespinobject(obj,1,rot,n-1,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
X/*Making some nice objects */
X
Xfloat x1[20],z1[20],nx1[20],nz1[20],x2[20],z2[20],nx2[20],nz2[20];
X
Xmakesphere(sphere,n)
XOBJECT *sphere;
Xint n;
X{
X    int i;
X    x1[0] = nx1[0] = 0.0; z1[0] = nz1[0] = 1.0;
X    for (i=0; i<n-1; i++)
X    {
X	x2[i] = nx2[i] = x1[i+1] = nx1[i+1] = sin((PI/n)*(1.0+i));
X	z2[i] = nz2[i] = z1[i+1] = nz1[i+1] = cos((PI/n)*(1.0+i));
X    }
X    x2[n-1] = nx2[n-1] = 0.0; z2[n-1] = nz2[n-1] = -1.0;
X    makespinobject(sphere,1,2*n,n,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
Xmakecylinder(cylinder,n)
XOBJECT *cylinder;
Xint n;
X{
X    x1[0] =  0.0; nx1[0] = 0.0; z1[0] =  1.0; nz1[0] =  1.0;
X    x2[0] =  1.0; nx2[0] = 0.0; z2[0] =  1.0; nz2[0] =  1.0;
X    x1[1] =  1.0; nx1[1] = 1.0; z1[1] =  1.0; nz1[1] =  0.0;
X    x2[1] =  1.0; nx2[1] = 1.0; z2[1] = -1.0; nz2[1] =  0.0;
X    x1[2] =  1.0; nx1[2] = 0.0; z1[2] = -1.0; nz1[2] = -1.0;
X    x2[2] =  0.0; nx2[2] = 0.0; z2[2] = -1.0; nz2[2] = -1.0;
X    makespinobject(cylinder,1,2*n,3,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
Xmakecone(cone,n)
XOBJECT *cone;
Xint n;
X{
X    x1[0] =  0.0; nx1[0] = 2.0/sqrt(5.0); z1[0] =  1.0; nz1[0] = 1.0/sqrt(5.0);
X    x2[0] =  1.0; nx2[0] = 2.0/sqrt(5.0); z2[0] = -1.0; nz2[0] = 1.0/sqrt(5.0);
X    x1[1] =  1.0; nx1[1] = 0.0;           z1[1] = -1.0; nz1[1] = -1.0;
X    x2[1] =  0.0; nx2[1] = 0.0;           z2[1] = -1.0; nz2[1] = -1.0;
X    makespinobject(cone,1,2*n,2,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
Xmakecube(cube)
XOBJECT *cube;
X{
X    x1[0] =  0.0;       nx1[0] = 0.0; z1[0] =  1.0; nz1[0] =  1.0;
X    x2[0] =  sqrt(2.0); nx2[0] = 0.0; z2[0] =  1.0; nz2[0] =  1.0;
X    x1[1] =  sqrt(2.0); nx1[1] = 1.0; z1[1] =  1.0; nz1[1] =  0.0;
X    x2[1] =  sqrt(2.0); nx2[1] = 1.0; z2[1] = -1.0; nz2[1] =  0.0;
X    x1[2] =  sqrt(2.0); nx1[2] = 0.0; z1[2] = -1.0; nz1[2] = -1.0;
X    x2[2] =  0.0;       nx2[2] = 0.0; z2[2] = -1.0; nz2[2] = -1.0;
X    makespinobject(cube,0,4,3,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
Xmakepyramid(pyramid)
XOBJECT *pyramid;
X{
X    x1[0] = 0.0;      nx1[0] = 2.0/sqrt(5.0);z1[0] =  1.0;nz1[0] =1.0/sqrt(5.0);
X    x2[0] = sqrt(2.0);nx2[0] = 2.0/sqrt(5.0);z2[0] = -1.0;nz2[0] =1.0/sqrt(5.0);
X    x1[1] = sqrt(2.0);nx1[1] = 0.0;          z1[1] = -1.0;nz1[1] = -1.0;
X    x2[1] = 0.0;      nx2[1] = 0.0;          z2[1] = -1.0;nz2[1] = -1.0;
X    makespinobject(pyramid,0,4,2,x1,z1,nx1,nz1,x2,z2,nx2,nz2);
X}
X
X
Xmakeglass(glass,n)
XOBJECT *glass;
Xint n;
X{
X    x1[ 0] = 0.000; z1[ 0] = 0.575;
X    x1[ 1] = 0.050; z1[ 1] = 0.575;
X    x1[ 2] = 0.100; z1[ 2] = 0.600;
X    x1[ 3] = 0.200; z1[ 3] = 0.700;
X    x1[ 4] = 0.250; z1[ 4] = 0.800;
X    x1[ 5] = 0.250; z1[ 5] = 1.000;
X    x1[ 6] = 0.275; z1[ 6] = 1.000;
X    x1[ 7] = 0.275; z1[ 7] = 0.800;
X    x1[ 8] = 0.250; z1[ 8] = 0.700;
X    x1[ 9] = 0.200; z1[ 9] = 0.625;
X    x1[10] = 0.100; z1[10] = 0.550;
X    x1[11] = 0.050; z1[11] = 0.500;
X    x1[12] = 0.025; z1[12] = 0.450;
X    x1[13] = 0.025; z1[13] = 0.100;
X    x1[14] = 0.050; z1[14] = 0.050;
X    x1[15] = 0.250; z1[15] = 0.025;
X    x1[16] = 0.250; z1[16] = 0.000;
X    x1[17] = 0.225; z1[17] = 0.000;
X    x1[18] = 0.000; z1[18] = 0.000;
X    makesmoothspinobject(glass,n,19,x1,z1);
X}
X
X/*************************************************************
X
X  WHAT THE USER SEES
X
X*************************************************************/
X
X
Xmakeobjects()
X/* Creates all the objects. */
X{
X    makecube(&cube);
X    makesphere(&sphere,12);
X    makecylinder(&cylinder,12);
X    makecone(&cone,12);
X    makeglass(&glass,18);
X    makepyramid(&pyramid);
X}
X    
Xdrawobject(obj,wire,flat)
X/* Draws a defined object. wire indicates whether wireframe. 
X   flat indicates whether flat shaded. */
XOBJECT obj;
Xint wire,flat;
X{
X    int i,j;
X    PATCH *p;
X    p = obj.pat;
X    if (flat) {shademodel(FLAT);} else {shademodel(GOURAUD);};
X    for (i=0; i < obj.numb ; i++)
X    {
X	if (wire) {bgnclosedline();} else {bgnpolygon();};
X	for (j=0; j < p->numb; j++)
X	    { n3f(&p->n[j]); v3f(&p->v[j]);};
X	if (wire) {endclosedline();} else {endpolygon();};
X	p++;
X    }
X}
X
END_OF_FILE
if test 7718 -ne `wc -c <'object.c'`; then
    echo shar: \"'object.c'\" unpacked with wrong size!
fi
# end of 'object.c'
fi
if test -f 'object.h' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'object.h'\"
else
echo shar: Extracting \"'object.h'\" \(327 characters\)
sed "s/^X//" >'object.h' <<'END_OF_FILE'
Xtypedef struct {
X   Coord x,y,z;
X} POINT;
X
Xtypedef struct {
X    int numb;   /* number of vertices */
X    POINT v[4]; /* vertices */
X    POINT n[4]; /* normals */
X} PATCH;
X
Xtypedef struct {
X    int numb;     /* number of patches */
X    PATCH *pat;   /* the patches */
X} OBJECT;
X
X
XOBJECT sphere,cube,cylinder,cone,glass,pyramid;
END_OF_FILE
if test 327 -ne `wc -c <'object.h'`; then
    echo shar: \"'object.h'\" unpacked with wrong size!
fi
# end of 'object.h'
fi
echo shar: End of shell archive.
exit 0