_SECTION_BEGIN("Simple Volume bkWhite");
GfxSetBkMode(0);

_SECTION_BEGIN ("Volume");
BarsColor = ParamList ("ChartColor", "Price|Mono|Volume|Bull_Bear");
HistWidth = Param("Histogram Width", -40, -60, 0, 10);

BullCond  = V>Ref(V,-1) AND C>Ref(C,-1) OR V<Ref(V,-1) AND C<Ref(C,-1);
BearCond  = V>Ref(V,-1) AND C<Ref(C,-1) OR V<Ref(V,-1) AND C>Ref(C,-1);
BuBeColor = IIf(BullCond, colorGreen, IIf(BearCond, colorRed, colorBlue));

if (BarsColor == "Mono")	    
	{ BarColors=colorBlue; Txt = "Colored Mono"; } 
else 
if (BarsColor == "Price")		
	{ BarColors=IIf(C==O, colorBlue, IIf(C>O, colorGreen, colorRed)); Txt="Colored by Price"; }
else 
if (BarsColor == "Volume")		
	{ BarColors=IIf(V==Ref(V,-1), colorBlue, IIf(V>Ref(V, -1), colorGreen, colorRed));  Txt="Colored by Volume"; }
else 
if (BarsColor == "Bull_Bear")	
	{ BarColors=BuBeColor; Txt = "Colored by Bull_Bear";}

SetBarFillColor(BarColors);
Plot(V,"Volume ("+ Txt+ ")", BarColors, styleHistogram, Null, Null, 0, 1, HistWidth);
VL    = LastValue(Volume);
VLCol = LastValue(BarColors);

VAv = (round( MA(V,Param("Average Period", 40, 5, 400, 5)) )/10)*10;
Shft = Param("x-Shift", 6, 0, 60, 1);
Plot(VAv, "Average Volume", colorBlue, styleLine, Null, Null, -Shft, 0, 2);
PlotOHLC(0,VAv,0,VAv, "",  colorTurquoise, styleCloud|styleNoLabel, Null, Null, -Shft, 0, 1);
_SECTION_END();