;
;	Command & Conquer Red Alert(tm)
;	Copyright 2025 Electronic Arts Inc.
;
;	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 3 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.  See the
;	GNU General Public License for more details.
;
;	You should have received a copy of the GNU General Public License
;	along with this program.  If not, see <http://www.gnu.org/licenses/>.
;

; $Header:   U:\vq\projects\vqm32\drawchar.asv   1.1   08 May 1995 10:48:32   DENZIL_LONG  $
;***************************************************************************
;**   C O N F I D E N T I A L --- W E S T W O O D    S T U D I O S        **
;***************************************************************************
;*                                                                         *
;*                 Project Name : Westwood Library                         *
;*                                                                         *
;*                    File Name : DRAWCHAR.ASM                             *
;*                                                                         *
;*                   Programmer : Joe L. Bostic                            *
;*                                                                         *
;*                   Start Date : August 20, 1993                          *
;*                                                                         *
;*                  Last Update : August 20, 1993   [JLB]                  *
;*                                                                         *
;*-------------------------------------------------------------------------*
;* Functions:                                                              *
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *

	IDEAL
	P386
	MODEL	USE32 FLAT
	LOCALS	??
	CODESEG

XPIXEL_MAX		EQU	320
YPIXEL_MAX		EQU	200

FONTINFOBLOCK		EQU	4
FONTOFFSETBLOCK	EQU	6
FONTWIDTHBLOCK	EQU	8
FONTDATABLOCK		EQU	10
FONTHEIGHTBLOCK	EQU	12

FONTINFOMAXHEIGHT	EQU	4
FONTINFOMAXWIDTH	EQU	5

	EXTRN	FontPtr:NEAR PTR

;***********************************************************
; DRAW_CHAR
;
; VOID Draw_Char(BYTE fontchar, WORD x_pixel, WORD y_pixel);
;
; Draws a character to the screen only if given coordinates that will allow
; the entire character to be drawn on the screen else will exit.
; 
; NOTE: This is a routine called by Text_Print.
;
;*
	GLOBAL	C Draw_Char:NEAR
	PROC	Draw_Char C NEAR USES eax ebx ecx edx esi edi 
	ARG	fontchar:DWORD
	ARG	x_pixel:DWORD
	ARG	y_pixel:DWORD

	LOCAL	infoblock:DWORD
	LOCAL	offsetblock:DWORD
	LOCAL	widthblock:DWORD
	LOCAL	heightblock:DWORD
	LOCAL	fwidth:DWORD
	LOCAL	nextline:DWORD
	LOCAL	startv:BYTE
	LOCAL	dheight:BYTE
	LOCAL	wheight:BYTE

	mov	esi,[FontPtr]

	; Set up some working local variables.

	xor	eax,eax
	mov	ax,[esi+FONTINFOBLOCK]	; get offset to info block
	mov	[infoblock],eax		; save offset to info block
	mov	ax,[esi+FONTOFFSETBLOCK]	; get offset to offset block
	mov	[offsetblock],eax		; save offset to offset block
	mov	ax,[esi+FONTWIDTHBLOCK]	; get offset to width block
	mov	[widthblock],eax		; save offset to width block
	mov	ax,[esi+FONTHEIGHTBLOCK]	; get offset to height block
	mov	[heightblock],eax		; save offset to height block

	; Fetch character data offset -- if NULL then undefined character.

	mov	ebx,[fontchar]
	and	ebx,0FFh
	shl	ebx,1		; make word index
	add	ebx,[offsetblock]	; add offset to offset block
	xor	ecx,ecx
	mov	cx,[esi+ebx]		; load offset to font data
	or	ecx,ecx
	jz	??exit		; is this character a null? if so exit

	; If the character is off the left/right edge of the screen then abort.

	mov	edx,[x_pixel]
	cmp	edx,XPIXEL_MAX
	jae	??exit

	; If the character is off the top/bottom edge of the screen then abort.

	mov	ebx,[fontchar]		; get char
	and	ebx,0FFh
	add	ebx,[widthblock]	; add offset to width block
	xor	eax,eax
	mov	al,[esi+ebx]		; get width for character
	mov	[fwidth],eax		; save char width
	add	eax,edx		; ax = char len + x
	cmp	eax,XPIXEL_MAX
	ja	??exit

	mov	edi,edx		; save xpos in di

	mov	edx,[y_pixel]
	cmp	edx,YPIXEL_MAX
	jae	??exit

	mov	ebx,[infoblock]	; get offset to offset block
	xor	eax,eax
				; get font max height from info block
	mov	al,[esi+ebx+FONTINFOMAXHEIGHT]
	mov	[wheight],al		; save max height of character
	add	eax,edx		; add height to y pos
	cmp	eax,YPIXEL_MAX		; will it go off the bottom
	ja	??exit

??vdraw:
	mov	ebx,[fontchar]		; get char
	and	ebx,0FFh
	shl	ebx,1		; make 2 byte index
	add	ebx,[heightblock]	; add offset to height block
	mov	ah,[esi+ebx]		; get start vertical for character
	mov	[startv],ah		; save start vertical for later
	mov	al,[esi+ebx+1]		; get data height for character
	mov	[dheight],al		; save data height for later
	add	ah,al		; add background and data
	sub	[wheight],ah		; remaining background height

	add	esi,ecx		; add font offset to font data

	push	edx
	mov	eax,XPIXEL_MAX
	mul	edx
	add	edi,eax
	pop	edx

	mov	eax,XPIXEL_MAX
	sub	eax,[fwidth]
	mov	[nextline],eax		; ?? to add to index for the nextline

	add	edi,0A0000h
	mov	ebx,OFFSET ColorXlat	; setup up bx for xlat commands
	xor	ecx,ecx
	mov	cl,[startv]		; number of scan lines that are
				; background color
	or	ecx,ecx		; if starting vertical is zero
	je	short ??skiplead	; skip drawing top background lines

	mov	al,0
	xlat	[ebx]		; get background color

	or	al,al		; check for none zero color
	jne	short ??lheight	; update background color

	push	edx
	mov	eax,XPIXEL_MAX
	mul	ecx
	add	edi,eax
	pop	edx

	mov	ebx,OFFSET ColorXlat	; restore bx for xlat commands
	jmp	SHORT ??skiplead

??lheight:
	mov	edx,[fwidth]		; width of char

??lwidth:
	stosb			; write out line of pixels for width
	dec	edx
	jne	??lwidth

??lnext:
	add	edi,[nextline]		; goto next line at the start of char
	loop	??lheight		; any more lines

??skiplead:
	mov	cl,[dheight]		; number of scan lines that are data
	or	ecx,ecx		; is there any data to be drawn
	je	short ??exit

??vheight:
	mov	edx,[fwidth]		; width of char

??vwidth:
	lodsb				; get byte value from font data
	mov	ah,al			; save hinibble
	and	al,00FH			; get lonibble
	xlat	[ebx]			; get new color
	or	al,al
	je	short ??chklowidth		; skip color zero

	mov	[edi],al		; write out pixel of lonibble

??chklowidth:
	inc	edi
	dec	edx
	je	short ??vnext			; check if done with width of char

	mov	al,ah			; get byte value
	and	al,0F0H			; get hinibble
	xlat	[ebx]			; get new color
	or	al,al
	je	short ??chkhiwidth		; skip color zero

	mov	[edi],al		; write out pixel of hinibble

??chkhiwidth:
	inc	edi
	dec	edx
	jne	??vwidth		; check if done with width of char

??vnext:
	add	edi,[nextline]		; next line at start of char
	loop	??vheight		; any more lines


??trail:
	mov	cl,[wheight]		; remaining height of background color
	or	ecx,ecx			; if trailing height is zero
	jle	short ??exit			; skip drawing bottom background lines

	mov	al,0
	xlat	[ebx]			; get background color
	or	al,al			; check for color zero
	je	short ??exit			; skip drawing

??theight:
	mov	edx,[fwidth]		; width of char

??twidth:
	stosb				; write out line of pixels for width
	dec	edx
	jne	??twidth

??tnext:
	add	edi,[nextline]		; next line at start of char
	loop	??theight		; any more lines


??exit:
	ret

	ENDP	Draw_Char

;***********************************************************


;***********************************************************
; SET_FONT_PALETTE_RANGE
;
; VOID Set_Font_Palette_Range(VOID *palette, WORD start, WORD end);
;
; This routine changes the local Draw_Char color translation table
; with the color numbers in palette.
;
; Bounds Checking: forces start and end to a range of 0-15
;*
	GLOBAL	C Set_Font_Palette_Range:NEAR
	PROC	Set_Font_Palette_Range C NEAR USES eax ebx ecx edi esi
	ARG	palette:NEAR PTR
	ARG	start:DWORD
	ARG	endval:DWORD

	cld
	mov	esi,[palette]
	mov	ebx,[start]
	and	ebx,0FH			; value 0-15

	mov	ecx,[endval]
	and	ecx,0FH			; value 0-15

	cmp	ecx,ebx			; if end < start then exit
	jl	short ??exit

	sub	ecx,ebx			; number of colors = end - start + 1
	inc	ecx

	mov	edi,OFFSET ColorXlat	; get start of xlat table
	add	edi,ebx			; add starting offset
	shl	ebx,4			; multiply start offset by 16
	add	ebx,OFFSET ColorXlat	; add start of xlat table

; updates 0-15 for lonibble xlat
; updates 0,16,32,...,240 for hinibble xlat

??setpal:
	lodsb				; get color number
	stosb				; save color number for lonibble xlat
	mov	[ebx],al		; save color number for hinibble xlat
	add	ebx,010H			; add 16 to index for hinibble offset
	loop	??setpal

??exit:
	ret

	ENDP	Set_Font_Palette_Range

;***********************************************************


;***********************************************************
; DRAW_CHAR_SETUP
;
; VOID Draw_Char_Setup(VOID);
;
; This routine sets up code segment variables for Draw_Char.
; 
; NOTE: This is a routine called by Set_Font.
;
;*
	GLOBAL	C Draw_Char_Setup:NEAR
	PROC	Draw_Char_Setup C NEAR

	ret

	ENDP	Draw_Char_Setup

	DATASEG

ColorXlat	DB	000H,001H,002H,003H,004H,005H,006H,007H
	DB	008H,009H,00AH,00BH,00CH,00DH,00EH,00FH

	DB	001H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	002H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	003H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	004H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	005H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	006H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	007H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	008H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	009H,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00AH,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00BH,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00CH,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00DH,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00EH,000H,000H,000H,000H,000H,000H,000H
	DB	000H,000H,000H,000H,000H,000H,000H,000H

	DB	00FH

;***********************************************************
	END