Sorry your browser is not supported!

Poke Vec2=jGfx\Poke_Vec2.html=pMem, X#, Y#
Poke Vec3=jGfx\Poke_Vec3.html=pMem, X#, Y#, Z#
Poke Vec4=jGfx\Poke_Vec4.html=pMem, X#, Y#, Z#, W#
Poke Mat4=jGfx\Poke_Mat4.html=pMem, _11#, _12#, _13#, _14#, _21#, _22#, _23#, _24#, _31#, _32#, _33#, _34#, _41#, _42#, _43#, _44#
SMesh_GetShaderPtr=jGfx\SMesh_GetShaderPtr.html=(pMesh)
Object_GetShaderPtr=jGfx\Object_GetShaderPtr.html=(ObjectID, LimbID)
Shader_GetParameterByName=jGfx\Shader_GetParameterByName.html=(pEffect, hParam, NameStr)
Shader_GetParameterBySemantic=jGfx\Shader_GetParameterBySemantic.html=(pEffect, hParam, SemanticNameStr)
Shader_GetParameterElement=jGfx\Shader_GetParameterElement.html=(pEffect, hParam, ElementIndex)
Shader_GetValue=jGfx\Shader_GetValue.html=pEffect, hParam, pData, pBytes
Shader_SetValue=jGfx\Shader_SetValue.html=pEffect, hParam, pData, pBytes
Shader_GetBool=jGfx\Shader_GetBool.html=pEffect, hParam, ptr_Bool
Shader_SetBool=jGfx\Shader_SetBool.html=pEffect, hParam, ptr_Bool
Shader_GetBoolVal=jGfx\Shader_GetBoolVal.html=(pEffect, hParam)
Shader_SetBoolVal=jGfx\Shader_SetBoolVal.html=pEffect, hParam, BoolVal
Shader_GetInt=jGfx\hader_GetInt.html=pEffect, hParam, ptr_Int
Shader_SetInt=jGfx\Shader_SetInt.html=pEffect, hParam, ptr_Int
Shader_GetIntVal=jGfx\Shader_GetIntVal.html=(pEffect, hParam)
Shader_SetIntVal=jGfx\Shader_SetIntVal.html=pEffect, hParam, IntVal
Shader_GetFloat=jGfx\Shader_GetFloat.html=pEffect, hParam, ptr_Float
Shader_SetFloat=jGfx\Shader_SetFloat.html=pEffect, hParam, ptr_Float
Shader_GetFloatVal=jGfx\Shader_GetFloatVal.html=(pEffect, hParam)
Shader_SetFloatVal=jGfx\Shader_SetFloatVal.html=pEffect, hParam, FloatVal#
Shader_GetVector=jGfx\Shader_GetVector.html=pEffect, hParam, ptr_Vector
Shader_SetVector=jGfx\Shader_SetVector.html=pEffect, hParam, ptr_Vector
Shader_GetVectorVal=jGfx\Shader_GetVectorVal.html=pEffect, hParam
Shader_SetVectorVal=jGfx\Shader_SetVectorVal.html=pEffect, hParam, X#, Y#, Z#, W#
Shader_GetMatrix=jGfx\Shader_GetMatrix.html=pEffect, hParam, ptr_Matrix
Shader_SetMatrix=jGfx\Shader_SetMatrix.html=pEffect, hParam, ptr_Matrix
Shader_GetMatrixVal=jGfx\Shader_GetMatrixVal.html=pEffect, hParam
Shader_SetMatrixVal=jGfx\Shader_SetMatrixVal.html=pEffect, hParam, _11#, _12#, _13#, _14#, _21#, _22#, _23#, _24#, _31#, _32#, _33#, _34#, _41#, _42#, _43#, _44#
Shader_GetMatrixTranspose=jGfx\Shader_GetMatrixTranspose.html=pEffect, hParam, ptr_Matrix
Shader_SetMatrixTranspose=jGfx\Shader_SetMatrixTranspose.html=pEffect, hParam, ptr_Matrix
Shader_GetMatrixTransposeVal=jGfx\Shader_GetMatrixTransposeVal.html=pEffect, hParam
Shader_SetMatrixTransposeVal=jGfx\Shader_SetMatrixTransposeVal.html=pEffect, hParam, _11#, _12#, _13#, _14#, _21#, _22#, _23#, _24#, _31#, _32#, _33#, _34#, _41#, _42#, _43#, _44#
Shader_SetArrayRange=jGfx\Shader_SetArrayRange.html=pEffect, hParam, Start, Stop
Shader_GetBoolArray=jGfx\Shader_GetBoolArray.html=pEffect, hParam, ptr_BoolArr, Count
Shader_SetBoolArray=jGfx\Shader_SetBoolArray.html=pEffect, hParam, ptr_BoolArr, Count
Shader_GetIntArray=jGfx\Shader_GetIntArray.html=pEffect, hParam, ptr_IntArr, Count
Shader_SetIntArray=jGfx\Shader_SetIntArray.html=pEffect, hParam, ptr_IntArr, Count
Shader_GetFloatArray=jGfx\Shader_GetFloatArray.html=pEffect, hParam, ptr_FloatArr, Count
Shader_SetFloatArray=jGfx\Shader_SetFloatArray.html=pEffect, hParam, ptr_FloatArr, Count
Shader_GetVectorArray=jGfx\Shader_GetVectorArray.html=pEffect, hParam, ptr_VecArr, Count
Shader_SetVectorArray=jGfx\Shader_SetVectorArray.html=pEffect, hParam, ptr_VecArr, Count
Shader_GetMatrixArray=jGfx\Shader_GetMatrixArray.html=pEffect, hParam, ptr_MatArr, Count
Shader_SetMatrixArray=jGfx\Shader_SetMatrixArray.html=pEffect, hParam, ptr_MatArr, Count
Shader_GetMatrixTransposeArray=jGfx\Shader_GetMatrixTransposeArray.html=pEffect, hParam, ptr_MatArr, Count
Shader_SetMatrixTransposeArray=jGfx\Shader_SetMatrixTransposeArray.html=pEffect, hParam, ptr_MatArr, Count
Shader_GetMatrixPointerArray=jGfx\Shader_GetMatrixPointerArray.html=pEffect, hParam, ptr_pMatArr, Count
Shader_SetMatrixPointerArray=jGfx\Shader_SetMatrixPointerArray.html=pEffect, hParam, ptr_pMatArr, Count
Shader_GetMatrixTransposePointerArray=jGfx\Shader_GetMatrixTransposePointerArray.html=pEffect, hParam, ptr_pMatArr, Count
Shader_SetMatrixTransposePointerArray=jGfx\Shader_SetMatrixTransposePointerArray.html=pEffect, hParam, ptr_pMatArr, Count
Shader_Return=jGfx\Shader_Return.html=(ElementIndex)
Shader_GetTechniqueByName=jGfx\Shader_GetTechniqueByName.html=(pEffect, NameStr)
Shader_GetCurrentTechnique=jGfx\Shader_GetCurrentTechnique.html=(pEffect)
Shader_SetTechnique=jGfx\Shader_SetTechnique.html=pEffect, hTech
Shader_SetTechniqueName=jGfx\Shader_SetTechniqueName.html=pEffect, NameStr$
Shader_SetVectorPointerArray=jGfx\Shader_SetVectorPointerArray.html=pEffect, hParam, ptr_pVecArr, VecStride, Count
Shader_GetVectorPointerArray=jGfx\Shader_GetVectorPointerArray.html=pEffect, hParam, ptr_pVecArr, VecStride, Count
MRT_MaxSimultaneousRTs=jGfx\MRT_MaxSimultaneousRTs.html=()
MRT_IndependentBitDepths=jGfx\MRT_IndependentBitDepths.html=()
MRT_PostPixelShaderBlending=jGfx\MRT_PostPixelShaderBlending.html=()
MRT_PostPixelFormatSupport=jGfx\MRT_PostPixelFormatSupport.html=(D3DFMT)
MRT_Sync=jGfx\MRT_Sync.html=CameraID, TargetImgB, TargetImgC, TargetImgD
MRT_MakeRenderTarget=jGfx\MRT_MakeRenderTarget.html=ImageID, Width, Height [, D3DFMT]
CubeTex_MakeNew=jGfx\CubeTex_MakeNew.html=(Resolution, bMipMap)||(Resolution, bMipMap, D3DFMT)
CubeTex_Delete=jGfx\CubeTex_Delete.html=pCubeTex
CubeTex_SetMipFilter=jGfx\CubeTex_SetMipFilter.html=pCubeTex, D3DTEXF
CubeTex_ApplyObject=jGfx\CubeTex_ApplyObject.html=pCubeTex, ObjectID, StageID
CubeTex_ApplyLimb=jGfx\CubeTex_ApplyLimb.html=pCubeTex, ObjectID, LimbID, StageID
CubeTex_Save=jGfx\CubeTex_Save.html=pCubeTex, FileName$
CubeTex_DrawToFace=jGfx\CubeTex_DrawToFace.html=pCubeTex, FaceID
CubeTex_CheckFormatSupport=jGfx\CubeTex_CheckFormatSupport.html=(D3DFMT)
CubeTex_Sync=jGfx\CubeTex_Sync.html=pCubeTex, CameraID
CubeTex_SyncFaces=jGfx\CubeTex_SyncFaces.html=pCubeTex, CameraID, dwMaskBits
CubeTex_SetPosition=jGfx\CubeTex_SetPosition.html=pCubeTex, X#, Y#, Z#
CubeTex_SetRange=jGfx\CubeTex_SetRange.html=pCubeTex, Near#, Far#
CubeTex_GetPositionX=jGfx\CubeTex_GetPositionX.html=(pCubeTex)
CubeTex_GetPositionY=jGfx\CubeTex_GetPositionY.html=(pCubeTex)
CubeTex_GetPositionZ=jGfx\CubeTex_GetPositionZ.html=(pCubeTex)
CubeTex_GetNear=jGfx\CubeTex_GetNear.html=(pCubeTex)
CubeTex_GetFar=jGfx\CubeTex_GetFar.html=(pCubeTex)
CubeTex_GetDrawCalls=jGfx\CubeTex_GetDrawCalls.html=()
CubeTex_GetDrawPrimitives=jGfx\CubeTex_GetDrawPrimitives.html=()
CubeTex_GetResolution=jGfx\CubeTex_GetResolution.html=(pCubeTex)
CubeTex_GetFormat=jGfx\CubeTex_GetFormat.html=(pCubeTex)
CubeTex_GetMipmapGeneration=jGfx\CubeTex_GetMipmapGeneration.html=(pCubeTex)
CubeTex_SyncMRT=jGfx\CubeTex_SyncMRT.html=pCubeTex, pCubeTexB, pCubeTexC, pCubeTexD, CameraID
CubeTex_SyncFacesMRT=jGfx\CubeTex_SyncFacesMRT.html=pCubeTex, pCubeTexB, pCubeTexC, pCubeTexD, CameraID, dwMaskBits
CubeTex_GenerateMipSubLevels=jGfx\CubeTex_GenerateMipSubLevels.html=pCubeTex
GeoInst_MakeNew=jGfx\GeoInst_MakeNew.html=()
GeoInst_Delete=jGfx\GeoInst_Delete.html=pGInst
GeoInst_SetHidden=jGfx\GeoInst_SetHidden.html=pGInst, bHidden
GeoInst_GetHidden=jGfx\GeoInst_GetHidden.html=(pGInst)
GeoInst_SetCameraMask=jGfx\GeoInst_SetCameraMask.html=pGInst, dwMaskBits
GeoInst_GetCameraMask=jGfx\GeoInst_GetCameraMask.html=(pGInst)
GeoInst_SetMesh=jGfx\GeoInst_SetMesh.html=pGInst, ObjectID, LimbID
GeoInst_GetMeshObject=jGfx\GeoInst_GetMeshObject.html=(pGInst)
GeoInst_GetMeshLimb=jGfx\GeoInst_GetMeshLimb.html=(pGInst)
GeoInst_SetMaxInstanceCount=jGfx\GeoInst_SetMaxInstanceCount.html=pGInst, Count
GeoInst_GetMaxInstanceCount=jGfx\GeoInst_GetMaxInstanceCount.html=(pGInst)
GeoInst_SetInstanceCount=jGfx\GeoInst_SetInstanceCount.html=pGInst, Count
GeoInst_GetInstanceCount=jGfx\GeoInst_GetInstanceCount.html=(pGInst)
GeoInst_SetExcluded=jGfx\GeoInst_SetExcluded.html=pGInst, Index, bExcluded
GeoInst_GetExcluded=jGfx\GeoInst_GetExcluded.html=(pGInst, Index)
GeoInst_SetPosition=jGfx\GeoInst_SetPosition.html=pGInst, Index, X#, Y#, Z#
GeoInst_GetPositionX=jGfx\GeoInst_GetPositionX.html=(pGInst, Index)
GeoInst_GetPositionY=jGfx\GeoInst_GetPositionY.html=(pGInst, Index)
GeoInst_GetPositionZ=jGfx\GeoInst_GetPositionZ.html=(pGInst, Index)
GeoInst_SetRotation=jGfx\GeoInst_SetRotation.html=pGInst, Index, X#, Y#, Z#
GeoInst_GetAngleX=jGfx\GeoInst_GetAngleX.html=(pGInst, Index)
GeoInst_GetAngleY=jGfx\GeoInst_GetAngleY.html=(pGInst, Index)
GeoInst_GetAngleZ=jGfx\GeoInst_GetAngleZ.html=(pGInst, Index)
GeoInst_SetScale=jGfx\GeoInst_SetScale.html=pGInst, Index, Percent# || pGInst, Index, X#, Y#, Z#
GeoInst_GetScaleX=jGfx\GeoInst_GetScaleX.html=(pGInst, Index)
GeoInst_GetScaleY=jGfx\GeoInst_GetScaleY.html=(pGInst, Index)
GeoInst_GetScaleZ=jGfx\GeoInst_GetScaleZ.html=(pGInst, Index)
GeoInst_DeclareCustomElements=jGfx\GeoInst_DeclareCustomElements.html=pGInst, bWorldMat
GeoInst_AddCustomElement=jGfx\GeoInst_AddCustomElement.html=pGInst, NumFloats
GeoInst_FinishCustomElements=jGfx\GeoInst_FinishCustomElements.html=pGInst
GeoInst_DeleteCustomElements=jGfx\GeoInst_DeleteCustomElements.html=pGInst
GeoInst_SetCustomData=jGfx\GeoInst_SetCustomData.html=pGInst, Index, Element, X# [, Y# [, Z# [, W# ]]]
GeoInst_GetCustomDataX=jGfx\GeoInst_GetCustomDataX.html=(pGInst, Index, Element)
GeoInst_GetCustomDataY=jGfx\GeoInst_GetCustomDataY.html=(pGInst, Index, Element)
GeoInst_GetCustomDataZ=jGfx\GeoInst_GetCustomDataZ.html=(pGInst, Index, Element)
GeoInst_GetCustomDataW=jGfx\GeoInst_GetCustomDataW.html=(pGInst, Index, Element)
GeoInst_GetWorldMatrixPtr=jGfx\GeoInst_GetWorldMatrixPtr.html=(pGInst, Index)
GeoInst_SetWorldMatrixPtr=jGfx\GeoInst_SetWorldMatrixPtr.html=pGInst, Index, pMatrix4
GeoInst_GetCustomDataPtr=jGfx\GeoInst_GetCustomDataPtr.html=(pGInst, Index, Element)
GeoInst_SetCustomDataPtr=jGfx\GeoInst_SetCustomDataPtr.html=pGInst, Index, Element, pFloats
GeoInst_Update=jGfx\GeoInst_Update.html=pGInst
GeoInst_UpdateInstance=jGfx\GeoInst_UpdateInstance.html=pGInst, Index
GeoInst_GetDrawCount=jGfx\GeoInst_GetDrawCount.html=(pGInst)
GeoInst_GetDrawPrimitives=jGfx\GeoInst_GetDrawPrimitives.html=(pGInst)
GeoInst_CheckDeviceSupport=jGfx\GeoInst_CheckDeviceSupport.html=(pGInst)
GeoInst_SetRenderPriority=jGfx\GeoInst_SetRenderPriority.html=pGInst, Priority
GeoInst_GetRenderPriority=jGfx\GeoInst_GetRenderPriority.html=(pGInst)
GeoInst_GetRenderIndex=jGfx\GeoInst_GetRenderIndex.html=(pGInst)
GeoInst_SortRenderQueue=jGfx\GeoInst_SortRenderQueue.html=*no parameters*
EfxCam_MakeNew=jGfx\EfxCam_MakeNew.html=FxCamID
EfxCam_Delete=jGfx\EfxCam_Delete.html=FxCamID
EfxCam_GetExist=jGfx\EfxCam_GetExist.html=(FxCamID)
EfxCam_SetBackdropEnabled=jGfx\EfxCam_SetBackdropEnabled.html=FxCamID, bEnabled
EfxCam_SetBackdropColor=jGfx\EfxCam_SetBackdropColor.html=FxCamID, dwColor
EfxCam_SetToImage=jGfx\EfxCam_SetToImage.html=FxCamID, ImageID, Width, Height [, D3DFMT]
EfxCam_SetObject=jGfx\EfxCam_SetObject.html=FxCamID, ObjectID
EfxCam_SetAspect=jGfx\EfxCam_SetAspect.html=FxCamID, Aspect#
EfxCam_SetFOV=jGfx\EfxCam_SetFOV.html=FxCamID, FOV#
EfxCam_SetRange=jGfx\EfxCam_SetRange.html=FxCamID, Near#, Far#
EfxCam_SetView=jGfx\EfxCam_SetView.html=FxCamID, Left, Top, Right, Bottom
EfxCam_SetPosition=jGfx\EfxCam_SetPosition.html=FxCamID, X#, Y#, Z#
EfxCam_SetRotation=jGfx\xCam_SetRotation.html=FxCamID, X#, Y#, Z#
EfxCam_SyncMask=jGfx\fxCam_SyncMask.html=dwMaskBits
EfxCam_Sync=jGfx\EfxCam_Sync.html=*no parameters*
EfxCam_SetMRTImage=jGfx\EfxCam_SetMRTImage.html=FxCamID, TargetIndex, ImageID [, D3DFMT]

enable object zbias ObjID,0.0,1.0

GeoInst_DeclareCustomElements pGInst,1 //1 indicates to include instance world matrices, 0 for custom data only
GeoInst_AddCustomElement pGInst, 4 //Element 1
GeoInst_AddCustomElement pGInst, 4 //Element 2
GeoInst_FinishCustomElements pGInst 

//alpha-blending depth errors

UseSeparateObjects = 1 //if set to 0, the more distant sphere is not visible through the closer sphere

make object sphere 1,5
autocam off


//Render two separate sphere objects
if UseSeparateObjects = 1
	set object cull 1,0 //disable backface culling to demonstrate depth test errors between polygons within the same object
	ghost object on 1
	clone object 2,1
	position object 2,0,0,10
endif

//Render two spheres as a single object
if UseSeparateObjects = 0
	make mesh from object 1,1 //append a second sphere to object 1 as a limb
	append limb 1,1
	offset limb 1,1,0,0,10
	delete mesh 1

	make mesh from object 1,1 //recreate the object from mesh to combine its limbs into one
	delete object 1
	make object 1,1
	delete mesh 1

	set object cull 1,0
	ghost object on 1
endif


do
	move camera (upkey()-downkey())*0.001
	move camera right (rightkey()-leftkey())*0.001
	rotate camera wrapvalue(camera angle X()+MouseMoveY()),wrapvalue(camera angle Y()+MouseMoveX()),0
loop

	ThisWindow = GET DBPRO WINDOW()
	if CHECK DISPLAY MODE(ScreenWidth, ScreenHeight, ScreenDepth, VSyncMode, Antialias, 0)	
		Set Display Mode ScreenWidth, ScreenHeight, ScreenDepth, VSyncMode, Antialias, 0
	Else
		Error("Failed to set display mode", 1)		
	Endif

`LimbVsObjectPerformanceTest
`LimbVsObjectPerformanceTest.dba
`======================
count = 4000
mode = 0 ` 0:Seperate Objects - 1: Instanced objects with 2 limbs - 2:GeoInstance : 3:Limbs 4:Single limb 
excludeAll =0
detail = 16

select mode
	case 0
		for i = 1 to count
			make object sphere i, 1, detail, detail
			color object i, rgb(rnd(255),rnd(255),rnd(255))
			position object i, rnd(10), rnd(10), rnd(10)
			If excludeAll
				exclude object on i
			Endif
		Next i
	Endcase
	case 1
		make object sphere 1, 1, detail, detail
		make mesh from object 1, 1
		append limb 1, 1
		offset limb 1, 1, -0.4,0,-0.3
		color limb 1, 1, rgb(20,255,255)
		delete mesh 1		

		If excludeAll
			exclude object on 1
		Endif		
		for i = 2 to (count / 2)
			instance object i, 1
			`color object i, rgb(rnd(255),rnd(255),rnd(255))
			position object i, rnd(10), rnd(10), rnd(10)
			If excludeAll
				exclude object on i
			Endif
		Next i
	Endcase	
	case 2
		make object sphere 1, 1, detail, detail
		exclude object on 1
		InstanceCount = count
	Effect = 1 : Load Effect "C:\TGC\DBPro\Projects\jGfx\GeoInst\Media\HInst_Normal.fx",Effect,0
	Set object Effect 1,Effect 			// Must apply shader before calling GeoInst_SetMesh



	`Setup Geometry Instancing
		pGInst = GeoInst_MakeNew()							// Create a new GeoInst
		GeoInst_SetMesh pGInst,1,0						// Set the GeoInst's source sMesh (Limb)

		GeoInst_SetMaxInstanceCount pGInst, InstanceCount	// Set the size of the GeoInst's internal buffers
		GeoInst_SetInstanceCount pGInst, InstanceCount		// Define how many buffer entries are currently in-use and should be processed

		`Set random instance data
		For i=1 To InstanceCount
			GeoInst_SetPosition pGInst, i, rnd(10), rnd(10), rnd(10)
			GeoInst_SetRotation pGInst, i, rnd(360), rnd(360), rnd(360)
			GeoInst_SetScale pGInst, i, 100 		// Must define a scale percent for all instances, default value is 0.0 = invisible
			If ExcludeAll
				GeoInst_SetExcluded pGInst, i, 1
			Endif			
			GeoInst_UpdateInstance pGInst, i				// Update instance's world matrix
			
		Next i
		`Update the GeoInst's internal buffers
		GeoInst_Update pGInst
		
	Endcase
	case default
		make object sphere 1, 1, detail, detail
		make mesh from object 1, 1
		for i = 1 to count
			add limb 1, i, 1
			color limb 1, i, rgb(rnd(255),rnd(255),rnd(255))
			offset limb 1, i, rnd(10), rnd(10), rnd(10)
		Next i
		if mode = 4
			make mesh from object 2, 1
			delete object 1
			make object 1, 2
		Endif
	Endcase

Endselect

sync on
sync rate 0

do
	set cursor 0 , 0
	print Screen FPS()
	print "Polys: "; Statistic(1)
	print "Draw calls: "; Statistic(5)
	print "Mode: "; mode
	
	Set Cursor 0, 0
	t# = HiTimer() - t#
	BasicCameraMovement( c, t# * 0.1, t# * 0.75, 1, 0 )
	t# = HiTimer()
	sync
Loop 
//==================================================
Function BasicCameraMovement( c, fSpeed#, fRotateSpeed#, fMouseInfluence#, v3Track )
	If c < 0 Then ExitFunction
	If Camera Exist(c) = 0 Then ExitFunction
	If fMouseInfluence# <> 0

		If v3Track > 0 And Vector Exist(v3Track)
			//If BypassMouseZoom) = 0 Then Move Camera c, fMouseInfluence# * Clamp(MouseMoveZ(),-10,10) * fSpeed#
			Move Camera Left c, Clamp(MouseMoveX(),-10,10) * fSpeed# * fMouseInfluence#
			Position Camera CPX, CPY + Clamp(MouseMoveY(),-10,10) * fSpeed# * fMouseInfluence#, CPZ
		Else
			If ControlKey() + ShiftKey() = 0
				YRotate Camera c, ( CAY + Clamp(MouseMoveX(),-10,10) *  fRotateSpeed# * fMouseInfluence#)
				XRotate Camera c, (CAX +  Clamp(MouseMoveY(),-10,10) * fRotateSpeed# * fMouseInfluence#)
			EndIf
			Move Camera c, Clamp(MouseMoveY(),-10,10) * fSpeed# * fMouseInfluence#
		Endif
	
	Endif 
		
	Move Camera c, ( KeyState(KEY_W) - KeyState(KEY_S) ) * (fSpeed# + ((ControlKey() * fSpeed# * 9)) - ((ShiftKey() * fSpeed# * 0.75)) )
	If Vector Exist(v3Track)
		Move Camera Left c, KeyState(KEY_D) - KeyState(KEY_A) * fSpeed#
		Move Camera Up c, KeyState(KEY_E) - KeyState(KEY_Q) * fSpeed#	
		Point Camera At Vector3 c, v3Track
	Else
		If fMouseInfluence# <> 0 And MouseClicked && 2
			YRotate Camera c, CAY -((KeyState(KEY_A) * fRotateSpeed# ) +  -KeyState(KEY_D) * fRotateSpeed#)
			XRotate Camera c, CAX -( (KeyState(KEY_E) * fRotateSpeed#) +  -KeyState(KEY_Q) * fRotateSpeed#	)
			`Print "Rotate mode"
		Else
			Move Camera Right c, (KeyState(KEY_D) * fSpeed# )  - (KeyState(KEY_A) * fSpeed#)
			XRotate Camera c, CAX -( (KeyState(KEY_E) * fRotateSpeed#) +  -KeyState(KEY_Q) * fRotateSpeed#	)
			`Print "Strafe mode"
		Endif
			
	Endif
Endfunction


#CONSTANT CPOS Camera Position X(), Camera Position Y(), Camera Position Z()
#CONSTANT CANG Camera Angle X(), Camera Angle Y(), Camera Angle Z()

#CONSTANT RCAM Rotate Camera
#CONSTANT PCAM Position Camera
#CONSTANT XRCAM XRotate Camera
#CONSTANT YRCAM YRotate Camera
#CONSTANT ZRCAM ZRotate Camera



#CONSTANT TCAML Turn Camera Left
#CONSTANT TCAMR Turn Camera Right

#CONSTANT MCAM Move Camera
#CONSTANT MCAML Move Camera Left
#CONSTANT MCAMR Move Camera Right
#CONSTANT MCAMU Move Camera Up
#CONSTANT MCAMD Move Camera Down
#CONSTANT CPX Camera Position X(c)
#CONSTANT CPY Camera Position Y(c)
#CONSTANT CPZ Camera Position Z(c)
#CONSTANT CAX Camera Angle X()
#CONSTANT CAY Camera Angle Y()
#CONSTANT CAZ Camera Angle Z()
#CONSTANT CANGX Camera Angle X(c)
#CONSTANT CANGY Camera Angle Y(c)
#CONSTANT CANGZ Camera Angle Z(c)

#CONSTANT CAM_POS_STRING Str$(Camera Position X()) + ", " + Str$(Camera Position Y()) + ", " +  Str$(Camera Position Z())
#CONSTANT CAM_INT_POS_STRING Str$(Camera Position X(),0) + ", " + Str$(Camera Position Y(),0) + ", " +  Str$(Camera Position Z(),0)

#CONSTANT SHIFT_KEY_FLAG 1
#CONSTANT CTRL_KEY_FLAG 2
#CONSTANT ALT_KEY_FLAG 4
//======================================================================
` Key codes
#constant    Key_0              11
#constant    Key_1               2
#constant    Key_2               3
#constant    Key_3               4
#constant    Key_4               5
#constant    Key_5               6
#constant    Key_6               7
#constant    Key_7               8
#constant    Key_8               9
#constant    Key_9              10
#constant    Key_A              30
#constant    Key_ABNT_C1       115
#constant    Key_ABNT_C2       126
#constant    Key_ADD            78
#constant    Key_APOSTROPHE     40
#constant    Key_APPS          221
#constant    Key_AT            145
#constant    Key_AX            150
#constant    Key_B              48
#constant    Key_BACK           14
#constant    Key_BACKSLASH      43
#constant    Key_BACKSPACE      14
#constant    Key_C              46
#constant    Key_CALCULATOR    161
#constant    Key_CAPITAL        58
#constant    Key_CAPSLOCK       58
#constant    Key_CIRCUMFLEX    144
#constant    Key_COLON         146
#constant    Key_COMMA          51
#constant    Key_CONVERT       121
#constant    Key_D              32
#constant    Key_DECIMAL        83
#constant    Key_DELETE        211
#constant    Key_DIVIDE        181
#constant    Key_DOWN          208     
#constant    Key_DOWNARROW     208
#constant    Key_E              18
#constant    Key_END           207
#constant    Key_ENTER         28
#constant    Key_EQUALS         13
#constant    Key_ESCAPE          1
#constant    Key_F              33
#constant    Key_F1             59
#constant    Key_F2             60
#constant    Key_F3             61
#constant    Key_F4             62
#constant    Key_F5             63
#constant    Key_F6             64
#constant    Key_F7             65
#constant    Key_F8             66
#constant    Key_F9             67
#constant    Key_F10            68
#constant    Key_F11            87
#constant    Key_F12            88
#constant    Key_F13           100
#constant    Key_F14           101
#constant    Key_F15           102
#constant    Key_G              34
#constant    Key_GRAVE          41
#constant    Key_H              35
#constant    Key_HOME          199
#constant    Key_I              23
#constant    Key_INSERT        210
#constant    Key_J              36
#constant    Key_K              37
#constant    Key_KANA          112
#constant    Key_KANJI         148
#constant    Key_L              38
#constant    Key_LALT           56
#constant    Key_LBRACKET       26
#constant    Key_LCONTROL       29
#constant    Key_LEFT          203      
#constant    Key_LEFTARROW     203
#constant    Key_LMENU          56
#constant    Key_LSHIFT         42
#constant    Key_LWIN          219
#constant    Key_M              50
#constant    Key_MAIL          236
#constant    Key_MEDIASELECT   237
#constant    Key_MEDIASTOP     164
#constant    Key_MINUS          12
#constant    Key_MULTIPLY       55
#constant    Key_MUTE          160
#constant    Key_MYCOMPUTER    235
#constant    Key_N              49
#constant    Key_NEXT          209
#constant    Key_NEXTTRACK     153
#constant    Key_NOCONVERT     123
#constant    Key_NUMLOCK        69
#constant    Key_NUMPAD0        82
#constant    Key_NUMPAD1        79
#constant    Key_NUMPAD2        80
#constant    Key_NUMPAD3        81
#constant    Key_NUMPAD4        75
#constant    Key_NUMPAD5        76
#constant    Key_NUMPAD6        77
#constant    Key_NUMPAD7        71
#constant    Key_NUMPAD8        72
#constant    Key_NUMPAD9        73
#constant    Key_NUMPADCOMMA   179
#constant    Key_NUMPADENTER   156
#constant    Key_NUMPADEQUALS  141
#constant    Key_NUMPADMINUS    74
#constant    Key_NUMPADPERIOD   83
#constant    Key_NUMPADPLUS     78
#constant    Key_NUMPADSLASH   181
#constant    Key_NUMPADSTAR     55
#constant    Key_O              24
#constant    Key_OEM_102        86
#constant    Key_P              25
#constant    Key_PAUSE         197
#constant    Key_PERIOD         52
#constant    Key_PGDN          209
#constant    Key_PGUP          201
#constant    Key_PLAYPAUSE     162
#constant    Key_POWER         222
#constant    Key_PREVTRACK     144
#constant    Key_PRIOR         201
#constant    Key_Q              16
#constant    Key_R              19
#constant    Key_RALT          184
#constant    Key_RBRACKET       27
#constant    Key_RCONTROL      157
#constant    Key_RETURN         28
#constant    Key_RIGHT         205 
#constant    Key_RIGHTARROW    205
#constant    Key_RMENU         184
#constant    Key_RSHIFT         54
#constant    Key_RWIN          220
#constant    Key_S              31
#constant    Key_SCROLL         70
#constant    Key_SEMICOLON      39
#constant    Key_SLASH          53
#constant    Key_SLEEP         223
#constant    Key_SPACE          57
#constant    Key_SPACEBAR       57
#constant    Key_STOP          149
#constant    Key_SUBTRACT       74
#constant    Key_SYSRQ         183
#constant    Key_T              20
#constant    Key_TAB            15
#constant    Key_U              22
#constant    Key_UNDERLINE     147
#constant    Key_UNLABELED     151
#constant    Key_UP            200     
#constant    Key_UPARROW       200
#constant    Key_V              47
#constant    Key_VOLUMEDOWN    174
#constant    Key_VOLUMEUP      176
#constant    Key_W              17
#constant    Key_WAKE          227
#constant    Key_WEBBACK       234
#constant    Key_WEBFAVORITES  230
#constant    Key_WEBFORWARD    233
#constant    Key_WEBHOME       178
#constant    Key_WEBREFRESH    231
#constant    Key_WEBSEARCH     229
#constant    Key_WEBSTOP       232
#constant    Key_X              45
#constant    Key_Y              21
#constant    Key_YEN           125
#constant    Key_Z              44

//===========================================================================
float Wrap( uniform float value, uniform float minv, uniform float maxv)
{
	minv = min(minv,maxv);
	if (value == minv) 
	{ return value;}
	else if (value == maxv) { return value;}
	else
	{
		float range = abs(maxv-minv);	
		value = range - ( range - fmod( value, range) );
		if ( value < minv) {value += minv;}
		return value;
	}
}
//===========================================================================
float2 Wrap2( uniform float2 value, uniform float minv, uniform float maxv)
{
	return float2
	(
		Wrap(value.x, minv, maxv),
		Wrap(value.y, minv, maxv)
	);
}