function Stage1(cgid, size) { // NO CG_OLD IN THE 1ST STAGE FUNCTION
	let dir = GetCurrentScriptDirectory();
	let grid = 384/size;
	let xt = size/2;
	let yt = size/2;
	let xyadd = 384/grid;
	let cgdir = "cgh";
	let id_tile = [0,0];
	let id = 0;
	let cg;
	let alphacg = 75;
	SetCommonData("numtile_d",0);

 	cg = SetCG(mainfile ~ "cg/" ~ cgdir ~ "/" ~ cgdir ~ IntToString(cgid) ~ ".jpg");

	loop(grid) {
		loop(grid) {
			CreateTileObject(12, size, size/48, xt, yt, id);
			yt += xyadd;
			id_tile += [0,1];
		}
		id_tile += [1,0];
		id_tile[1] = 0;
		yt = size/2;
		xt += xyadd;
	}
	xt = 128+size/2;
	wait(30);
	ObjRender_SetAlpha(cg, alphacg);

	while(GetCommonData("numtile_d",0) < grid*grid) {yield;}


	DeleteShotAll(TYPE_ALL,TYPE_FADE);
	SE(seCGClear_path);
	while(alphacg < 255) {
		yield;
		alphacg += 5;
		ObjRender_SetAlpha(cg, alphacg);
	}
	return(cg);
}