# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Swing Lines
Name=tasc_swingline
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=2
Multiplot_color_0=33587200
Multiplot_style_0=Line
Multiplot_width_0=2
Multiplot_enabled_0=1
Multiplot_name_0=hL
Multiplot_breakstyle_0=1
Multiplot_color_1=50266367
Multiplot_style_1=Line
Multiplot_width_1=2
Multiplot_enabled_1=1
Multiplot_name_1=lH
Multiplot_breakstyle_1=1
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=0
Explanation_Lines=1
Explanation0=Plot a line at high/low of bars to indicator swing direction.
# NEOTICKER DATA END

$hH := if(firstcall > 0, H, $hH);
$lL := if(firstcall > 0, L, $lL);
$lH := if(firstcall > 0, H, $lH);
$hL := if(firstcall > 0, L, $hL);
$upsw := if(firstcall > 0, 0, $upsw);

$upsw := choose(($upsw = 1) and (H < $hL), 0,
                ($upsw = 0) and (L > $lH), 1, $upsw);

$hH := if(($upsw = 1) and (H > $hH), H, $hH);
$hL := if(($upsw = 1) and (L > $hL), L, $hL);
$lL := if(($upsw = 1) and (H < $hL), L, $lL);
$lH := if(($upsw = 1) and (H < $hL), H, $lH);

$lL := if(($upsw = 0) and (L < $lL), L, $lL);
$lH := if(($upsw = 0) and (H < $lH), H, $lH);
$hH := if(($upsw = 0) and (L > $lH), H, $hH);
$hL := if(($upsw = 0) and (L > $lH), L, $hL);

plot1 := $hL;
plot2 := $lH;
success1 := $upsw = 1;
success2 := $upsw = 0;