Death Star: Difference between revisions
m
→{{header|Perl 6}}: GLR updates, minor tweaks, added works with
m (→{{header|Sidef}}: code fix) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: GLR updates, minor tweaks, added works with) |
||
Line 765:
=={{header|Perl 6}}==
{{trans|C}}Reimplemented to output a .pgm image.
{{works with|Rakudo|2015.09}}
[[File:Deathstar-perl6.png|thumb]]
<lang perl6>class sphere {
Line 801 ⟶ 802:
$out.say("P5\n$x $y\n$depth"); # .pgm header
say 'Calculating row:';
$out.
$out.close;
}
Line 809 ⟶ 810:
my $bs = "\b" x 8;
for ($pos.cy - $pos.r) .. ($pos.cy + $pos.r) -> $y {
for ($pos.cx - $pos.r) .. ($pos.cx + $pos.r) -> $x {
# black if we don't hit positive sphere, ignore negative sphere
Line 837 ⟶ 838:
# normalize a vector
sub normalize (@vec) { return @vec »/» ([+] @vec
# dot product of two vectors
sub dot (@x, @y) { return -([+] @x
# are the coordinates within the radius of the sphere?
| |||