src/tesuto.c

   1 #include "src/tesuto.h"\r
   2 /*\r
   3 #include <stdio.h>\r
   4 #include <conio.h> // this is where Open Watcom hides the outp() etc. functions\r
   5 #include <ctype.h>\r
   6 #include <stdlib.h>\r
   7 #include <unistd.h>\r
   8 #include <assert.h>\r
   9 #include <fcntl.h>\r
  10 #include <math.h>\r
  11 #include <dos.h>\r
  12 */\r
  13 \r
  14 #pragma pack(push,1)\r
  15 struct vrl_header {\r
  16         uint8_t                 vrl_sig[4];             // +0x00  "VRL1"\r
  17         uint8_t                 fmt_sig[4];             // +0x04  "VGAX"\r
  18         uint16_t                height;                 // +0x08  Sprite height\r
  19         uint16_t                width;                  // +0x0A  Sprite width\r
  20         int16_t                 hotspot_x;              // +0x0C  Hotspot offset (X) for programmer's reference\r
  21         int16_t                 hotspot_y;              // +0x0E  Hotspot offset (Y) for programmer's reference\r
  22 };                                                      // =0x10\r
  23 #pragma pack(pop)\r
  24 \r
  25 static unsigned char palette[768];\r
  26 \r
  27 void draw_vrl_modex(unsigned int x,unsigned int y,struct vrl_header *hdr,unsigned char *data,unsigned int datasz) {\r
  28         unsigned int vram_offset = (y * vga_stride) + (x >> 2);\r
  29         unsigned char *fence = data + datasz;\r
  30         unsigned char vga_plane = (x & 3);\r
  31         unsigned char run,skip,b;\r
  32         unsigned char far *draw;\r
  33 \r
  34         while (data < fence) {\r
  35                 /* start of another vertical strip */\r
  36                 draw = vga_graphics_ram + vram_offset;\r
  37                 vga_write_sequencer(0x02/*map mask*/,1 << vga_plane);\r
  38 \r
  39                 while (data < fence) {\r
  40                         run = *data++;\r
  41                         if (run == 0xFF) break;\r
  42                         skip = *data++;\r
  43                         draw += skip * vga_stride;\r
  44                         if (run & 0x80) {\r
  45                                 b = *data++;\r
  46                                 while (run > 0x80) {\r
  47                                         *draw = b;\r
  48                                         draw += vga_stride;\r
  49                                         run--;\r
  50                                 }\r
  51                         }\r
  52                         else {\r
  53                                 while (run > 0) {\r
  54                                         *draw = *data++;\r
  55                                         draw += vga_stride;\r
  56                                         run--;\r
  57                                 }\r
  58                         }\r
  59                 }\r
  60 \r
  61                 /* end of a vertical strip. next line? */\r
  62                 if ((++vga_plane) == 4) {\r
  63                         vram_offset++;\r
  64                         vga_plane = 0;\r
  65                 }\r
  66         }\r
  67 \r
  68         vga_write_sequencer(0x02/*map mask*/,0xF);\r
  69 }\r
  70 \r
  71 int main(int argc,char **argv) {\r
  72         struct vrl_header *vrl_header;\r
  73         unsigned char *buffer;\r
  74         unsigned int bufsz;\r
  75         int fd;\r
  76 \r
  77         if (argc < 3) {\r
  78                 fprintf(stderr,"drawvrl <VRL file> <palette file>\n");\r
  79                 return 1;\r
  80         }\r
  81 \r
  82         fd = open(argv[1],O_RDONLY|O_BINARY);\r
  83         if (fd < 0) {\r
  84                 fprintf(stderr,"Unable to open '%s'\n",argv[1]);\r
  85                 return 1;\r
  86         }\r
  87         {\r
  88                 unsigned long sz = lseek(fd,0,SEEK_END);\r
  89                 if (sz < sizeof(vrl_header)) return 1;\r
  90                 if (sz >= 65535UL) return 1;\r
  91 \r
  92                 bufsz = (unsigned int)sz;\r
  93                 buffer = malloc(bufsz);\r
  94                 if (buffer == NULL) return 1;\r
  95 \r
  96                 lseek(fd,0,SEEK_SET);\r
  97                 if ((unsigned int)read(fd,buffer,bufsz) < bufsz) return 1;\r
  98 \r
  99                 vrl_header = (struct vrl_header*)buffer;\r
 100                 if (memcmp(vrl_header->vrl_sig,"VRL1",4) || memcmp(vrl_header->fmt_sig,"VGAX",4)) return 1;\r
 101                 if (vrl_header->width == 0 || vrl_header->height == 0) return 1;\r
 102         }\r
 103         close(fd);\r
 104 \r
 105         probe_dos();\r
 106         if (!probe_vga()) {\r
 107                 printf("VGA probe failed\n");\r
 108                 return 1;\r
 109         }\r
 110         int10_setmode(19);\r
 111         update_state_from_vga();\r
 112         vga_enable_256color_modex(); // VGA mode X\r
 113 \r
 114         /* load color palette */\r
 115         fd = open(argv[2],O_RDONLY|O_BINARY);\r
 116         if (fd >= 0) {\r
 117                 unsigned int i;\r
 118 \r
 119                 read(fd,palette,768);\r
 120                 close(fd);\r
 121 \r
 122                 vga_palette_lseek(0);\r
 123                 for (i=0;i < 256;i++) vga_palette_write(palette[(i*3)+0]>>2,palette[(i*3)+1]>>2,palette[(i*3)+2]>>2);\r
 124         }\r
 125 \r
 126         draw_vrl_modex(0,0,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));\r
 127         while (getch() != 13);\r
 128 \r
 129         {\r
 130                 unsigned int i;\r
 131 \r
 132                 for (i=1;i < 320;i++)\r
 133                         draw_vrl_modex(i,0,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));\r
 134         }\r
 135         while (getch() != 13);\r
 136 \r
 137         {\r
 138                 unsigned int i;\r
 139 \r
 140                 for (i=1;i < 200;i++)\r
 141                         draw_vrl_modex(i,i,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));\r
 142         }\r
 143         while (getch() != 13);\r
 144 \r
 145         int10_setmode(3);\r
 146         buffer = NULL;\r
 147         free(buffer);\r
 148         bufsz = 0;\r
 149         return 0;\r
 150 }\r