Журнал о программированнии на языках Blitz3D, BlitzPlus, BlitzMax

Blitz3D-код:PointanEntityAtXYZ.bb

Материал из Blitz Et Cetera

Перейти к: навигация, поиск
;===========================

;Point Entity at x,y,z
;===========================
Function Point_Entity(entity,x#,y#,z#)
        xdiff# = EntityX(entity)-x#
        ydiff# = EntityY(entity)-y#
        zdiff# = EntityZ(entity)-z#
        dist#=Sqr#((xdiff#*xdiff#)+(zdiff#*zdiff#))
        pitch# = ATan2(ydiff#,dist#)
        yaw#   = ATan2(xdiff#,-zdiff#)
        RotateEntity entity,pitch#,yaw#,0
End Function

;===========================

Другие

Друзья