Julia set: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,546: / Line 2,546: @@
 sub julia ( $png ) {
-    ^$w .map: -> $x {
+    ^$w .race.map: -> $x {
         for ^$h -> $y {
             my $z = Complex.new(($x - $w / 2) / $w * 3, ($y - $h / 2) / $h * 2);
@@ Line 2,557: / Line 2,557: @@
     }
 }
 sub hsv2rgb ( $h, $s, $v ){
-    state %cache;
+    my $c = $v * $s;
+    my $x = $c * (1 - abs( (($h*6) % 2) - 1 ) );
-    %cache{"$h|$s|$v"} //= do {
-        my $c = $v * $s;
+    my $m = $v - $c;
+    [(do given $h {
-        my $x = $c * (1 - abs( (($h*6) % 2) - 1 ) );
-        my $m = $v - $c;
+        when   0..^1/6 { $c, $x, 0 }
-        [(do given $h {
+        when 1/6..^1/3 { $x, $c, 0 }
-            when   0..^1/6 { $c, $x, 0 }
+        when 1/3..^1/2 { 0, $c, $x }
-            when 1/6..^1/3 { $x, $c, 0 }
+        when 1/2..^2/3 { 0, $x, $c }
-            when 1/3..^1/2 { 0, $c, $x }
+        when 2/3..^5/6 { $x, 0, $c }
-            when 1/2..^2/3 { 0, $x, $c }
+        when 5/6..1    { $c, 0, $x }
+    } ).map: ((*+$m) * 255).Int]
-            when 2/3..^5/6 { $x, 0, $c }
-            when 5/6..1    { $c, 0, $x }
-        } ).map: ((*+$m) * 255).Int]
-    }
 }</lang>