starter wheel_zoom()
{
while (1)
{
if (mickey.z > 1)
{
camera.arc += 10 * time; // play with "10"
}
if (mickey.z < -1)
{
camera.arc -= 10 * time; // play with "10"
}
camera.arc = min (max (camera.arc, 10), 120); // limit camera.arc to 10..120
wait (1);
}
}

while (camera.arc > 10) // zoom in until camera.arc is smaller than or equal with 10
{
if (mickey.z > 1)					
{		
camera.arc += 10 * time_step; // 10 gives the zoom-in speed
}
if (mickey.z < -1)
{
camera.arc -= 10 * time_step;
}
camera.arc = min (max (camera.arc, 10), 120);
wait (1);
}
// the maximum zoom-in factor has been achieved here
camera.pan += (5 - random(10)) * 0.01 * time_step; // time to add fatigue to the mix
camera.tilt += (5 - random(10)) * 0.01 * time_step; // the pan and tilt angles of the camera will change a bit, as if the player was tired, the wind was blowing, etc
}

camera.arc = clamp(camera.arc,10,120);

camera.arc = min (max (camera.arc, 10), 120);

#include <default.c>

#define PRAGMA_PATH "%EXE_DIR%\samples"

FONT* A20b = "Arial#20b";

function main()
{
	level_load("small.hmp");
	vec_set(camera.x,vector(-300,0,20));

	ent_create(CUBE_MDL, vector(0,0,0), NULL);
	
	PANEL *pInfo = pan_create(NULL,0);
	
	pan_setdigits(pInfo,0,1,5,"FOV = %f", A20b, 1, camera.arc);
	pan_setcolor(pInfo,1,1,COLOR_GREEN);
	pInfo.pos_x = 5; pInfo.pos_y = 110;
	set(pInfo, OUTLINE|SHOW);
	
	def_debug();
	camera.arc = 65;
	
	while (1)
	{
		while (camera.arc > 10)
		{
			camera.arc = clamp((camera.arc += 10 * mickey.z * time_step/16), 10, 120);
			wait (1);
		}
		while (camera.arc < 11)
		{
			vec_add(camera.pan, vector((5 - random(10)) * 0.01 * time_step, (5 - random(10)) * 0.01 * time_step, 0));
			camera.arc = clamp((camera.arc += 10 * mickey.z * time_step/16), 10, 120);
			wait (1);
		}
		wait(1);
	}
}

function start_mouse_zoom()
{
	while(1)
	{
		// Arc from 10 to 120, mickey.z zo zoom
		// Change + to - if it's the wrong direction
		// The camera.arc will do 4° steps, so you get some faster zoom than with mickey.z / 120
		camera.arc = clamp(camera.arc - mickey.z / 30,10,120);
		wait(1);
	}
}