[mauNgerS]

Если отключить вот эти участки

; RayIntersectsPlane(Ax,Ay,Az,Cx,Cy,Cz,nx,ny,nz,d)
; dx#=VectorX()
; dy#=VectorY()
; dz#=VectorZ()
; RayIntersectsPlane(Bx,By,Bz,Cx,Cy,Cz,nx,ny,nz,d)
; ex#=VectorX()
; ey#=VectorY()
; ez#=VectorZ()

получается это