Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

keymoo

Labels in EasyLanguage

Recommended Posts

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:

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.

396522640_3fb38605e4_o.gif

 

Any ideas on what I should do?

 

Thanks,

keymoo

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
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:

{ _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));

_GRIDIRON_II_SR15.ELD

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Topics

  • Posts

    • Date: 21st February 2025.   European PMI Disappoint, Weighing on Euro Before German Elections   The Euro is the first currency to witness the volatility on this month’s PMI reports. The French, German and British PMI data have resulted in the Euro being the worst-performing currency of the European Session so far. However, will the Euro continue to decline throughout the day? European Purchasing Managers’ Indexes The French Purchasing Managers Index was the first European index to be made public. The release resulted in the Euro instantly declining 0.24%. The main concern from the French data was the Services PMI which fell from 48.2 to 44.5. Previously the market was expecting the data to remain more or less unchanged. The weak data triggered the decline which came to a halt after Germany’s PMI was released.     The German Manufacturing PMI read 0.5 points higher than previous expectations and the Services PMI was 0.2 points lower. The data from Germany was a relief for Euro investors and the price rose 0.12% higher. However, traders should note that the price of the EURUSD continues to remain 0.20% lower than yesterday’s close. The price of the EURUSD will now depend on the PMI data from the US. The value of the US Dollar will depend on its PMI release this afternoon and the Consumer Sentiment Index. Analysts expect both the US Services and Manufacturing PMI data to remain above the 50.00 level in the expansion zone. German Elections 2 Days Away Germany is set to hold a general election this Sunday, February 23rd, following the collapse of the coalition of social democrats, liberals, and greens. Given the country's highly proportional electoral system, German polls provide a strong indication of potential government formations post-election. The main concern for Germany is the AFD party who are Far-Right Nationalists. Currently, ahead in the polls are CDU (centre-right), and AFD (far right), followed by the SPD (centre-left). Traders should note that the results of the elections are likely to trigger strong volatility on Monday, but also influence volatility today. Economists may become further concerned if the far-right gains power for the first time due to uncertainty. If the government, similar to France, is unable to form a coalition, this would also be a concern for the Eurozone. Furthermore, the Euro this week is also under pressure from comments from members of the European Central Bank. ECB Governing Council member Fabio Panetta said to journalists that officials need not slow interest rate cuts, as January's 2.5% inflation is still expected to reach the 2.0% target this year. He also advised the European economy is weaker than previously expected. EURUSD - Technical Analysis and Indicators The EURUSD is trading above the 75-bar Exponential Moving Average and 100-bar Simple Moving Average on the 2-hour chart. However, the price is moving away from the key resistance level at 1.05058 indicating the price is losing momentum. The short-term volatility is indicating the price is retracing downwards. On the 5-minute timeframe, the price is trading below the 200-bar SMA and is also forming clear lower lows and highs. Simultaneously, the US Dollar Index is trading above the 200-bar SMA on the 5-minute chart confirming no current conflicts. Currently, the US Dollar is the best-performing currency of the day attempting to regain losses from the past 2 weeks. Watch today’s Live Analysis Session for more signals as they develop!   Key Takeaway Points: Weak French Services PMI triggered an initial Euro decline, but German PMI provide a slight relief. However, EURUSD remains lower than yesterday’s close. The Euro’s direction now depends on the US PMI reports, with analysts expecting US data to stay in expansion territory. Sunday's German election could drive volatility, especially if the far-right AFD gains power or if coalition formation proves difficult. ECB official Fabio Panetta suggested no need to slow rate cuts, citing weaker-than-expected economic performance and expected inflation decline. Always trade with strict risk management. Your capital is the single most important aspect of your trading business.   Please note that times displayed based on local time zone and are from time of writing this report.   Click HERE to access the full HFM Economic calendar.   Want to learn to trade and analyse the markets? Join our webinars and get analysis and trading ideas combined with better understanding of how markets work. Click HERE to register for FREE!   Click HERE to READ more Market news.   Michalis Efthymiou HFMarkets   Disclaimer: This material is provided as a general marketing communication for information purposes only and does not constitute an independent investment research. Nothing in this communication contains, or should be considered as containing, an investment advice or an investment recommendation or a solicitation for the purpose of buying or selling of any financial instrument. All information provided is gathered from reputable sources and any information containing an indication of past performance is not a guarantee or reliable indicator of future performance. Users acknowledge that any investment in Leveraged Products is characterized by a certain degree of uncertainty and that any investment of this nature involves a high level of risk for which the users are solely responsible and liable. We assume no liability for any loss arising from any investment made based on the information provided in this communication. This communication must not be reproduced or further distributed without our prior written permission.
    • BE Bloom Energy stock, watch for a range breakout, target 34 area at https://stockconsultant.com/?BE
    • APLD Applied Digital stock. nice rally, watch for a top of range breakout at https://stockconsultant.com/?APLD
    • UAL United Airlines stock, watch for a narrow range breakout, target 122 area at https://stockconsultant.com/?UAL
    • WBD Warner Bros Discovery stock, watch for a range breakout at https://stockconsultant.com/?WBD
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.