function DrawSystem_RedGuage
{
	let rect=[];
	let leng_h=512-229;
	let leng_v=16;
	let num=GetCommonDataDefault("RED",1);
	let scale_base=1;
	let scale=num/10000;
	let posx=104+leng_h/2;
	let posy=18+leng_v/2;
	
	SetAlpha(red_alpha);
	SetColor(255,255,255);
	
	//---------------
	local
	{
		rect=[0,80];
		let rc=scale;
		SetGraphicScale(scale_base,1);
		SetGraphicRect(rect[0],rect[1],rect[0]+(leng_h*rc),rect[1]+leng_v);
		DrawGraphic(posx-(1-scale)*(leng_h/2)+1,posy);
	}
	
	local
	{
		rect=[0,64];
		
		SetGraphicScale(scale_base,1);
		SetGraphicRect(rect[0],rect[1],rect[0]+leng_h,rect[1]+leng_v);
		DrawGraphic(posx-(1-scale_base)*(leng_h/2),posy);
	}
	
	local
	{
		rect=[144,48];
		SetGraphicScale(1,1);
		SetGraphicRect(rect[0],rect[1],rect[0]+48,rect[1]+16);
		DrawGraphic(posx+leng_h/2,posy+12);
	}
}