Sorry your browser is not supported!

// Project: _VR_Environment 
// Created: 2017-08-18
#import_plugin AGKVR


// show all errors
SetErrorMode(2)

SetWindowTitle( "_VR_Environment" )
SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate(0,0)
UseNewDefaultFonts(1) // since version 2.0.22 we can use nicer default fonts

Global CamXRot#,CamYRot#,CamZRot#,CamXPos#,CamYPos#,CamZPos# as Float
global MouseX#,MouseY# as Float
global SunVx#,SunVy#,SunVz# as Float

global testPlane as Integer
global lefthandID as Integer
global box as Integer

SetGenerateMipmaps(1) 
 
SetSkyBoxHorizonColor(200,200,255)
SetSkyBoxHorizonSize(3,25)
SetSkyBoxSkyColor(50,50,255)
SetSkyBoxSunColor(255,255,255)
SetSkyBoxVisible(1)
SetSkyBoxSunSize(12,63.0)
SetSkyBoxSunVisible(1) 

#constant VR 1

 CamXPos#=0.0
 CamYPos#=50.0
 CamZPos#=0.0

 SunVx#=0.2
 SunVy#=-0.2
 SunVz#=-1
 //SetSunDirection(SunVx#,SunVy#,SunVz#)

 testplane=CreateObjectPlane(1500,1500)
 SetObjectLookAt(testPlane,0,0,0,0)
 SetObjectPosition(testPlane,0,0,500)
 RotateObjectLocalX(testPlane,90)
 SetObjectColor(testPlane,255,0,0,255)
 
 box=CreateObjectBox(40,40,40)
 SetObjectPosition(box,0,50,500)

 
 //lefthandID=LoadObject("/media/left_controller_body.lwo")

 if VR
  AGKVR.SetCameraRange(0.01,1000.0)
  AGKVR.ErrorMessagesOn(1) 
  InitError As Integer
  RightEyeImg As Integer = 500
  LeftEyeImg As Integer = 501
  InitError = AGKVR.Init( RightEyeImg, LeftEyeImg )
  // InitError = 0: SUCCESS!
  // InitError = 1: Unable to init VR runtime
  // InitError = 2: Compositor initialization failed.
  AGKVR.UpdatePlayer( )
  AGKVR.ResetSeatedZeroPose()
  AGKVR.SetPlayerPosition(0,50,0)
  AGKVR.SetPlayerRotation(0,0,0)
 else
  SetVSync(1)
 endif

 SetShadowMappingMode(3)
 SetShadowSmoothing(1)
 SetShadowBias(0.0012) 
 SetShadowMapSize(2048,2048)
 SetObjectCastShadow(box,1)

 
Repeat
    
 if VR
  AGKVR.UpdatePlayer( )
  //SetObjectPosition( lefthandID, AGKVR.GetLeftHandX(), AGKVR.GetLeftHandY(), AGKVR.GetLeftHandZ())
  //SetObjectRotation( lefthandID, AGKVR.GetLeftHandAngleX(), AGKVR.GetLeftHandAngleY(), AGKVR.GetLeftHandAngleZ())
 endif
	
 if VR
  AGKVR.Render()
  //The camera's position and rotation will determine what is displayed on the monitor, not the HMD
  SetCameraPosition( 1, AGKVR.GetHMDX(), AGKVR.GetHMDY(), AGKVR.GetHMDZ())
  SetCameraRotation( 1, AGKVR.GetHMDAngleX(), AGKVR.GetHMDAngleY(), AGKVR.GetHMDAngleZ())	
 else
  FreeView()
 endif
 
 //Print(ScreenFPS())
 //Print(CamYRot#)
 Sync()

Until GetRawKeyPressed(27)

function FreeView()
 Local NewMouseX# as Float
 Local NewMouseY# as Float
 NewMouseX#=MouseX#-GetRawMouseX()
 NewMouseY#=MouseY#-GetRawMouseY()
 MouseX#=GetRawMouseX()
 MouseY#=GetRawMouseY()
 CamXRot#=CamXRot#-(NewMouseY#/8.0)
 CamYRot#=CamYRot#-(NewMouseX#/8.0)
 
 if MouseX#<100.0 then MouseX#=MouseX#+100.0
 if MouseX#>900.0 then MouseX#=MouseX#-100.0
 if MouseY#<100.0 then MouseY#=MouseY#+100.0
 if MouseY#>600.0 then MouseY#=MouseY#-100.0

 SetRawMousePosition(MouseX#,MouseY#)
 SetCameraPosition(1,CamXPos#,CamYPos#,CamZPos#)
 SetCameraLookAt(1,CamXPos#,CamYPos#,CamZPos#,0)
 SetCameraRotation(1,CamXRot#,CamYRot#,CamZRot#)
 
endfunction

//Load the AGKVR plugin
#import_plugin AGKVR


// Show all errors
SetErrorMode(2) 

// Set some display properties
SetVirtualResolution( 1024, 768 )
SetClearColor( 101, 120, 154 )
SetScissor( 0,0,0,0 )
SetGenerateMipmaps( 1 )
SetCameraRange( 1, 0.1, 100 )
SetWindowAllowResize( 1 )

UseNewDefaultFonts( 1 )

SetShadowMappingMode( 3 )
// 0 = turn it off
// 1 = Uniform shadows (lower but consistent quality.)
// 2 = LiPSM shadows (Light Space Perspective shadow mapping (LiPSM) which has higher quality in most cases)
// 3 = Cascade shadow (high quality near the camera whilst still allowing lower quality shadows in the distance.)

SetShadowSmoothing( 1 )
// 0 = no smoothing --- no gradients
// 1 = multismapling --- pixelated gradients
// 2 = random multisampling --- gradients smoothed with shimering noise

SetShadowMapSize( 2048, 2048 ) // Higher equals better quality shadows
SetShadowRange( 30 ) // -1 to use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts




/*===============================================================================
   VR TECH STUFFIE
===============================================================================*/

//Set the Camera Range in AGKVR
//It is necessary to use this command for setting the camera's range instead of the standard AGK SetCameraRange command
//AGKVR.SetCameraRange( 0.01, 1000.0 )
AGKVR.SetCameraRange( 0.003, 1000.0 )

//Initialiaze AGKVR
// The parameters are the Right and Left Eye image ID's that will be used to render to the HMD
InitError As Integer
RightEyeImg As Integer = 500
LeftEyeImg As Integer = 501
InitError = AGKVR.Init( RightEyeImg, LeftEyeImg )
// InitError = 0: SUCCESS!
// InitError = 1: Unable to init VR runtime
// InitError = 2: Compositor initialization failed.

//This command will lock the player's heading direction
//to follow the turn angle of the HMD. This would be common in FPS games, where
//you want the forward moving direction's turn angle to change based on where the
//player is looking. LockPlayerTurn is ON(1) by default
AGKVR.LockPlayerTurn( 1 )

//This command will lock the player's heading direction (forward on the Z axis)
//to follow the pitch angle of the HMD. This would be useful in a freeflight style game
//where you want the forward moving direction's pitch angle to change based on where the
//player is looking. LockPlayerPitch is OFF(0) by default
AGKVR.LockPlayerPitch( 0 )



// show the sun, not necessary but improves the experience
SetSkyBoxVisible(1)

SetSunActive (1)
SetSunColor( 128, 128, 128 ) 
SetSunDirection( -0.3714, -0.7428, 0.5571 )
SetAmbientColor( 110,110,110 )


// create the ground
CreateObjectPlane( 3, 50,50 )
SetObjectRotation( 3, 90,0,0 )
SetObjectPosition( 3, 0,0,0 ) 
SetObjectCastShadow( 3, 1 ) // this isn't necessary but improves the small low quality shadows

// create a sphere object
CreateObjectSphere( 2, 1, 10, 10 )
SetObjectColor( 2, 0,255,0,128 )
SetObjectPosition( 2, 1.3, 2, 2)
SetObjectTransparency( 2, 0 )
SetObjectCastShadow( 2, 1 )

// create a wall
CreateObjectPlane( 4, 20,20 )
SetObjectPosition( 4, 0,9,-20 )
SetObjectCastShadow( 4, 1 )


do


	AGKVR.UpdatePlayer( )

	//This command renders to the HMD.
	AGKVR.Render(  )

	Sync()
loop