{ HIPI_Find
Hidden Pivot - Finder
(C)Copyright, 2015, B.Eichberger from Professional Software Solutions, pss@pobox.com
This program remains the exclusive property of B. EICHBERGER and may not be sold,
used, copied, displayed or modified without the written consent of B. EICHBERGER
}
Input:
	nLoockbackCL(40),
	nLoockbackCR(4),
	nLoockbackB(80),
	nLoockbackA(300),
	MinBC(3.0),
	ColorLong(Green),
	ColorShort(Red);

Vars:
	nBar(0),
	nCenter(0),
	nRangeH(0),
	nRangeL(0),
	nShift(0),
	idxStart(50),
	lookbackMax(150),
	lookbackUse(0),
	idxBase(0),
	Counter(0),
	txtID(Symbol + "_I" + numtostr(BarInterval,0) + "_T" + numtostr(BarType,0) + "_HIPI_Find"),
	txtDiag("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxXX"),
	retHIPI(0);
Array:
	float arrValIn[50](0),
	float arrValOut[1000](0);

DefineDLLFunc: "C:\Database\PSS_HIPI\PSS_HIPI.DLL", int , "PSS_HIPI", LPSTR,LPFLOAT,LPFLOAT,LPSTR;

nBar = BarNumber;

arrValIn[0] = Date data1;
arrValIn[1] = Time data1;
arrValIn[2] = Open data1;
arrValIn[3] = High data1;
arrValIn[4] = Low  data1;
arrValIn[5] = Close data1;
arrValIn[6] = UpTicks data1;
arrValIn[7] = BarNumber data1;
arrValIn[8] = BarInterval data1;
arrValIn[9] = BarType data1;
arrValIn[10]= DownTicks data1;

arrValIn[11]= CustomerID;
arrValIn[12]= nLoockbackCL;
arrValIn[13]= nLoockbackCR;
arrValIn[14]= nLoockbackB;
arrValIn[15]= nLoockbackA;
arrValIn[16]= MinBC;

retHIPI = PSS_HIPI(txtID,&arrValIn[0],&arrValOut[0],txtDiag);

{====== PROCESS ERRORS ===============================================}
IF retHIPI < -100 THEN
	RaiseRunTimeError(txtDiag);

if retHIPI > 0 THEN BEGIN
//print(BarNumber:5:0,"# D=",Mod(Date,1000000):6:0," T=",Time:4:0,"IND: arrValOut[0]=",arrValOut[0]," arrValOut[1]=",arrValOut[1]," arrValOut[2]=",arrValOut[2]);
	//show point A
	Plot3[arrValOut[6]](arrValOut[5], "PivotA" );

	//show point B
	Plot2[arrValOut[4]](arrValOut[3], "PivotB" );

	//show point C
	Plot1[arrValOut[2]](arrValOut[1], "PivotC" );

	//show line B -> C
	value1 = TL_new(date[arrValOut[2]],time[arrValOut[2]],arrValOut[1], date[arrValOut[4]],time[arrValOut[4]],arrValOut[3]);
	TL_SetColor(value1,ColorLong);

	//show line A -> B
	value2 = TL_new(date[arrValOut[6]],time[arrValOut[6]],arrValOut[5], date[arrValOut[4]],time[arrValOut[4]],arrValOut[3]);
	TL_SetColor(value2,Blue);


end;