Labels in EasyLanguage - Traders Laboratory Forums

keymoo · 02-20-2007, 10:36 AM

Hi,

I have modified SoulTrader's pivots to include labels on the trend lines. However, when the chart moves across the screen a new label is drawn. How do I stop that? Code below:

Code:

inputs:
	DailyHigh( 0),
	DailyLow( 0),
	DailyClose( 0),
	WeeklyHigh( 0),
	WeeklyLow(0),
	WeeklyClose( 0),
	MonthlyHigh( 0),
	MonthlyLow( 0),
	MonthlyClose( 0),
	PlotDailyMidPts( true),
	PlotWeeklyMidPts( false),
	PlotMonthlyMidPts( false),
	DailyR3color( Yellow),
	DailyR2color( Yellow),
	DailyR1color( Yellow),
	DailyPPcolor( Yellow),
	DailyS1color( Yellow),
	DailyS2color( Yellow),
	DailyS3color( Yellow),
	WeeklyR3color( Cyan),
	WeeklyR2color( Cyan),
	WeeklyR1color( Cyan),
	WeeklyPPcolor( Cyan),
	WeeklyS1color( Cyan),
	WeeklyS2color( Cyan),
	WeeklyS3color( Cyan),
	MonthlyR3color( Magenta),
	MonthlyR2color( Magenta),
	MonthlyR1color( Magenta),
	MonthlyPPcolor( Magenta),
	MonthlyS1color( Magenta),
	MonthlyS2color( Magenta),
	MonthlyS3color( Magenta),
	DailyMidPtcolor( Yellow),
	WeeklyMidPtcolor( Cyan),
	MonthlyMidPtcolor( Magenta),
	DailyResSupStyle( 1), // 1 = solid, 2 = dashed, 3 = dotted, 4 = Dashed2, 5 = dashed3
	ResSupStyle( 2),
	PivotPointStyle (1),
	MidPtStyle( 3);

variables:
    S1( 0 ),
	S2( 0 ),
	S3( 0 ),
	R1( 0 ),
	R2( 0 ),
	R3( 0 ),
	PP( 0 ),

	Rng( 0 ),
    TL_S1( 0 ),
	TL_S2( 0 ),
	TL_S3( 0 ),
	TL_R1( 0 ),
	TL_R2( 0 ),
	TL_R3( 0 ),
	TL_PP( 0 ),
    TL_M1( 0 ),
	TL_M2( 0 ),
	TL_M3( 0 ),
	TL_M4( 0 ),
	TL_M5( 0 ),
	TL_M6( 0 ),
	StartDate( 0 ),
	StartTime( 0 ),
    Text_S1( 0 ),
	Text_S2( 0 ),
	Text_S3( 0 ),
	Text_R1( 0 ),
	Text_R2( 0 ),
	Text_R3( 0 ),
	Text_PP( 0 );

if CurrentBar = 1 then
begin
	StartDate = Date;
	StartTime = Time;
end;

if LastBarOnChart then
begin
	// Daily Pivot Points
	Rng = DailyHigh - DailyLow;
	PP = (DailyHigh + DailyLow + DailyClose) / 3 ;
	R1 = (2*PP) - DailyLow ;
	R2 = PP + Rng ;
	R3 = R1 + Rng;
	S1 = (2*PP) - DailyHigh ;
	S2 = PP - Rng ;
	S3 = S1 - Rng ;

	TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
	TL_SetColor(TL_R3, DailyR3color);
	TL_SetStyle(TL_R3, DailyResSupStyle);
	TL_SetExtRight(TL_R3, True);
   	Text_R3 = Text_New(Date, Time, TL_GetValue(TL_R3, Date, Time), "R3 " + NumToStr(TL_GetValue(TL_R3, Date, Time),2));
	Text_SetColor(Text_R3, DailyR1color);
	Text_R3 = Text_SetLocation(Text_R3, Date, Time, TL_GetValue(TL_R3, Date, Time));

	TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
	TL_SetColor(TL_R2, DailyR2color);
	TL_SetStyle(TL_R2, DailyResSupStyle);
	TL_SetExtRight(TL_R2, True);
	Text_R2 = Text_New(Date, Time, TL_GetValue(TL_R2, Date, Time), "R2 " + NumToStr(TL_GetValue(TL_R2, Date, Time),2));
	Text_SetColor(Text_R2, DailyR1color);
	Text_R2 = Text_SetLocation(Text_R2, Date, Time, TL_GetValue(TL_R2, Date, Time));
	
	TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
	TL_SetColor(TL_R1, DailyR1color);
	TL_SetStyle(TL_R1, DailyResSupStyle);
	TL_SetExtRight(TL_R1, True);
	Text_R1 = Text_New(Date, Time, TL_GetValue(TL_R1, Date, Time), "R1 " + NumToStr(TL_GetValue(TL_R1, Date, Time),2));
	Text_SetColor(Text_R1, DailyR1color);
	Text_R1 = Text_SetLocation(Text_R1, Date, Time, TL_GetValue(TL_R1, Date, Time));

	TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
	TL_SetColor(TL_PP, DailyPPcolor);
	TL_SetStyle(TL_PP, PivotPointStyle);
	TL_SetSize(TL_PP, 1);
	TL_SetExtRight(TL_PP, True);
	Text_PP = Text_New(Date, Time, TL_GetValue(TL_PP, Date, Time), "D PP " + NumToStr(TL_GetValue(TL_PP, Date, Time),2));
	Text_SetColor(Text_PP, DailyPPcolor);
	Text_PP = Text_SetLocation(Text_PP, Date, Time, TL_GetValue(TL_PP, Date, Time));

	TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
	TL_SetColor(TL_S1, DailyS1color);
	TL_SetStyle(TL_S1, DailyResSupStyle);
	TL_SetExtRight(TL_S1, True);
	Text_S1 = Text_New(Date, Time, TL_GetValue(TL_S1, Date, Time), "S1 " + NumToStr(TL_GetValue(TL_S1, Date, Time),2));
	Text_SetColor(Text_S1, DailyS1color);
	Text_S1 = Text_SetLocation(Text_S1, Date, Time, TL_GetValue(TL_S1, Date, Time));

	TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
	TL_SetColor(TL_S2, DailyS2color);
	TL_SetStyle(TL_S2, DailyResSupStyle);
	TL_SetExtRight(TL_S2, True);
	Text_S2 = Text_New(Date, Time, TL_GetValue(TL_S2, Date, Time), "S2 " + NumToStr(TL_GetValue(TL_S2, Date, Time),2));
	Text_SetColor(Text_S2, DailyS1color);
	Text_S2 = Text_SetLocation(Text_S2, Date, Time, TL_GetValue(TL_S2, Date, Time));
	
	TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
	TL_SetColor(TL_S3, DailyS3color);
	TL_SetStyle(TL_S3, DailyResSupStyle);
	TL_SetExtRight(TL_S3, True);
	Text_S3 = Text_New(Date, Time, TL_GetValue(TL_S3, Date, Time), "S3 " + NumToStr(TL_GetValue(TL_S3, Date, Time),2));
	Text_SetColor(Text_S3, DailyS1color);
	Text_S3 = Text_SetLocation(Text_S3, Date, Time, TL_GetValue(TL_S3, Date, Time));


	if PlotDailyMidPts then
	begin
		TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
		TL_SetColor(TL_M1, DailyMidPtcolor);
		TL_SetStyle(TL_M1, MidPtStyle);
		TL_SetExtRight(TL_M1, True);
		TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
		TL_SetColor(TL_M2, DailyMidPtcolor);
		TL_SetStyle(TL_M2, MidptStyle);
		TL_SetExtRight(TL_M2, True);
		TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
		TL_SetColor(TL_M3, DailyMidPtcolor);
		TL_SetStyle(TL_M3, MidPtStyle);
		TL_SetExtRight(TL_M3, True);
		TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
		TL_SetColor(TL_M4, DailyMidPtcolor);
		TL_SetStyle(TL_M4, MidPtStyle);
		TL_SetExtRight(TL_M4, True);
		TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
		TL_SetColor(TL_M5, DailyMidPtcolor);
		TL_SetStyle(TL_M5, MidPtStyle);
		TL_SetExtRight(TL_M5, True);
		TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
		TL_SetColor(TL_M6, DailyMidPtcolor);
		TL_SetStyle(TL_M6, MidPtStyle);
		TL_SetExtRight(TL_M6, True);
	end;

	// Weekly Pivot Points
	Rng = WeeklyHigh - WeeklyLow;
	PP = (WeeklyHigh + WeeklyLow + WeeklyClose) / 3 ;
	R1 = (2*PP) - WeeklyLow ;
	R2 = PP + Rng ;
	R3 = R1 + Rng;
	S1 = (2*PP) - WeeklyHigh ;
	S2 = PP - Rng ;
	S3 = S1 - Rng ;

	TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
	TL_SetColor(TL_R3, WeeklyR3color);
	TL_SetStyle(TL_R3, ResSupStyle);
	TL_SetExtRight(TL_R3, True);
    Text_R3 = Text_New(Date, Time, TL_GetValue(TL_R3, Date, Time), "R3 " + NumToStr(TL_GetValue(TL_R3, Date, Time),2));
	Text_SetColor(Text_R3, WeeklyR3color);
	Text_R3 = Text_SetLocation(Text_R3, Date, Time, TL_GetValue(TL_R3, Date, Time));

	TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
	TL_SetColor(TL_R2, WeeklyR2color);
	TL_SetStyle(TL_R2, ResSupStyle);
	TL_SetExtRight(TL_R2, True);
    Text_R2 = Text_New(Date, Time, TL_GetValue(TL_R2, Date, Time), "R2 " + NumToStr(TL_GetValue(TL_R2, Date, Time),2));
	Text_SetColor(Text_R2, WeeklyR2color);
	Text_R2 = Text_SetLocation(Text_R2, Date, Time, TL_GetValue(TL_R2, Date, Time));

	TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
	TL_SetColor(TL_R1, WeeklyR1color);
	TL_SetStyle(TL_R1, ResSupStyle);
	TL_SetExtRight(TL_R1, True);
    Text_R1 = Text_New(Date, Time, TL_GetValue(TL_R1, Date, Time), "R1 " + NumToStr(TL_GetValue(TL_R1, Date, Time),2));
	Text_SetColor(Text_R1, WeeklyR1color);
	Text_R1 = Text_SetLocation(Text_R1, Date, Time, TL_GetValue(TL_R1, Date, Time));

	TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
	TL_SetColor(TL_PP, WeeklyPPcolor);
	TL_SetStyle(TL_PP, PivotPointStyle);
	TL_SetExtRight(TL_PP, True);
   	Text_PP = Text_New(Date, Time, TL_GetValue(TL_PP, Date, Time), "W PP " + NumToStr(TL_GetValue(TL_PP, Date, Time),2));
	Text_SetColor(Text_PP, WeeklyPPcolor);
	Text_PP = Text_SetLocation(Text_PP, Date, Time, TL_GetValue(TL_PP, Date, Time));

	TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
	TL_SetColor(TL_S1, WeeklyS1color);
	TL_SetStyle(TL_S1, ResSupStyle);
	TL_SetExtRight(TL_S1, True);
    Text_S1 = Text_New(Date, Time, TL_GetValue(TL_S1, Date, Time), "S1 " + NumToStr(TL_GetValue(TL_S1, Date, Time),2));
	Text_SetColor(Text_S1, WeeklyS1color);
	Text_S1 = Text_SetLocation(Text_S1, Date, Time, TL_GetValue(TL_S1, Date, Time));

	TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
	TL_SetColor(TL_S2, WeeklyS2color);
	TL_SetStyle(TL_S2, ResSupStyle);
	TL_SetExtRight(TL_S2, True);
    Text_S2 = Text_New(Date, Time, TL_GetValue(TL_S2, Date, Time), "S2 " + NumToStr(TL_GetValue(TL_S2, Date, Time),2));
	Text_SetColor(Text_S2, WeeklyS2color);
	Text_S2 = Text_SetLocation(Text_S2, Date, Time, TL_GetValue(TL_S2, Date, Time));

	TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
	TL_SetColor(TL_S3, WeeklyS3color);
	TL_SetStyle(TL_S3, ResSupStyle);
	TL_SetExtRight(TL_S3, True);
    Text_S3 = Text_New(Date, Time, TL_GetValue(TL_S3, Date, Time), "S3 " + NumToStr(TL_GetValue(TL_S3, Date, Time),2));
	Text_SetColor(Text_S3, WeeklyS3color);
	Text_S3 = Text_SetLocation(Text_S3, Date, Time, TL_GetValue(TL_S3, Date, Time));

	if PlotWeeklyMidPts then
	begin
		TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
		TL_SetColor(TL_M1, WeeklyMidPtcolor);
		TL_SetStyle(TL_M1, MidPtStyle);
		TL_SetExtRight(TL_M1, True);
		TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
		TL_SetColor(TL_M2, WeeklyMidPtcolor);
		TL_SetStyle(TL_M2, MidptStyle);
		TL_SetExtRight(TL_M2, True);
		TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
		TL_SetColor(TL_M3, WeeklyMidPtcolor);
		TL_SetStyle(TL_M3, MidPtStyle);
		TL_SetExtRight(TL_M3, True);
		TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
		TL_SetColor(TL_M4, WeeklyMidPtcolor);
		TL_SetStyle(TL_M4, MidPtStyle);
		TL_SetExtRight(TL_M4, True);
		TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
		TL_SetColor(TL_M5, WeeklyMidPtcolor);
		TL_SetStyle(TL_M5, MidPtStyle);
		TL_SetExtRight(TL_M5, True);
		TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
		TL_SetColor(TL_M6, WeeklyMidPtcolor);
		TL_SetStyle(TL_M6, MidPtStyle);
		TL_SetExtRight(TL_M6, True);
	end;

	// Monthly Pivot Points
	Rng = MonthlyHigh - MonthlyLow;
	PP = (MonthlyHigh + MonthlyLow + MonthlyClose) / 3 ;
	R1 = (2*PP) - MonthlyLow ;
	R2 = PP + Rng ;
	R3 = R1 + Rng;
	S1 = (2*PP) - MonthlyHigh ;
	S2 = PP - Rng ;
	S3 = S1 - Rng ;

	TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
	TL_SetColor(TL_R3, MonthlyR3color);
	TL_SetStyle(TL_R3, ResSupStyle);
	TL_SetExtRight(TL_R3, True);
    Text_R3 = Text_New(Date, Time, TL_GetValue(TL_R3, Date, Time), "R3 " + NumToStr(TL_GetValue(TL_R3, Date, Time),2));
	Text_SetColor(Text_R3, MonthlyR3color);
	Text_R3 = Text_SetLocation(Text_R3, Date, Time, TL_GetValue(TL_R3, Date, Time));

	TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
	TL_SetColor(TL_R2, MonthlyR2color);
	TL_SetStyle(TL_R2, ResSupStyle);		
	TL_SetExtRight(TL_R2, True);
	Text_R2 = Text_New(Date, Time, TL_GetValue(TL_R2, Date, Time), "R2 " + NumToStr(TL_GetValue(TL_R2, Date, Time),2));
	Text_SetColor(Text_R2, MonthlyR2color);
	Text_R2 = Text_SetLocation(Text_R2, Date, Time, TL_GetValue(TL_R2, Date, Time));

	TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
	TL_SetColor(TL_R1, MonthlyR1color);
	TL_SetStyle(TL_R1, ResSupStyle);
	TL_SetExtRight(TL_R1, True);
    Text_R1 = Text_New(Date, Time, TL_GetValue(TL_R1, Date, Time), "R1 " + NumToStr(TL_GetValue(TL_R1, Date, Time),2));
	Text_SetColor(Text_R1, MonthlyR1color);
	Text_R1 = Text_SetLocation(Text_R1, Date, Time, TL_GetValue(TL_R1, Date, Time));

	TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
	TL_SetColor(TL_PP, MonthlyPPcolor);
	TL_SetStyle(TL_PP, PivotPointStyle);
	TL_SetExtRight(TL_PP, True);
    Text_PP = Text_New(Date, Time, TL_GetValue(TL_PP, Date, Time), "M PP " + NumToStr(TL_GetValue(TL_PP, Date, Time),2));
	Text_SetColor(Text_PP, MonthlyPPcolor);
	Text_PP = Text_SetLocation(Text_PP, Date, Time, TL_GetValue(TL_PP, Date, Time));

	TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
	TL_SetColor(TL_S1, MonthlyS1color);
	TL_SetStyle(TL_S1, ResSupStyle);
	TL_SetExtRight(TL_S1, True);
    Text_S1 = Text_New(Date, Time, TL_GetValue(TL_S1, Date, Time), "S1 " + NumToStr(TL_GetValue(TL_S1, Date, Time),2));
	Text_SetColor(Text_S1, MonthlyS1color);
	Text_S1 = Text_SetLocation(Text_S1, Date, Time, TL_GetValue(TL_S1, Date, Time));

	TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
	TL_SetColor(TL_S2, MonthlyS2color);
	TL_SetStyle(TL_S2, ResSupStyle);
	TL_SetExtRight(TL_S2, True);
    Text_S2 = Text_New(Date, Time, TL_GetValue(TL_S2, Date, Time), "S2 " + NumToStr(TL_GetValue(TL_S2, Date, Time),2));
	Text_SetColor(Text_S2, MonthlyS2color);
	Text_S2 = Text_SetLocation(Text_S2, Date, Time, TL_GetValue(TL_S2, Date, Time));

	TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
	TL_SetColor(TL_S3, MonthlyS3color);
	TL_SetStyle(TL_S3, ResSupStyle);
	TL_SetExtRight(TL_S3, True);
    Text_S3 = Text_New(Date, Time, TL_GetValue(TL_S3, Date, Time), "S3 " + NumToStr(TL_GetValue(TL_S3, Date, Time),2));
	Text_SetColor(Text_S3, MonthlyS3color);
	Text_S3 = Text_SetLocation(Text_S3, Date, Time, TL_GetValue(TL_S3, Date, Time));

	if PlotMonthlyMidPts then
	begin
		TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
		TL_SetColor(TL_M1, MonthlyMidPtcolor);
		TL_SetStyle(TL_M1, MidPtStyle);
		TL_SetExtRight(TL_M1, True);
		TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
		TL_SetColor(TL_M2, MonthlyMidPtcolor);
		TL_SetStyle(TL_M2, MidptStyle);
		TL_SetExtRight(TL_M2, True);
		TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
		TL_SetColor(TL_M3, MonthlyMidPtcolor);
		TL_SetStyle(TL_M3, MidPtStyle);
		TL_SetExtRight(TL_M3, True);
		TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
		TL_SetColor(TL_M4, MonthlyMidPtcolor);
		TL_SetStyle(TL_M4, MidPtStyle);
		TL_SetExtRight(TL_M4, True);
		TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
		TL_SetColor(TL_M5, MonthlyMidPtcolor);
		TL_SetStyle(TL_M5, MidPtStyle);
		TL_SetExtRight(TL_M5, True);
		TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
		TL_SetColor(TL_M6, MonthlyMidPtcolor);
		TL_SetStyle(TL_M6, MidPtStyle);
		TL_SetExtRight(TL_M6, True);
	end;
end;

Screenshot below of how the text is "dragged" across the screen.

Any ideas on what I should do?

Thanks,
keymoo

keymoo · 03-16-2007, 06:18 PM

I got it sorted now thanks - I'm creating an Uber pivots indicator and will post it here when I've finished. The tricky bit now is capturing data from other time sessions for use in regular sessions pivot charts.

Robert2617 · 03-16-2007, 06:21 PM

That's awesome! Can't wait to try it.

keymoo · 03-16-2007, 06:25 PM

I'm new to TS, only been using it a few weeks, but the easy language seems, well, easy.

I hope to have it completed within a month or so, there's a lot of features I want to put into it. I get tired of having to type in the high,low,close every day into my pivots for every market in my workspaces.

torero · 03-16-2007, 07:04 PM

keymoo, if you program DBs, this is a cake walk for you. If I can do it, you can do 10x better than I. Looking forward to your super-duper pivot indicator!

Robert2617 · 03-16-2007, 07:48 PM

Quote:

Originally Posted by keymoo »

I'm new to TS, only been using it a few weeks, but the easy language seems, well, easy.

I hope to have it completed within a month or so, there's a lot of features I want to put into it. I get tired of having to type in the high,low,close every day into my pivots for every market in my workspaces.

You may still want to create your own but the attached code and compiled easy language doc is pretty good for pivots.

Here is the code:

Code:

{ _GRIDIRON_II_SR15 }



{Attn: tradestation
if this indicator is posted on the tradestation Forum, I,
TheRumpledOne, did NOT post it there,
so I can't be blamed for this indicator having my contact info.}


{Programmer: Avery T. Horton, Jr. aka TheRumpledOne,
gifts and donations accepted, PO Box 43575, Tucson, AZ 85733 }

{ Ã‚Â© Copyright 2007 Avery T. Horton, Jr.}

inputs:
	
	Pivot_Type( 1), { 1 Standard, 2 Woodies }
	Displace_Label( 0),
	Show_Numbers( true),
	No_of_levels( 11), { Max 9 levels of Pivots }
	Decimals( 2),
	End_Plot_time( SessionEndTime( 0, 1 )),

	CenterText(FALSE),
	TextColotMatch(True),//Match Grid Line Color
	iSupport("S1"),
	iResistance("PP"),
	iMult1(.2),
	iMult2(.5),
	iMult3(.8),
	ColorResistance( lightgray), 		
	ColorPivot( lightgray), 
	ColorSupport( darkgray), 
 
	ColorR4( YELLOW), 		
	ColorR3( YELLOW),

	ColorR2( YELLOW), 		
	ColorR1( YELLOW), 

	ColorR5( YELLOW), 		
	ColorPP( YELLOW), 

	ColorxS2( YELLOW), 		
	ColorxS1( YELLOW), 

	ColorxS5( YELLOW), 
	ColorxS4( YELLOW), 		
	ColorxS3( YELLOW), 

	ibldummy("");

Variables:
	
	TLxS5(-98),
	TLTxtxS5(-58),
	TLxS4(-99),
	TLxS3(-98),

	TLTxtxS4(-59),
	TLTxtxS3(-58),

	
	TLxS2(-99),
	TLxS1(-98),

	TLTxtxS2(-59),
	TLTxtxS1(-58),

	TLR4(-99),
	TLR3(-98),

	TLTxtR4(-59),
	TLTxtR3(-58),

	TLR2(-99),
	TLR1(-98),

	TLTxtR2(-59),
	TLTxtR1(-58),

	TLR5(-99),
	TLPP(-98),

	TLTxtR5(-59),
	TLTxtPP(-58),

	TCR(ColorResistance),//Text Color
	TCP(ColorPivot),//Text Color
	TCS(ColorSupport),//Text Color
	BLStyle( Tool_Dashed ),
	DayPrevClose( 0 ), 
	DayOpen( 0 ), 
	Piv(0),
	PA(0),
	PB(0),
	S6( 0 ),
	R6( 0 ),

	xS5(0),
	R5(0),
	xS4(0),
	R4(0),
	xS1( 0 ),
	xS2( 0 ),
	xS3( 0 ),
	R1( 0 ),
	R2( 0 ),
	R3( 0 ),
	PP( 0 ),
	PPRANGE( 0 ),
	TodaysHigh( 0 ),
	YestHigh( 0 ),
	TodaysLow( 0 ),
	YestLow( 0 ),
	TodaysClose( 0 ),
	YestClose( 0 ),
	Counter( 0 ) ,
	tPivot(""),
 
	count( 0 ),
	Pivot_Line_Colour( yellow ), // darkbrown ),
	PivotStyle( Tool_Dashed ),
	Pivot_Text_Colour( white ) ; // lightgray ) ;

{TrendLine & Text variables}
vars:
	TLxS51(-99),//xS5
	TLxS52(-98),
	TLxS53(-97),
	TLxS41(-96),//xS4
	TLxS42(-95),
	TLxS43(-94),
	TLxS31(-93),//xS3
	TLxS32(-92),
	TLxS33(-91),
	TLxS21(-90),//xS2
	TLxS22(-89),
	TLxS23(-88),
	TLxS11(-87),//xS1
	TLxS12(-86),
	TLxS13(-85),
	TLPP1(-84),//xS1
	TLPP2(-83),
	TLPP3(-82),
	TLR11(-81),//R1
	TLR12(-80),
	TLR13(-79),
	TLR21(-78),//R2
	TLR22(-77),
	TLR23(-76),
	TLR31(-75),//R3
	TLR32(-74),
	TLR33(-73),
	TLR41(-72),//R4
	TLR42(-71),
	TLR43(-69),

	TLTxtxS51(-59),
	TLTxtxS52(-58),
	TLTxtxS53(-57),
	TLTxtxS41(-56),
	TLTxtxS42(-54),
	TLTxtxS43(-53),
	TLTxtxS31(-52),
	TLTxtxS32(-51),
	TLTxtxS33(-50),
	TLTxtxS21(-49),
	TLTxtxS22(-48),
	TLTxtxS23(-47),
	TLTxtxS11(-46),
	TLTxtxS12(-45),
	TLTxtxS13(-44),
	TLTxtPP1(-43),
	TLTxtPP2(-42),
	TLTxtPP3(-41),
	TLTxtR11(-40),
	TLTxtR12(-39),
	TLTxtR13(-38),
	TLTxtR21(-37),
	TLTxtR22(-36),
	TLTxtR23(-35),
	TLTxtR31(-34),
	TLTxtR32(-33),
	TLTxtR33(-32),
	TLTxtR41(-31),
	TLTxtR42(-30),
	TLTxtR43(-29),

	BLxS51(0),
	BLxS52(0),
	BLxS53(0),
	BLxS41(0),
	BLxS42(0),
	BLxS43(0),
	BLxS31(0),
	BLxS32(0),
	BLxS33(0),
	BLxS21(0),
	BLxS22(0),
	BLxS23(0),
	BLxS11(0),
	BLxS12(0),
	BLxS13(0),
	BLPP1(0),
	BLPP2(0),
	BLPP3(0),
	BLR11(0),
	BLR12(0),
	BLR13(0),
	BLR21(0),
	BLR22(0),
	BLR23(0),
	BLR31(0),
	BLR32(0),
	BLR33(0),
	BLR41(0),
	BLR42(0),
	BLR43(0);

arrays:
	PivotLevel[11]( 0 ),
	LineID[11]( 0 ),
	TEXTID[11]( 0 ),
	TextSTR[11]( "" ) ;

{calculations}

if High > TodaysHigh 
	then TodaysHigh = High ;

if Low < TodaysLow 
	then TodaysLow = Low ;

{ IF DATE CHANGED }

If d <> d[1]
then begin


If BarType = 2 { daily bars }
Then Begin

{pivot calcs}
		PPRANGE = high[1] - low[1];
  		PP      = (high[1] + low[1] + close[1]) / 3;
		PP      = round(PP,2);
		R1      = (2*PP) - low[1];
		xS1      = (2*PP) - high[1];
		R2      = PP + (R1 - xS1);
		xS2      = PP - (R1 - xS1);
		R3     = ( 2 * PP ) + ( high[1] - ( 2 * low[1]) );
		xS3     = ( 2 * PP ) - ( ( 2 * high[1] ) -  low[1] );
		R4    = ( 3 * PP ) + ( high[1] - ( 3 * low[1]) );
		xS4    = ( 3 * PP ) - ( ( 3 * high[1] ) -  low[1] );
		R5    = ( 4 * PP ) + ( high[1] - ( 4 * low[1]) );
		xS5    = ( 4 * PP ) - ( ( 4 * high[1] ) -  low[1] );

		R6     = ( 5 * PP ) + ( high[1] - ( 5 * low[1]) );
		S6     = ( 5 * PP ) - ( ( 5 * high[1] ) -  low[1] );

end; // If BarType = 2 Then		 { daily bars }

If BarType < 2 Then		 { intraday or tick bars }
Begin
		PPRANGE = highd(1) - lowd(1);
  		PP      = (HighD(1) + LowD(1) + CloseD(1)) / 3;
		PP      = round(PP,2);
		R1      = (2*PP) - LowD(1);
		xS1      = (2*PP) - HighD(1);
		R2      = PP + (R1 - xS1);
		xS2      = PP - (R1 - xS1);
		R3     = ( 2 * PP ) + ( HighD(1) - ( 2 * LowD(1)) );
		xS3     = ( 2 * PP ) - ( ( 2 * HighD(1) ) -  LowD(1) );
		R4    = ( 3 * PP ) + ( HighD(1) - ( 3 * LowD(1)) );
		xS4    = ( 3 * PP ) - ( ( 3 * HighD(1) ) -  LowD(1) );
		R5    = ( 4 * PP ) + ( HighD(1) - ( 4 * LowD(1)) );
		xS5    = ( 4 * PP ) - ( ( 4 * HighD(1) ) -  LowD(1) );
		
		R6     = ( 5 * PP ) + ( HighD(1) - ( 5 * LowD(1))  );
		S6     = ( 5 * PP ) - ( ( 5 * HighD(1) ) -  LowD(1))  ;

end; // If BarType < 2



Value1=0;//xS5
Value1=xS4-xS5;
BLxS51=value1*imult1+xS5;//xS5
BLxS52=value1*imult2+xS5;
BLxS53=value1*imult3+xS5;

Value1=0;//xS4
Value1=xS3-xS4;
BLxS41=value1*imult1+xS4;//xS4
BLxS42=value1*imult2+xS4;
BLxS43=value1*imult3+xS4;

Value1=0;//xS3
Value1=xS2-xS3;
BLxS31=value1*imult1+xS3;
BLxS32=value1*imult2+xS3;
BLxS33=value1*imult3+xS3;

Value1=0;//xS2
Value1=xS1-xS2;
BLxS21=value1*imult1+xS2;
BLxS22=value1*imult2+xS2;
BLxS23=value1*imult3+xS2;

Value1=0;//xS1
Value1=PP-xS1;
BLxS11=value1*imult1+xS1;
BLxS12=value1*imult2+xS1;
BLxS13=value1*imult3+xS1;

Value1=0;//PP
Value1=R1-PP;
BLPP1=value1*imult1+PP;
BLPP2=value1*imult2+PP;
BLPP3=value1*imult3+PP;

Value1=0;//R1
Value1=R2-R1;
BLR11=value1*imult1+R1;
BLR12=value1*imult2+R1;
BLR13=value1*imult3+R1;

Value1=0;//R2
Value1=R3-R2;
BLR21=value1*imult1+R2;
BLR22=value1*imult2+R2;
BLR23=value1*imult3+R2;

Value1=0;//R3
Value1=R4-R3;
BLR31=value1*imult1+R3;
BLR32=value1*imult2+R3;
BLR33=value1*imult3+R3;

Value1=0;//R4
Value1=R5-R4;
BLR41=value1*imult1+R4;
BLR42=value1*imult2+R4;
BLR43=value1*imult3+R4;

end; // If d <> d[1]


if condition99 = false 
then begin

TLxS5      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS5 = Text_New(date,time,xS5,"S5 $");


TLxS4      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS4 = Text_New(date,time,xS4,"S4 $");

TLxS3      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS3 = Text_New(date,time,xS3,"S3 $");

TLxS2      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS2 = Text_New(date,time,xS2,"S2 $");

TLxS1      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS1 = Text_New(date,time,xS1,"S1 $");
	

TLR4      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR4 = Text_New(date,time,R4,"R4 $");

TLR3      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR3 = Text_New(date,time,R3,"R3 $");

TLR2      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR2 = Text_New(date,time,R2,"R2 $");

TLR1      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR1 = Text_New(date,time,R1,"R1 $");



TLR5      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR5 = Text_New(date,time,R5,"R5 $");

TLPP      = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtPP = Text_New(date,time,PP,"PP $");

TLxS51      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS51=Text_New(date,time,BLxS51,"S20 $");
TLxS52      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS52=Text_New(date,time,BLxS52,"50YL $");
TLxS53     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS53 =Text_New(date,time,BLxS53,"B20 $");

TLxS41      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS41=Text_New(date,time,BLxS41,"S20 $");
TLxS42      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS42=Text_New(date,time,BLxS42,"50YL $");
TLxS43     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS43 =Text_New(date,time,BLxS43,"B20 $");

TLxS31      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS31=Text_New(date,time,BLxS31,"S20 $");
TLxS32      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS32=Text_New(date,time,BLxS32,"50YL $");
TLxS33     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS33 =Text_New(date,time,BLxS33,"B20 $");

TLxS21      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS21=Text_New(date,time,BLxS21,"S20 $");
TLxS22      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS22=Text_New(date,time,BLxS22,"50YL $");
TLxS23     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS23 =Text_New(date,time,BLxS23,"B20 $");

TLxS11      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS11=Text_New(date,time,BLxS11,"S20 $");
TLxS12      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS12=Text_New(date,time,BLxS12,"50YL $");
TLxS13     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtxS13 =Text_New(date,time,BLxS13,"B20 $");

TLPP1      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtPP1=Text_New(date,time,BLPP1,"S20 $");
TLPP2      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtPP2=Text_New(date,time,BLPP2,"50YL $");
TLPP3     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtPP3 =Text_New(date,time,BLPP3,"B20 $");

TLR11      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR11=Text_New(date,time,BLR11,"S20 $");
TLR12      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR12=Text_New(date,time,BLR12,"50YL $");
TLR13     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR13 =Text_New(date,time,BLR13,"B20 $");

TLR21      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR21=Text_New(date,time,BLR21,"S20 $");
TLR22      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR22=Text_New(date,time,BLR22,"50YL $");
TLR23     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR23 =Text_New(date,time,BLR23,"B20 $");

TLR31      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR31=Text_New(date,time,BLR31,"S20 $");
TLR32      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR32=Text_New(date,time,BLR32,"50YL $");
TLR33     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR33 =Text_New(date,time,BLR33,"B20 $");

TLR41      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR41=Text_New(date,time,BLR41,"S20 $");
TLR42      =TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR42=Text_New(date,time,BLR42,"50YL $");
TLR43     = TL_New(Date[0], Time[0], 99999, Date, Time, 99999);
TLTxtR43 =Text_New(date,time,BLR43,"B20 $");
End;
Condition99=True;



{Update Trendlines & Trend Text}


{++++++   Text Location             +++++++++}
If CenterText=False then begin
value1=0; value2=0;
value2 = AddTime(time,2*BarInterval);
end;
If CenterText=True then begin
value1=1; value2=0;
value2 = CurrentTime+Displace_Label;
end;
{  xS5  Text  }
Text_SetLocation(TLTxtxS51,date,value2, BLxS51);
Text_SetStyle(TLTxtxS51,value1,1);
Text_SetLocation(TLTxtxS52,date,value2, BLxS52);
Text_SetStyle(TLTxtxS52,value1,1);
Text_SetLocation(TLTxtxS53,date,value2, BLxS53);
Text_SetStyle(TLTxtxS53,value1,1);
{ xS4  Text  }
Text_SetLocation(TLTxtxS41,date,value2, BLxS41);
Text_SetStyle(TLTxtxS41,value1,1);
Text_SetLocation(TLTxtxS42,date,value2, BLxS42);
Text_SetStyle(TLTxtxS42,value1,1);
Text_SetLocation(TLTxtxS43,date,value2, BLxS43);
Text_SetStyle(TLTxtxS43,value1,1);
{ xS3  Text  }
Text_SetLocation(TLTxtxS31,date,value2, BLxS31);
Text_SetStyle(TLTxtxS31,value1,1);
Text_SetLocation(TLTxtxS32,date,value2, BLxS32);
Text_SetStyle(TLTxtxS32,value1,1);
Text_SetLocation(TLTxtxS33,date,value2, BLxS33);
Text_SetStyle(TLTxtxS33,value1,1);
{  xS2    Text }
Text_SetLocation(TLTxtxS21,date,value2, BLxS21);
Text_SetStyle(TLTxtxS21,value1,1);
Text_SetLocation(TLTxtxS22,date,value2, BLxS22);
Text_SetStyle(TLTxtxS22,value1,1);
Text_SetLocation(TLTxtxS23,date,value2, BLxS23);
Text_SetStyle(TLTxtxS23,value1,1);
{  xS1    Text }
Text_SetLocation(TLTxtxS11,date,value2, BLxS11);
Text_SetStyle(TLTxtxS11,value1,1);
Text_SetLocation(TLTxtxS12,date,value2, BLxS12);
Text_SetStyle(TLTxtxS12,value1,1);
Text_SetLocation(TLTxtxS13,date,value2, BLxS13);
Text_SetStyle(TLTxtxS13,value1,1);
{  PP   Text }
Text_SetLocation(TLTxtPP1,date,value2, BLPP1);
Text_SetStyle(TLTxtPP1,value1,1);
Text_SetLocation(TLTxtPP2,date,value2, BLPP2);
Text_SetStyle(TLTxtPP2,value1,1);
Text_SetLocation(TLTxtPP3,date,value2, BLPP3);
Text_SetStyle(TLTxtPP3,value1,1);
{    R1   Text   } 
Text_SetLocation(TLTxtR11,date,value2, BLR11);
Text_SetStyle(TLTxtR11,value1,1);
Text_SetLocation(TLTxtR12,date,value2, BLR12);
Text_SetStyle(TLTxtR12,value1,1);
Text_SetLocation(TLTxtR13,date,value2, BLR13);
Text_SetStyle(TLTxtR13,value1,1);
{    R2   Text   } 
Text_SetLocation(TLTxtR21,date,value2, BLR21);
Text_SetStyle(TLTxtR21,value1,1);
Text_SetLocation(TLTxtR22,date,value2, BLR22);
Text_SetStyle(TLTxtR22,value1,1);
Text_SetLocation(TLTxtR23,date,value2, BLR23);
Text_SetStyle(TLTxtR23,value1,1);
{    R3   Text   } 
Text_SetLocation(TLTxtR31,date,value2, BLR31);
Text_SetStyle(TLTxtR31,value1,1);
Text_SetLocation(TLTxtR32,date,value2, BLR32);
Text_SetStyle(TLTxtR32,value1,1);
Text_SetLocation(TLTxtR33,date,value2, BLR33);
Text_SetStyle(TLTxtR33,value1,1);
{    R4   Text   } 
Text_SetLocation(TLTxtR41,date,value2, BLR41);
Text_SetStyle(TLTxtR41,value1,1);
Text_SetLocation(TLTxtR42,date,value2, BLR42);
Text_SetStyle(TLTxtR42,value1,1);
Text_SetLocation(TLTxtR43,date,value2, BLR43);
Text_SetStyle(TLTxtR43,value1,1);




Text_SetLocation(TLTxtxS2,date,value2, xS2);
Text_SetStyle(TLTxtxS2,value1,1);

Text_SetLocation(TLTxtxS1,date,value2, xS1);
Text_SetStyle(TLTxtxS1,value1,1);


Text_SetColor(TLTxtxS2,ColorxS2);
Text_SetColor(TLTxtxS1,ColorxS1);

Text_SetLocation(TLTxtR4,date,value2, R4);
Text_SetStyle(TLTxtR4,value1,1);

Text_SetLocation(TLTxtR3,date,value2, R3);
Text_SetStyle(TLTxtR3,value1,1);


Text_SetColor(TLTxtR4,ColorR4);
Text_SetColor(TLTxtR3,ColorR3);



Text_SetLocation(TLTxtR2,date,value2, R2);
Text_SetStyle(TLTxtR2,value1,1);

Text_SetLocation(TLTxtR1,date,value2, R1);
Text_SetStyle(TLTxtR1,value1,1);


Text_SetColor(TLTxtR2,ColorR2);
Text_SetColor(TLTxtR1,ColorR1);
 

Text_SetLocation(TLTxtR5,date,value2, R5);
Text_SetStyle(TLTxtR5,value1,1);

Text_SetLocation(TLTxtPP,date,value2, PP);
Text_SetStyle(TLTxtPP,value1,1);


Text_SetColor(TLTxtR5,ColorR5);
Text_SetColor(TLTxtPP,ColorPP);

 

Text_SetLocation(TLTxtxS5,date,value2, xS5);
Text_SetStyle(TLTxtxS5,value1,1);
Text_SetColor(TLTxtxS5,ColorxS5);



Text_SetLocation(TLTxtxS4,date,value2, xS4);
Text_SetStyle(TLTxtxS4,value1,1);

Text_SetLocation(TLTxtxS3,date,value2, xS3);
Text_SetStyle(TLTxtxS3,value1,1);


Text_SetColor(TLTxtxS4,ColorxS4);
Text_SetColor(TLTxtxS3,ColorxS3);
	


{+++++++    Text Color ++++++++++++}
If TextColotMatch=True then begin
	TCR=ColorResistance;//Text Color
	TCP=ColorPivot;//Text Color
	TCS=ColorSupport;//Text Color
	End;
If TextColotMatch=False then begin
	TCR=White;//Text Color
	TCP=White;//Text Color
	TCS=White;//Text Color
	End;
{  xS5 Text Color }
Text_SetColor(TLTxtxS51,TCS);
Text_SetColor(TLTxtxS52,TCS);
Text_SetColor(TLTxtxS53,TCS);
{  xS4 Text Color }
Text_SetColor(TLTxtxS41,TCS);
Text_SetColor(TLTxtxS42,TCS);
Text_SetColor(TLTxtxS43,TCS);
{  xS3 Text Color }
Text_SetColor(TLTxtxS31,TCS);
Text_SetColor(TLTxtxS32,TCS);
Text_SetColor(TLTxtxS33,TCS);
{  xS2 Text Color }
Text_SetColor(TLTxtxS21,TCS);
Text_SetColor(TLTxtxS22,TCS);
Text_SetColor(TLTxtxS23,TCS);
{  xS1 Text Color }
Text_SetColor(TLTxtxS11,TCS);
Text_SetColor(TLTxtxS12,TCS);
Text_SetColor(TLTxtxS13,TCS);

{  PP Text Color }
Text_SetColor(TLTxtPP1,TCP);
Text_SetColor(TLTxtPP2,TCP);
Text_SetColor(TLTxtPP3,TCP);

{  R1 Text Color }
Text_SetColor(TLTxtR11,TCR);
Text_SetColor(TLTxtR12,TCR);
Text_SetColor(TLTxtR13,TCR);
{  R2 Text Color }
Text_SetColor(TLTxtR21,TCR);
Text_SetColor(TLTxtR22,TCR);
Text_SetColor(TLTxtR23,TCR);
{  R3 Text Color }
Text_SetColor(TLTxtR31,TCR);
Text_SetColor(TLTxtR32,TCR);
Text_SetColor(TLTxtR33,TCR);
{  R4 Text Color }
Text_SetColor(TLTxtR41,TCR);
Text_SetColor(TLTxtR42,TCR);
Text_SetColor(TLTxtR43,TCR);

{+++++++++++ Trend Lines       ++++++++++++}

If xS2 > 0 then begin 
TL_SetBegin(TLxS2, Date, Time, xS2);
TL_SetEnd(TLxS2, Date, value1, xS2);
TL_SetColor(TLxS2,ColorxS2);
TL_SetExtRight(TLxS2,true);
TL_SetStyle(TLxS2,2);

Text_SetString(TLTxtxS2, "S2 $ "+numtostr(xS2,2));
end;

If xS1 > 0 then begin
TL_SetBegin(TLxS1, Date, Time, xS1);
TL_SetEnd(TLxS1, Date, value1, xS1);
TL_SetColor(TLxS1,ColorxS1);
TL_SetExtRight(TLxS1,true);
TL_SetStyle(TLxS1,2);

Text_SetString(TLxS1, "S1 $ "+numtostr(xS1,2));
end;

If xS4 > 0 then begin 
TL_SetBegin(TLxS4, Date, Time, xS4);
TL_SetEnd(TLxS4, Date, value1, xS4);
TL_SetColor(TLxS4,ColorxS4);
TL_SetExtRight(TLxS4,true);
TL_SetStyle(TLxS4,2);

Text_SetString(TLTxtxS4, "S4 $ "+numtostr(xS4,2));
end;

If xS3 > 0 then begin
TL_SetBegin(TLxS3, Date, Time, xS3);
TL_SetEnd(TLxS3, Date, value1, xS3);
TL_SetColor(TLxS3,ColorxS3);
TL_SetExtRight(TLxS3,true);
TL_SetStyle(TLxS3,2);

Text_SetString(TLxS3, "S3 $ "+numtostr(xS3,2));
end;

 
If R5 > 0 then begin 
TL_SetBegin(TLR5, Date, Time, R5);
TL_SetEnd(TLR5, Date, value1, R5);
TL_SetColor(TLR5,ColorR5);
TL_SetExtRight(TLR5,true);
TL_SetStyle(TLR5,2);

Text_SetString(TLTxtR5, "R5 $ "+numtostr(R5,2));
end;

If PP > 0 then begin
TL_SetBegin(TLPP, Date, Time, PP);
TL_SetEnd(TLPP, Date, value1, PP);
TL_SetColor(TLPP,ColorPP);
TL_SetExtRight(TLPP,true);
TL_SetStyle(TLPP,2);

Text_SetString(TLPP, "PP $ "+numtostr(PP,2));
end;

	
TL_SetBegin(TLR4, Date, Time, R4);
TL_SetEnd(TLR4, Date, value1, R4);
TL_SetColor(TLR4,ColorR4);
TL_SetExtRight(TLR4,true);
TL_SetStyle(TLR4,2);

Text_SetString(TLTxtR4, "R4 $ "+numtostr(R4,2));
 
 
TL_SetBegin(TLR3, Date, Time, R3);
TL_SetEnd(TLR3, Date, value1, R3);
TL_SetColor(TLR3,ColorR3);
TL_SetExtRight(TLR3,true);
TL_SetStyle(TLR3,2);

Text_SetString(TLR3, "R3 $ "+numtostr(R3,2));
 

If R2 > 0 then begin 
TL_SetBegin(TLR2, Date, Time, R2);
TL_SetEnd(TLR2, Date, value1, R2);
TL_SetColor(TLR2,ColorR2);
TL_SetExtRight(TLR2,true);
TL_SetStyle(TLR2,2);

Text_SetString(TLTxtR2, "R2 $ "+numtostr(R2,2));
end;

If R1 > 0 then begin
TL_SetBegin(TLR1, Date, Time, R1);
TL_SetEnd(TLR1, Date, value1, R1);
TL_SetColor(TLR1,ColorR1);
TL_SetExtRight(TLR1,true);
TL_SetStyle(TLR1,2);

Text_SetString(TLR1, "R1 $ "+numtostr(R1,2));
end;

If xS5 > 0 then begin
TL_SetBegin(TLxS5, Date, Time, xS5);
TL_SetEnd(TLxS5, Date, value1, xS5);
TL_SetColor(TLxS5,ColorxS5);
TL_SetExtRight(TLxS5,true);
TL_SetStyle(TLxS5,2);

Text_SetString(TLxS5, "S5 $ "+numtostr(xS5,2));
end;

{  xS5  }
TL_SetBegin(TLxS51, Date, Time, BLxS51);//xS5
TL_SetEnd(TLxS51, Date, value1, BLxS51);
TL_SetColor(TLxS51,ColorSupport);
TL_SetExtRight(TLxS51,true);
TL_SetStyle(TLxS51,2);

Text_SetString(TLTxtxS51, "B20 $ "+numtostr(BLxS51,2));

TL_SetBegin(TLxS52, Date, Time, BLxS52);
TL_SetEnd(TLxS52, Date, value1, BLxS52);
TL_SetColor(TLxS52,ColorSupport);
TL_SetExtRight(TLxS52,True);
TL_SetStyle(TLxS52,2);

Text_SetString(TLTxtxS52, "MID $ " +numtostr(BLxS52,2));

TL_SetBegin(TLxS53, Date, Time, BLxS53);
TL_SetEnd(TLxS53, Date, value1, BLxS53);
TL_SetColor(TLxS53,ColorSupport);
TL_SetExtRight(TLxS53,True);
TL_SetStyle(TLxS53,2);

Text_SetString(TLTxtxS53, "S20 $ "+numtostr(BLxS53,2));

{ xS4 }
TL_SetBegin(TLxS41, Date, Time, BLxS41);//xS4
TL_SetEnd(TLxS41, Date, value1, BLxS41);
TL_SetColor(TLxS41,ColorSupport);
TL_SetExtRight(TLxS41,true);
TL_SetStyle(TLxS41,2);

Text_SetString(TLTxtxS41, "B20 $ "+numtostr(BLxS41,2));

TL_SetBegin(TLxS42, Date, Time, BLxS42);
TL_SetEnd(TLxS42, Date, value1, BLxS42);
TL_SetColor(TLxS42,ColorSupport);
TL_SetExtRight(TLxS42,True);
TL_SetStyle(TLxS42,2);

Text_SetString(TLTxtxS42, "MID $ " +numtostr(BLxS42,2));

TL_SetBegin(TLxS43, Date, Time, BLxS43);
TL_SetEnd(TLxS43, Date, value1, BLxS43);
TL_SetColor(TLxS43,ColorSupport);
TL_SetExtRight(TLxS43,True);
TL_SetStyle(TLxS43,2);

Text_SetString(TLTxtxS43, "S20 $ "+numtostr(BLxS43,2));

{ xS3  }
TL_SetBegin(TLxS31, Date, Time, BLxS31);//xS3
TL_SetEnd(TLxS31, Date, value1, BLxS31);
TL_SetColor(TLxS31,ColorSupport);
TL_SetExtRight(TLxS31,True);
TL_SetStyle(TLxS31,2);

Text_SetString(TLTxtxS31, "B20 $ "+numtostr(BLxS31,2));

TL_SetBegin(TLxS32, Date, Time, BLxS32);
TL_SetEnd(TLxS32, Date, value1, BLxS32);
TL_SetColor(TLxS32,ColorSupport);
TL_SetExtRight(TLxS32,True);
TL_SetStyle(TLxS32,2);

Text_SetString(TLTxtxS32, "MID $ " +numtostr(BLxS32,2));

TL_SetBegin(TLxS33, Date, Time, BLxS33);
TL_SetEnd(TLxS33, Date, value1, BLxS33);
TL_SetColor(TLxS33,ColorSupport);
TL_SetExtRight(TLxS33,True);
TL_SetStyle(TLxS33,2);

Text_SetString(TLTxtxS33, "S20 $ "+numtostr(BLxS33,2));

{  xS2   }
TL_SetBegin(TLxS21, Date, Time, BLxS21);//xS2
TL_SetEnd(TLxS21, Date, value1, BLxS21);
TL_SetColor(TLxS21,ColorSupport);
TL_SetExtRight(TLxS21,True);
TL_SetStyle(TLxS21,2);

Text_SetString(TLTxtxS21, "B20 $ "+numtostr(BLxS21,2));

TL_SetBegin(TLxS22, Date, Time, BLxS22);
TL_SetEnd(TLxS22, Date, value1, BLxS22);
TL_SetColor(TLxS22,ColorSupport);
TL_SetExtRight(TLxS22,True);
TL_SetStyle(TLxS22,2);

Text_SetString(TLTxtxS22, "MID $ " +numtostr(BLxS22,2));

TL_SetBegin(TLxS23, Date, Time, BLxS23);
TL_SetEnd(TLxS23, Date, value1, BLxS23);
TL_SetColor(TLxS23,ColorSupport);
TL_SetExtRight(TLxS23,True);
TL_SetStyle(TLxS23,2);

Text_SetString(TLTxtxS23, "S20 $ "+numtostr(BLxS23,2));

{   xS1  }
TL_SetBegin(TLxS11, Date, Time, BLxS11);//xS1
TL_SetEnd(TLxS11, Date, value1, BLxS11);
TL_SetColor(TLxS11,ColorSupport);
TL_SetExtRight(TLxS11,True);
TL_SetStyle(TLxS11,2);

Text_SetString(TLTxtxS11, "B20 $ "+numtostr(BLxS11,2));

TL_SetBegin(TLxS12, Date, Time, BLxS12);
TL_SetEnd(TLxS12, Date, value1, BLxS12);
TL_SetColor(TLxS12,ColorSupport);
TL_SetExtRight(TLxS12,True);
TL_SetStyle(TLxS12,2);

Text_SetString(TLTxtxS12, "MID $ " +numtostr(BLxS12,2));

TL_SetBegin(TLxS13, Date, Time, BLxS13);
TL_SetEnd(TLxS13, Date, value1, BLxS13);
TL_SetColor(TLxS13,ColorSupport);
TL_SetExtRight(TLxS13,True);
TL_SetStyle(TLxS13,2);

Text_SetString(TLTxtxS13, "S20 $ " +numtostr(BLxS13,2));

{  PP  }
TL_SetBegin(TLPP1, Date, Time, BLPP1);//PP
TL_SetEnd(TLPP1, Date, value1, BLPP1);
TL_SetColor(TLPP1,ColorPivot);
TL_SetExtRight(TLPP1,True);
TL_SetStyle(TLPP1,2);

Text_SetString(TLTxtPP1, "B20 $ "+numtostr(BLPP1,2));

TL_SetBegin(TLPP2, Date, Time, BLPP2);
TL_SetEnd(TLPP2, Date, value1, BLPP2);
TL_SetColor(TLPP2,ColorPivot);
TL_SetExtRight(TLPP2,True);
TL_SetStyle(TLPP2,2);

Text_SetString(TLTxtPP2, "MID $ "+numtostr(BLPP2,2));

TL_SetBegin(TLPP3, Date, Time, BLPP3);
TL_SetEnd(TLPP3, Date, value1, BLPP3);
TL_SetColor(TLPP3,ColorPivot);
TL_SetExtRight(TLPP3,True);
TL_SetStyle(TLPP3,2);

Text_SetString(TLTxtPP3, "S20 $ "+numtostr(BLPP3,2));

{    R1      }
TL_SetBegin(TLR11, Date, Time, BLR11);//R1
TL_SetEnd(TLR11, Date, value1, BLR11);
TL_SetColor(TLR11,ColorResistance);
TL_SetExtRight(TLR11,True);
TL_SetStyle(TLR11,2);

Text_SetString(TLTxtR11, "B20 $ "+numtostr(BLR11,2));

TL_SetBegin(TLR12, Date, Time, BLR12);
TL_SetEnd(TLR12, Date, value1, BLR12);
TL_SetColor(TLR12,ColorResistance);
TL_SetExtRight(TLR12,True);
TL_SetStyle(TLR12,2);

Text_SetString(TLTxtR12, "MID $ " +numtostr(BLR12,2));

TL_SetBegin(TLR13, Date, Time, BLR13);
TL_SetEnd(TLR13, Date, value1, BLR13);
TL_SetColor(TLR13,ColorResistance);
TL_SetExtRight(TLR13,True);
TL_SetStyle(TLR13,2);

Text_SetString(TLTxtR13,"S20 $ " +numtostr(BLR13,2));

{      R2    }
TL_SetBegin(TLR21, Date, Time, BLR21);//R2
TL_SetEnd(TLR21, Date, value1, BLR21);
TL_SetColor(TLR21,ColorResistance);
TL_SetExtRight(TLR21,True);
TL_SetStyle(TLR21,2);

Text_SetString(TLTxtR21, "B20 $ "+numtostr(BLR21,2));

TL_SetBegin(TLR22, Date, Time, BLR22);
TL_SetEnd(TLR22, Date, value1, BLR22);
TL_SetColor(TLR22,ColorResistance);
TL_SetExtRight(TLR22,True);
TL_SetStyle(TLR22,2);

Text_SetString(TLTxtR22,"MID $ " +numtostr(BLR22,2));

TL_SetBegin(TLR23, Date, Time, BLR23);
TL_SetEnd(TLR23, Date, value1, BLR23);
TL_SetColor(TLR23,ColorResistance);
TL_SetExtRight(TLR23,True);
TL_SetStyle(TLR23,2);

Text_SetString(TLTxtR23, "S20 $ "+numtostr(BLR23,2));

{       R3     }
TL_SetBegin(TLR31, Date, Time, BLR31);//R3
TL_SetEnd(TLR31, Date, value1, BLR31);
TL_SetColor(TLR31,ColorResistance);
TL_SetExtRight(TLR31,true);
TL_SetStyle(TLR31,2);	

Text_SetString(TLTxtR31, "B20 $ "+numtostr(BLR31,2));

TL_SetBegin(TLR32, Date, Time, BLR32);
TL_SetEnd(TLR32, Date, value1, BLR32);
TL_SetColor(TLR32,ColorResistance);
TL_SetExtRight(TLR32,true);
TL_SetStyle(TLR32,2);

Text_SetString(TLTxtR32, "MID $ " +numtostr(BLR32,2));

TL_SetBegin(TLR33, Date, Time, BLR33);
TL_SetEnd(TLR33, Date, value1, BLR33);
TL_SetColor(TLR33,ColorResistance);
TL_SetExtRight(TLR33,true);
TL_SetStyle(TLR33,2);

Text_SetString(TLTxtR33, "S20 $ "+numtostr(BLR33,2));

{     R4     }
TL_SetBegin(TLR41, Date, Time, BLR41);//R4
TL_SetEnd(TLR41, Date, value1, BLR41);
TL_SetColor(TLR41,ColorResistance);
TL_SetExtRight(TLR41,true);
TL_SetStyle(TLR41,2);	

Text_SetString(TLTxtR41, "B20 $ "+numtostr(BLR41,2));

TL_SetBegin(TLR42, Date, Time, BLR42);
TL_SetEnd(TLR42, Date, value1, BLR42);
TL_SetColor(TLR42,ColorResistance);
TL_SetExtRight(TLR42,true);
TL_SetStyle(TLR42,2);

Text_SetString(TLTxtR42, "MID $ " +numtostr(BLR42,2));

TL_SetBegin(TLR43, Date, Time, BLR43);
TL_SetEnd(TLR43, Date, value1, BLR43);
TL_SetColor(TLR43,ColorResistance);
TL_SetExtRight(TLR43,true);
TL_SetStyle(TLR43,2);

Text_SetString(TLTxtR43, "S20 $ "+numtostr(BLR43,2));

Soultrader · 03-17-2007, 02:00 AM

Yes, definitely waiting on this keymoo.

keymoo · 03-24-2007, 02:37 PM

Thanks Robert, those pivots don't do what I need, but there's some very useful ideas in the code there. Thanks for submitting. My pivots are coming on nicely as I learn more and more EL.

Thread Tools
Show Printable Version Email this Page
Display Modes	Help Others By Rating This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Help Others By Rating This Thread:

∧ Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Antonio: Please help me on MP for easylanguage	nasdaq5048	Market Profile	13	09-23-2010 09:50 AM

New TL Account

Create New Account

Information and Contact

Featured Forums

Website Terms