{ Simple indicator to ID new extreme values, while leaving
an indication of prior Highs & Lows. Existing TS indicator,
Day Open Hi Lo Lines erases prior highs & lows, showing only
most recent extreme.

The above implemented by drawing H_Lines across all new extremes.
This is working, but when small, barely visible new extremes
occur, it is often difficult to see which candle caused the
new extreme. Thus a PB indicator will also be added to color the
TICK bar that causes the new extreme value.
}

vars:
DayHi ( 0 ) ,
DayLow ( 0 ) ;

if date <> date[1] then
begin
DayHi = high ;
DayLow = Low ;
end ;

if High > DayHi then
begin
DayHi = High ;
end ;

if Low < DayLow then
begin
DayLow = Low ;
end ;

Plot1( DayHi, "Tick Hi" ) ;
Plot2( DayLow, "Tick Lo" ) ;
Plot3( 0, "Z-Line" ) ;

(Above this is the code for the indicator do not copy below this.)
--------------------------------------------------------------------------
(Below this is the code for the paintbar do not copy above this.)

{ PaintBar for tick extremes }

vars:
BarColor ( White ),
DayHi ( 0 ) ,
DayLow ( 0 ) ;

if date <> date[1] then
begin
DayHi = high ;
DayLow = Low ;
end ;

BarColor = White ;

if High > DayHi then
begin
DayHi = High ;
BarColor = Red ;
end ;

if Low < DayLow then
begin
DayLow = Low ;
BarColor = Green ;
end ;

PlotPaintBar( High, Low, “Xtreme”, BarColor ) ;