1 #include "src/tesuto.h"
\r
4 #include <conio.h> // this is where Open Watcom hides the outp() etc. functions
\r
14 global_game_variables_t gvar;
\r
16 #pragma pack(push,1)
\r
18 uint8_t vrl_sig[4]; // +0x00 "VRL1"
\r
19 uint8_t fmt_sig[4]; // +0x04 "VGAX"
\r
20 uint16_t height; // +0x08 Sprite height
\r
21 uint16_t width; // +0x0A Sprite width
\r
22 int16_t hotspot_x; // +0x0C Hotspot offset (X) for programmer's reference
\r
23 int16_t hotspot_y; // +0x0E Hotspot offset (Y) for programmer's reference
\r
27 static unsigned char palette[768];
\r
29 void draw_vrl_modex(unsigned int x,unsigned int y,struct vrl_header *hdr,unsigned char *data,unsigned int datasz) {
\r
30 unsigned int vram_offset = (y * vga_stride) + (x >> 2);
\r
31 unsigned char *fence = data + datasz;
\r
32 unsigned char vga_plane = (x & 3);
\r
33 unsigned char run,skip,b;
\r
34 unsigned char far *draw;
\r
36 while (data < fence) {
\r
37 /* start of another vertical strip */
\r
38 draw = vga_graphics_ram + vram_offset;
\r
39 vga_write_sequencer(0x02/*map mask*/,1 << vga_plane);
\r
41 while (data < fence) {
\r
43 if (run == 0xFF) break;
\r
45 draw += skip * vga_stride;
\r
48 while (run > 0x80) {
\r
63 /* end of a vertical strip. next line? */
\r
64 if ((++vga_plane) == 4) {
\r
70 vga_write_sequencer(0x02/*map mask*/,0xF);
\r
73 int main(int argc,char **argv) {
\r
74 struct vrl_header *vrl_header;
\r
75 unsigned char *buffer;
\r
80 fprintf(stderr,"drawvrl <VRL file> <palette file>\n");
\r
84 fd = open(argv[1],O_RDONLY|O_BINARY);
\r
86 fprintf(stderr,"Unable to open '%s'\n",argv[1]);
\r
90 unsigned long sz = lseek(fd,0,SEEK_END);
\r
91 if (sz < sizeof(vrl_header)) return 1;
\r
92 if (sz >= 65535UL) return 1;
\r
94 bufsz = (unsigned int)sz;
\r
95 buffer = malloc(bufsz);
\r
96 if (buffer == NULL) return 1;
\r
98 lseek(fd,0,SEEK_SET);
\r
99 if ((unsigned int)read(fd,buffer,bufsz) < bufsz) return 1;
\r
101 vrl_header = (struct vrl_header*)buffer;
\r
102 if (memcmp(vrl_header->vrl_sig,"VRL1",4) || memcmp(vrl_header->fmt_sig,"VGAX",4)) return 1;
\r
103 if (vrl_header->width == 0 || vrl_header->height == 0) return 1;
\r
108 if (!probe_vga()) {
\r
109 printf("VGA probe failed\n");
\r
113 update_state_from_vga();
\r
114 //vga_enable_256color_modex(); // VGA mode X
\r
115 VGAmodeX(1, &gvar);
\r
117 /* load color palette */
\r
118 fd = open(argv[2],O_RDONLY|O_BINARY);
\r
122 read(fd,palette,768);
\r
125 vga_palette_lseek(0);
\r
126 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
129 draw_vrl_modex(0,0,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));
\r
130 while (getch() != 13);
\r
135 for (i=1;i < 320;i++)
\r
136 draw_vrl_modex(i,0,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));
\r
138 while (getch() != 13);
\r
143 for (i=1;i < 200;i++)
\r
144 draw_vrl_modex(i,i,vrl_header,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));
\r
146 while (getch() != 13);
\r
149 //VGAmodeX(0, &gvar);
\r