shiftD(inout Knot:KNOT, gx,gy:INT)




Public


Readonly Shareds
ofsX,ofsY:INT;
ofsX,ofsY:INT;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
ofsY:=-gy-Knot[knotPtr].y;
ofsX:=gx-Knot[knotPtr].x;
ofsX:=gx-Knot[knotPtr].x;

Writable Shareds
ofsX,ofsY:INT;
ofsX,ofsY:INT;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
if (minX+ofsX)<0 then ofsX:=-minX; end;
ofsY:=-gy-Knot[knotPtr].y;
ofsX:=gx-Knot[knotPtr].x;
ofsX:=gx-Knot[knotPtr].x;

Features
if (maxY+ofsY)>0 then ofsY:=-maxY; end;

The Sather Home Page