git.sur5r.net Git - cc65/blob - samples/tgidemo.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <conio.h>
   4 #include <modload.h>
   5 #include <tgi.h>
   6
   7
   8
   9
  10
  11 /*****************************************************************************/
  12 /*                                   Data                                    */
  13 /*****************************************************************************/
  14
  15
  16
  17 static const unsigned char SinusTable[] = {
  18     0x64,0x63,0x61,0x5F,0x5D,0x5B,0x59,0x57,0x55,0x54,
  19     0x52,0x50,0x4E,0x4C,0x4A,0x49,0x47,0x45,0x43,0x42,
  20     0x40,0x3E,0x3C,0x3B,0x39,0x38,0x36,0x34,0x33,0x31,
  21     0x30,0x2E,0x2D,0x2B,0x2A,0x28,0x27,0x26,0x24,0x23,
  22     0x22,0x20,0x1F,0x1E,0x1D,0x1C,0x1B,0x1A,0x19,0x18,
  23     0x17,0x16,0x15,0x14,0x13,0x12,0x12,0x11,0x10,0x10,
  24     0x0F,0x0E,0x0E,0x0D,0x0D,0x0C,0x0C,0x0C,0x0B,0x0B,
  25     0x0B,0x0B,0x0B,0x0B,0x0B,0x0A,0x0B,0x0B,0x0B,0x0B,
  26     0x0B,0x0B,0x0B,0x0C,0x0C,0x0C,0x0D,0x0D,0x0E,0x0E,
  27     0x0F,0x10,0x10,0x11,0x12,0x12,0x13,0x14,0x15,0x16,
  28     0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,0x20,
  29     0x22,0x23,0x24,0x26,0x27,0x28,0x2A,0x2B,0x2D,0x2E,
  30     0x30,0x31,0x33,0x34,0x36,0x38,0x39,0x3B,0x3C,0x3E,
  31     0x40,0x42,0x43,0x45,0x47,0x49,0x4A,0x4C,0x4E,0x50,
  32     0x52,0x54,0x55,0x57,0x59,0x5B,0x5D,0x5F,0x61,0x63,
  33     0x64,0x65,0x67,0x69,0x6B,0x6D,0x6F,0x71,0x73,0x74,
  34     0x76,0x78,0x7A,0x7C,0x7E,0x7F,0x81,0x83,0x85,0x86,
  35     0x88,0x8A,0x8C,0x8D,0x8F,0x91,0x92,0x94,0x95,0x97,
  36     0x98,0x9A,0x9B,0x9D,0x9E,0xA0,0xA1,0xA2,0xA4,0xA5,
  37     0xA6,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,
  38     0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB6,0xB7,0xB8,0xB8,
  39     0xB9,0xBA,0xBA,0xBB,0xBB,0xBC,0xBC,0xBC,0xBD,0xBD,
  40     0xBD,0xBD,0xBD,0xBD,0xBD,0xBE,0xBD,0xBD,0xBD,0xBD,
  41     0xBD,0xBD,0xBD,0xBC,0xBC,0xBC,0xBB,0xBB,0xBA,0xBA,
  42     0xB9,0xB8,0xB8,0xB7,0xB6,0xB6,0xB5,0xB4,0xB3,0xB2,
  43     0xB1,0xB0,0xAF,0xAE,0xAD,0xAC,0xAB,0xAA,0xA9,0xA8,
  44     0xA6,0xA5,0xA4,0xA2,0xA1,0xA0,0x9E,0x9D,0x9B,0x9A,
  45     0x98,0x97,0x95,0x94,0x92,0x91,0x8F,0x8D,0x8C,0x8A,
  46     0x88,0x86,0x85,0x83,0x81,0x7F,0x7E,0x7C,0x7A,0x78,
  47     0x76,0x74,0x73,0x71,0x6F,0x6D,0x6B,0x69,0x67,0x65
  48 };
  49
  50
  51
  52 /* Driver stuff */
  53 static unsigned XRes;
  54 static unsigned YRes;
  55
  56
  57
  58 /*****************************************************************************/
  59 /*                                   Code                                    */
  60 /*****************************************************************************/
  61
  62
  63
  64 static void CheckError (const char* S)
  65 {
  66     unsigned char Error = tgi_geterror ();
  67     if (Error != TGI_ERR_OK) {
  68         printf ("%s: %d\n", S, Error);
  69         exit (EXIT_FAILURE);
  70     }
  71 }
  72
  73
  74 static void DoWarning (void)
  75 /* Warn the user that the TGI driver is needed for this program */
  76 {
  77     printf ("Warning: This program needs the TGI\n"
  78             "driver on disk! Press 'y' if you have\n"
  79             "it - any other key exits.\n");
  80     if (cgetc () != 'y') {
  81         exit (EXIT_SUCCESS);
  82     }
  83     printf ("Ok. Please wait patiently...\n");
  84 }
  85
  86
  87
  88 static void DoCircles (void)
  89 {
  90     static const unsigned char Palette[2] = { COLOR_WHITE, COLOR_LIGHTRED };
  91     unsigned char I;
  92     unsigned char Color = 1;
  93
  94     tgi_setpalette (Palette);
  95     while (!kbhit ()) {
  96         tgi_setcolor (1);
  97         tgi_line (0, 0, 319, 199);
  98         tgi_line (0, 199, 319, 0);
  99         tgi_setcolor (Color);
 100         for (I = 10; I < 240; I += 10) {
 101             tgi_circle (160, 100, I);
 102         }
 103         Color ^= 0x01;
 104     }
 105
 106     cgetc ();
 107     tgi_clear ();
 108 }
 109
 110
 111
 112 static void DoCheckerboard (void)
 113 {
 114     static const unsigned char Palette[2] = { COLOR_WHITE, COLOR_BLACK };
 115     unsigned X, Y;
 116     unsigned char Color;
 117
 118     tgi_setpalette (Palette);
 119     Color = 0;
 120     while (1) {
 121         for (Y = 0; Y < YRes; Y += 10) {
 122             for (X = 0; X < XRes; X += 10) {
 123                 tgi_setcolor (Color);
 124                 tgi_bar (X, Y, X+9, Y+9);
 125                 Color ^= 0x01;
 126                 if (kbhit ()) {
 127                     cgetc ();
 128                     tgi_clear ();
 129                     return;
 130                 }
 131             }
 132             Color ^= 0x01;
 133         }
 134         Color ^= 0x01;
 135     }
 136 }
 137
 138
 139
 140 static void DoDiagram (void)
 141 {
 142     static const unsigned char Palette[2] = { COLOR_WHITE, COLOR_BLACK };
 143     unsigned X;
 144
 145     tgi_setpalette (Palette);
 146     tgi_setcolor (1);
 147     tgi_line (10, 10, 10, 190);
 148     tgi_lineto (310, 190);
 149     tgi_line (8, 12, 10, 10);
 150     tgi_lineto (12, 12);
 151     tgi_line (308, 188, 310, 190);
 152     tgi_lineto (308, 192);
 153     for (X = 0; X < sizeof (SinusTable); ++X) {
 154         tgi_setpixel (X+10, SinusTable[X]);
 155     }
 156
 157     cgetc ();
 158     tgi_clear ();
 159 }
 160
 161
 162 static void DoLines (void)
 163 {
 164     static const unsigned char Palette[2] = { COLOR_WHITE, COLOR_BLACK };
 165     unsigned X;
 166
 167     tgi_setpalette (Palette);
 168     tgi_setcolor (1);
 169
 170     for (X = 0; X < 200; X+=10) {
 171         tgi_line(0, 0, 200, X);
 172         tgi_line(0, 0, X, 200);
 173         tgi_line(200, 200, 0, 200-X);
 174         tgi_line(200, 200, 200-X, 0);
 175     }
 176
 177     cgetc ();
 178     tgi_clear ();
 179 }
 180
 181 int main (void)
 182 {
 183     unsigned char Border;
 184
 185     /* Warn the user that the tgi driver is needed */
 186     DoWarning ();
 187
 188     /* Load and initialize the driver */
 189     tgi_load (TGI_MODE_320_200_2);
 190     CheckError ("tgi_load");
 191     tgi_init ();
 192     CheckError ("tgi_init");
 193
 194     /* Get stuff from the driver */
 195     XRes = tgi_getxres ();
 196     YRes = tgi_getyres ();
 197
 198     /* Set the palette, set the border color */
 199     Border = bordercolor (COLOR_BLACK);
 200
 201     /* Do graphics stuff */
 202     DoCircles ();
 203     DoCheckerboard ();
 204     DoDiagram ();
 205     DoLines ();
 206
 207     /* Unload the driver */
 208     tgi_unload ();
 209
 210     /* Reset the border */
 211     bordercolor (Border);
 212
 213     /* Done */
 214     printf ("Done\n");
 215     return EXIT_SUCCESS;
 216 }