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

@@ -3,17 +3,17 @@
.model SMALL, C
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÜ ÜÛ ÛßßßÛ ÛßßÛ Û Ûßßßß ßßÛßß
; ÛÛß Û ÛÛ Û ÛÛßßÛ ÜÜ Û ÛÛßß ÛÛ
; ßß ß ßßßßß ßßßßß ßßßßß ßßßßß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▄ ▄█ █▀▀▀█ █▀▀█ █ █▀▀▀▀ ▀▀█▀▀
; ██▀ █ ██ █ ██▀▀█ ▄▄ █ ██▀▀ ██
; ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
include p_define.ash
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
.data
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
; extern M_TRIGO
@@ -60,7 +60,7 @@
extrn NoLanguage TabPoly:WORD
extrn NoLanguage TypePoly:WORD
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
public NoLanguage FlagLight
public NoLanguage List_Point
@@ -75,7 +75,7 @@
public NoLanguage ScreenXmax
public NoLanguage ScreenYmax
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
List_Point dw (500*3) dup(00) ; Xp Yp Zrot
@@ -83,11 +83,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
@@ -115,7 +115,7 @@ OffsetListNormal dd 00
FlagLight dw 01
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
TabJump_2 dd aff_E_LIGNE
dd aff_E_POLY
@@ -123,9 +123,9 @@ TabJump_2 dd aff_E_LIGNE
; dd aff_E_POINT
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
.code
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
public NoLanguage AffObjet
@@ -136,7 +136,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
@@ -147,13 +147,13 @@ TabJump_2 dd aff_E_LIGNE
extrn NoLanguage TransRotList:near
extrn NoLanguage RotListNormal:near
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ Ûßßßß Ûßßßß ÛßßßÛ ÛßßÛ Û Ûßßßß ßßÛßß
; ÛÛßßÛ ÛÛßß ÛÛßß ÛÛ Û ÛÛßßÛ ÜÜ Û ÛÛßß ÛÛ
; ßß ß ßß ßß ßßßßß ßßßßß ßßßßß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀▀ █▀▀▀▀ █▀▀▀█ █▀▀█ █ █▀▀▀▀ ▀▀█▀▀
; ██▀▀█ ██▀▀ ██▀▀ ██ █ ██▀▀█ ▄▄ █ ██▀▀ ██
; ▀▀ ▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
;*══════════════════════════════════════════════════════════════════════════*
AffObjet proc uses esi edi ebx ebp,\
@@ -224,7 +224,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
@@ -236,11 +236,11 @@ finafobjshort: jmp badfinafobj_2
finnuage:
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛßßßÛ Û Û Üß Ûßßßß ÛßßßÛ ÛÛÜ Û Ûßßßß ÛÛßßß
; ÛÛßßß ÛÛ Û ÛÛ ÛÛß ÛÛ ßÛ ÛÛ Û ÛÛßÛÛ ÛÛßß ßßßßÛ
; ßß ßßßßß ßßßßß ßß ßßßßß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀█ █ ▄▀ █▀▀▀▀ █▀▀▀█ ██▄ █ █▀▀▀▀ ██▀▀▀
; ██▀▀▀ ██ █ ██ ██▀ ██ ▀█ ██ █ ██▀██ ██▀▀ ▀▀▀▀█
; ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
mov edi, offset List_Entity
@@ -279,7 +279,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
@@ -340,7 +340,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
@@ -390,7 +390,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
@@ -418,7 +418,7 @@ nozmaxl:
;-----------------------------------------------------------------------------
; MAT_FLAT
polyflat: sub al, 7
mov byte ptr[edi], al ; stock mat translat
mov byte ptr[edi], al ; stock mat translaté
lodsb ; nb point poly
mov byte ptr[edi+1], al ; stock nbp
@@ -442,7 +442,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
@@ -528,12 +528,12 @@ nextpoly: pop ecx
badpoly: mov edi, [StartDI]
jmp nextpoly
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; Û Û Ûßßßß ÛÛÜ Û Ûßßßß ÛÛßßß
; ÛÛ ÛÛ ÛÛ ßÛ ÛÛßÛÛ ÛÛßß ßßßßÛ
; ßßßßß ßß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀▀ ██▄ █ █▀▀▀▀ ██▀▀▀
; ██ ██ ██ ▀█ ██▀██ ██▀▀ ▀▀▀▀█
; ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
lignes: lodsw ; nb lignes
movzx ecx, ax
@@ -545,7 +545,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]
@@ -554,7 +554,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]
@@ -591,12 +591,12 @@ okline: inc [TotalEntite]
badline: mov edi, [StartDI]
loope b_line
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÛßßß ÛßßßÛ Û Û Ûßßßß ÛßßßÛ Ûßßßß ÛÛßßß
; ßßßßÛ ÛÛßßß ÛÛßßÛ ÛÛßß ÛÛßÛß ÛÛßß ßßßßÛ
; ßßßßß ßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; ██▀▀▀ █▀▀▀█ █ █ █▀▀▀▀ █▀▀▀█ █▀▀▀▀ ██▀▀▀
; ▀▀▀▀█ ██▀▀▀ ██▀▀█ ██▀▀ ██▀█▀ ██▀▀ ▀▀▀▀█
; ▀▀▀▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
spheres: lodsw ; nb spheres
movzx ecx, ax
@@ -607,7 +607,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
@@ -640,11 +640,11 @@ badsphere: mov edi, [StartDI]
dec ecx
jnz b_sphere
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ßßÛßß ÛßßßÛ Û Ûßßßß ÛÛÜ Û ßßÛßß Û ßßÛßß Û Üß
; ÛÛ ÛÛßÛß ÛÛ ÛÛßß ÛÛßÛÛ ÛÛ ÛÛ ÛÛ ÛÛß
; ßß ßß ß ßß ßßßßß ßßßßß ßß ß ßß ßß ßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; ▀▀█▀▀ █▀▀▀█ █▀▀▀▀ ██▄ █ ▀▀█▀▀ ▀▀█▀▀ █ ▄▀
; ██ ██▀█▀ ██ ██▀▀ ██▀██ ██ ██ ██ ██▀
; ▀▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
; tri les faces dans la table Listtri (ordre Z et offset sur list coors
; premachees.
@@ -794,12 +794,12 @@ norecur:
jnz dopop
fintri:
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÜ Û ÛÛßßß ÛßßßÛ Û ÛßßßÛ Û Üß
; ÛÛ Û ÛÛ ßßßßÛ ÛÛßßß ÛÛ ÛÛßßÛ ÛÛß
; ßßßß ßß ßßßßß ßß ßßßßß ßß ß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; affichage des entits
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀▄ ██▀▀▀ █▀▀▀█ █ █▀▀▀█ █ ▄▀
; ██ ██ ▀▀▀▀█ ██▀▀▀ ██ ██▀▀█ ██▀
; ▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
; affichage des entités
mov esi,offset List_Tri
@@ -810,20 +810,20 @@ 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
dec ecx
jnz ade0
goodfinobj: xor eax, eax ; OK affich au moins 1 entit
goodfinobj: xor eax, eax ; OK affiché au moins 1 entité
ret
;*--------------------------------------------------------------------------*/
@@ -843,23 +843,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
@@ -877,7 +877,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
@@ -891,7 +891,7 @@ aff_E_POLY::
no_poly: jmp nextaff
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
aff_E_LIGNE::
lodsw
xchg al, ah
@@ -913,7 +913,7 @@ aff_E_LIGNE::
jmp nextaff
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
aff_E_SPHERE::
xor eax, eax
lodsb ; type
@@ -938,7 +938,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
@@ -947,7 +947,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
@@ -984,18 +984,18 @@ nosyi:
no_sphere: jmp nextaff
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
; sous programmes
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*══════════════════════════════════════════════════════════════════════════*
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛÛÜ Û Û ÛÜ ÜÛ ÛßßßÛ ÛßßßÛ ßßÛßß
; ÛÛßßÛ ÛÛßÛÛ ÛÛ ÛÛß Û ÛÛßÛß ÛÛ Û ÛÛ
; ßß ß ßß ß ßß ßß ß ßßßßß ßß ß ßßßßß ßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ ██▄ █ █▄ ▄█ █▀▀▀█ █▀▀▀█ ▀▀█▀▀
; ██▀▀█ ██▀██ ██ ██▀ █ ██▀█▀ ██ ██
; ▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
;*──────────────────────────────────────────────────────────────────────────*
RotateGroupe proc near
@@ -1064,7 +1064,7 @@ groupe0: call RotMat ; rot de Mtempo vers Mrot
RotateGroupe endp
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
TranslateGroupe proc near
@@ -1129,10 +1129,10 @@ groupe0: mov esi, edi
TranslateGroupe endp
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
ifdef Poubelle
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*──────────────────────────────────────────────────────────────────────────*
ZoomGroupe proc near
@@ -1191,12 +1191,12 @@ ZoomGroupe endp
endif
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛÛÜ Û Û ÛÜ ÜÛ ÛÛÜ Û Û Û ÛßßßÛ Ûßßßß Ûßßßß
; ÛÛßßÛ ÛÛßÛÛ ÛÛ ÛÛß Û ÛÛßÛÛ ÛÛ Û ÛÛßßÛ ÛÛ ßÛ ÛÛßß
; ßß ß ßß ß ßß ßß ß ßßßßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ ██▄ █ █▄ ▄█ ██▄ █ █ █ █▀▀▀█ █▀▀▀▀ █▀▀▀▀
; ██▀▀█ ██▀██ ██ ██▀ █ ██▀██ ██ █ ██▀▀█ ██ ▀█ ██▀▀
; ▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
AnimNuage proc near
@@ -1402,12 +1402,12 @@ nopoint: xor eax, eax
AnimNuage endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛßßßÛ ÛßßßÛ ßßÛßß ÛßßßÛ ßßÛßß Ûßßßß ÛÛÜ Û Û Û ÛßßßÛ Ûßßßß Ûßßßß
; ÛÛßÛß ÛÛ Û ÛÛ ÛÛßßÛ ÛÛ ÛÛßß ÛÛßÛÛ ÛÛ Û ÛÛßßÛ ÛÛ ßÛ ÛÛßß
; ßß ß ßßßßß ßß ßß ß ßß ßßßßß ßßßßß ßß ß ßßßßß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*
;*══════════════════════════════════════════════════════════════════════════*
; █▀▀▀█ █▀▀▀█ ▀▀█▀▀ █▀▀▀█ ▀▀█▀▀ █▀▀▀▀ ██▄ █ █ █ █▀▀▀█ █▀▀▀▀ █▀▀▀▀
; ██▀█▀ ██ ██ ██▀▀█ ██ ██▀▀ ██▀██ ██ █ ██▀▀█ ██ ▀█ ██▀▀
; ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*
;*──────────────────────────────────────────────────────────────────────────*
RotateNuage proc near
@@ -1437,7 +1437,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
@@ -1508,12 +1508,12 @@ nopoint: xor ax, ax
RotateNuage endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*
; ÛÛÜ Û ÛßßßÛ ÛßßßÛ ÛÜ ÜÛ ÛßßßÛ Û ÛÛßßß
; ÛÛßÛÛ ÛÛ Û ÛÛßÛß ÛÛß Û ÛÛßßÛ ÛÛ ßßßßÛ
; ßß ß ßßßßß ßß ß ßß ß ßß ß ßßßßß ßßßßß
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*
; ██▄ █ █▀▀▀█ █▀▀▀█ █▄ ▄█ █▀▀▀█ █ ██▀▀▀
; ██▀██ ██ █ ██▀█▀ ██▀ █ ██▀▀█ ██ ▀▀▀▀█
; ▀▀ ▀ ▀▀▀▀▀ ▀▀ ▀ ▀▀ ▀ ▀▀ ▀ ▀▀▀▀▀ ▀▀▀▀▀
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
ComputeStaticNormal proc near
@@ -1535,7 +1535,7 @@ bouclerot: push ecx
lodsw
xchg dx, ax ; DX prenormalized range
call Rot ; DX inchang
call Rot ; DX inchangé
pop edi
@@ -1584,8 +1584,8 @@ nointensity: xor ax, ax
ComputeStaticNormal endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
nextgroup2: pop ebx
add ebx, 38
@@ -1743,7 +1743,7 @@ nolight1: mov ebx, ecx
ComputeAnimNormal endp
;*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*/
;*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
;*══════════════════════════════════════════════════════════════════════════*/
;*──────────────────────────────────────────────────────────────────────────*/
END