;  
;96/2=48
;   7  37  -18..0..+18

//---------------------------------------- 
//    
//---------------------------------------- 
XYZMAX    EQU    15        ;     (  ) 
COR_PZ    EQU    #E0+XYZMAX    ;   Z  
COR_Z    EQU    #C0+XYZMAX 
COR_PX    EQU    XYZMAX 
COR_PY    EQU    #20+XYZMAX

;       
; X=X+COR_Z 
; Y=Y+COR_Z 
; Z=Z+COR_Z 
; (..      )

;     0..127 
;     Ox,Oy 
;   Ay -    Oy 
;   Ax -    Ox

//---------------------------------------- 
//   : 
//---------------------------------------- 

;  : 

;        #DB00           #DB80 
;        +--------------+--------------+ 
;   Coord| Coord*cos(A) | Coord*sin(A) | 
;        +--------------+--------------+ 
;        Alpha          Alpha

//---------------------------------------- 
//   
//---------------------------------------- 

;    OX: 
;    y` =y*cos(Ax) - z*sin(Ax) 
;    z` =y*sin(Ax) + z*cos(Ax) 

;    OY: 
;    x =x*cos(Ay) - z*sin(Ay) 
;    z =x*sin(Ay) + z*cos(Ay)

//---------------------------------------- 
//   : 
//----------------------------------------
ROT3D
	POP	BC	;10   C=z B=y
	//---    Ox: ( y` z`)
	LD	L,0	;7  Ax
Ax0	EQU	$-1
	LD	H,B	;4 (hl)=y*cos(Ax)
	LD	A,(HL)	;7
	LD	L,0	;7  Ax+128
Ax1	EQU	$-1
	LD	H,C	;4 (hl)=z*sin(Ax)
	SUB	(HL)	;7 a=y`=y*cos(Ax)-z*sin(Ax)
	ADD	A,COR_PY ;A= 


    LD    H,C        ;4 
    SET    7,L        ;8    (HL)=Z*sinA 
    SUB    (HL)        ;7    A=X*cosA-Z*sinA 
    ADD    A,COR_PX    ;7 
    LD    B,A        ;4 
    LD    H,E        ;4 
    LD    A,(HL)        ;7 
    LD    H,C        ;4 
    RES    7,L        ;8 
    ADD    A,(HL)        ;7 
    ADD    A,COR_Z        ;7 
    LD    C,A        ;4 // 49+24+16=89 
    //---    OX: 
    LD    L,0        ;7 
Ax    EQU    $-1 
    LD    H,D        ;4 
    LD    A,(HL)        ;7 
    LD    H,C        ;4 
    SET    7,L        ;8 
    SUB    (HL)        ;7 
    ADD    A,COR_PY    ;7 
    LD    E,A        ;4 
    LD    H,D        ;4 
    LD    A,(HL)        ;7 
    LD    H,C        ;4 
    RES    7,L        ;8 
    ADD    A,(HL)        ;7 
    ADD    A,COR_PZ    ;7 // 49+24+16=89
