tk1:=l>refx(h,1) or barpos=0;
tk2:=h<refx(l,1) or barpos=0;
s2:=sysparam(2);s3:=sysparam(3);
ll:=l; ml:=LL[s3];hh:=h;mh:=hh[s3];
for i=s3 downto s2 do begin
if tk1[i]=1 and ll[i]>mh then break;
if hh[i]>mh then mh:=hh[i];
else begin
if tk2[i]=1 and hh[i]<ml then break;
if ll[i]<ml then ml:=ll[i];
end;
end;
sp:=-1 linethick;
if i>0 then sp:=s3-i;
DRAWLINE(barpos=s3-sp and tk1=1,l,barpos=s3,ref(l,sp),0) pxdn1;
DRAWLINE(barpos=s3-sp and tk2=1,h,barpos=s3,ref(h,sp),0) pxdn1; |
