FW: Simple question

["Chris Evans" <evanscje@xxxxxxxxxxxxx>]

-----Original Message-----
From: Chris Evans [mailto:evanscje@xxxxxxxxxxxxx] 
Sent: Friday, August 26, 2005 8:35 AM
To: 'Jimmy Snowden'
Subject: RE: Simple question


Actually I'd like to use the values as breakout levels to test so I need to
call the values in a strategy...

-----Original Message-----
From: Jimmy Snowden [mailto:jhsnowden@xxxxxxxxxxxxx] 
Sent: Thursday, August 25, 2005 6:02 PM
To: Chris Evans; Omega-List
Subject: Re: Simple question

When you see commentary then you can easily and quickly access the
value for any bar.  Add the tool to your tool bar "Expert Commentary"
then click on it to bring up a box with the values.  The icon looks
like a graduation cap.

I didn't look at the code closely so I am assuming you want the values
in the Commentary at the bottom.

Jimmy


So if this my trend line indicator code: 

{*******************************************************************
Description	: This Indicator plots TrendLines-Automatic
Provided By	: Omega Research, Inc. (c) Copyright 1999 
********************************************************************}

Inputs: RHStren(4), RLStren(4), History("No"), RHColor("Red"),
RLColor("Blue"), AlrtType("IntraBar");;
Variables: RHTLRef(-1), RHTLRef2(-1), RHSet(-1), RHSet2(-1), RHArrayVal(0),
RHColorVar(0), RLColorVar(0), BarsPast(0);
Variables: RLTLRef(-1), RLTLRef2(-1), RLSet(-1), RLSet2(-1),RLArrayVal(0),
RHTLBrk(False), RLTLBrk(False);
Arrays: RHDate[10](0), RHTime[10](0), RHVal[10](0);
Arrays: RLDate[10](99999), RLTime[10](99999), RLVal[10](99999);

If currentbar=1 Then Begin
	BarsPast = 10;
	RHColorVar = StrColortoNum(RHColor);
	RLColorVar = StrColortoNum(RLColor);
End;

If SwingHighBar(1, High, RHStren, RHStren+1)=RHStren Then Begin
	For Value1 = 9 DownTo 0 Begin
		RHDate[Value1+1] = RHDate[Value1];
		RHTime[Value1+1] = RHTime[Value1];
		RHVal[Value1+1] = RHVal[Value1];
	End;
	RHDate[0] = Date[RHStren];
	RHTime[0] = Time[RHStren];
	RHVal[0] = High[RHStren];

	For Value22 = 1 To 10 Begin
		If RHVal[Value22] > RHVal[0] Then Begin
			RHArrayVal = Value22;
			Value22 = 11;
		End;
	End;

	If Value22 <> 11 Then Begin
		If RHSet >= 0 Then Begin
			If UpperStr(History) = "YES" or UpperStr(History) =
"Y" Then Begin
				If RHTLBrk = False Then 
					RHTLRef2 = TL_SetEnd(RHTLRef,
Date,Time, TL_GetValue(RHTLRef, Date, Time));
				RHSet2 = TL_SetExtRight(RHTLRef, False);
			End
			Else 
				TL_Delete(RHTLRef);
		End;
		RHTLBrk = False;
		RHTLRef = TL_New(RHDate[RHArrayVal], RHTime[RHArrayVal],
RHVal[RHArrayVal], RHDate[0], RHTime[0], RHVal[0]);
		{Error checking To make sure TL was drawn}
		If RHTLRef >= 0 Then Begin
			RHSet = TL_SetExtRight(RHTLRef, True);
			If RHColorVar <> 99 Then 
				Value14 = TL_SetColor(RHTLRef, RHColorVar);
		End;
		If False Then 
			Plot1[RHStren](High[RHStren], "RH ");
	End;
End;

If SwingLowBar(1, Low, RLStren, RLStren+1) = RLStren Then Begin
		For Value1 = 9 DownTo 0 Begin
				RLDate[Value1+1] = RLDate[Value1];
				RLTime[Value1+1] = RLTime[Value1];
				RLVal[Value1+1] = RLVal[Value1];
		End;
		RLDate[0] = Date[RLStren];
		RLTime[0] = Time[RLStren];
		RLVal[0] = Low[RLStren];

		For Value22 = 1 To 10 Begin
			If RLVal[Value22] < RLVal[0] Then Begin
				RLArrayVal = Value22;
				Value22 = 11;
			End;
		End;
		If Value22 <> 11 Then Begin
			If RLSet >= 0 Then Begin
				If (UpperStr(History) = "YES" or
UpperStr(History) = "Y")  Then Begin
					If RLTLBrk = False Then 
						RLTLRef2 =
TL_SetEnd(RLTLRef, Date, Time, TL_GetValue(RLTLRef, Date, Time));
					RLSet2 = TL_SetExtRight(RLTLRef,
False);
				End
				Else 
					TL_Delete(RLTLRef);
			End;
			RLTLBrk = False;
			RLTLRef = TL_New(RLDate[RLArrayVal],
RLTime[RLArrayVal], RLVal[RLArrayVal], RLDate[0], RLTime[0], RLVal[0]);
			{Error checking To make sure TL was drawn}
			If RLTLRef >= 0 Then Begin
				RLSet = TL_SetExtRight(RLTLRef, True);
				If RLColorVar <> 99 Then 
					Value14 = TL_SetColor(RLTLRef,
RLColorVar);
			End;
			If False Then 
				Plot2[RLStren](Low[RLStren],"RL ");
		End;
End;

If RHSet[BarsPast] >= 0 AND Close[BarsPast] Crosses Over
TL_GetValue(RHTLRef, Date[BarsPast], Time[BarsPast]) Then Begin
	RHTLRef2 = TL_SetEnd(RHTLRef, Date, Time, TL_GetValue(RHTLRef, Date,
Time));
	RHTLBrk = True;
End;

If RLSet[BarsPast] >= 0 AND Close[BarsPast] Crosses Below
TL_GetValue(RLTLRef, Date[BarsPast], Time[BarsPast]) Then Begin
	RLTLRef2 = TL_SetEnd(RLTLRef, Date, Time, TL_GetValue(RLTLRef, Date,
Time));
	RLTLBrk = True;
End;

If CheckAlert Then Begin
	If RHSet >= 0 AND UpperStr(AlrtType) = "ONCLOSE" Then 
		TL_SetAlert(RHTLRef, 2)
	Else
		If RHSet >= 0 AND  UpperStr(AlrtType) = "INTRABAR" Then 
			TL_SetAlert(RHTLRef, 1)
		Else
			If RHSet >= 0 Then 
				TL_SetAlert(RHTLRef, 0);

	If RLSet >= 0 AND UpperStr(AlrtType) = "ONCLOSE" Then 
		TL_SetAlert(RLTLRef, 2)
	Else
		If RLSet >= 0 AND  UpperStr(AlrtType) = "INTRABAR" Then 
			TL_SetAlert(RLTLRef, 1)
		Else
			If RLSet >= 0 Then 
				TL_SetAlert(RLTLRef, 0);
End;


Commentary("RHValue=",RHVal[0],newline,"RLValue=",RLVal[0]);
*********************************************************


And I want to know the value today of the trend line (going up or down) then
what is the variable that gives me that value - or do I need to write one?

CJE