library trmod;

uses
        Windows;

procedure TRMODMENUITEM(lang:Pinteger;item:PChar);Cdecl;
begin
  lstrcpy(item,'�~���쐬(&U)');
end;

procedure TRMODMODWORK(pmax,pmin,wpitch:PDouble;xmax,ymax:PInteger;
                       top:PSingle;topc:PByte;topn,irc:PInteger);Cdecl;
var
  i,j : integer;
  dx,dy,cr,midx,midy,pmaxx,pmaxy,pminx,pminy,pminz:double;

begin
  pmaxx:=pmax^;
  pminx:=pmin^;
  Inc(pmax);
  Inc(pmin);
  pmaxy:=pmax^;
  pminy:=pmin^;
  Inc(pmin);
  pminz:=pmin^;
  midx:=(pmaxx+pminx)/2.0;
  midy:=(pmaxy+pminy)/2.0;
  cr:=(pmaxx-pminx)/2.0;
  if cr > (pmaxy-pminy)/2.0 then cr:=(pmaxy-pminy)/2.0;
  for j:=0 to ymax^-1 do begin
    dy:=pminy+wpitch^*j-midy;
    for i:=0 to xmax^-1 do begin
      dx:=pminx+wpitch^*i-midx;
      if sqrt(dx*dx+dy*dy) > cr then top^:=pminz;
      Inc(top);
    end;
  end;
  irc^ := 1;
end;

exports
           TRMODMENUITEM,
           TRMODMODWORK;

begin
end.