TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D Maths

Version: 1.0

Information

Uploaded: 20th Jan 2004 16:20

Modified: 9th Nov 2004 00:08

Author: Dmitry K

Summary

Translate 3D coords to 2D. Works with multiple cameras.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`*******************************************************************************

`*                           Created: 22/04/2003                               *

`*                           Updated: 20/01/2004                               *

`*              By: Dmitry K aka DMiTR0S   dmitr0s@newmail.ru                  *

`*******************************************************************************

`*                            Free License Agreement.                          *

`*                                                                             *

`*   The user/developer agrees to include a visible credit to "Dmitry Kuschev" *

`*   within your programs documentation and or web site.                       *

`*                                                                             *

`*   The user/developer agrees to NOT offer the this source code for Sale.     *

`*                                                                             *

`*   Providing the user/Developer agrees in full to the previous Free          *

`*   License Agreement clauses, the user/developer may use this source         *

`*   code FREELY in all their products, commercial or otherwise.               *

`*                                                                             *

`*******************************************************************************

#CONSTANT TVector          1

#CONSTANT ProjectVector    2

#CONSTANT LookAtVector     3

#CONSTANT LookUpVector     4

#CONSTANT EyeVector        5

#CONSTANT TempVector       6

#CONSTANT ViewMatrix       101

#CONSTANT ProjectionMatrix 102

#CONSTANT WorldMatrix      103

r=Make Vector3(TVector)

r=Make Vector4(ProjectVector)

r=Make Vector3(LookAtVector)

r=Make Vector3(LookUpVector)

r=Make Vector3(EyeVector)

r=Make Vector3(TempVector)

r=Make Matrix4(ViewMatrix)

r=Make Matrix4(ProjectionMatrix)

r=Make Matrix4(WorldMatrix)

Set Identity Matrix4 WorldMatrix

GLOBAL FOV As Float = 61.962139129638672

Set Camera FOV FOV

Make Object Sphere 1, 5

Position Object 1, Rnd(10), Rnd(10), Rnd(10)

Camera=1

Make Camera Camera

Sync Rate 0

Sync On

Control Camera Using ArrowKeys Camera, 5, 1

Set Vector3 TVector, Object Position X(1), Object Position Y(1), Object Position Z(1)

Res = _3DTo2D(TVector, TVector, Camera Position X(Camera), Camera Position Y(Camera), Camera Position Z(Camera), Camera Angle X(Camera), Camera Angle Y(Camera), Camera Angle Z(Camera))

If Res = -1 Then ObjectInScreenStatus$="The object lies behind camera plane"

If Res = 0 Then ObjectInScreenStatus$="The object lies on camera plane"

If Res = 1 Then ObjectInScreenStatus$="The object lies in front of camera plane"

Text 10, 10, "Code by Dmitry K"

Text 10, 30, "Object Screen X(1) = "+Str$(Object Screen X(1))+" Object Screen Y(1) = "+Str$(Object Screen Y(1))

Text 10, 50, "3DTo2D X = "+Str$(X Vector3(TVector))+" 3DTo2D Y = "+Str$(Y Vector3(TVector))

Text 10, 70, ObjectInScreenStatus$

Text 10, 90, Str$(Screen Fps())

Sync

Loop

Function _3DTo2D(VectorResult, VectorSource, cpX#, cpY#, cpZ#, caX#, caY#, caZ#)

`View Matrix4 ViewMatrix

CX#=Cos(caX#)

SX#=Sin(caX#)

CY#=Cos(caY#)

SY#=Sin(caY#)

CZ#=Cos(caZ#)

SZ#=Sin(caZ#)

Set Vector3 EyeVector, cpX#, cpY#, cpZ#

Set Vector3 LookAtVector, -1.0*SZ#*(-1.0*SX#)+CZ#*SY#*CX#+cpX#, CZ#*(-1.0*SX#)+SZ#*SY#*CX#+cpY#, CY#*CX#+cpZ#

Set Vector3 LookUpVector, -1.0*SZ#*CX#+CZ#*SY#*SX#, CZ#*CX#+SZ#*SY#*SX#, CY#*SX#

Build LookAt LHMatrix4 ViewMatrix, EyeVector, LookAtVector, LookUpVector

Transform Coords Vector3 TempVector, VectorSource, ViewMatrix

If Z Vector3(TempVector) < 0.0 Then Result=-1

If Z Vector3(TempVector) > 0.0 Then Result=1

`Projection Matrix4 ProjectionMatrix

Build FOV LHMatrix4 ProjectionMatrix, FOV*(3.1415926535897932384626433832795/180.0), (Screen Width()*1.0)/(Screen Height()*1.0), 1.0, 3000.0

`----------------------------------------------------------------------------------------

Project Vector3 VectorResult, VectorSource, ProjectionMatrix, ViewMatrix, WorldMatrix

CodeBase - 3D to 2D

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Dmitry K
CodeBase Entries:	4