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