Sorry your browser is not supported!

// Project: test15 
// Created: 2018-12-15

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "test15" )
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 ) // since version 2.0.22 we can use nicer default fonts

earth = CreateObjectSphere(2, 8, 8)

sun = CreateObjectSphere(1, 8, 8)
SetObjectPosition(sun, 0, 5, 0)
FixObjectPivot(sun)
SetObjectColor(sun, 0xff, 0, 0, 0xff)

sun1 = CreateObjectSphere(1, 8, 8)
SetObjectPosition(sun1, 5, 0, 0)
FixObjectPivot(sun1)
SetObjectColor(sun1, 0xff, 0, 0, 0xff)

SetCameraPosition(1, 0, 0, 40)
SetCameraLookAt(1, 0, 0, 0, 0)

do
    RotateObjectLocalx(sun , 1)
    RotateObjectLocaly(sun1 , 1)    
    Print( "X-Axis="+str(GetObjectAngleX(sun)) )
    Print( "Y-Axis="+str(GetObjectAngleY(sun1)) )    
    Sync()
loop

function GetEulerX(obj as integer)
	
	x# = GetObjectQuatX(obj)
	y# = GetObjectQuaty(obj)
	z# = GetObjectQuatz(obj)
	w# = GetObjectQuatw(obj)
	
	val1# = 2.0 * (w# * x# + y# * z#)
	val2# = 1.0 - 2.0 * (x# * x# + y# * y#)
	
	angle# = ATan2(val1#,val2#)
	
endfunction angle#

// Project: Gimbal 
// Created: 2019-03-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Gimbal" )
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
SetVsync(1)
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


// draw a texture
col = MakeColor(255,255,255)
DrawBox(0,0,1024,768,col,col,col,col,1)
col = MakeColor(0,0,0)
DrawEllipse(1024/2,768/2,1024/3,768/3,col,col,1)
img = GetImage(0,0,1024,768)
SetImageTransparentColor(img,0,0,0)
//clearscreen()

box = createobjectbox(8,1,8)
SetObjectPosition(box,0,-6,0)

// support
sup = CreateObjectCylinder(1,0.2,8)
Setobjectposition(sup,0,-5.5,0)
SetObjectColor(sup,128,128,128,255)

// outer ring
ring1 = CreateObjectCylinder(0.1,10,20)
SetObjectColor(ring1,255,0,255,255)
SetObjectImage(ring1,img,0)
SetObjectAlphaMask(ring1,1)
SetObjectRotation(ring1,90,0,0)
FixObjectPivot(ring1)

sup = CreateObjectCylinder(1,0.1,8)
SetObjectPosition(sup,-3,0,0)
SetObjectRotation(sup,0,0,90)
FixObjectToObject(sup,ring1)

sup = CreateObjectCylinder(1,0.1,8)
SetObjectPosition(sup,3,0,0)
SetObjectRotation(sup,0,0,90)
FixObjectToObject(sup,ring1)

// middle ring
ring2 = CreateObjectCylinder(0.1,6,20)
SetObjectColor(ring2,0,255,0,255)
SetObjectImage(ring2,img,0)
SetObjectAlphaMask(ring2,1)
SetObjectRotation(ring2,90,0,0)
FixObjectPivot(ring2)

sup = CreateObjectCylinder(1,0.1,8)
SetObjectPosition(sup,0,2,0)
FixObjectToObject(sup,ring2)

sup = CreateObjectCylinder(1,0.1,8)
SetObjectPosition(sup,0,-2,0)
FixObjectToObject(sup,ring2)


//inner ring
ring3 = CreateObjectCylinder(0.1,3.5,20)
SetObjectColor(ring3,0,0,255,255)
SetObjectImage(ring3,img,0)
SetObjectAlphaMask(ring3,1)
SetObjectRotation(ring3,90,0,0)
FixObjectPivot(ring3)


// rotation angles
xr# = 0
yr# = 0
zr# = 0


do
    
    // Set the amount we will rotate by
    amt# = getframetime()*40
    
    inc xr# , amt#
    inc yr# , 1.7*amt#
    inc zr# , 3.3*amt#

	SetObjectRotation(ring1,0,yr#,0)
	SetObjectRotation(ring2,xr#,yr#,0)
	SetObjectRotation(ring3,xr#,yr#,0)
	RotateObjectLocalY(ring3,zr#)



    Print( "Simple Gimbal" )
    Sync()
loop

// Project: Dolly
// Created: 19-03-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle("Dolly")
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) // since version 2.0.22 we can use nicer default fonts

type camera
	dolly	as integer
	camera	as integer
	lastx	as float
	lasty	as float
	roll	as float
endtype


camera 		as camera


id as integer
id = CreateObjectBox(1, 1, 1)
SetObjectPosition(id, 0, 2, 0)
SetObjectColor(id, 0xff, 0, 0, 0xff)

camera.dolly = CreateObjectBox(1, 1, 1)
//SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1,  1, 1)
//SetObjectVisible(camera.camera, 0)

FixObjectToObject(camera.camera, camera.dolly)

SetObjectPosition(camera.camera, 0, 0, -10)

SetCameraPosition(1, GetObjectX(camera.camera), GetObjectY(camera.camera), GetObjectZ(camera.camera))
SetCameraLookAt(1, GetObjectX(camera.dolly), GetObjectY(camera.dolly), GetObjectZ(camera.dolly), 0)


MoveCameraLocalZ(1, -20)

do
	Gimbal(camera)
	//RotateObjectLocalX(camera.dolly, 1)
	//Print(ScreenFPS())
	print("Angle="+str(Round(GetObjectAngleX(camera.dolly))))
	Sync()
loop


function	Gimbal(camera ref as camera)
	d		as integer
	v		as float
	a		as float

			
	if GetPointerPressed() = 1
		camera.lastx = GetPointerX()
		camera.lasty = GetPointerY()		
	endif	

	if GetPointerState() = 1	
		RotateObjectLocalY(camera.dolly,  GetPointerX() - camera.lastx)
		RotateObjectLocalx(camera.dolly,  GetPointerY() - camera.lasty)
		camera.lastx = GetPointerX()
		camera.lasty = GetPointerY()		
	endif
	
	SetCameraPosition(1, GetObjectWorldX(camera.camera), GetObjectWorldY(camera.camera), GetObjectWorldZ(camera.camera))
	SetCameraLookAt(1, GetObjectWorldX(camera.dolly), GetObjectWorldY(camera.dolly), GetObjectWorldZ(camera.dolly),0)	

endfunction

// Project: Dolly
// Created: 19-03-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle("Dolly")
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) // since version 2.0.22 we can use nicer default fonts

type camera
	dolly	as integer
	camera	as integer
	lastx	as float
	lasty	as float
	roll	as float
endtype


camera 		as camera


id as integer
id = CreateObjectBox(1, 1, 1)
SetObjectPosition(id, 0, 2, 0)
SetObjectColor(id, 0xff, 0, 0, 0xff)

camera.dolly = CreateObjectBox(1, 1, 1)
//SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1,  1, 1)
//SetObjectVisible(camera.camera, 0)

FixObjectToObject(camera.camera, camera.dolly)

SetObjectPosition(camera.camera, 0, 0, -10)

SetCameraPosition(1, GetObjectX(camera.camera), GetObjectY(camera.camera), GetObjectZ(camera.camera))
SetCameraLookAt(1, GetObjectX(camera.dolly), GetObjectY(camera.dolly), GetObjectZ(camera.dolly), 0)


MoveCameraLocalZ(1, -20)

do
	Gimbal(camera)
	//RotateObjectLocalX(camera.dolly, 1)
	//Print(ScreenFPS())
	print("Angle="+str(Round(GetObjectAngleX(camera.dolly))))
	Sync()
loop


function	Gimbal(camera ref as camera)
	d		as integer
	v		as float
	a		as float

			
	if GetPointerPressed() = 1
		camera.lastx = GetPointerX()
		camera.lasty = GetPointerY()		
	endif	

	if GetPointerState() = 1	
		RotateObjectLocalx(camera.dolly,  GetPointerY() - camera.lasty)
		camera.lastx = GetPointerX()
		camera.lasty = GetPointerY()		
	endif
	
	SetCameraPosition(1, GetObjectWorldX(camera.camera), GetObjectWorldY(camera.camera), GetObjectWorldZ(camera.camera))
	SetCameraLookAt(1, GetObjectWorldX(camera.dolly), GetObjectWorldY(camera.dolly), GetObjectWorldZ(camera.dolly),0)	

endfunction

// Project: Gimbal
// Created: 19-03-03


// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle("Dolly")
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) // since version 2.0.22 we can use nicer default fonts


type point
	x	as float
	y	as float
	z	as float
endtype

type camera
	dolly	as integer
	camera	as integer
	last	as point
	angle	as point
endtype

SetSunColor(0xf0, 0xf0, 0xf0)
SetAmbientColor(0xf0, 0xf0, 0xf0)

camera 		as camera

grid as integer
SetCameraRange(1, 1, 50000)
SetGenerateMipmaps(1)


id as integer
id = CreateObjectCone(0.5, 0.25, 8)
RotateObjectLocalZ(id, -90)
SetObjectColor(id, 0xff, 0, 0, 0xff)
SetObjectPosition(id, 1, 0, 0)

id = CreateObjectCone(0.5, 0.25, 8)
SetObjectColor(id, 0, 0xff, 0, 0xff)
SetObjectPosition(id, 0, 1, 0)


id = CreateObjectCone(0.5, 0.25, 8)
SetObjectColor(id, 0, 0, 0xff, 0xff)
RotateObjectLocalX(id, 90)
SetObjectPosition(id, 0, 0, 1)


camera.dolly = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.camera, 0)

camera.angle.x = 0

FixObjectToObject(camera.camera, camera.dolly)
MoveObjectLocalZ(camera.camera, -20)
RotateObjectLocalX(camera.dolly, camera.angle.x)


do
	Gimbal(camera)
	print("Click and drag")
	print("Dolly ("+str(Round(GetObjectAngleX(camera.dolly)))+","+str(Round(GetObjectAngleY(camera.dolly)))+","+str(Round(GetObjectAngleZ(camera.dolly)))+")")
	print("Camera ("+str(Round(GetObjectWorldAngleX(camera.camera)))+","+str(Round(GetObjectWorldAngleY(camera.camera)))+","+str(Round(GetObjectWorldAngleZ(camera.camera)))+")")	
	print("Internal ("+str(Round(camera.angle.x))+","+str(Round(camera.angle.y))+","+str(Round(camera.angle.z))+")")		
	Sync()
loop


function    Gimbal(camera ref as camera)
    d       as point
    v       as float
    a       as float
    p		as point
    dist	as float
              
    if GetPointerPressed() = 1
        camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif   
 
    if GetPointerState() = 1 

	p.y = GetPointerY() - camera.last.y
        inc camera.angle.x, p.y 
        
        p.x = GetPointerX() - camera.last.x
        inc camera.angle.y, p.x
    
	camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif
 
 
   SetObjectRotation(camera.dolly, camera.angle.x, camera.angle.y, 0)
   SetCameraPosition(1, GetObjectWorldX(camera.camera), GetObjectWorldY(camera.camera), GetObjectWorldZ(camera.camera))
   SetCameraRotation(1, camera.angle.x, camera.angle.y, 0)
	
		
endfunction