16/modex16/TEST.C

   1 #include "modex16.h"\r
   2 #include <stdio.h>\r
   3 \r
   4 word far* clock= (word far*) 0x046C; /* 18.2hz clock */\r
   5 \r
   6 void main() {\r
   7     int i, j;\r
   8     word start, end;\r
   9     page_t page, page2;\r
  10     float elapsed;\r
  11     byte *pal, *pal2=NULL;\r
  12 \r
  13     /* load our palette */\r
  14     modexLoadPalFile("gfx.pal", &pal2);\r
  15 \r
  16     /* save the palette */\r
  17     pal  = modexNewPal();\r
  18     modexPalSave(pal);\r
  19     modexFadeOff(1, pal);\r
  20     modexPalBlack();\r
  21 \r
  22     modexEnter();\r
  23     modexPalBlack();\r
  24 \r
  25     /* set up the page, but with 16 pixels on all borders in offscreen mem */\r
  26     page=modexDefaultPage();\r
  27     page2 = modexNextPage(&page);\r
  28     page.width += 32;\r
  29     page.height += 32;\r
  30 \r
  31 \r
  32     /* fill the page with one color, but with a black border */\r
  33     modexShowPage(&page2);\r
  34     modexClearRegion(&page, 16, 16, SCREEN_WIDTH, SCREEN_HEIGHT, 128);\r
  35     modexClearRegion(&page, 32, 32, SCREEN_WIDTH-32, SCREEN_HEIGHT-32, 42);\r
  36     modexClearRegion(&page, 48, 48, SCREEN_WIDTH-64, SCREEN_HEIGHT-64, 128);\r
  37     modexShowPage(&page);\r
  38 \r
  39     /* fade in */\r
  40     modexFadeOn(1, pal2);\r
  41 \r
  42 \r
  43     start = *clock;\r
  44     for(i=0; i<5; i++) {\r
  45         /* go right */\r
  46         for(j=0; j<32; j++) {\r
  47             page.dx++;\r
  48             modexShowPage(&page);\r
  49         }\r
  50         /* go left */\r
  51         for(j=0; j<32; j++) {\r
  52             page.dx--;\r
  53             modexShowPage(&page);\r
  54         }\r
  55         /* go up */\r
  56         for(j=0; j<32; j++) {\r
  57             page.dy++;\r
  58             modexShowPage(&page);\r
  59         }\r
  60 \r
  61         /* go down */\r
  62         for(j=0; j<32; j++) {\r
  63             page.dy--;\r
  64             modexShowPage(&page);\r
  65         }\r
  66     }\r
  67 \r
  68     end = *clock;\r
  69 \r
  70     /* fade back to text mode */\r
  71     modexFadeOff(1, pal2);\r
  72     modexPalBlack();\r
  73     modexLeave();\r
  74     modexPalBlack();\r
  75     modexFadeOn(1, pal);\r
  76 }\r