Task

Write/display a language's name in 3D ASCII.



(We can leave the definition of "3D ASCII" fuzzy,
so long as the result is interesting or amusing,
not a cheap hack to satisfy the task.)



Related tasks

 draw a sphere
 draw a cuboid
 draw a rotating cube
 draw a Deathstar


# must be evenly padded with white-space$
my $text = q:to/END/;
 
 @@@@@              @@           
 @    @              @     @@@   
 @    @              @    @@     
 @    @  @@@   @ @@  @    @@     
 @@@@@  @   @  @@  @ @    @@@@@  
 @      @@@@@  @     @    @@  @@ 
 @      @      @     @    @@  @@ 
 @       @@@   @     @@    @@@@  
 
END
 
say '' for ^5;
for $text.lines -> $_ is copy {
    my @chars = |｢-+ ., ;: '"｣.comb.pick(*) xx *;
    s:g [' '] = @chars.shift;
    print "                              $_  ";
    s:g [('@'+)(.)] = @chars.shift ~ $0;
    .say;
}
say '' for ^5;