Games/XInvaders3D/main-aros.c

   1 /*------------------------------------------------------------------
   2   main-x11.c:
   3
   4     XINVADERS 3D - 3d Shoot'em up
   5     Copyright (C) 2000 Don Llopis
   6
   7     This program is free software; you can redistribute it and/or modify
   8     it under the terms of the GNU General Public License as published by
   9     the Free Software Foundation; either version 2 of the License, or
  10     (at your option) any later version.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU General Public License for more details.
  16
  17     You should have received a copy of the GNU General Public License
  18     along with this program; if not, write to the Free Software
  19     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20
  21 ------------------------------------------------------------------*/
  22
  23 #include "game.h"
  24
  25 #include <graphics/gfx.h>
  26 #include <intuition/intuition.h>
  27 #include <devices/inputevent.h>
  28 #include <proto/arossupport.h>
  29 #include <proto/exec.h>
  30 #include <proto/graphics.h>
  31 #include <proto/intuition.h>
  32
  33 #include <string.h>
  34
  35 /*================================================================*/
  36
  37 /* Cohan-Sutherland clipping algorithm */
  38
  39 #define CLIPLEFT  1
  40 #define CLIPRIGHT 2
  41 #define CLIPLOWER 4
  42 #define CLIPUPPER 8
  43
  44 int clipline(int *px1, int *py1, int *px2, int *py2);
  45
  46 /*================================================================*/
  47
  48 struct GfxBase          *GfxBase;
  49 struct IntuitionBase    *IntuitionBase;
  50 struct Screen           *scr;
  51 struct Window           *win;
  52 struct BitMap           *draw_bm;
  53 struct RastPort         *win_rp, *draw_rp;
  54
  55 ULONG                   coltable[256 * 3 + 2];
  56
  57 int                     window_width, window_height;
  58 int                     XMax, YMax, XMin, YMin;
  59
  60 /*------------------------------------------------------------------
  61  * main
  62  *
  63  *
  64 ------------------------------------------------------------------*/
  65 int main ( int argc, char **argv )
  66 {
  67    int i;
  68
  69    IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39);
  70    GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39);
  71
  72    if (!IntuitionBase || !GfxBase)
  73    {
  74       fprintf ( stderr, "Error: could not open libraries!\n" );
  75       goto error;
  76    }
  77
  78    if ( !Graphics_init ( WIN_WIDTH, WIN_HEIGHT ) )
  79    {
  80       fprintf ( stderr, "Error: could not initialize graphics!\n" );
  81       goto error;
  82    }
  83
  84    if ( !Game_init ( WIN_WIDTH, WIN_HEIGHT ) )
  85    {
  86       fprintf ( stderr, "Error: could not initialize game data!\n" );
  87       goto error;
  88    }
  89
  90    Game_main ();
  91
  92 error:
  93    Graphics_shutdown ();
  94
  95    if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  96    if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  97
  98    /* print contact information */
  99    i = 0;
 100    while ( game_about_info[i] )
 101    {
 102       fprintf ( stderr, "%s\n", game_about_info[i] );
 103       i++;
 104    }
 105
 106    return 0;
 107 }
 108
 109 /*================================================================*/
 110
 111 #if defined(__AROS__)
 112 static inline ULONG makecolor(UBYTE val)
 113 {
 114     return (val << 24) | (val << 16) | (val << 8) | (val);
 115 }
 116 #else
 117 #define makecolor(val)     ((val) * 0x01010101)
 118 #endif
 119
 120 int Graphics_init ( unsigned int win_width, unsigned int win_height )
 121 {
 122    ULONG newcol;
 123    int i, j;
 124
 125    window_width  = win_width;
 126    window_height = win_height;
 127
 128    XMin = 0;
 129    YMin = 0;
 130    XMax = win_width - 1;
 131    YMax = win_height - 1;
 132
 133    scr = OpenScreenTags(0, SA_Width     , window_width  ,
 134                            SA_Height    , window_height ,
 135                            SA_Depth     , 8             ,
 136                            SA_Quiet     , TRUE          ,
 137                            TAG_DONE);
 138    if (!scr)
 139    {
 140       fprintf ( stderr, "Error: could not open screen!\n" );
 141       return FALSE;
 142    }
 143
 144    if (GetBitMapAttr(scr->RastPort.BitMap, BMA_DEPTH) < 8)
 145    {
 146       fprintf ( stderr, "Error: need at least a 256 color screen!\n" );
 147       return FALSE;
 148    }
 149
 150    draw_bm = AllocBitMap(window_width, window_height, 0, BMF_MINPLANES, scr->RastPort.BitMap);
 151    if (!draw_bm)
 152    {
 153       fprintf ( stderr, "Error: can't alloc draw bitmap!\n" );
 154       return FALSE;
 155    }
 156
 157    draw_rp = CreateRastPort();
 158    if (!draw_rp)
 159    {
 160       fprintf ( stderr, "Error: can't alloc draw rastport!\n" );
 161       return FALSE;
 162    }
 163
 164    draw_rp->BitMap = draw_bm;
 165
 166    win = OpenWindowTags(0, WA_CustomScreen      , (IPTR) scr    ,
 167                            WA_Left              , 0             ,
 168                            WA_Top               , 0             ,
 169                            WA_Width             , window_width  ,
 170                            WA_Height            , window_height ,
 171                            WA_Activate          , TRUE          ,
 172                            WA_Borderless        , TRUE          ,
 173                            WA_IDCMP             , IDCMP_RAWKEY  ,
 174                            TAG_DONE);
 175
 176    if (!win)
 177    {
 178       fprintf ( stderr, "Error: can't open window!\n" );
 179       return FALSE;
 180    }
 181
 182    win_rp = win->RPort;
 183
 184    /* load default color scheme */
 185
 186    coltable[0] = 256 << 16L;
 187
 188    /* red */
 189    for ( i=0, j=0; i<64; i++, j++ )
 190    {
 191       coltable[1 + i * 3]     = makecolor(j * 4);
 192       coltable[1 + i * 3 + 1] = 0;
 193       coltable[1 + i * 3 + 2] = 0;
 194    }
 195
 196    /* green */
 197    for ( i=64, j=0; i<128; i++, j++ )
 198    {
 199       coltable[1 + i * 3]     = 0;
 200       coltable[1 + i * 3 + 1] = makecolor(j * 4);
 201       coltable[1 + i * 3 + 2] = 0;
 202    }
 203
 204    /* blue */
 205    for ( i=128, j=0; i<192; i++, j++ )
 206    {
 207       coltable[1 + i * 3]     = 0;
 208       coltable[1 + i * 3 + 1] = 0;
 209       coltable[1 + i * 3 + 2] = makecolor(j * 4);
 210    }
 211
 212    /* white */
 213    for ( i=192, j=0; i<256; i++, j++ )
 214    {
 215       newcol = makecolor(j * 4);
 216       coltable[1 + i * 3]     = newcol;
 217       coltable[1 + i * 3 + 1] = newcol;
 218       coltable[1 + i * 3 + 2] = newcol;
 219    }
 220
 221    /* yellow */
 222    newcol = makecolor(255UL);
 223    coltable[1 + 192 * 3]     = newcol;
 224    coltable[1 + 192 * 3 + 1] = newcol;
 225    coltable[1 + 192 * 3 + 2] = makecolor(128UL);
 226
 227    LoadRGB32(&scr->ViewPort, coltable);
 228
 229    SetRast(win_rp, 0);
 230    SetRast(draw_rp, 0);
 231
 232    return TRUE;
 233 }
 234
 235 /*================================================================*/
 236
 237 void Graphics_shutdown ( void )
 238 {
 239    if (win) CloseWindow(win);
 240    if (draw_rp) FreeRastPort(draw_rp);
 241    if (draw_bm)
 242    {
 243       WaitBlit();
 244       FreeBitMap(draw_bm);
 245    }
 246    if (scr) CloseScreen(scr);
 247 }
 248
 249 /*================================================================*/
 250
 251 int Update_display ( void )
 252 {
 253    BltBitMapRastPort(draw_bm, 0, 0,
 254                      win_rp, 0, 0, window_width, window_height, 192);
 255    SetRast(draw_rp, 0);
 256
 257    return TRUE;
 258 }
 259
 260 /*================================================================*/
 261
 262 int Handle_events ( void )
 263 {
 264    struct IntuiMessage *imsg;
 265    int success = TRUE;
 266
 267    while((imsg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 268    {
 269       switch(imsg->Class)
 270       {
 271          case IDCMP_RAWKEY:
 272             switch(imsg->Code)
 273             {
 274                 case 0x40: /* SPACE */
 275                 case 0x63: /* CTRL */
 276                    gv->key_FIRE = TRUE;
 277                    break;
 278
 279                 case 0x40 | IECODE_UP_PREFIX:
 280                 case 0x63 | IECODE_UP_PREFIX:
 281                    gv->key_FIRE = FALSE;
 282                    break;
 283
 284                 case 0x4C: /* CURSOR UP */
 285                 case 0x3E: /* NUM 8 */
 286                    gv->key_UP = TRUE;
 287                    break;
 288
 289                 case 0x4C | IECODE_UP_PREFIX:
 290                 case 0x3E | IECODE_UP_PREFIX:
 291                    gv->key_UP = FALSE;
 292                    break;
 293
 294                 case 0x4D: /* CURSOR DOWN */
 295                 case 0x1E: /* NUM 2 */
 296                    gv->key_DOWN = TRUE;
 297                    break;
 298
 299                 case 0x4D | IECODE_UP_PREFIX:
 300                 case 0x1E | IECODE_UP_PREFIX:
 301                    gv->key_DOWN = FALSE;
 302                    break;
 303
 304                 case 0x4F: /* CURSOR LEFT */
 305                 case 0x2D: /* NUM 4 */
 306                    gv->key_LEFT = TRUE;
 307                    break;
 308
 309                 case 0x4F | IECODE_UP_PREFIX:
 310                 case 0x2D | IECODE_UP_PREFIX:
 311                    gv->key_LEFT = FALSE;
 312                    break;
 313
 314                 case 0x4E: /* CURSOR RIGHT */
 315                 case 0x2F: /* NUM 2 */
 316                    gv->key_RIGHT = TRUE;
 317                    break;
 318
 319                 case 0x4E | IECODE_UP_PREFIX:
 320                 case 0x2F | IECODE_UP_PREFIX:
 321                    gv->key_RIGHT = FALSE;
 322                    break;
 323
 324                 case 0x23: /* F */
 325                    gv->display_fps ^= TRUE;
 326                    break;
 327
 328                 case 0x19: /* P */
 329                    Game_paused_toggle ();
 330                    break;
 331
 332                 case 0x10: /* Q */
 333                    Game_reset ();
 334                    break;
 335
 336                 case 0x45: /* ESC */
 337                    /* quit! */
 338                    success = FALSE;
 339                    break;
 340
 341             } /* switch(imsg->Code) */
 342
 343             break;
 344
 345       } /* switch(imsg->Class) */
 346
 347       ReplyMsg((struct Message *)imsg);
 348
 349    } /* while((imsg = (struct IntuiMessage *)GetMsg(win->UserPort))) */
 350
 351    return success;
 352 }
 353
 354 /*================================================================*/
 355
 356 void Draw_line ( int x0, int y0, int x1, int y1, unsigned int color )
 357 {
 358    if (clipline(&x0, &y0, &x1, &y1))
 359    {
 360       SetAPen(draw_rp, color);
 361       Move(draw_rp, x0, y0);
 362       Draw(draw_rp, x1, y1);
 363    }
 364 }
 365
 366 /*================================================================*/
 367
 368 void Draw_point ( int x0, int y0, unsigned int color )
 369 {
 370    if ( x0 > 2 && y0 > -2 && x0 < XMax && y0 < YMax - 5 )
 371    {
 372       SetAPen(draw_rp, color);
 373       RectFill(draw_rp, x0 - 3, y0 + 3, x0 - 3 + 3 - 1, y0 + 3 + 3 - 1);
 374    }
 375 }
 376
 377 /*================================================================*/
 378
 379 void Draw_text ( char *message, int x0, int y0, unsigned int color )
 380 {
 381    SetAPen(draw_rp, color);
 382    SetDrMd(draw_rp, JAM1);
 383    Move(draw_rp, x0, y0);
 384    Text(draw_rp, message, strlen(message));
 385 }
 386
 387 /*================================================================*/
 388
 389 /*------------------------------------------------------------------
 390  *
 391  * System msec & sec Timer functions
 392  *
 393 ------------------------------------------------------------------*/
 394
 395 void Timer_init ( TIMER *t )
 396 {
 397    t->init_time_stamp = time ( NULL );
 398
 399    gettimeofday ( &(t->t0), NULL );
 400    gettimeofday ( &(t->t1), NULL );
 401 }
 402
 403 /*================================================================*/
 404
 405 CLOCK_T Timer_ticks ( void )
 406 {
 407    return clock ();
 408 }
 409
 410 /*================================================================*/
 411
 412 double Timer_sec ( TIMER *t )
 413 {
 414    return difftime ( time(NULL), t->init_time_stamp );
 415 }
 416
 417 /*================================================================*/
 418
 419 long Timer_msec ( TIMER *t )
 420 {
 421    long msec;
 422
 423    if ( gettimeofday ( &(t->t1), NULL ) < 0 ) return -1;
 424
 425    msec = ((t->t1.tv_sec-t->t0.tv_sec)*1000L)+
 426       ((t->t1.tv_usec-t->t0.tv_usec)/1000L);
 427
 428    t->t0.tv_sec = t->t1.tv_sec;
 429    t->t0.tv_usec = t->t1.tv_usec;
 430
 431    return msec;
 432 }
 433
 434 /*================================================================*/
 435
 436 int clipline(int *px1, int *py1, int *px2, int *py2)
 437 {
 438    int x1, y1, x2, y2;
 439    int K1=0,K2=0;
 440    int dx,dy;
 441
 442    x1 = *px1; y1 = *py1; x2 = *px2; y2 = *py2;
 443
 444    dx=x2-x1;
 445    dy=y2-y1;
 446
 447    if(y1<YMin) K1 =CLIPLOWER;
 448    if(y1>YMax) K1 =CLIPUPPER;
 449    if(x1<XMin) K1|=CLIPLEFT;
 450    if(x1>XMax) K1|=CLIPRIGHT;
 451
 452    if(y2<YMin) K2 =CLIPLOWER;
 453    if(y2>YMax) K2 =CLIPUPPER;
 454    if(x2<XMin) K2|=CLIPLEFT;
 455    if(x2>XMax) K2|=CLIPRIGHT;
 456
 457    while(K1 || K2)
 458    {
 459
 460       if(K1 & K2)
 461          return FALSE;
 462
 463       if(K1)
 464       {
 465          if(K1 & CLIPLEFT)
 466          {
 467             y1+=(XMin-x1)*dy/dx;
 468             x1=XMin;
 469          }
 470          else if(K1 & CLIPRIGHT)
 471          {
 472             y1+=(XMax-x1)*dy/dx;
 473             x1=XMax;
 474          }
 475
 476          if(K1 & CLIPLOWER)
 477          {
 478             x1+=(YMin-y1)*dx/dy;
 479             y1=YMin;
 480          }
 481          else if(K1 & CLIPUPPER)
 482          {
 483             x1+=(YMax-y1)*dx/dy;
 484             y1=YMax;
 485          }
 486          K1 = 0;
 487
 488          if(y1<YMin) K1 =CLIPLOWER;
 489          if(y1>YMax) K1 =CLIPUPPER;
 490          if(x1<XMin) K1|=CLIPLEFT;
 491          if(x1>XMax) K1|=CLIPRIGHT;
 492       }
 493
 494       if(K1 & K2)
 495          return FALSE;
 496
 497       if(K2)
 498       {
 499          if(K2 & CLIPLEFT)
 500          {
 501             y2+=(XMin-x2)*dy/dx;
 502             x2=XMin;
 503          }
 504          else if(K2 & CLIPRIGHT)
 505          {
 506             y2+=(XMax-x2)*dy/dx;
 507             x2=XMax;
 508          }
 509
 510          if(K2 & CLIPLOWER)
 511          {
 512             x2+=(YMin-y2)*dx/dy;
 513             y2=YMin;
 514          }
 515          else if(K2 & CLIPUPPER)
 516          {
 517             x2+=(YMax-y2)*dx/dy;
 518             y2=YMax;
 519          }
 520
 521          K2 = 0;
 522          if(y2<YMin) K2 =CLIPLOWER;
 523          if(y2>YMax) K2 =CLIPUPPER;
 524          if(x2<XMin) K2|=CLIPLEFT;
 525          if(x2>XMax) K2|=CLIPRIGHT;
 526       }
 527    }
 528
 529    *px1 = x1; *py1 = y1; *px2 = x2; *py2 = y2;
 530    return TRUE;
 531 }
 532
 533 /*================================================================*/