Sorry your browser is not supported!

SetWindowAllowResize( 1 ) // allow the user to resize the window

SetCameraFOV( 1, 65 )
SetCameraRange( 1, 5, 30000 )

// set display properties
BaseWidth = GetMaxDeviceWidth()
BaseHeight = GetMaxDeviceHeight()
SetWindowSize( BaseWidth, BaseHeight, 0 )
SetDisplayAspect(-1)
SetSyncRate( 60, 0 ) 
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

// Project: 3d_video 
// Created: 21-12-19

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "3d_video" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )



create3DPhysicsWorld(40)
SetGlobal3DDepth(5000)
SetAmbientColor(100, 100, 100)
	

myBox = CreateObjectBox(2, 2, 2)
	SetObjectColor(myBox, 76, 57, 127, 255)
	
video_logo = LoadVideo("oths_logo.mp4")
	SetVideoDimensions(50, 50, GetVideoWidth(), GetVideoHeight())
	PlayVideo()

img_map = LoadImage("pic_map.jpg")
myPictureSprite = CreateSprite(img_map)
	SetSpriteSize(myPictureSprite, 200, 200)
	SetSpritePosition(myPictureSprite, 100, 100)
	SetSpriteDepth(myPictureSprite, 500)


do
    Print( ScreenFPS() )
    
    
    Step3DPhysicsWorld()
    Sync()
loop

// Project: 3d_video 
// Created: 21-12-19

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "3d_video" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )
SetPrintSize(20)


create3DPhysicsWorld(40)
SetGlobal3DDepth(5000)
SetAmbientColor(100, 100, 100)
	

	
video_logo = LoadVideo("oths_logo.mp4")
	SetVideoDimensions(50, 50, GetVideoWidth(), GetVideoHeight())
	PlayVideoToImage(1000)
	`PlayVideo()

myBox = CreateObjectBox(5, 5, 5)
	`SetObjectColor(myBox, 76, 57, 127, 255)
	SetObjectImage(myBox, 1000, 1)

myOtherBox = CreateObjectBox(5, 5, 5)
	SetObjectImage(myOtherBox, 1000, 1)
	SetObjectPosition(myOtherBox, 7, 0, 0)
	
mySphere = CreateObjectSphere(5, 16, 16)
	SetObjectImage(mySphere, 1000, 1)
	SetObjectPosition(mySphere, -7, 0, 0)

`img_map = LoadImage("pic_map.jpg")
myPictureSprite = CreateSprite(1000)
	SetSpriteSize(myPictureSprite, 225, 225)
	SetSpritePosition(myPictureSprite, 100, 100)
	SetSpriteDepth(myPictureSprite, 500)

rotateAmount as integer = 5

do
    Print("Speed = " + str(rotateAmount))
    Print("Sprite Depth = " + str(GetSpriteDepth(myPictureSprite)))
    
    //Move Sphere
    if GetRawKeyState(65)  then  MoveObjectLocalX(mySphere, rotateAmount * 0.5 * -1)	//A
    if GetRawKeyState(68)  then  MoveObjectLocalX(mySphere, rotateAmount * 0.5)		//D
    if GetRawKeyState(87)  then  MoveObjectLocalY(mySphere, rotateAmount * 0.5)		//W
    if GetRawKeyState(83)  then  MoveObjectLocalY(mySphere, rotateAmount * 0.5 * -1)	//S
    if GetRawKeyState(81)  then  MoveObjectLocalZ(mySphere, rotateAmount * 0.5)		//Q
    if GetRawKeyState(69)  then  MoveObjectLocalZ(mySphere, rotateAmount * 0.5 * -1)	//E
    
    //Change sprite depth
    if GetRawKeyState(188)  then  SetSpriteDepth(myPictureSprite, GetSpriteDepth(myPictureSprite) + 500)  //,
    if GetRawKeyState(190)  then  SetSpriteDepth(myPictureSprite, GetSpriteDepth(myPictureSprite) - 500)  //.
    
    //Rotate center box
    if GetRawKeyState(37)  then  RotateObjectLocalY(myBox, rotateAmount)			//Left Button
    if GetRawKeyState(39)  then  RotateObjectLocalY(myBox, rotateAmount * -1)		//Right Button
    if GetRawKeyState(38)  then  RotateObjectLocalX(myBox, rotateAmount)			//Up Button
    if GetRawKeyState(40)  then  RotateObjectLocalX(myBox, rotateAmount * -1)		//Down Button
    
    //Change roate speed
    if GetRawKeyPressed(187)  then  rotateAmount = rotateAmount + 1				//Plus Button
    if GetRawKeyPressed(189)  then  rotateAmount = rotateAmount - 1				//Minus Button
    
    
    
    if (GetVideoPlaying() = 0)  then  PlayVideoToImage(1000)
    
    Step3DPhysicsWorld()
    Sync()
loop