Draw a sphere: Difference between revisions

if (my $x2 = $x * $x) + (my $y2 = $y * $y) < $r2 {

my @vector = normalize([$x, $y, ($r2 - $x2 - $y2).sqrt]);

my $intensity = dot(@light, @vector) ** $k + $ambient;

my $pixel = (0 max ($intensity * $depth).Int) min $depth;

@row[$y+$rad] = $pixel;

}

else {

@row[$y+$rad] = 0;

}

}