Write language name in 3D ASCII: Difference between revisions

=={{header|Perl 6}}==

Produces a good old-fashioned stereogram, meant to be looked at by focusing beyond the screen, not by crossing your eyes. If you can't get it to converge, try shrinking the font size till the images are closer together than your eyes. Also helps to be old enough to have progressive lenses, so you can look through the reading part of your glasses. Or borrow glasses from someone who's farsighted. <tt>:-)</tt>

END

 

say '' for ^5;

for $text.lines -> $_ is copy {

s:g [' '] = @chars.shift;

print " $_ ";