Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: add another version) |
No edit summary |
||
Line 1,623: | Line 1,623: | ||
---------------------------------------------------------------- |
---------------------------------------------------------------- |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
|||
No hardcoding at all! |
|||
<lang Mathematica>locs = Position[ |
|||
ImageData[Binarize[Rasterize["Mathematica", ImageSize -> 150]]], 0]; |
|||
Print[StringRiffle[ |
|||
StringJoin /@ |
|||
ReplacePart[ |
|||
ReplacePart[ |
|||
ConstantArray[ |
|||
" ", {Max[locs[[All, 1]]] + 1, Max[locs[[All, 2]]] + 1}], |
|||
locs -> "\\"], Map[# + 1 &, locs, {2}] -> "#"], "\n"]];</lang> |
|||
{{output}} |
|||
<pre> |
|||
\\\ \\ |
|||
\### \## |
|||
\\\\ \\\\ \ ### \ ## |
|||
#### \\#### \# \## \# |
|||
\## \#### \\\\\\ \\\#\\\\\ \##\\\\ \\\\\\ \\\\\\ \\\\ \\\\\\\ \\\#\\\\ \\\\ \\\\\ \ \\\\\\ |
|||
\\### \\#\## \\###### ######### \##\#### \\###### ######\#### \\####### ######## #### \\#####\# \\###### |
|||
\##\# \##\## ## \# \# \#### ## \\## ## \### ### ## ## \# \# \# \\## ### ## \# |
|||
\##\##\# \## \## \# \## \# \## \## \## \# \# \## \# \# \## \## \## |
|||
\## ##\# \## \\\\\\## \# \## \# \## ## \## \# \# \\\\\\\## \# \# \## ## \\\\\\## |
|||
\## \#\# \## \\####### \# \## \# \#\\\\\\\\# \## \# \# \\######## \# \# \\# \\####### |
|||
\## \### \## \\## \## \# \## \# \########## \## \# \# \\## \## \# \# ## \\## \## |
|||
\# ## \## \## \## \# \## \# \# \## \# \# \## \## \# \# \# \ \## \## |
|||
\# \## ## \\\## \# \\ \## \# #\ \\\ \## \# \# ## \\\## \# \\ \# ## \\\# ## \\\## |
|||
\\#\\ \\\##\ #\\\####\ ##\\\\## \\## \\\#\ ##\\\\\###\\## \# \#\ #\\\\####\ ##\\\## \\\\\\#\\\ ##\\\### #\\\####\ |
|||
##### ###### #### #### ###### #### ##### ####### #### ## ### ##### #### ##### ########## ##### #### ####</pre> |
|||
=={{header|NetRexx}}== |
=={{header|NetRexx}}== |