formulaName="VPA+Foreign";
SetChartOptions(0,chartShowArrows|chartShowDates);
GfxSetBkMode(1);
GfxSelectFont("Verdana",14,500,italic=False);
GfxSetTextColor(ColorRGB(255,255,153));
GfxTextOut(FormulaName,4,20);
GraphXSpace=10;
Bkg=ParamToggle("BKG","LightBlue|System",0);
if (Bkg == 0) { SetChartBkGradientFill(ColorRGB(102,153,204),ColorRGB(0,51,102),ColorRGB(102,153,204));}
else {}


_SECTION_BEGIN("Price+Volume Chart");
SetBarFillColor(IIf(C>O,colorBrightGreen,IIf(C<=O,colorRed,colorGrey40)));
// Plot Price
ChartStyle = ParamList("Price Chart Style","Candle|Bar|Line|Heikin-Ashi");
if (ChartStyle =="Candle")    {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleCandle|styleLine); }
else if(ChartStyle == "Bar")  {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleBar|styleLine);    }
else if(ChartStyle == "Line") {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleThick|styleLine);  }
else if(ChartStyle == "Heikin-Ashi") 
{
HaClose= EMA((O+H+L+C)/4, 3); 
HaOpen = AMA(Ref(HaClose, -1), 0.5); 
HaHigh = Max(H, Max(HaClose, HaOpen)); 
HaLow  = Min(L, Min(HaClose, HaOpen)); 
PlotOHLC(HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), IIf(Close > Open, colorBrightGreen, colorRed), styleCandle|styleLine|styleNoLabel);
}
else {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleBar|styleLine);}

// Plot Volume
PlotVOL  = ParamToggle("Plot Volume","No|Yes",0);
VolColor = (C>O OR (C==O AND (H-C)<=(C-L)))*colorBrightGreen+(C<O OR (C==O AND (H-C)> (C-L)))*colorRed;
VolScale = Param("Scale Factor", 2,0.1,20,0.1);
if (PlotVOL == 1) { Vheight=VolScale;Plot(Prec(Volume,0),"V",VolColor,styleNoTitle|styleOwnScale|ParamStyle("VStyle",styleHistogram,maskHistogram),Vheight); }
_SECTION_END();


_SECTION_BEGIN("VPA Daily Chart");
segments = IIf(Interval() < inDaily,Day(),Month() );
segments = segments != Ref(Segments,-1);
ShowVPA  = ParamToggle("Plot VPA","No|Yes",1);
VPAColor = ParamColor("Select VPAColor",ColorRGB(102,153,204));
if (ShowVPA == 1) 
{
PlotVAPOverlayA(segments,Param("Select VPA Lines Density",100,50,200,10),Param("Select VPA Width",100,0,200,4),VPAColor,ParamToggle("Select VPA Side","Left|Right")|2*ParamToggle("Select VPA Style","Fill|Lines",1)|4*ParamToggle("Select VPA Z-order","On top|Behind",0));
Plot(Segments,"",ColorRGB(255,102,0),styleArea|styleOwnScale|styleNoLabel);	
} else {}
_SECTION_END();


_SECTION_BEGIN("Plot Foreign Ticker");
FT = ParamList ("Select Foreign Ticker","S&P 500-U13|S&P 500-U13");
ShowFT = ParamToggle("Plot Foreign Ticker","Yes|No",1);
O = Foreign(FT,"O");
H = Foreign(FT,"H");
L = Foreign(FT,"L");
C = Foreign(FT,"C");
if (ShowFT == 0)
{ 
PlotOHLC(O,H,L,C, "Foreign Ticker = " +FT,colorGold,styleOwnScale|styleLine); 
} else {}
_SECTION_END();