Re: Last Bar Close Visual Aid

[Mark Brown <qpwoeirutyalskdjfhgmznxbcv_markbrown_omegalist@xxxxxxxxxxxxx>]

var:txtr(0),       r(" low today - - - - - - - - - - - - - - - - - -");
var:txt(0),   last(" last today - - - - - - - - - - - - - - - - - -");
var:txts(0),     s(" high today - - - - - - - - - - - - - - - - - -");
var:txtm(0),mid(" mid today - - - - - - - - - - - - - - - - -");
var:txto(0),go(" open today - - - - - - - - - - - - - - - - -");
var:txtj(0),tj(" - - - - - - - - - - - - - - - - - - - - - - -");



value9=c ;
value8=idhigh;
value7=idlow;
value10=(idhigh+idlow)/2;
value11=OpTODAY;

if currentbar=1 then begin txtr= text_new
(d,1,0,"--"+r+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj);
text_setcolor(txtr,5);
text_setstyle(txtr,0,2);end;

if currentbar=1 then begin txtm= text_new
(d,1,0,"--"+mid+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj);
text_setcolor(txtm,6);
text_setstyle(txtm,0,2);end;


if currentbar=1 then begin txt= text_new
(d,1,0,"--"+last+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj);
text_setcolor(txt,8);
text_setstyle(txt,0,2);end;

if currentbar=1 then begin txts= text_new
(d,1,0,"--"+s+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj);
text_setcolor(txts,4);
text_setstyle(txts,0,2);end;


if currentbar=1 then begin txto= text_new
(d,1,0,"--"+go+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj+tj);
text_setcolor(txto,7);
text_setstyle(txto,0,2);end;

{1=black,2=blue,3=cyan,4=green,5=magenta,6=red,7=yellow,8=white}

if c >= 0 then begin text_setlocation(txtr,d,1,value7);end;
if c >= 0 then begin text_setlocation(txt,d,1,value9);end;
if c >= 0 then begin text_setlocation(txts,d,1,value8);end;
if c >= 0 then begin text_setlocation(txtm,d,1,value10);end;
if c >= 0 then begin text_setlocation(txto,d,1,value11);end;



if d>d[1] then
PLOT1(OpTODAY,"OO");