Perlin noise: Difference between revisions
Content added Content deleted
m (→{{header|Raku}}: minor simplification) |
(→{{header|Raku}}: shorten slightly) |
||
Line 1,916: | Line 1,916: | ||
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 ($AA, $AB) = @p[$_] + $Z, @p[$_ + 1] + $Z given @p[$X] + $Y; |
my ($AA, $AB) = @p[$_] + $Z, @p[$_ + 1] + $Z given @p[$X] + $Y; |
||
my ($BA, $BB) = @p[$_] + $Z, @p[$_ + 1] + $Z given @p[$X + 1] + $Y; |
my ($BA, $BB) = @p[$_] + $Z, @p[$_ + 1] + $Z given @p[$X + 1] + $Y; |
||
Line 1,930: | Line 1,930: | ||
} |
} |
||
say noise 3.14, 42, 7; |
say noise 3.14, 42, 7;</syntaxhighlight> |
||
</syntaxhighlight> |
|||
{{out}} |
{{out}} |
||
<pre>0.13691995878</pre> |
<pre>0.13691995878</pre> |