inputs:
length ( 3 ),
piv1c ( white ),
piv2c ( blue ),
piv3c ( lightgray ),
piv4c ( green ),
piv5c ( magenta ),
pivstyle ( 3 ),
textscale ( 6 );
vars:
piv0 ( 0 ),
piv1 ( 0 ),
piv2 ( 0 ),
piv3 ( 0 ),
piv4 ( 0 ),
piv5 ( 0 ),
volph ( 0 ),
piv1id ( 0 ),
piv2id ( 0 ),
piv3id ( 0 ),
piv4id ( 0 ),
piv5id ( 0 ),
piv1tid ( 0 ),
piv2tid ( 0 ),
piv3tid ( 0 ),
piv4tid ( 0 ),
piv5tid ( 0 );
if date <> date[1] then begin
volph = 0;
piv5 = piv4;
piv4 = piv3;
piv3 = piv2;
piv2 = piv1;
piv1 = piv0;
end;
if date = date[1] then begin
TL_Delete(piv1id);
TL_Delete(piv2id);
TL_Delete(piv3id);
TL_Delete(piv4id);
TL_Delete(piv5id);
end;
piv1id = TL_New(date, sessionstarttime(0, 1), piv1, date, sessionendtime(0, 1), piv1);
piv2id = TL_New(date, sessionstarttime(0, 1), piv2, date, sessionendtime(0, 1), piv2);
piv3id = TL_New(date, sessionstarttime(0, 1), piv3, date, sessionendtime(0, 1), piv3);
piv4id = TL_New(date, sessionstarttime(0, 1), piv4, date, sessionendtime(0, 1), piv4);
piv5id = TL_New(date, sessionstarttime(0, 1), piv5, date, sessionendtime(0, 1), piv5);
TL_SetColor(piv1id,piv1c);
TL_SetColor(piv2id,piv2c);
TL_SetColor(piv3id,piv3c);
TL_SetColor(piv4id,piv4c);
TL_SetColor(piv5id,piv5c);
TL_SetStyle(piv1id,pivstyle);
TL_SetStyle(piv2id,pivstyle);
TL_SetStyle(piv3id,pivstyle);
TL_SetStyle(piv4id,pivstyle);
TL_SetStyle(piv5id,pivstyle);
Text_Delete(piv1tid);
Text_Delete(piv2tid);
Text_Delete(piv3tid);
Text_Delete(piv4tid);
Text_Delete(piv5tid);
piv1tid = Text_New(date, Minlist(Time + 30, SessionEndTime(0, 1) + 100), piv1 - (textscale * MinMove/PriceScale), "[ v-d1 ]");
piv2tid = Text_New(date, Minlist(Time + 30, SessionEndTime(0, 1) + 100), piv2 - (textscale * MinMove/PriceScale), "[ v-d2 ]");
piv3tid = Text_New(date, Minlist(Time + 30, SessionEndTime(0, 1) + 100), piv3 - (textscale * MinMove/PriceScale), "[ v-d3 ]");
piv4tid = Text_New(date, Minlist(Time + 30, SessionEndTime(0, 1) + 100), piv4 - (textscale * MinMove/PriceScale), "[ v-d4 ]");
piv5tid = Text_New(date, Minlist(Time + 30, SessionEndTime(0, 1) + 100), piv5 - (textscale * MinMove/PriceScale), "[ v-d5 ]");
// highest volume bar
if Average(Volume, length) > volph then begin
volph = Average(Volume, length);
piv0 = XAverage(Close, length);
//PlotPaintBar(High,Low,Open,Close,"",Yellow);
end;
|
