ref: 3e27f1b2d0d8f020e9d3509934736ee9055b8c31
dir: /src/rt_vid.c/
/*
Copyright (C) 1994-1995 Apogee Software, Ltd.
Copyright (C) 2002-2015 icculus.org, GNU/Linux port
Copyright (C) 2017-2018 Steven LeVesque
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "rt_def.h"
#include "rt_vid.h"
#include "_rt_vid.h"
#include "rt_menu.h"
#include "rt_util.h"
#include "modexlib.h"
#include "profile.h"
#include "watcom.h"
#include "rt_str.h"
#include "rt_draw.h"
#include "rt_in.h"
#include "rt_main.h"
#include "z_zone.h"
#include "lumpy.h"
#include "rt_vh_a.h"
#include "isr.h"
#include "rt_view.h"
#include "cin_efct.h"
#include "w_wad.h"
//******************************************************************************
//
// GLOBALS
//
//******************************************************************************
byte *updateptr;
unsigned mapwidthtable[64];
unsigned uwidthtable[UPDATEHIGH];
unsigned blockstarts[UPDATEWIDE*UPDATEHIGH];
byte update[UPDATESIZE];
byte palette1[256][3], palette2[256][3];
boolean screenfaded;
//******************************************************************************
//
// VL_MemToScreen ()
//
//******************************************************************************
void VL_MemToScreen (byte *source, int width, int height, int x, int y)
{
/* TODO please optimize me */
byte *ptr, *destline;
int plane, i, j;
ptr = source;
for (plane = 0; plane < 4; plane++) {
for (j = 0; j < height; j++) {
destline = (byte *)(bufferofs+ylookup[y+j]+x);
for (i = 0; i < width; i++) {
// if (ptr < bufferofs + toplimit) { //bnafix zxcvb
*(destline + i*4 + plane) = *ptr++;
// }
}
}
}
}
// bna function start
void VL_MemToScreenClipped (byte *source, int width, int height, int x, int y);
void VL_MemToScreenClipped (byte *source, int width, int height, int x, int y)
{
byte *ptr, *destline;
int plane, i, j;//,toplimit;
ptr = source;
for (plane = 0; plane < 4; plane++) {
for (j = 0; j < height; j++) {
destline = (byte *)(bufferofs+ylookup[y+j]+x);
for (i = 0; i < width; i++) {
if (*ptr != 255) {
*(destline + i*4 + plane) = *ptr++;
} else {
ptr++;
}
}
}
}
}
//copy picture to mem (bufferofs) in doublesize
void VL_MemStrechedToScreen (byte *source, int width, int height, int x, int y)
{
byte *ptr, *destline,*tmp,*o;
int plane, i, j;
tmp = bufferofs;
ptr = source;
for (plane = 0; plane < 4; plane++) {
for (j = 0; j < height; j++) {
destline = (byte *)(bufferofs+(iGLOBAL_SCREENWIDTH*j)+ylookup[y+j]+x);
o = ptr;
for (i = 0; i < width; i+=1) {
*(destline + i*4 + plane) = *ptr;
destline++;
*(destline + i*4 + plane) = *ptr++;
}
ptr = o;
destline = (byte *)(bufferofs+iGLOBAL_SCREENWIDTH+(iGLOBAL_SCREENWIDTH*j)+ylookup[y+j]+x);
for (i = 0; i < width; i+=1) {
*(destline + i*4 + plane) = *ptr;
destline++;
*(destline + i*4 + plane) = *ptr++;
}
}
}
bufferofs = tmp;
}
// bna function end
//*************************************************************************
//
// DrawTiledRegion () - Fills the specified region with a tiled image
//
//*************************************************************************
void DrawTiledRegion
(
int x,
int y,
int width,
int height,
int offx,
int offy,
pic_t *tile
)
{
byte *source;
byte *sourceoff;
int sourcex;
int sourcey;
int sourcewidth;
int sourceheight;
int plane;
int planesize;
byte *start;
byte *origdest;
byte *dest;
int startoffset;
int HeightIndex;
int WidthIndex;
start = ( byte * )( bufferofs + x + ylookup[ y ] );
source = &tile->data;
sourcewidth = tile->width;
sourceheight = tile->height;
if ( offx >= sourcewidth )
{
offx %= sourcewidth;
}
if ( offy >= sourceheight )
{
offy %= sourceheight;
}
startoffset = offy * sourcewidth;
planesize = sourcewidth * sourceheight;
plane = 4;
while( plane > 0 )
{
origdest = start+(4-plane);
sourcey = offy;
sourceoff = source + startoffset;
HeightIndex = height;
while( HeightIndex-- )
{
dest = origdest;
sourcex = offx;
WidthIndex = width;
while( WidthIndex-- )
{
*dest = sourceoff[ sourcex ];
dest += 4;
sourcex++;
if ( sourcex >= sourcewidth )
{
sourcex = 0;
}
}
origdest += iGLOBAL_SCREENWIDTH;
sourceoff += sourcewidth;
sourcey++;
if ( sourcey >= sourceheight )
{
sourcey = 0;
sourceoff = source;
}
}
source += planesize;
plane--;
}
}
//******************************************************************************
//
// VWB_DrawPic () - Draws a linear pic and marks the update block
//
//******************************************************************************
void VWB_DrawPic (int x, int y, pic_t *pic)
{
if (((iGLOBAL_SCREENWIDTH > 320) && !StretchScreen) ||
VW_MarkUpdateBlock (x, y, x+(pic->width<<2)-1, y+(pic->height)-1))
VL_MemToScreen ((byte *)&pic->data, pic->width, pic->height, x, y);
}
//******************************************************************************
//
// VL_Bar () - Draws a bar
//
//******************************************************************************
void VL_Bar (int x, int y, int width, int height, int color)
{
byte *dest = (byte *)(bufferofs+ylookup[y]+x);
while (height--) {
memset(dest, color, width);
dest += linewidth;
}
}
//******************************************************************************
//
// VWB_Bar () - Draws a block and marks the update block
//
//******************************************************************************
void VWB_Bar (int x, int y, int width, int height, int color)
{
if (((iGLOBAL_SCREENWIDTH > 320) && !StretchScreen) ||
VW_MarkUpdateBlock (x,y,x+width,y+height-1) )
VL_Bar (x, y, width, height, color);
}
//******************************************************************************
//
// VL_TBar () - Draws a bar
//
//******************************************************************************
void VL_TBar (int x, int y, int width, int height)
{
int w = width;
while (height--) {
byte *dest = (byte *)(bufferofs+ylookup[y]+x);
width = w;
while (width--) {
byte pixel = *dest;
pixel = *(colormap+(27<<8)+pixel);
*dest = pixel;
dest++;
}
y++;
}
}
//******************************************************************************
//
// VWB_TBar () - Draws a block and marks the update block
//
//******************************************************************************
void VWB_TBar (int x, int y, int width, int height)
{
if (VW_MarkUpdateBlock (x,y,x+width,y+height-1))
VL_TBar (x, y, width, height);
}
//******************************************************************************
//
// VL_Hlin () - Draws a horizontal line
//
//******************************************************************************
void VL_Hlin (unsigned x, unsigned y, unsigned width, unsigned color)
{
byte *dest = (byte*)(bufferofs+ylookup[y]+x);
memset(dest, color, width);
}
//******************************************************************************
//
// VL_Vlin () - Draws a vertical line
//
//******************************************************************************
void VL_Vlin (int x, int y, int height, int color)
{
byte *dest = (byte*)(bufferofs+ylookup[y]+x);
while (height--) {
*dest = color;
dest += linewidth;
}
}
//******************************************************************************
//
// VWB_Hlin () - Draws a horizontal line and marks the update block
//
//******************************************************************************
void VWB_Hlin (int x1, int x2, int y, int color)
{
if (VW_MarkUpdateBlock (x1,y,x2,y))
VW_Hlin(x1,x2,y,color);
}
//******************************************************************************
//
// VWB_Vlin () - Draws a vertical line and marks the update block
//
//******************************************************************************
void VWB_Vlin (int y1, int y2, int x, int color)
{
if (VW_MarkUpdateBlock (x,y1,x,y2))
VW_Vlin(y1,y2,x,color);
}
//******************************************************************************
//
// VL_THlin ()
//
//******************************************************************************
void VL_THlin (unsigned x, unsigned y, unsigned width, boolean up)
{
byte *dest = (byte*)(bufferofs+ylookup[y]+x);
while (width--) {
byte pixel = *dest;
if (up) {
pixel = *(colormap+(13<<8)+pixel);
} else {
pixel = *(colormap+(27<<8)+pixel);
}
*dest = pixel;
dest++;
}
}
//******************************************************************************
//
// VL_TVlin ()
//
//******************************************************************************
void VL_TVlin (unsigned x, unsigned y, unsigned height, boolean up)
{
byte *dest = (byte*)(bufferofs+ylookup[y]+x);
while (height--) {
byte pixel = *dest;
if (up) {
pixel = *(colormap+(13<<8)+pixel);
} else {
pixel = *(colormap+(27<<8)+pixel);
}
*dest = pixel;
dest += linewidth;
}
}
//******************************************************************************
//
// VWB_THlin () - Draws a horizontal line and marks the update block
//
//******************************************************************************
void VWB_THlin (int x1, int x2, int y, boolean up)
{
if (VW_MarkUpdateBlock (x1,y,x2,y))
VW_THlin (x1,x2,y,up);
}
//******************************************************************************
//
// VWB_TVlin () - Draws a vertical line and marks the update block
//
//******************************************************************************
void VWB_TVlin (int y1, int y2, int x, boolean up)
{
if (VW_MarkUpdateBlock (x,y1,x,y2))
VW_TVlin (y1,y2,x,up);
}
/*
================================================================================
Double buffer management routines
================================================================================
*/
//******************************************************************************
//
// VW_MarkUpdateBlock
//
// Takes a pixel bounded block and marks the tiles in bufferblocks
// Returns 0 if the entire block is off the buffer screen
//
//******************************************************************************
int VW_MarkUpdateBlock (int x1, int y1, int x2, int y2)
{
int x,
y,
xt1,
yt1,
xt2,
yt2,
nextline;
byte *mark;
xt1 = x1 >> PIXTOBLOCK;
yt1 = y1 >> PIXTOBLOCK;
xt2 = x2 >> PIXTOBLOCK;
yt2 = y2 >> PIXTOBLOCK;
if (xt1 < 0)
xt1 = 0;
else if (xt1 >= UPDATEWIDE)
return 0;
if (yt1 < 0)
yt1 = 0;
else if (yt1 > UPDATEHIGH)
return 0;
if (xt2 < 0)
return 0;
else if (xt2 >= UPDATEWIDE)
xt2 = UPDATEWIDE-1;
if (yt2 < 0)
return 0;
else if (yt2 >= UPDATEHIGH)
yt2 = UPDATEHIGH-1;
mark = updateptr + uwidthtable[yt1] + xt1;
nextline = UPDATEWIDE - (xt2-xt1) - 1;
for (y = yt1; y <= yt2; y++)
{
for (x = xt1; x <= xt2; x++)
*mark++ = 1; // this tile will need to be updated
mark += nextline;
}
return 1;
}
//******************************************************************************
//
// VW_UpdateScreen ()
//
//******************************************************************************
void VW_UpdateScreen (void)
{
VH_UpdateScreen ();
}
//===========================================================================
/*
=================
=
= VL_FadeOut
=
= Fades the current palette to the given color in the given number of steps
=
=================
*/
void VL_FadeOut (int start, int end, int red, int green, int blue, int steps)
{
int i,j,orig,delta;
byte *origptr, *newptr;
if (screenfaded)
return;
WaitVBL ();
VL_GetPalette (&palette1[0][0]);
memcpy (palette2, palette1, 768);
//
// fade through intermediate frames
//
for (i = 0; i < steps; i++)
{
origptr = &palette1[start][0];
newptr = &palette2[start][0];
for (j = start; j <= end; j++)
{
orig = *origptr++;
delta = red-orig;
*newptr++ = orig + delta * i / steps;
orig = *origptr++;
delta = green-orig;
*newptr++ = orig + delta * i / steps;
orig = *origptr++;
delta = blue-orig;
*newptr++ = orig + delta * i / steps;
}
WaitVBL ();
VL_SetPalette (&palette2[0][0]);
VH_UpdateScreen();
}
//
// final color
//
VL_FillPalette (red,green,blue);
screenfaded = true;
}
SDL_Texture * GetMainSurfaceAsTexture();
//void DoScreenRotateScale(int, int, SDL_Texture * , int, float);
void VL_FadeOutScaledScreen (int start, int end, int red, int green, int blue, int steps, float scale)
{
int i,j,orig,delta;
byte *origptr, *newptr;
if (screenfaded)
return;
WaitVBL ();
VL_GetPalette (&palette1[0][0]);
memcpy (palette2, palette1, 768);
//
// fade through intermediate frames
//
for (i = 0; i < steps; i++)
{
origptr = &palette1[start][0];
newptr = &palette2[start][0];
for (j = start; j <= end; j++)
{
orig = *origptr++;
delta = red-orig;
*newptr++ = orig + delta * i / steps;
orig = *origptr++;
delta = green-orig;
*newptr++ = orig + delta * i / steps;
orig = *origptr++;
delta = blue-orig;
*newptr++ = orig + delta * i / steps;
}
WaitVBL ();
VL_SetPalette (&palette2[0][0]);
//printf("%d \n", (int)((float)iGLOBAL_SCREENWIDTH*scale));
//printf("%d \n", (int)((float)iGLOBAL_SCREENHEIGHT*scale));
//printf("%f \n", scale);
SDL_Texture * tex = GetMainSurfaceAsTexture();
DoScreenRotateScale(iGLOBAL_SCREENWIDTH,iGLOBAL_SCREENHEIGHT, tex, 0, scale);
SDL_DestroyTexture(tex);
}
//
// final color
//
VL_FillPalette (red,green,blue);
screenfaded = true;
}
/*
=================
=
= VL_FadeToColor
=
= Fades the current palette to the given color in the given number of steps
=
=================
*/
void VL_FadeToColor (int time, int red, int green, int blue)
{
int i,j,orig,delta;
byte *origptr, *newptr;
int dmax,dmin;
if (screenfaded)
return;
WaitVBL ();
VL_GetPalette (&palette1[0][0]);
memcpy (palette2, palette1, 768);
dmax=(maxshade<<16)/time;
dmin=(minshade<<16)/time;
//
// fade through intermediate frames
//
for (i = 0; i < time; i+=tics)
{
origptr = &palette1[0][0];
newptr = &palette2[0][0];
for (j = 0; j <= 255; j++)
{
orig = *origptr++;
delta = ((red>>2)-orig)<<16;
*newptr++ = orig + FixedMul(delta/time,i);
orig = *origptr++;
delta = ((green>>2)-orig)<<16;
*newptr++ = orig + FixedMul(delta/time,i);
orig = *origptr++;
delta = ((blue>>2)-orig)<<16;
*newptr++ = orig + FixedMul(delta/time,i);
}
maxshade=(dmax*(time-i))>>16;
minshade=(dmin*(time-i))>>16;
WaitVBL ();
VL_SetPalette (&palette2[0][0]);
ThreeDRefresh();
CalcTics();
}
//
// final color
//
VL_FillPalette (red>>2,green>>2,blue>>2);
screenfaded = true;
}
/*
=================
=
= VL_FadeIn
=
=================
*/
void VL_FadeIn (int start, int end, byte *palette, int steps)
{
int i,j,delta;
WaitVBL ();
VL_GetPalette (&palette1[0][0]);
memcpy (&palette2[0][0], &palette1[0][0], sizeof(palette1));
start *= 3;
end = end*3+2;
//
// fade through intermediate frames
//
for (i=0; i<steps; i++)
{
for (j=start; j<=end; j++)
{
delta = palette[j]-palette1[0][j];
palette2[0][j] = palette1[0][j] + delta * i / steps;
}
WaitVBL ();
VL_SetPalette (&palette2[0][0]);
VH_UpdateScreen();
}
//
// final color
//
VL_SetPalette (palette);
screenfaded = false;
VH_UpdateScreen();
}
//******************************************************************************
//
// SwitchPalette
//
//******************************************************************************
void SwitchPalette (byte * newpal, int steps)
{
byte *temp;
VL_FadeOut(0,255,0,0,0,steps>>1);
temp = bufferofs;
bufferofs = displayofs;
VL_Bar (0, 0, 320, 200, 0);
bufferofs = temp;
VL_FadeIn(0,255,newpal,steps>>1);
}
//==========================================================================
//****************************************************************************
//
// VL_DecompressLBM ()
//
// LIMITATIONS - Only works with 320x200!!!
//
//****************************************************************************
void VL_DecompressLBM (lbm_t *lbminfo, boolean flip)
{
int count;
byte b, rept;
byte *source = (byte *)&lbminfo->data;
byte *buf;
int ht = lbminfo->height;
byte pal[768];
EnableScreenStretch();
memcpy(&pal[0],lbminfo->palette,768);
VL_NormalizePalette (&pal[0]);
VW_MarkUpdateBlock (0, 0, 320, 200);
buf = (byte *)bufferofs;
while (ht--)
{
count = 0;
do
{
rept = *source++;
if (rept > 0x80)
{
rept = (rept^0xff)+2;
b = *source++;
memset (buf, b, rept);
buf += rept;
}
else if (rept < 0x80)
{
rept++;
memcpy (buf, source, rept);
buf += rept;
source += rept;
}
else
rept = 0; // rept of 0x80 is NOP
count += rept;
} while (count < lbminfo->width);
if (iGLOBAL_SCREENWIDTH > 320) {
buf += (iGLOBAL_SCREENWIDTH-320); //eg 800 - 320)
}
}
if (flip==true)
VW_UpdateScreen ();
VL_FadeIn (0, 255, &pal[0], 15);
}
//****************************************************************************
//
// SetBorderColor
//
//****************************************************************************
void SetBorderColor (int color)
{
// bna section start
byte *cnt,*Ycnt,*b;
b=(byte *)bufferofs;
// color 56 could be used
//paint top red line
for (cnt=b; cnt<b+viewwidth; cnt++) {
for (Ycnt=cnt; Ycnt<cnt+(5*iGLOBAL_SCREENWIDTH); Ycnt+=iGLOBAL_SCREENWIDTH) {
*Ycnt = color;
}
}
//paint left red line
for (cnt=b; cnt<b+5; cnt++) {
for (Ycnt=cnt; Ycnt<cnt+(viewheight*iGLOBAL_SCREENWIDTH); Ycnt+=iGLOBAL_SCREENWIDTH) {
*Ycnt = color;
}
}
//paint right red line
for (cnt=b+(viewwidth-5); cnt<b+viewwidth; cnt++) {
for (Ycnt=cnt; Ycnt<cnt+(viewheight*iGLOBAL_SCREENWIDTH); Ycnt+=iGLOBAL_SCREENWIDTH) {
*Ycnt = color;
}
}
//paint lower red line
for (cnt=b+((viewheight-5)*iGLOBAL_SCREENWIDTH); cnt<b+((viewheight-5)*iGLOBAL_SCREENWIDTH)+viewwidth; cnt++) {
for (Ycnt=cnt; Ycnt<b+(viewheight*iGLOBAL_SCREENWIDTH); Ycnt+=iGLOBAL_SCREENWIDTH) {
*Ycnt = color;
}
}
// bna section end
}
//****************************************************************************
//
// SetBorderColorInterrupt
//
//****************************************************************************
void SetBorderColorInterrupt (int color)
{
//STUB_FUNCTION;
}
//****************************************************************************
//
// VL_DrawPostPic
//
//****************************************************************************
void VL_DrawPostPic (int lumpnum)
{
DrawPostPic(lumpnum);
VW_MarkUpdateBlock (0, 0, 319, 199);
}
//****************************************************************************
//
// VL_DrawLine
//
//****************************************************************************
void VL_DrawLine (int x1, int y1, int x2, int y2, byte color)
{
int dx;
int dy;
int xinc;
int yinc;
int count;
dx=(x2-x1);
dy=(y2-y1);
if (abs(dy)>=abs(dx))
{
count=abs(dy);
yinc=(dy<<16)/count;
if (dy==0)
{
return;
}
else
{
xinc=(dx<<16)/count;
}
}
else
{
count=abs(dx);
xinc=(dx<<16)/count;
if (dx==0)
{
return;
}
else
{
yinc=(dy<<16)/count;
}
}
x1<<=16;
y1<<=16;
while (count>0)
{
*((byte *)bufferofs+(x1>>16)+(ylookup[y1>>16]))=color;
x1+=xinc;
y1+=yinc;
count--;
}
}
//******************************************************************************
//
// DrawXYPic
//
//******************************************************************************
void DrawXYPic (int x, int y, int shapenum)
{
byte *buffer;
byte *buf;
int xx,yy;
int plane;
byte *src;
pic_t *p;
p = (pic_t *) W_CacheLumpNum (shapenum, PU_CACHE, Cvt_pic_t, 1);
if ((x<0) || ((x+(p->width<<2))>=320))
Error ("DrawXYPic: x is out of range\n");
if ((y<0) || ((y+p->height)>=200))
Error ("DrawXYPic: y is out of range\n");
buffer = (byte*)bufferofs+ylookup[y];
src=(byte *)&p->data;
for (plane=x; plane<x+4; plane++)
{
for (yy = 0; yy < p->height; yy++)
{
buf=buffer+ylookup[yy];
for (xx = 0; xx < p->width; xx++,buf++)
*(buf+plane+xx*4)=*(src++);
}
}
}