PROCEDURE Delayvelop (Monochrome) - Aronnax9000/WatchmakerSuite GitHub Wiki

procedure Delayvelop(var Biomorph: Person; Here: Point);
var
  margcentre, offset: integer;
  OffCentre: Point;
begin
  develop(Biomorph, Here, true);
  with margin do
    margcentre := top + (bottom - top) div 2;
  offset := margcentre - Here.v;
  with Margin do
  begin
    Top := Top - Offset;
    Bottom := Bottom - Offset;
  end;
  with OffCentre do
  begin
    h := Here.h;
    v := Here.v - offset;
  end;
  DrawPic(MyPic, offcentre, Biomorph);
end; {Delayvelop}