	let csd     = GetCurrentScriptDirectory;

	let maxX = GetClipMaxX;
	let maxY = GetClipMaxY;
	let minX = GetClipMinX;
	let minY = GetClipMinY;

	function wait(w){loop(w){yield;}}

	sub fadeout{
		let alpha=100;
		let a=2;

		loop(100/a){
			gAng+=90/(100/a);
			SetAlpha(alpha);
			alpha-=a;
			yield;
			}
		wait(10);
		}

	sub fadein{
		let alpha=0;
		let a=2;
		loop(100/a){
			gAng-=90/(100/a);
			SetAlpha(alpha);
			alpha+=a;
			yield;
			}
		}
