(***********************************************************) (* *) (* TURBO GRAPHIX version 1.05A *) (* *) (* World coordinate system finder module *) (* Module version 1.00A *) (* *) (* Copyright (C) 1985 by *) (* BORLAND International *) (* *) (***********************************************************) procedure FindWorld(i:integer; A:PlotArray; NPoints:integer; ScaleX,ScaleY:real); var XMax,YMax,XMin,YMin:real; j:integer; begin NPoints:=abs(NPoints); if NPoints>=2 then if i in [1..MaxWorldsGlb] then begin XMax:=A[1,1]; YMax:=A[1,2]; XMin:=XMax; YMin:=YMax; for j:=2 to NPoints do begin if A[j,1]>XMax then XMax:=A[j,1] else if A[j,1]YMax then YMax:=A[j,2] else if A[j,2]