{ PSS_I_PRRes
Pattern Regonition Result Indicator
(C)Copyright, 2006, 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:
	LeftStrength(10),
	RightStrength(2),
	PatternName("GartleyBull"),
	CheckPivotValue(true),
	LeaveTempLines(false);

Vars:
	nColor(0),
	nDir(0),
	nShift(0),
	nShiftOpp(0),
	nPrc(0),
	nBar(0),
	nPrcOpp(0),
	iIdx(0),
	nTLID(-1),
	txtID(Symbol + "_PRR"),
	ret1(0), ret2(0);
Array:
	float arrVal1[100](0);

DefineDLLFunc: "PSS_PR.DLL", int , "PSS_PR_AddBar",INT,LPSTR,LONG,LONG,INT,int,LPLONG,LPLONG,LPLONG,LPLONG,INT;
DefineDLLFunc: "PSS_PR.DLL", int , "PSS_PR_CalcPat", INT,LPSTR,LONG,INT,INT,LPFLOAT,LPSTR;

nBar = BarNumber;
if CheckPivotValue = false then
	nBar = -BarNumber;
ret1 = PSS_PR_AddBar(CustomerID,txtID,Date,Time,nBar,PriceScale,&Open,&High,&Low,&Close,Volume);
ret2 = PSS_PR_CalcPat(CustomerID,txtID,BarNumber,LeftStrength,RightStrength,&arrVal1[0],PatternName);
//print(Date,",",Time,", ret2=",ret2,", [0]=",arrVal1[0]);

if ret2 > 0 then
	Plot1(arrVal1[0],"PRVal01");
if ret2 > 1 then
	Plot2(arrVal1[1],"PRVal02");
if ret2 > 2 then
	Plot3(arrVal1[2],"PRVal03");
if ret2 > 3 then
	Plot4(arrVal1[3],"PRVal04");
if ret2 > 4 then
	Plot5(arrVal1[4],"PRVal05");
if ret2 > 5 then
	Plot6(arrVal1[5],"PRVal06");
if ret2 > 6 then
	Plot7(arrVal1[6],"PRVal07");
if ret2 > 7 then
	Plot8(arrVal1[7],"PRVal08");
if ret2 > 8 then
	Plot9(arrVal1[8],"PRVal09");
if ret2 > 9 then
	Plot10(arrVal1[9],"PRVal10");