JS Bach (IMHO, the first true 'music hacker'), placed his 'sig' in many of his pieces of music - in German notation, 'H' is 'B' and 'B' is a B-flat, so Bb A C B = B A C H. Here's my attempt at a tribute...
@n=
map{[($_
>4&&$_<14
&&$_%2?'-':
' ')x 56]}(
0..16 );
l($_ ,5
,8) for
(32 ,55
,56 );p
(5 ,2,
13 ,'X')
; d(1,5,
"XXX");d(
16,3,"XXX"
);n(20,9);
n(27,10);n
(37,8);n(45
,9);for $k
(6,10){l(14 ,
$k,2);for(0 ,
1){c($k+$_ ,
13-$_,"/") ;c
($k+1,13 +(
2*$_),"_" )}}c(int
(2*cos ($_*0.39)+11),
int(4* sin($_*0.39)+4),
"X")for (-5..8);l(17,8,1);c(
9,18, ')');c( $_ ,9-$_,"X")
for (2..9); sub p{c($_,
$_[0] ,$_[3]) for ($_[1]
.. $_[1] + $_[2])
;} sub d{ $x=
$_[1] ; c( $_[0]
,$x++ ,$_ )for
split(//,$_[2]);} sub l
{p(@_,"|");} sub n
{($x
,$y)=
@_;l
($x,
$y+1
,3);
d($y, $x,
"(_)");c ($y
-1,$x-2,"_" );
}sub c{$n[ $_[0]
][$_[1]]= $_[2]
;}print join ("\n",
map{join("",@$_)}
@n),"\n";
Cheers, Ben.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.