OI Delta for Amibroker (AFL)

_SECTION_BEGIN("Delta OI - Change In OI");
//******************************************************************************************************
Title ="";
OIChange=(OpenInt-Ref(OpenInt,-1));
OIChangeP=( (OpenInt-Ref(OpenInt,-1))/Ref(OpenInt,-1)*100);
II=Prec (OIChangeP,1.1) ;

POI=( OIChange > ref(OIChange, -1) );
NOI=(OIChange <= ref(OIChange, -1) );
PCOI = (OIChange > 0) ;
NCOI = (OIChange <= 0) ;
OIColor = IIf ( POI AND PCOI , colorbrightgreen ,
			IIf (POI AND NCOI , colorDarkRed, 
				IIf (NOI AND PCOI , colorGreen,
					IIf (NOI AND NCOI , colorRed,
														colorGrey50 ))));
    
Plot (OIChange,"OIChange",OIColor,styleHistogram,Null,Null,0,0,-25);

ChOI1=OIChange;
PChOI = OIChangeP;
II=Prec (PChOI,1.1);
//..........................................................................................

DeltaOIDisplay= ParamToggle("DeltaOIDisplay","Off|On",1);
if(DeltaOIDisplay==1)
{
x=Param("xposn",0,0,1000,1);
y=Param("yposn",0,0,1000,1);
F=FontSize=Param("Font Size",25,5,50,1);

GfxSelectFont("Arial", FontSize ,700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorBlack) );
GfxTextOut( " "+Name()+" " +"OI = "+  NumToStr (  OI/100000 ,1.2)+" L [ " +NumToStr(ChOI1,1.0)+"  ("+II+"%) ]", x, y );
}
//...................................................................................................................

GrpPrm=Param("Graphic Space",2,-5,10);
GraphXSpace=GrpPrm;

//==========================================================================================================================================
_SECTION_END();