Anonymous user
Perlin noise: Difference between revisions
→{{header|OCaml}}
Line 55:
lerp(w, lerp(v, lerp(u, (grad((List.nth p aa), xi, yi, zi)),
(grad((List.nth p ba), xi -. 1., yi , zi))),
(grad((List.nth p bb), xi -. 1., yi -. 1., zi)))),
lerp(v, lerp(u, (grad((List.nth p (aa + 1)), xi, yi, zi -. 1.)),
(grad((List.nth p (ba + 1)), xi -. 1., yi , zi -. 1.))),
| |||