equal
deleted
inserted
replaced
280 if (LandBackSurface <> nil) and GrayScale then Surface2GrayScale(LandBackSurface); |
280 if (LandBackSurface <> nil) and GrayScale then Surface2GrayScale(LandBackSurface); |
281 end; |
281 end; |
282 |
282 |
283 |
283 |
284 procedure GenDrawnMap; |
284 procedure GenDrawnMap; |
285 var lowerX, upperX, lowerY, upperY, lowerFS, upperFS, value: LongInt; |
285 var lowerX, upperX, lowerY, upperY, lowerFS, upperFS: LongInt; |
286 begin |
286 begin |
287 if (cFeatureSize <= 6) then |
287 if (cFeatureSize <= 6) then |
288 MaxHedgehogs:= 6 + (cFeatureSize-1) * 2 |
288 MaxHedgehogs:= 6 + (cFeatureSize-1) * 2 |
289 else if (cFeatureSize < 11) then |
289 else if (cFeatureSize < 11) then |
290 MaxHedgehogs:= 16 + (cFeatureSize-6) * 4 |
290 MaxHedgehogs:= 16 + (cFeatureSize-6) * 4 |