Perlin noise: Difference between revisions
m
→{{header|Raku}}: did not need 'export'
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: did not need 'export') |
|||
Line 1,794:
}
sub noise($x is copy, $y is copy, $z is copy)
my ($X, $Y, $Z) = ($x, $y, $z)».floor »+&» 255;
my ($u, $v, $w) = map &fade, $x -= $X, $y -= $Y, $z -= $Z;
|