This one is the same code as upper except he use basic macros for real manipulations.
All macros had been verify by "C language /FA".
The macros works with DWORD,QWORD,REAL4,REAL8
That is enough to use the crt math fonctions here
https://docs.microsoft.com/en-us/cpp/c-runtime-library/floating-point-support?view=msvc-160 without too many trouble.
Here the list.
-------------- FOR all real4 or real8 ,dword or qword -----------------------
REAL MACRO
REEL4,REEL8 return NomVar
MOVR MOVR near_plane,3.0 ;
ADDRR movsd longinc,ADDRR (longinc,reel805) or movsd longinc,ADDRR (longinc,0.5)
SUBRR // SUBRR //
DIVRR,MULRR movsd moins,MULRR(aradius,REEL8(-1.0))
convert Integer to Real,Convert Real to Integer
CONVERTIR,CONVERTRI QWORD to real8 or real4 DWORD to REAL4 or REAL 8 ,...........
movsd rhauteur,CONVERTR(hauteur,1) ;1 increase or Decrease ,0 same size