Write language name in 3D ASCII: Difference between revisions

Content added Content deleted
mNo edit summary
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
Line 134: Line 134:
_/ _/ _/ _/ _/ _/
_/ _/ _/ _/ _/ _/
</pre>
</pre>
=={{header|Batch File}}==
<lang batch>@echo off
echo ****** ** **
echo /*////** /** /**
echo /* /** ****** ****** ***** /**
echo /****** //////** ///**/ **///**/******
echo /*//// ** ******* /** /** // /**///**
echo /* /** **////** /** /** **/** /**
echo /******* //******** //** //***** /** /**
echo /////// //////// // ///// // // </lang>


=={{header|BASIC}}==
=={{header|BASIC}}==
Line 452: Line 442:


[[File:Basic.jpg]]
[[File:Basic.jpg]]

=={{header|Batch File}}==
<lang batch>@echo off
echo ****** ** **
echo /*////** /** /**
echo /* /** ****** ****** ***** /**
echo /****** //////** ///**/ **///**/******
echo /*//// ** ******* /** /** // /**///**
echo /* /** **////** /** /** **/** /**
echo /******* //******** //** //***** /** /**
echo /////// //////// // ///// // // </lang>


=={{header|Befunge}}==
=={{header|Befunge}}==
Line 527: Line 528:


</pre>
</pre>



=={{header|Brainf***}}==
=={{header|Brainf***}}==
Line 572: Line 572:
</pre>
</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|C sharp|C#}}==
=={{header|C sharp|C#}}==
<lang csharp>using System;
<lang csharp>using System;
Line 773: Line 686:
_/
_/
_/</pre>
_/</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}}==
=={{header|Clojure}}==
Line 794: Line 794:
\/___/
\/___/
</pre>
</pre>



=={{header|COBOL}}==
=={{header|COBOL}}==
Line 1,827: Line 1,826:
_/_/ _/_/ _/ _/ _/ _/ _/_/
_/_/ _/_/ _/ _/ _/ _/ _/_/
</pre>
</pre>



=={{header|Kotlin}}==
=={{header|Kotlin}}==
Line 2,316: Line 2,314:


</pre>
</pre>

=={{header|Perl}}==
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
<lang perl>#!/usr/bin/perl
Line 2,334: Line 2,333:
_| \___|_| _|</pre>
_| \___|_| _|</pre>
Font taken from http://www.network-science.de/ascii/.
Font taken from http://www.network-science.de/ascii/.

=={{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>
<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|Phix}}==
=={{header|Phix}}==
Line 2,686: Line 2,637:
... ... ........ ...... ... ... ...... .....
... ... ........ ...... ... ... ...... .....
</pre>
</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}}==
=={{header|Raven}}==