Write language name in 3D ASCII: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
mNo edit summary |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 134:
_/ _/ _/ _/ _/ _/
</pre>
=={{header|BASIC}}==
Line 452 ⟶ 442:
[[File:Basic.jpg]]
=={{header|Batch File}}==
<lang batch>@echo off
echo ****** ** **
echo /*////** /** /**
echo /* /** ****** ****** ***** /**
echo /****** //////** ///**/ **///**/******
echo /*//// ** ******* /** /** // /**///**
echo /* /** **////** /** /** **/** /**
echo /******* //******** //** //***** /** /**
echo /////// //////// // ///// // // </lang>
=={{header|Befunge}}==
Line 527 ⟶ 528:
</pre>
=={{header|Brainf***}}==
Line 572:
</pre>
=={{header|C sharp|C#}}==
<lang csharp>using System;
Line 773 ⟶ 686:
_/
_/</pre>
=={{header|C++}}==
<lang cpp>
#include <windows.h>
#include <iostream>
//--------------------------------------------------------------------------------------------------
using namespace std;
//--------------------------------------------------------------------------------------------------
int main(int argc, char* argv[])
{
cout <<
" ______ ______ " << endl <<
" _____ _____|\\ \\ _____|\\ \\ " << endl <<
" _____\\ \\_ / / | | / / | |" << endl <<
" / /| || |/ /|| |/ /|" << endl <<
" / / /____/|| |\\____/ || |\\____/ |" << endl <<
"| | |____|/ |\\ \\ | / |\\ \\ | / " << endl <<
"| | _____ | \\ \\___|/ | \\ \\___|/ " << endl <<
"|\\ \\|\\ \\ | \\ \\ | \\ \\ " << endl <<
"| \\_____\\| | \\ \\_____\\ \\ \\_____\\ " << endl <<
"| | /____/| \\ | | \\ | | " << endl <<
" \\|_____| || \\|_____| \\|_____| " << endl <<
" |____|/ ";
cout << endl << endl << endl;
system( "pause" );
return 0;
}
//--------------------------------------------------------------------------------------------------
</lang>
{{out}}
<pre>
______ ______
_____ _____|\ \ _____|\ \
_____\ \_ / / | | / / | |
/ /| || |/ /|| |/ /|
/ / /____/|| |\____/ || |\____/ |
| | |____|/ |\ \ | / |\ \ | /
| | _____ | \ \___|/ | \ \___|/
|\ \|\ \ | \ \ | \ \
| \_____\| | \ \_____\ \ \_____\
| | /____/| \ | | \ | |
\|_____| || \|_____| \|_____|
|____|/
</pre>
Another solution:
<lang cpp>
// @author Martin Ettl (http://www.martinettl.de)
// @date 2013-07-26
// A program to print the letters 'CPP' in 3D ASCII-art.
#include <iostream>
#include <string>
int main()
{
std::string strAscii3D =
" /$$$$$$ /$$$$$$$ /$$$$$$$ \n"
" /$$__ $$| $$__ $$| $$__ $$\n"
"| $$ \\__/| $$ \\ $$| $$ \\ $$\n"
"| $$ | $$$$$$$/| $$$$$$$/\n"
"| $$ | $$____/ | $$____/ \n"
"| $$ $$| $$ | $$ \n"
"| $$$$$$/| $$ | $$ \n"
" \\______/ |__/ |__/ \n";
std::cout << "\n" << strAscii3D << std::endl;
return 0;
}
</lang>
{{out}}
<pre>
/$$$$$$ /$$$$$$$ /$$$$$$$
/$$__ $$| $$__ $$| $$__ $$
| $$ \__/| $$ \ $$| $$ \ $$
| $$ | $$$$$$$/| $$$$$$$/
| $$ | $$____/ | $$____/
| $$ $$| $$ | $$
| $$$$$$/| $$ | $$
\______/ |__/ |__/
</pre>
=={{header|Clojure}}==
Line 794:
\/___/
</pre>
=={{header|COBOL}}==
Line 1,827 ⟶ 1,826:
_/_/ _/_/ _/ _/ _/ _/ _/_/
</pre>
=={{header|Kotlin}}==
Line 2,316 ⟶ 2,314:
</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
Line 2,334 ⟶ 2,333:
_| \___|_| _|</pre>
Font taken from http://www.network-science.de/ascii/.
=={{header|Phix}}==
Line 2,686 ⟶ 2,637:
... ... ........ ...... ... ... ...... .....
</pre>
=={{header|Raku}}==
(formerly 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>
<lang perl6># 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;</lang>
{{out}}
<small><pre>
";,' :-+ . ,. ; -:+"',';-. : " + ";,' :-+ . ,. ; -:+"',';-. : " +
:@@@@@ ,'+".-; ;-+,@@"' :. ;. " :'@@@@@ ,'+".-; ;-+,,@@' :. ;. "
"@-. @ ';,+:- +: ,;@'". +@@@, "- " @. .@';,+:- +: ,;:@". +;@@@ "-
'@,- ;@ "+: .+ -',:" @; . @@; -" , ':@- ;'@"+: .+ -',:" .@ . +@@ -" ,
;@ +, @"-@@@' :@.@@ @-,:.@@+ ;'": ; @+, .@-'@@@ : @;@@ @,:.+@@ ;'":
@@@@@+-@':.@, @@" @;@ +":@@@@@', ;@@@@@--@:. @ .@@ :@ @+": @@@@@,
@;-+, .@@@@@ :@"'+' @"-,:@@; @@. +@-+, .,@@@@@::@'+' @-,: @@ "@@
:@ . "- @,;+'; @" .-'@ +:,@@ ;@@'+ :-@. "- ,@;+'; "@ .-' @+:, @@;:@@+
+@'"., ; @@@ -:@;' "@@-+.:@@@@, +:@"., ; "@@@-:;@' ".@@+.: @@@@
;.:+"-,' +:'; -," .+:" ;-.,' . ;.:+"-,' +:'; -," .+:" ;-.,' .
</pre></small>
=={{header|Raven}}==
| |||