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;
|