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

    • ...hallucinates.... Student: “What if we gave the monkey LSD?” Guru: “The monkey already did LSD”
    • Question: To those that had/have cancer, what were the signs that made you think “something is not right here” to make you go see a doctor? Answer: So, 5/25/2018, I woke up, got ready for work, and as I walked to my car, I started gagging. Like something was stuck in my throat and I needed to clear it. And then it went away.   But 10 minutes after that, I was T-boned at 40mph on the driver side door. But what made me see a doctor was while my muscles felt better and bruises were going away, the gagging still continued, I started having fevers, my neck felt swollen, I was having such a hard time breathing, and I'd have random sharp pains in my chest, but not from where the seat belt saved me.   2 weeks after the accident, I finally see an urgent care doctor, who looks me over, tells me I'm fine, but luckily requests a neck X-ray. And I ask for a chest X-ray, which he rolls his eyes but let me have (most of my pain was in the neck, so I understand).   The very next day, he calls and says “So, that chest X-ray shows there's a 4 inch mass on your heart and lungs, and your lungs have been filling up with fluid, as well as in your pericardial (heart) wall. We need you to come in tomorrow.”   Turns out the big mass, due to the accident, caused my heart and lungs to tear and fill with fluid, the swollen neck and gagging was caused by 2 metastasized tumors, and the fevers and weight loss were symptoms. Stage 4b Hodgkin's Lymphoma.   But thankfully, we went very aggressive with chemo (and had a lot of bad side effects that don't normally happen to patients), and now I'm about 16 months cancer-free. Yay lucky X-rays! Rachel Jurina, Quora Source: https://www.quora.com/To-those-that-had-have-cancer-what-were-the-signs-that-made-you-think-something-is-not-right-here-to-make-you-go-see-a-doctor   Profits from free accurate cryptos signals: https://www.predictmag.com/  
    • As a man, the reality of life is the harshest part. I don’t mind looking older or becoming weaker over time; it’s nature.   Have you ever heard that the only people who will be loved unconditionally are women and children? Men will only be loved as long as they can provide until they are no longer needed. It doesn’t matter if you already did your best to get your kids to the best school or get the best things for them, if you stop before they’re done with it, there will be no thank you. The only thing they will remember is that they have to quit school at 15, ignoring all the previous 15 years of life you provided for them. The only people who will accept you, no matter what, are your parents. But in this situation, you might be that ungrateful child.   EDIT: Wow, I didn’t think this would get so much attention.   For those who disagree, I can only say that everyone has their problem. If you don’t get the chance to face such a thing, be grateful. Remember, sometimes what you throw in the garbage is something that someone wishes ever to have.” – ElZee, Quora   Profits from free accurate cryptos signals: https://www.predictmag.com/    
    • The good thing i had noticed so far is that the traderpot value is also on the rise..
    • yup its a gradual rollout the right way in my opinion, its really good and its exciting for the sto in 2027
×
×
  • Create New...

Important Information

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