Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
m (→block characters: uppercased an acronym, added whitespace to a link.) |
m (→simpler, shorter: added whitespace.) |
||
Line 2,333: | Line 2,333: | ||
<br>the output doesn't have extraneous leading blanks, |
<br>the output doesn't have extraneous leading blanks, |
||
<br>the output doesn't have trailing blanks, |
<br>the output doesn't have trailing blanks, |
||
<br>the input text can be any consistent character except the forward slash (<big>'''/'''</big>) or backward slash (<big>'''\'''</big>). |
<br>the input text can be any consistent non-blank character except the forward slash (<big>'''/'''</big>) or backward slash (<big>'''\'''</big>). |
||
<lang rexx>/*REXX pgm draws a "3D" image of text representation |
<lang rexx>/*REXX pgm draws a "3D" image of text representation; any character except / and \ */ |
||
#=7; @.1 = '@@@@ ' |
#=7; @.1 = '@@@@ ' |
||
@.2 = '@ @ ' |
@.2 = '@ @ ' |
||
@.3 = '@ @ @@@@ @ @ @ @ ' |
@.3 = '@ @ @@@@ @ @ @ @ ' |
||
@.4 = '@@@@ @ @ @ @ @ ' |
@.4 = '@@@@ @ @ @ @ @ ' |
||
@.5 = '@ @ @@@ @ @ ' |
@.5 = '@ @ @@@ @ @ ' |
||
@.6 = '@ @ @ @ @ @ @ ' |
@.6 = '@ @ @ @ @ @ @ ' |
||
@.7 = '@ @ @@@@ @ @ @ @ ' |
@.7 = '@ @ @@@@ @ @ @ @ ' |
||
do j=1 for #; x=left(strip(@.j),1) /* [↓] display the (above) text lines.*/ |
do j=1 for #; x=left(strip(@.j),1) /* [↓] display the (above) text lines.*/ |
||
$.1 = changestr( " " , @.j, ' ' ) |
$.1 = changestr( " " , @.j, ' ' ) ; $.2 = $.1 |
||
$.1 = changestr( x , $.1, '///' )" " |
$.1 = changestr( x , $.1, '///' )" " |
||
$.2 = changestr( x , $.2, '\\\' )" " |
$.2 = changestr( x , $.2, '\\\' )" " |
||
$.1 = changestr( "/ ", $.1, '/\' ) |
$.1 = changestr( "/ ", $.1, '/\' ) |
||
$.2 = changestr( "\ ", $.2, '\/' ) |
$.2 = changestr( "\ ", $.2, '\/' ) |
||
do k=1 for 2; say strip(left('',#-j)$.k, |
do k=1 for 2; say strip(left('',#-j)$.k,"T") /*the LEFT BIF does indentation.*/ |
||
end /*k*/ /* [↓] display a line and its shadow.*/ |
end /*k*/ /* [↓] display a line and its shadow.*/ |
||
end /*j*/ /*stick a fork in it, we're all done. */</lang> |
end /*j*/ /*stick a fork in it, we're all done. */</lang> |
||
'''output''' when using the default input: |
'''output''' when using the default input: |
||
<pre> |
<pre> |