60 

    60 

    61     A:= p[xx    ] + yy; AA:= p[A] + zz; AB:= p[A + 1] + zz;

    61     A:= p[xx    ] + yy; AA:= p[A] + zz; AB:= p[A + 1] + zz;

    62     B:= p[xx + 1] + yy; BA:= p[B] + zz; BB:= p[B + 1] + zz;

    62     B:= p[xx + 1] + yy; BA:= p[B] + zz; BB:= p[B + 1] + zz;

    63 

    63 

    64     inoise:=

    64     inoise:=

    66                                      grad(p[BA  ], x-N , y   , z   )),

    66                                      grad(p[BA  ], x-N , y   , z   )),

    67                              lerp(u, grad(p[AB  ], x   , y-N , z   ),

    67                              lerp(u, grad(p[AB  ], x   , y-N , z   ),

    68                                      grad(p[BB  ], x-N , y-N , z   ))),

    68                                      grad(p[BB  ], x-N , y-N , z   ))),

    69                      lerp(v, lerp(u, grad(p[AA+1], x   , y   , z-N ),

    69                      lerp(v, lerp(u, grad(p[AA+1], x   , y   , z-N ),

    70                                      grad(p[BA+1], x-N , y   , z-N )),

    70                                      grad(p[BA+1], x-N , y   , z-N )),

   125 

   125 

   126             if r < 0 then Land[y, x]:= 0 else Land[y, x]:= lfBasic;

   126             if r < 0 then Land[y, x]:= 0 else Land[y, x]:= lfBasic;

   127 

   127 

   128         end;

   128         end;

   129     end;

   129     end;

   130 end;

   135 end;

   131 

   136 

   132 end.

   137 end.