Demos/SecondReality
Watch
1
0
Fork
You've already forked SecondReality
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Upload

Browse source
This commit is contained in:
Frater 2017-09-24 01:45:36 +02:00
commit 43352ff262
1291 changed files with 220976 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

125
ENDSCRL/MAIN.C Normal file
View file

@ -0,0 +1,125 @@
#include <dos.h>
#include <io.h>
#include <fcntl.h>
#include "i:\u2\dis\dis.h"
#define FONAY 30
extern void waitvr(void);
extern void setstart(int);
extern void setrgbpalette(int p, int r, int g, int b);
extern char far font[31][1500];
char *fonaorder="ABCDEFGHIJKLMNOPQRSTUVWXabcdefghijklmnopqrstuvwxyz0123456789!?,.:<3A><>()+-*='";
int fonap[256];
int fonaw[256];
char tbuf[FONAY][640];
main() {
dis_partstart();
dis_waitb();
asm mov ax, 0eh
asm int 10h // 640x350 16c
asm mov ax, 9h
asm mov dx, 3d4h
asm out dx, ax
setrgbpalette(1,20,20,20);
setrgbpalette(2,40,40,40);
setrgbpalette(3,60,60,60);
setrgbpalette(4,60,60,60);
setrgbpalette(5,60,60,60);
setrgbpalette(6,60,60,60);
setrgbpalette(7,60,60,60);
setrgbpalette(8,60,60,60);
setrgbpalette(9,60,60,60);
setrgbpalette(10,60,60,60);
setrgbpalette(11,60,60,60);
setrgbpalette(12,60,60,60);
setrgbpalette(13,60,60,60);
setrgbpalette(14,60,60,60);
setrgbpalette(15,60,60,60);
init();
while(!dis_exit())
{
if(dis_waitb()==1) dis_waitb();
do_scroll();
}
}
char far text[64000]="Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0Testing Testing\0PIXEL SUCKS\0ABCDEFGHIJKLMNOPQRSTUVWXYZ\0abcdefghijklmnopqrsuvwxyz\0";
char *tptr=text;
int tstart=0,chars=0;
int mtau[8]={128,64,32,16,8,4,2,1};
char textline[100];
char scanbuf[4][80];
do_scroll()
{
static int yscrl=0;
static int line=0;
int a,b,c,x,y,m;
if(line==0)
{
for(a=0,tstart=0,chars=0;*tptr!='\n';a++,chars++)
{
textline[a]=*tptr;
tstart+=fonaw[*tptr++]+2;
}
textline[a]=*tptr++; tstart=(639-tstart)/2;
}
memset(scanbuf,0,80*4);
for(a=0,x=tstart;a<chars;a++,x+=2) for(b=0;b<fonaw[textline[a]];b++,x++)
{
m=mtau[x&7];
if(font[line][fonap[textline[a]]+b]&1)
scanbuf[0][x/8]^=m;
if(font[line][fonap[textline[a]]+b]&2)
scanbuf[1][x/8]^=m;
if(font[line][fonap[textline[a]]+b]&4)
scanbuf[2][x/8]^=m;
if(font[line][fonap[textline[a]]+b]&8)
scanbuf[3][x/8]^=m;
}
outport(0x3c4,0x0102); memcpy(MK_FP(0x0a000,80*yscrl),scanbuf[0],80); memcpy(MK_FP(0x0a000,80*(yscrl+401)),scanbuf[0],80);
outport(0x3c4,0x0202); memcpy(MK_FP(0x0a000,80*yscrl),scanbuf[1],80); memcpy(MK_FP(0x0a000,80*(yscrl+401)),scanbuf[1],80);
outport(0x3c4,0x0402); memcpy(MK_FP(0x0a000,80*yscrl),scanbuf[2],80); memcpy(MK_FP(0x0a000,80*(yscrl+401)),scanbuf[2],80);
outport(0x3c4,0x0802); memcpy(MK_FP(0x0a000,80*yscrl),scanbuf[3],80); memcpy(MK_FP(0x0a000,80*(yscrl+401)),scanbuf[3],80);
yscrl=(yscrl+1)%401;
line=(line+1)%FONAY;
setstart(yscrl*80+80*1);
}
init()
{
int x,y,a,b;
a=open("endscrol.txt",O_RDONLY); read(a,text,60000); close(a);
for(x=0;x<1500 && *fonaorder;)
{
while(x<1500)
{
for(y=0;y<FONAY;y++) if(font[y][x]) break;
if(y!=FONAY) break;
x++;
}
b=x;
while(x<1500)
{
for(y=0;y<FONAY;y++) if(font[y][x]) break;
if(y==FONAY) break;
x++;
}
//printf("%c: %i %i\n",*fonaorder,b,x-b);
fonap[*fonaorder]=b;
fonaw[*fonaorder]=x-b;
fonaorder++;
}
fonap[32]=1500-20;
fonaw[32]=16;
}