Sorry your browser is not supported!

// Project: fixobjtoObj 
// Created: 2023-04-09

// show all errors
SetErrorMode(2)

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


n0=CreateObjectBox(100,1,100)
SetObjectColor(n0, 100, 255, 200, 255)


n=CreateObjectBox(10,10,10)


n1=CreateObjectBox(5,5,5)
SetObjectColor(n1, 255,100,100,255)

SetObjectPosition(n1, 0, 20, 0)
MoveObjectLocalZ(n1, -40)
SetObjectLookAt(N1, 0,0,0,0)
FixObjectToObject(N1,n)

//~ MoveCameraLocalZ(1, -40)
SetCameraPosition(1, getcameraX(1), GetObjectY(n1), getObjectZ(n1))

do
    
	RotateObjectLocalY(n, -0.2)
	If GetRawMouseWheelDelta() <> 0
		MoveObjectLocalZ(n1, GetRawMouseWheelDelta()*3)
		SetCameraPosition(1, GetObjectWorldX(n1), GetObjectWorldY(n1), getObjectWorldZ(n1))
	endif
		
	//multitouch
	i = getRawFirstTouchEvent(1)
	while i>0
		ID = i
		sx = getRawTouchStartX(i)
		sy = getRawTouchStartY(i)
		cx = getRawTouchCurrentX(i)
		cy = getRawTouchCurrentY(i)
		released = getRawTouchReleased(i)
		 
		i = getRawNextTouchEvent()
		
		if start<1
			inc start
			if start =1
				olddistance = (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy)
			endif
		endif
		distance = (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy) -olddistance 
		//~ if distance > olddistance
			//~ dir = 1
		//~ else
			//~ dir=-1
		//~ endif
		//~ MoveObjectLocalZ(n1, distance*0.0001*dir)
		MoveObjectLocalZ(n1, distance*0.0001)
		olddistance = (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy) 
	endwhile
	if GetPointerReleased()	
		if i=0
			start = 0
			//~ olddistance = distance
		endif
	endif
	print("start "+Str(start))
	Print(str(sx)+"/"+str(sy)+"/"+str(cx)+"/"+str(cy))	
	Print(str(olddistance)+"/"+str(distance))	
		
	SetCameraPosition(1, GetObjectWorldX(n1), GetObjectWorldY(n1), getObjectWorldZ(n1))
	SetCameraLookAt(1,  GetObjectWorldX(n), GetObjectWorldY(n), getObjectWorldZ(n), 0)
    Print( ScreenFPS() )
    Sync()
loop

// Project: zoom3d
// Created: 2023-04-10


CreateObjectBox(1,5,5,5)
SetObjectColor(1,250,100,100,255)
SetObjectcastShadow(1,1)
setobjectposition(1,0,5,0)

Global n1, cameraz 
global z as float
N1=3
CreateObjectBox(3,5,5,5)
SetObjectColor(3,250,250,100,255)
setobjectposition(3,0,20,-20)
SetObjectVisible(3,0)
FixObjectToObject(3,1)


CreateObjectPlane(2,100,100)
SetObjectRotation(2,90,0,0)
SetObjectColor(2, 10, 150,100, 255)
SetObjectReceiveShadow(2,1)
SetCameraPosition(1,0,20,-20)
SetCameraLookAt(1,0,0,0,0)

SetSunActive(1)
setsundirection(-0.3,-0.7,0.5)

SetShadowBias(0.005)
SetShadowMapSize(1024,1024)
SetShadowSmoothing(2)
SetShadowMappingMode(3)
SetShadowRange(-1)


    
start =0

// our main loop
do
    print(ScreenFPS())

    // update the loaded scene
    if GetRawKeyReleased(27)
       end
   endif
 

/* 
//multitouch
    i = getRawFirstTouchEvent(1)
    while i>0
        ID = i
        sx = getRawTouchStartX(i)
        sy = getRawTouchStartY(i)
        cx = getRawTouchCurrentX(i)
        cy = getRawTouchCurrentY(i)
        released = getRawTouchReleased(i)
          
        i = getRawNextTouchEvent()
         
        if start<1
            inc start
            if start =1
                olddistance = (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy)
            endif
        endif
        distance = (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy) -olddistance 
        distance2 =sqrt( (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy))  // + cameraz+olddistance


        
    
 if (distance2*0.2 >cameraz and cameraz<60) or (cameraz=60 and distance2*0.2<cameraz)

 cameraz =distance2*0.2
endif
if cameraz < 20
cameraz = 20
elseif cameraz >60
cameraz = 60
else
        SetObjectPosition(n1, 0,20,-20)
SetObjectLookAt(n1,  0,0,0,0)
        MoveObjectLocalZ(n1, -cameraz)
setcameraposition(1, GetCameraX(1),getobjecty(n1),GetObjectZ(n1))
//setcameraposition(1, GetCameraX(1),getobjecty(n1)+cameraz*0.5,GetObjectZ(n1)-cameraz)

SetCameraLookAt(1,0,0,0,0)
endif
     //   olddistance =sqrt( (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy) )
    endwhile
olddistance =sqrt( (sx-cx)*(sx-cx)+(sy-cy)*(sy-cy) )
print(str(sx)+"/"+str(cx)+"/"+str(sy)+"/"+str(cy))
print(str(distance2)+"/"+str(cameraz))
//print(str(distance1)+"/"+str(distance3))
*/

	Zoomtouch()
    // update the screen
    sync()    
loop



function ZoomTouch()

	if GetMultiTouchExists() =1
		if GetRawTouchCount(1)=1
			
			
			
		elseif GetRawTouchCount(1)=2 //two Fingers

		 t=GetRawFirstTouchEvent(1)
		 k=t
		
		
		
		
		 sx1#=GetRawTouchStartX(t)
		 sy1#=GetRawTouchStarty(t)
		 x1#=GetRawTouchCurrentX(t)
		 y1#=GetRawTouchCurrenty(t)

		 t=GetRawNextTouchEvent()
		 sx2#=GetRawTouchStartX(t)
		 sy2#=GetRawTouchStarty(t)
		 x2#=GetRawTouchCurrentX(t)
		 y2#=GetRawTouchCurrenty(t)

		 //drawline(sx1#,sy1#,sx2#,sy2#,255,255,255)
		 drawline(x1#,y1#,x2#,y2#,0,255,0)

		 dx#=sx2#-sx1#
		 dy#=sy2#-sy1#
		 l1#=sqrt(dx#*dx# + dy#*dy#) //distance start 1 - start 2

		 dx#=x2#-x1#
		 dy#=y2#-y1#
		 l2#=sqrt(dx#*dx# + dy#*dy#) //distance current 1 - current 2

		
		if k
			cameraz =GetObjectZ(n1)
			SetObjectPosition(n1, 0,20,-20)
			SetObjectLookAt(n1,  0,0,0,0)
			MoveObjectLocalZ(n1, -cameraz)
			//~ dec l1#, z
			//~ dec l2#, z
		endif


		if l1# <> l2#
			if l1#>0
				l#=(1.0 / l1#) * l2#
				l#=l#-1.0
				//  l#=l#/3.0 //slower
				// z#=getviewzoom()+l#
				Z =getobjectz(N1)+l2#*0.2

				z=l2#
		  
				if z<10.0 then z=10.0 //Limit
				if z>95 then z=95 //Limit
				 //setviewzoom(z#)
			 
				Moveobjectlocalz(N1, -z)
				setcameraposition(1, GetCameraX(1),getobjecty(n1),GetObjectZ(n1))
				
				print(str(l1#)+"/"+str(l#)+"/"+str(l2#))
				print("cameraZ : "+str(z))
			endif
		endif

    endif

 endif

endfunction