# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TP Candle Formula
Name=TP_Candle_Formula
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Candle
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=4
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
Multiplot_color_1=255
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_breakstyle_1=0
Multiplot_color_2=255
Multiplot_style_2=Line
Multiplot_width_2=1
Multiplot_enabled_2=1
Multiplot_breakstyle_2=0
Multiplot_color_3=255
Multiplot_style_3=Line
Multiplot_width_3=1
Multiplot_enabled_3=1
Multiplot_breakstyle_3=0
UpdateByTick=1
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=1
Param_name_0=Formula
Param_inuse_0=1
Param_type_0=formula
Param_default_0=TPBidAskTradeVoln (data1, 16, "All Tick", "No Break")|tptickn (data1, 16, "UD", "All Tick", "No Break")
Explanation_Lines=0
# NEOTICKER DATA END

' TP Candle Formula
' Written by Lawrence Chan
' Copyright © 2009 by TickQuest Inc.
' All rights reserved

' construct the TP compatible series here
makeindicator (myseries, fml, data1, param1);

' determine if we are working on a new bar to match the data series
$newbar := firstcall <> 0 or $lastbn <> barsnum (0);
$lastbn := barsnum (0);

' construct current OHLC values
$last := myseries (0);
$op := if ($newbar, $last, $op);
$hi := if ($newbar, $op, maxList ($last, $hi));
$lo := if ($newbar, $op, minList ($last, $lo));

' save results
plot1 := $op;
plot2 := $hi;
plot3 := $lo;
plot4 := $last;