Sorry your browser is not supported!

// Project: 3D_cameralookatcenter 
// Created: 2016-06-25

// set window properties
SetWindowTitle( "3D_cameralookatcenter" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

GeneralX = 0
GeneralY = 0
GeneralZ = 0

// create a plane to see the X/Y plane
CreateObjectPlane(1,100,100)
SetObjectRotation(1,90,0,0)

// create some objects so see it
FOr i= 2 to 10
	
	r = 5
	CreateObjectBox(i,r,r,r)
	r = 40
	SetObjectPosition(i,random(-r,r),random(-r,r),random(-r,r))
	
next



//set the camera position
SetCameraPosition(1,0,50,-50)
SetCameraLookAt(1,0,0,0,0)

SetPrintSize(12)

do
    Print("Left to move the camera (pan), control + middle to rotate the camera")
    Print("When moving then rotating, you can see a little difference for the center of the camera")
    //camera is locked at the center of the screen.
	
	// move the camera
    if ( GetRawMouseLeftPressed () )
		startx1# = GetPointerX()
		starty1# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)			
	endif
		
	if ( GetRawMouseLeftState() = 1 )
		new_x# = GetPointerX()
		new_y# = GetPointerY()
		
		MoveCameraLocalX( 1, -new_x# + startx1#)
		MoveCameraLocalY( 1,  new_y# - starty1# )	
		
		GeneralX = GeneralX - new_x#+startx1#
		startx1# = new_x#
		GeneralY = GeneralY + new_y#-starty1#
		starty1# = new_y#
		
	endif
	
	// Rotate the camera, 
	IF GetRawKeyState(17) // key control
		if GetRawMouseMiddlePressed()
		
			startx1# = GetPointerX()
			starty1# = GetPointerY()
			angx# = GetCameraAngleX(1)
			angy# = GetCameraAngleY(1)
			SetCameraLookAt(1,GeneralX,GeneralY,GeneralZ,0)
			//CAmZ = GetcameraZ(1)
		endif

		if GetRawMouseMiddleState() = 1 

			new_x# = GetPointerX()
			new_y# = GetPointerY()
			MoveCameraLocalX( 1,-new_x#+startx1#)
			startx1# = new_x#
			MoveCameraLocalY( 1,  new_y#-starty1# )
			starty1# = new_y#			
			SetCameraLookAt(1,GeneralX,GeneralY,GeneralZ,0)
			
		endif
	endif
    Print( ScreenFPS() )
    Sync()
loop

// Project: 3D_cameralookatcenter
// Created: 2016-06-25

// set window properties
SetWindowTitle( "3D_cameralookatcenter" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

// create a plane to see the X/Y plane
CreateObjectPlane(1,100,100)
SetObjectRotation(1,90,0,0)

// create some objects so see it
FOr i= 2 to 10

    r = 5
    CreateObjectBox(i,r,r,r)
    r = 40
    SetObjectPosition(i,random(-r,r),random(-r,r),random(-r,r))
    SetObjectColor(i,0,200,0,255)

next

// create an invisible object for the camera to look at
// this will act as the camera's centre of rotation
c_obj = createObjectBox(1,1,1)
SetObjectVisible(c_obj,0)

do

	print("left mouse press and hold and move the mouse to pan")
	print("control + middle mouse press and hold to rotate")

    // move the camera
    if ( GetRawMouseLeftPressed () )
		StartX# = GetPointerX()
		StartY# = GetPointerY()
    endif

    if ( GetRawMouseLeftState() = 1 )

		NewX# = GetPointerX()
		NewY# = GetPointerY()

		DiffX# = (StartX# - NewX#)/10
		DiffY# = (NewY# - StartY#)/10

		MoveObjectLocalX(c_obj,DiffX#)
		MoveObjectLocalZ(c_obj,DiffY#)

		// reset the start point
		StartX# = NewX#
		StartY# = NewY#

    endif

    // Rotate the camera,
    IF GetRawKeyState(17) // key control
        if GetRawMouseMiddlePressed()
			StartX# = GetPointerX()
			StartY# = GetPointerY()
        endif

        if GetRawMouseMiddleState() = 1

			NewX# = GetPointerX()
			NewY# = GetPointerY()

			DiffX# = (NewX# - StartX#)/10
			DiffY# = (NewY# - StartY#)/10

			RotateObjectGlobalY(c_obj,DiffX#)
			RotateCameraGlobalY(1,DiffX#)
			RotateCameraLocalX(1,DiffY#)

			// reset the start point
			StartX# = NewX#
			StartY# = NewY#

        endif
    endif

	// position the camera on the invisible object then move the camera away from it
	SetCameraPosition(1,GetObjectX(c_obj),GetObjectY(c_obj),GetObjectZ(c_obj))
	MoveCameraLocalZ(1,-500)

    Sync()
loop