VIEW* mirror = 
{
       layer = 10;
} 

function mirror_startup() 
{ 
       while (!player) {wait (1);}
       camera.portal = mirror; 
       set (mirror, NOSHADOW); // suppress shadows in the mirror 
       set (mirror, NOPARTICLE); // suppress particles in the mirror 
       set (mirror, PORTALCLIP); // clip at portal plane 
       while (1) 
       { 
               proc_kill(4);
               mirror.genius = camera.genius; 
               mirror.aspect = camera.aspect; 
               mirror.arc = -camera.arc; 
               mirror.x = camera.x; 
               mirror.y = camera.portal_y - (abs(camera.portal_y - camera.y)); 
               mirror.z = camera.z; 
               mirror.pan = -camera.pan; 
               mirror.tilt = camera.tilt; 
               mirror.roll = camera.roll; 
               wait(1); 
       } 
}

//////////////////////////////////
//vertical mirror//////////////
/////////////////////////////
function mfx_mirror();


VIEW view_mirror { layer = -1; };

function mfx_mirror()
{
// do nothing if mirror is already running
	if (view_mirror.visible == on) { return; }

	view_mirror.visible = on;
	view_mirror.noshadow = on;	// suppress shadows in the mirror
	view_mirror.nocull = on;    // view through walls
	 
	view_mirror.portalclip = on; // clip at portal plane
	vec_set(view_mirror.portal_x,vector(0,0,my.z + my.max_z)); // at top entity position
	vec_set(view_mirror.pnormal_x,vector(0,0,1.0)); // horizontal plane
	
	while (view_mirror.visible == on)
	{
		proc_late();	// place it at the end of the function list - the camera must be moved before
		view_mirror.genius = camera.genius;
		view_mirror.aspect = camera.aspect;
		view_mirror.arc    = camera.arc;
		view_mirror.fog_start = camera.fog_start;
		view_mirror.fog_end   = camera.fog_end;
		view_mirror.clip_far  = camera.clip_far * 0.5;
		view_mirror.clip_near = camera.clip_near * 2;
		view_mirror.x 	   = camera.x;
		view_mirror.y 	   = camera.y;
		view_mirror.z 	   = 2*view_mirror.portal_z-camera.z;	// move the camera at its mirror position
		view_mirror.pan    = camera.pan;
		view_mirror.tilt   = -camera.tilt;	// flip the vertical camera angle
		view_mirror.roll   = -camera.roll;
		wait(1);
	}
}
action mirrored 			
{
	mfx_mirror();
}