File encoding preservation + content structure to help browse the code

This commit is contained in:
Alexandre Fontoura
2021-10-28 15:20:01 +01:00
parent c5f4f6ba25
commit 23151219b2
90 changed files with 1946 additions and 1815 deletions

View File

@@ -2,17 +2,17 @@
.model SMALL, C
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÜ ÜÛ ÛßßßÛ ÛßßÛ Û Ûßßßß ßßÛßß
; ÛÛß Û ÛÛ Û ÛÛßßÛ ÜÜ Û ÛÛßß ÛÛ
; ßß ß ßßßßß ßßßßß ßßßßß ßßßßß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▄ ▄█ █▀▀▀█ █▀▀█ █ █▀▀▀▀ ▀▀█▀▀
; ██▀ █ ██ █ ██▀▀█ ▄▄ █ ██▀▀ ██
; ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
include p_define.ash
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
.data
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
; extern M_TRIGO
@@ -59,7 +59,7 @@
extrn NoLanguage TabPoly:WORD
extrn NoLanguage TypePoly:WORD
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
extrn NoLanguage FlagLight:WORD
extrn NoLanguage List_Point:WORD
@@ -74,7 +74,7 @@
extrn NoLanguage ScreenXmax:WORD
extrn NoLanguage ScreenYmax:WORD
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
List_Point dw (500*3) dup(00) ; Xp Yp Zrot
@@ -82,11 +82,11 @@ List_Normal dw 500 dup(00) ; surement plus
List_Anim_Point dw (500*3) dup(00) ; Xr Yr Zr
List_Entity dw 5000 dup(00) ; TAILLE determine
List_Entity dw 5000 dup(00) ; TAILLE à determinée
List_Tri dw (500*8) dup(00) ; entites
PosXWr dw 00 ; pos World rote de l'objet afficher
PosXWr dw 00 ; pos World rotée de l'objet à afficher
PosYWr dw 00
PosZWr dw 00
@@ -114,7 +114,7 @@ OffsetListNormal dd 00
FlagLight dw 01
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
TabJump_2 dd aff_E_LIGNE
dd aff_E_POLY
@@ -122,9 +122,9 @@ TabJump_2 dd aff_E_LIGNE
; dd aff_E_POINT
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
.code
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
public NoLanguage AffObjet
@@ -135,7 +135,7 @@ TabJump_2 dd aff_E_LIGNE
extrn NoLanguage FillVertic_A:PROC
extrn NoLanguage Line_A:PROC
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
extrn NoLanguage RotMatW:near
extrn NoLanguage RotMat:near
@@ -146,13 +146,13 @@ TabJump_2 dd aff_E_LIGNE
extrn NoLanguage TransRotList:near
extrn NoLanguage RotListNormal:near
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ Ûßßßß Ûßßßß ÛßßßÛ ÛßßÛ Û Ûßßßß ßßÛßß
; ÛÛßßÛ ÛÛßß ÛÛßß ÛÛ Û ÛÛßßÛ ÜÜ Û ÛÛßß ÛÛ
; ßß ß ßß ßß ßßßßß ßßßßß ßßßßß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀▀ █▀▀▀▀ █▀▀▀█ █▀▀█ █ █▀▀▀▀ ▀▀█▀▀
; ██▀▀█ ██▀▀ ██▀▀ ██ █ ██▀▀█ ▄▄ █ ██▀▀ ██
; ▀▀ ▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
;*══════════════════════════════════════════════════════════════════════════*
AffObjet proc uses esi edi ebx ebp,\
@@ -223,7 +223,7 @@ AffObjet proc uses esi edi ebx ebp,\
test bx, INFO_ANIM
jz normalrotate
call AnimNuage ; Objet Anim
call AnimNuage ; Objet Animé
call ComputeAnimNormal
jmp short finnuage
@@ -235,11 +235,11 @@ finafobjshort: jmp badfinafobj_2
finnuage:
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛßßßÛ Û Û Üß Ûßßßß ÛßßßÛ ÛÛÜ Û Ûßßßß ÛÛßßß
; ÛÛßßß ÛÛ Û ÛÛ ÛÛß ÛÛ ßÛ ÛÛ Û ÛÛßÛÛ ÛÛßß ßßßßÛ
; ßß ßßßßß ßßßßß ßß ßßßßß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀█ █ ▄▀ █▀▀▀▀ █▀▀▀█ ██▄ █ █▀▀▀▀ ██▀▀▀
; ██▀▀▀ ██ █ ██ ██▀ ██ ▀█ ██ █ ██▀██ ██▀▀ ▀▀▀▀█
; ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
mov edi, offset List_Entity
@@ -277,7 +277,7 @@ b_poly: push ecx
EVEN
p0: lodsw ; index point sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
xchg ebx, esi
@@ -336,7 +336,7 @@ p0g:
mov word ptr[edi+0], ax ; stock intensity point
lodsw ; index point sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
xchg ebx, esi
@@ -384,7 +384,7 @@ nolight2: xor al,al
p0l: lodsw ; oublie normal
lodsw ; index point sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
xchg ebx, esi
@@ -411,7 +411,7 @@ nozmaxl:
;-----------------------------------------------------------------------------
; MAT_FLAT
polyflat: sub al, 7
stosb ; stock mat translat
stosb ; stock mat translaté
lodsb ; nb point poly
stosb ; stock nbp
@@ -434,7 +434,7 @@ polyflat: sub al, 7
EVEN
p0f: lodsw ; index point sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
xchg ebx, esi
@@ -518,12 +518,12 @@ nextpoly: pop ecx
badpoly: mov edi, [StartDI]
jmp nextpoly
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; Û Û Ûßßßß ÛÛÜ Û Ûßßßß ÛÛßßß
; ÛÛ ÛÛ ÛÛ ßÛ ÛÛßÛÛ ÛÛßß ßßßßÛ
; ßßßßß ßß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀▀ ██▄ █ █▀▀▀▀ ██▀▀▀
; ██ ██ ██ ▀█ ██▀██ ██▀▀ ▀▀▀▀█
; ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
lignes: lodsw ; nb lignes
movzx ecx, ax
@@ -535,7 +535,7 @@ b_line: mov [StartDI], edi ; memo pointeur List_Coor
; coul2 / even
lodsw ; index point 1 sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
mov eax, [ebx+00]
@@ -544,7 +544,7 @@ b_line: mov [StartDI], edi ; memo pointeur List_Coor
mov dx, [ebx+04] ; Zrot ZMin/Max
lodsw ; index point 2 sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
mov eax, [ebx+00]
@@ -578,12 +578,12 @@ okline: inc [TotalEntite]
badline: mov edi, [StartDI]
loope b_line
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÛßßß ÛßßßÛ Û Û Ûßßßß ÛßßßÛ Ûßßßß ÛÛßßß
; ßßßßÛ ÛÛßßß ÛÛßßÛ ÛÛßß ÛÛßÛß ÛÛßß ßßßßÛ
; ßßßßß ßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; ██▀▀▀ █▀▀▀█ █ █ █▀▀▀▀ █▀▀▀█ █▀▀▀▀ ██▀▀▀
; ▀▀▀▀█ ██▀▀▀ ██▀▀█ ██▀▀ ██▀█▀ ██▀▀ ▀▀▀▀█
; ▀▀▀▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
spheres: lodsw ; nb spheres
movzx ecx, ax
@@ -594,7 +594,7 @@ b_sphere: mov [StartDI], edi ; memo pointeur List_Coor
; coul2 / even
movsw ; rayon
lodsw ; index point 1 sur List_Point
movzx ebx, ax ; index dj… *SIZE_LIST_POINT
movzx ebx, ax ; index déjà *SIZE_LIST_POINT
add ebx, offset List_Point
mov eax, [ebx+00] ; X1scr vers List_Coor
@@ -623,11 +623,11 @@ oksphere: inc [TotalEntite]
badsphere: mov edi, [StartDI]
loop b_sphere
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ßßÛßß ÛßßßÛ Û Ûßßßß ÛÛÜ Û ßßÛßß Û ßßÛßß Û Üß
; ÛÛ ÛÛßÛß ÛÛ ÛÛßß ÛÛßÛÛ ÛÛ ÛÛ ÛÛ ÛÛß
; ßß ßß ß ßß ßßßßß ßßßßß ßß ß ßß ßß ßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; ▀▀█▀▀ █▀▀▀█ █▀▀▀▀ ██▄ █ ▀▀█▀▀ ▀▀█▀▀ █ ▄▀
; ██ ██▀█▀ ██ ██▀▀ ██▀██ ██ ██ ██ ██▀
; ▀▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
; tri les faces dans la table Listtri (ordre Z et offset sur list coors
; premachees.
@@ -773,12 +773,12 @@ norecur:
jnz dopop
fintri:
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÜ Û ÛÛßßß ÛßßßÛ Û ÛßßßÛ Û Üß
; ÛÛ Û ÛÛ ßßßßÛ ÛÛßßß ÛÛ ÛÛßßÛ ÛÛß
; ßßßß ßß ßßßßß ßß ßßßßß ßß ß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; affichage des entits
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀▄ ██▀▀▀ █▀▀▀█ █ █▀▀▀█ █ ▄▀
; ██ ██ ▀▀▀▀█ ██▀▀▀ ██ ██▀▀█ ██▀
; ▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
; affichage des entités
mov esi,offset List_Tri
@@ -789,19 +789,19 @@ ade0: push ecx
inc esi
inc esi ; saute Z max
lodsw ; type entit
lodsw ; type entité
movzx ebx, ax
lodsd ; offset List_Coor
push esi
mov esi, eax
jmp [ TabJump_2 + ebx*4 ] ; jmp aff de l'entit
jmp [ TabJump_2 + ebx*4 ] ; jmp à aff de l'entité
nextaff: pop esi
pop ecx
loop ade0
goodfinobj: xor eax, eax ; OK affich au moins 1 entit
goodfinobj: xor eax, eax ; OK affiché au moins 1 entité
ret
;*--------------------------------------------------------------------------*/
@@ -821,23 +821,23 @@ badfinafobj_2: mov ax, -1
mov [ScreenXmin], ax
mov [ScreenYmin], ax
mov eax, 2 ; 2 si objet clipp en Z <= 0
mov eax, 2 ; 2 si objet clippé en Z <= 0
ret
AffObjet endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; Ûßßßß ÛÛÜ Û ßßÛßß Û ßßÛßß Û Üß
; ÛÛßß ÛÛßÛÛ ÛÛ ÛÛ ÛÛ ÛÛß
; ßßßßß ßß ß ßß ßß ßß ßß
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀▀ ██▄ █ ▀▀█▀▀ ▀▀█▀▀ █ ▄▀
; ██▀▀ ██▀██ ██ ██ ██ ██▀
; ▀▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀
;
; ÛßßßÜ Û ÛÛßßß ÛßßßÛ Û ÛßßßÛ Û Üß
; ÛÛ Û ÛÛ ßßßßÛ ÛÛßßß ÛÛ ÛÛßßÛ ÛÛß
; ßßßß ßß ßßßßß ßß ßßßßß ßß ß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
; █▀▀▀▄ ██▀▀▀ █▀▀▀█ █ █▀▀▀█ █ ▄▀
; ██ ██ ▀▀▀▀█ ██▀▀▀ ██ ██▀▀█ ██▀
; ▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
aff_E_POLY::
lodsb ; type (ATTENTION GOURAUD)
xor ah, ah
@@ -855,7 +855,7 @@ aff_E_POLY::
shl ecx, 1
add ecx, edi ; *3 word
mov edi, offset TabPoly
rep movsw ; changer
rep movsw ; à changer
mov si, bx ; type
mov di, dx ; coul
@@ -869,7 +869,7 @@ aff_E_POLY::
no_poly: jmp nextaff
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
aff_E_LIGNE::
lodsw
xchg al, ah
@@ -891,7 +891,7 @@ aff_E_LIGNE::
jmp nextaff
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
aff_E_SPHERE::
xor eax, eax
lodsb ; type
@@ -916,7 +916,7 @@ aff_E_SPHERE::
; idiv bp
; movzx ebp, ax pfeu
mov ax, 34 ; racine sxý+syý
mov ax, 34 ; racine sx²+sy²
imul bp
idiv word ptr[IsoScale]
movzx ebp, ax
@@ -925,7 +925,7 @@ aff_E_SPHERE::
; edi y -> esi pour computesphere
; ebp rayon sur ecran
; reajuste coordonne box
; reajuste coordonnée box
mov ax, cx ; x + rayon
add ax, bp
@@ -962,18 +962,18 @@ nosyi:
no_sphere: jmp nextaff
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; sous programmes
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛÛÜ Û Û ÛÜ ÜÛ ÛßßßÛ ÛßßßÛ ßßÛßß
; ÛÛßßÛ ÛÛßÛÛ ÛÛ ÛÛß Û ÛÛßÛß ÛÛ Û ÛÛ
; ßß ß ßß ß ßß ßß ß ßßßßß ßß ß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ ██▄ █ █▄ ▄█ █▀▀▀█ █▀▀▀█ ▀▀█▀▀
; ██▀▀█ ██▀██ ██ ██▀ █ ██▀█▀ ██ ██
; ▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
;*──────────────────────────────────────────────────────────────────────────*
RotateGroupe proc near
@@ -1042,7 +1042,7 @@ groupe0: call RotMat ; rot de Mtempo vers Mrot
RotateGroupe endp
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
TranslateGroupe proc near
@@ -1107,10 +1107,10 @@ groupe0: mov esi, edi
TranslateGroupe endp
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
ifdef Poubelle
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
ZoomGroupe proc near
@@ -1169,12 +1169,12 @@ ZoomGroupe endp
endif
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛÛÜ Û Û ÛÜ ÜÛ ÛÛÜ Û Û Û ÛßßßÛ Ûßßßß Ûßßßß
; ÛÛßßÛ ÛÛßÛÛ ÛÛ ÛÛß Û ÛÛßÛÛ ÛÛ Û ÛÛßßÛ ÛÛ ßÛ ÛÛßß
; ßß ß ßß ß ßß ßß ß ßßßßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ ██▄ █ █▄ ▄█ ██▄ █ █ █ █▀▀▀█ █▀▀▀▀ █▀▀▀▀
; ██▀▀█ ██▀██ ██ ██▀ █ ██▀██ ██ █ ██▀▀█ ██ ▀█ ██▀▀
; ▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
AnimNuage proc near
@@ -1375,12 +1375,12 @@ nopoint: xor eax, eax
AnimNuage endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛßßßÛ ßßÛßß ÛßßßÛ ßßÛßß Ûßßßß ÛÛÜ Û Û Û ÛßßßÛ Ûßßßß Ûßßßß
; ÛÛßÛß ÛÛ Û ÛÛ ÛÛßßÛ ÛÛ ÛÛßß ÛÛßÛÛ ÛÛ Û ÛÛßßÛ ÛÛ ßÛ ÛÛßß
; ßß ß ßßßßß ßß ßß ß ßß ßßßßß ßßßßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀█ ▀▀█▀▀ █▀▀▀█ ▀▀█▀▀ █▀▀▀▀ ██▄ █ █ █ █▀▀▀█ █▀▀▀▀ █▀▀▀▀
; ██▀█▀ ██ ██ ██▀▀█ ██ ██▀▀ ██▀██ ██ █ ██▀▀█ ██ ▀█ ██▀▀
; ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
RotateNuage proc near
@@ -1410,7 +1410,7 @@ bouclerot: push ecx
lodsw
xchg ax, cx ; CX Z reel
call Rot ; voir pour Coor rotes
call Rot ; voir pour Coor rotées
; en LONG * 2^15
pop edi
@@ -1479,12 +1479,12 @@ nopoint: xor ax, ax
RotateNuage endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÛÜ Û ÛßßßÛ ÛßßßÛ ÛÜ ÜÛ ÛßßßÛ Û ÛÛßßß
; ÛÛßÛÛ ÛÛ Û ÛÛßÛß ÛÛß Û ÛÛßßÛ ÛÛ ßßßßÛ
; ßß ß ßßßßß ßß ß ßß ß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*
; ██▄ █ █▀▀▀█ █▀▀▀█ █▄ ▄█ █▀▀▀█ █ ██▀▀▀
; ██▀██ ██ █ ██▀█▀ ██▀ █ ██▀▀█ ██ ▀▀▀▀█
; ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀ ▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
ComputeStaticNormal proc near
@@ -1506,7 +1506,7 @@ bouclerot: push ecx
lodsw
xchg dx, ax ; DX prenormalized range
call Rot ; DX inchang
call Rot ; DX inchangé
pop edi
@@ -1551,8 +1551,8 @@ nointensity: xor ax, ax
ComputeStaticNormal endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
nextgroup2: pop ebx
add ebx, 38
@@ -1706,7 +1706,7 @@ nolight1: mov ebx, ecx
ComputeAnimNormal endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
END