Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/543a.lha/Nebula/source.LZH/source/3d.c

C/C++ Source or Header | 1991-06-10 | 10.8 KB | 542 lines

/*

------------------------------------------------------------------

Black Nebula

File :                3d.c
Programmer:        Colin Adams
Date:                4/3/91
Last Modified :    10/6/91

------------------------------------------------------------------

            +y
            |
            |
            |
            |
            |
            |
            |
            |
            |
            ------------ +x
          /
         /
        /
    /
   /
     +z

*/


/*    ---------------------------------------------------------------
        Defines/Includes
        ---------------------------------------------------------------
*/

#define MAINCODE
#define AMIGA_INCLUDES

#include "3d.h"

#include <hardware/custom.h>
#include <hardware/cia.h>

#define CIAAPRA 0xBFE001

#define FIRE   1
#define RIGHT  2
#define LEFT   4
#define DOWN   8
#define UP    16

extern struct Custom far custom;
struct CIA *cia = (struct CIA *) CIAAPRA;

extern struct RastPort my_rast_port, back_rast_port;
extern struct View my_view, back_view;
extern struct Screen *screen;
extern struct Window *window1;
extern void build_table(void), SetUpExplosions(void);
extern short U_rot, W_rot;

/*    ------------------------------------------------------------------
        General Variables
        ------------------------------------------------------------------
*/

char filename[80];
object myship;
short swapflag = 1;

/*    ------------------------------------------------------------------
        Amiga Variables
        ------------------------------------------------------------------
*/

UWORD Palette2[] =
{
    0x0000,
    0x000F,
    0x00D7,
    0x0098,
    0x0078,
    0x0047,
    0x0016,
    0x0024,
    0x0FF0,
    0x0FB1,
    0x0F72,
    0x0C21,
    0x0803,
    0x0503,
    0x0F0F,
    0x0847
};


/*    ------------------------------------------------------------------
        EXTERNAL ROUTINES
        ------------------------------------------------------------------
*/

extern object *CreateObject();


/*    ------------------------------------------------------------------
        START OF ROUTINES
        ------------------------------------------------------------------
*/

void CleanUpandExit(void)
/*
Frees resources and quits.  Unfortunately fails to free some memory
somewhere, if the OS was done properly wouldn't be a problem, but I'll
try and track it down sometime.
*/
{
    EndSound();

    if(window1)
        CloseWindow(window1);
    if(screen)
        CloseScreen(screen);
  if(IntuitionBase)
     CloseLibrary(IntuitionBase);
  if(GfxBase)
     CloseLibrary((struct Library *) GfxBase);
  exit(1);
}

UBYTE Joystick(void)
/*
Reads the joystick port. Goes straight to the metal...
All flames will be ignored.
*/
{
  UBYTE data = 0;
  UWORD joy;

    joy = custom.joy1dat;
  data += !( cia->ciapra & 0x0080 ) ? FIRE : 0;
  data += joy & 0x0002 ? RIGHT : 0;
  data += joy & 0x0200 ? LEFT : 0;
  data += (joy >> 1 ^ joy) & 0x0001 ? DOWN : 0;
  data += (joy >> 1 ^ joy) & 0x0100 ? UP : 0;

  return data;
}

UBYTE Keyboard(void)
/*
Returns the keycode of a key pressed. Goes straight to the
hardware, which isn't very nice to the OS, but is fast.
*/
{
  UBYTE code;
  code = cia->ciasdr ^ 0xFF;
  code = code & 0x01 ? (code>>1)+0x80 : code>>1;
  return code;
}

void get2d(short px, short py, short pz)
/*
Converts a point onto a 2d plane from 3d.  This code is optimized
to be fast, not readable.  The details of the algorithm are in
3d.h.  Though naturally you should be able to understand this :-)
*/
{
    register int temp;
    register int rx, ry, rz;

    rx = px - ex;
    ry = py - ey;
    rz = pz - ez;

    d = getmultC(ux, rx) + getmultC(uy, ry) + getmultC(uz,rz);

    temp = getmultC(vx, rx) + getmultC(vy, ry) + getmultC(vz,rz);
    y = d ? - (temp*571) / d : 0;

    temp = getmultC(wx, rx) + getmultC(wy, ry) + getmultC(wz,rz);
    x = (G/2) + (d ? (temp*571) / d : 0);
}

void SetUp3d(void)
/* must initialize viewing vectors */
{
    k.numer = 571; /* this variable is not used, just here for reference */
    k.denom = 1; /* because this is 1, it simplifies the calculations */

    ex = 4000;                     /* eye location */
    ey = 500;
    ez = 1000;

    setconst(vx,0);             /* top of skull unit vector */
    setconst(vy,1);
    setconst(vz,0);

    setconst(wy,0);             /* out of right ear vector */
    SetFixed(wx, 1000,1000);
    SetFixed(wz, 0, 1000);

    setconst(uy,0);             /* view vector */
    SetFixed(ux, 0, 1000);
    SetFixed(uz, -1000, 1000);
    view_mode = 0;
    View_Angle = 270;
    U_rot = 270; W_rot = 180;
}

/*    ------------------------------------------------------------------
        Routines for allowing objects to be defined
        ------------------------------------------------------------------
*/

void EnterObject(void)
{
    object *obj;
    polygon *pg;
    int sides, i;
    int convert;
    int x,y,z;

    obj = CreateObject();

    printf("ENTER:\n");
    printf("Enter the name of the object : ");
    scanf("%s",filename);
    strcat(filename, ".object");

    fflush(stdin);
    printf("Object Types:\n");
    printf("Enter the type of object : ");

    scanf("%d",&convert);
    obj->type = convert;

    printf("How many points comprise the object ? ");
    scanf("%d",&sides); /* get number points in object */
    obj->numpoints = sides;

    for(i=1; i<=sides; i++)
    {
        printf("Enter point %d: x, y, z = ",i);
        scanf("%d %d %d",&x,&y,&z);
        obj->objpoints[i].x = x;
        obj->objpoints[i].y = y;
        obj->objpoints[i].z = z;
    }

    printf("Enter the centre point of the object (x,y,z) ? ");
    scanf("%d %d %d",&x, &y, &z);
    obj->start_x = x;
    obj->start_y = y;
    obj->start_z = z;

    printf("Enter the approx. radius squared of the object ? ");
    scanf("%d",&x);
    obj->radius = x;

    printf("Enter the number of polygons : ");
    scanf("%d",&sides);

    for(i=0; i<sides; i++)
    {
        int numpoints, j;

        printf("Enter data for polygon %d :\n",i+1);
        do
        {
            printf("How many points are in this polygon ? ");
            scanf("%d",&numpoints);
        } while(numpoints>MAX_POINTS);

        pg = (polygon *) malloc(sizeof(polygon));

        printf("Colours :\n");
        printf("0-black, 1-blue, 2-green, 3-lt.green 4-grey, 5-med.blue\n");
        printf("6-matt.blue,7-blue/black,8-yellow,9-lt.orange,10-orange\n");
        printf("11-red,12-d.red,13-v.d.red,14-d.laven,15-lavender\n");

        printf("What colour is it ? ");
        scanf("%d", &j);
        pg->colour = j;

        printf("Enter %d Point Numbers : ", numpoints);

        for(j=0; j<numpoints; j++)
        {
            scanf("%d",&convert);
            pg->p[j] = convert;
        }

        printf("Enter the centre of the polygon (x,y,z) ? ");
        scanf("%d %d %d",&x, &y, &z);
        pg->centre.x = x;
        pg->centre.y = y;
        pg->centre.z = z;

        pg->numpoints = numpoints;
        AddPoly(obj, pg);
    }

    Save_Object(obj, filename);
    Destroy_Object(obj);
}

void ChangeObjectFile(void)
{
    object *obj;
    polygon *p;
    int i, count = 1;
    int x,y,z;

    printf("CHANGE :\n");
    printf("Enter the object name (NO .object) - ");
    scanf("%s",filename);

    printf("\nObject - %s\n",filename);
    strcat(filename,".object");

    obj = CreateObject();
    if(!(Load_Object(obj, filename)))
        return;

    printf("What would you like to change ?\n");
    printf("(2=details, 1=point, 0=poly) ?");
    scanf("%d",&i);

    if(i==2)
    {
        printf("Current values :\n");
        printf("Type = %d\n",obj->type);
        printf("Numpoints = %d\n",obj->numpoints);
        printf("Radius = %d\n",obj->radius);

        printf("\nEnter type : ");
        scanf("%d", &i);
        obj->type = i;

        printf("Enter numpoints : ");
        scanf("%d",&i);
        obj->numpoints = i;

        printf("Enter radius^2 : ");
        scanf("%d",&i);
        obj->radius = i;

        printf("Ok.\n");
        Save_Object(obj, filename);
        Destroy_Object(obj);
        return;
    }

    if(i)
    {
        printf("Enter point to change (max is %d) ?",obj->numpoints);
        scanf("%d", &i);
        printf("Enter new value for point (x,y,z) ? ");
        scanf("%d %d %d", &x, &y, &z);
        obj->objpoints[i].x = x;
        obj->objpoints[i].y = y;
        obj->objpoints[i].z = z;
        printf("Ok.\n");
        Save_Object(obj, filename);
        Destroy_Object(obj);
        return;
    }

    printf("Enter number of polygon to change ? ");
    scanf("%d",&i);
    p = obj->poly;

    while(p && count!=i)
    {
        p = (polygon *) p->next;
        count++;
    }

    if(!p)
    {
        printf("That polygon doesn't exist!\n");
        Destroy_Object(obj);
        return;
    }

    printf("Old Values :\n");
    printf("  Number of points - %d\n",p->numpoints);
    printf("  Colour - %d\n",p->colour);
    printf("  Centre %d %d %d\n",p->centre.x,p->centre.y,
        p->centre.z);

    for(i=0; i<p->numpoints; i++)
        printf("  Point %d : %d\n",i+1,p->p[i]);

    printf("Enter no. of points in polygon ?");
    scanf("%d", &i);
    p->numpoints = i;

    printf("Colours :\n");
    printf("0-black, 1-blue, 2-green, 3-lt.green 4-grey, 5-med.blue\n");
    printf("6-matt.blue,7-blue/black,8-yellow,9-lt.orange,10-orange\n");
    printf("11-red,12-d.red,13-v.d.red,14-d.laven,15-lavender\n");
    printf("What colour is it ? ");
    scanf("%d", &i);
    p->colour = i;

    printf("Enter the centre of the polygon (x,y,z) ? ");
    scanf("%d %d %d", &x, &y, &z);
    p->centre.x = x;
    p->centre.y = y;
    p->centre.z = z;

    printf("Enter the points : ");

    for(i=0; i<p->numpoints; i++)
    {
            scanf("%d", &x);
            p->p[i] = x;
    }

    printf("Object Changed.\n");
    Save_Object(obj, filename);
    Destroy_Object(obj);
}

void PrintObjValues(void)
{
    object *obj;
    polygon *p;
    int i, counter = 1;

    printf("PRINT :\n");
    printf("Enter the object name (NO .object) - ");
    scanf("%s",filename);

    printf("\nObject - %s\n",filename);
    strcat(filename,".object");

    obj = CreateObject();
    if(!(Load_Object(obj, filename)))
        return;

    printf("Type - %d\n",obj->type);
    p = obj->poly;

    printf("Centre - %d %d %d\n",obj->start_x, obj->start_y,
        obj->start_z);

    printf("Radius - %d\n", obj->radius);

    printf("Points :\n");
    for(i=1; i<=obj->numpoints; i++)
    {
        printf("Point %d = %d, %d, %d\n",i,obj->objpoints[i].x,
            obj->objpoints[i].y, obj->objpoints[i].z);
    }

    while(p)
    {
        printf("Polygon %d :\n",counter++);
        printf("  Number of points - %d\n",p->numpoints);
        printf("  Colour - %d\n",p->colour);
        printf("  Centre %d %d %d\n",p->centre.x,p->centre.y,
            p->centre.z);

        for(i=0; i<p->numpoints; i++)
            printf("  Point %d : %d\n",i+1,p->p[i]);

        p = (polygon *) p->next;
    }
    Destroy_Object(obj);
}

void OptionMenu(void)
{
    int c;

    while(1)
    {
        printf("\nF-79 OBJECT CREATION\n");
        printf("Options :\n");
        printf("1 - Enter an Object\n");
        printf("2 - List Objects\n");
        printf("3 - Change Object\n");
        printf("4 - Print Object values\n");
        printf("5 - Exit\n");
        printf("Enter option : ");

        fflush(stdin);
        scanf("%d",&c);
        printf("\n");

        switch(c)
        {
            case 1:    EnterObject(); break;
            case 2:    system("dir #?.object"); break;
            case 3:    ChangeObjectFile(); break;
            case 4:    PrintObjValues(); break;
            case 5:  CleanUpandExit(); break;
            default:    printf("Unknown Option!\n");
        }
    }
}

int main(char argc, char *argv[])
{
    IntuitionBase = (struct IntutionBase *)
        OpenLibrary("intuition.library",0);

    if(IntuitionBase==NULL)
        exit(FALSE);

    GfxBase = (struct GfxBase *)
        OpenLibrary("graphics.library",0);

    if(GfxBase==NULL)
        CleanUpandExit();

    TrigSetUp();    /* set up fast sin/cos table */
    build_table(); /* set up fast square root table */
    Setupangles(); /* set up fast asin table */


    if(argc>=2)
        OptionMenu();
    else
    {
        SoundSetUp();  /* load sound effects */
        SetRandom();
        SetUpExplosions();
        DoIntro();
    }

    CleanUpandExit();
}

/* end of module 3d.c */