551 

   551 

   552 procedure GenDrawnMap;

   552 procedure GenDrawnMap;

   553 begin

   553 begin

   554     uLandPainted.Draw;

   554     uLandPainted.Draw;

   555 

   555 

   557     hasGirders:= true;

   557     hasGirders:= true;

   558     playHeight:= 2048;

   558     playHeight:= 2048;

   559     playWidth:= 4096;

   559     playWidth:= 4096;

   560     leftX:= ((LAND_WIDTH - playWidth) div 2);

   560     leftX:= ((LAND_WIDTH - playWidth) div 2);

   561     rightX:= (playWidth + ((LAND_WIDTH - playWidth) div 2)) - 1;

   561     rightX:= (playWidth + ((LAND_WIDTH - playWidth) div 2)) - 1;