dos33fsprogs/utils/gr-sim/split_screen/split_screen.c
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

236 lines
3.5 KiB
C

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include "../tfv_zp.h"
#include "../tfv/tfv_sprites.h"
#include "../tfv/tfv_sprites.c"
#include "gr-sim.h"
static int letter_index=0,letter_x=39,letter_y=2,destination=16,which_string=0;
static char strings[12][32]= {
"T A L B O T",
"F A N T A S Y",
"S E V E N",
"",
"BY",
"VINCE WEAVER",
"",
"MUSIC BY",
"HIROKAZU TANAKA",
"",
"CYCLE COUNTING IS HARD",
"",
};
static int destinations[12]={
15,14,16,255,
19,14,255,
16,12,255,
9,0,
};
static int ys[12]={
2,3,4,255,
2,3,255,
2,3,255,
2,0,
};
static void letter_slide(void) {
char out[BUFSIZ];
char ch;
if (destinations[which_string]==0) return; // at end
ch=strings[which_string][letter_index];
if (ch==0) {
which_string++;
letter_index=0;
destination=destinations[which_string];
letter_x=39;
letter_y=ys[which_string];
return;
}
vtab(letter_y);
htab(letter_x);
move_cursor();
out[0]=ch; out[1]=0;
print(out);
letter_x--;
if (letter_x<destination) {
letter_index++;
destination++;
letter_x=39;
}
out[0]=' '; out[1]=0;
print(out);
}
int main(int argc, char **argv) {
int yy,ch;
int i,fd;
grsim_init();
/* Text first */
text();
home();
ram[DISP_PAGE]=0x0;
ram[DRAW_PAGE]=0x0;
vtab(1); htab(1); move_cursor();
print(" * . ");
vtab(2); htab(1); move_cursor();
print(" * . T A L B O T . ");
vtab(3); htab(1); move_cursor();
print(" * F A N T A S Y ");
vtab(4); htab(1); move_cursor();
print(" * S E V E N ");
vtab(5); htab(1); move_cursor();
print(" . . . ");
vtab(6); htab(1); move_cursor();
print(" . ");
/* draw the moon */
vtab(1); htab(4); move_cursor(); print_inverse(" ");
vtab(2); htab(3); move_cursor(); print_inverse(" ");
vtab(3); htab(3); move_cursor(); print_inverse(" ");
vtab(4); htab(4); move_cursor(); print_inverse(" ");
while(1) {
grsim_update();
ch=grsim_input();
if (ch!=0) break;
usleep(100000);
}
/* gr part */
soft_switch(LORES); // LDA SW.LORES
soft_switch(TXTCLR); // LDA TXTCLR
soft_switch(MIXCLR);
color_equals(4);
for(i=28;i<48;i++) {
basic_hlin(0,39,i);
}
while(1) {
grsim_update();
ch=grsim_input();
if (ch!=0) break;
usleep(100000);
}
hgr();
/* Put horizontal lines on screen */
for(yy=64;yy<128;yy++) {
hcolor_equals(1);
hplot(0,yy);
hplot_to(279,yy);
}
fd=open("KATC.BIN",O_RDONLY);
if (fd<0) {
printf("Error opening!\n");
return -1;
}
read(fd,&ram[0x2000],0x2000);
close(fd);
while(1) {
grsim_update();
ch=grsim_input();
if (ch) break;
usleep(100000);
}
set_plaid();
int frame=0;
int tree1_x=28,tree1_y=28;
int tree2_x=37,tree2_y=30;
grsim_put_sprite_page(PAGE0,
bird_rider_stand_right,
17,30);
while(1) {
grsim_update();
color_equals(4);
for(i=28;i<48;i++) {
basic_hlin(0,39,i);
}
grsim_put_sprite_page(PAGE0,
small_tree,
tree1_x,tree1_y);
grsim_put_sprite_page(PAGE0,
big_tree,
tree2_x,tree2_y);
if (frame%8>4) {
grsim_put_sprite_page(PAGE0,
bird_rider_stand_right,
17,30);
}
else {
grsim_put_sprite_page(PAGE0,
bird_rider_walk_right,
17,30);
}
ch=grsim_input();
if (ch) break;
usleep(16000);
frame++;
if (frame>31) frame=0;
if (frame%4==0) {
tree2_x--;
if (tree2_x<0) tree2_x=37;
}
if (frame%16==0) {
tree1_x--;
if (tree1_x<0) tree1_x=37;
}
letter_slide();
}
return 0;
}