Re: .siggy yaph

That'd look much nicer with spaces between the letters - it took me a moment to see it.

Comment on Re: .siggy yaph

Replies are listed 'Best First'.
Re: Re: .siggy yaph by denthijs (Acolyte) on Apr 04, 2003 at 22:21 UTC
hmmm, maybe a couple of escapes can help with that.... `#!/usr/bin/perl @c=(0,28,48,54,60,62,76,126);*p=sub{printf@_};map{map{$t++%8\|\| p("\e[1B\e[8D");$t%32\|\|p("\e[0;%sH",int($t/4));p($_==1?"#":" " );}split//,sprintf"%.8b",$c[$_]}(0,0,0,0,3,1,6,7,1,3,5,3,1,3,4 ,2,3,3,5,3);p("\e[6;0H");` [download] more readable, no? ( term >= vt100 required ;-)	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: .siggy yaph
by denthijs (Acolyte) on Apr 04, 2003 at 22:21 UTC

#!/usr/bin/perl
@c=(0,28,48,54,60,62,76,126);*p=sub{printf@_};map{map{$t++%8||
p("\e[1B\e[8D");$t%32||p("\e[0;%sH",int($t/4));p($_==1?"#":" "
);}split//,sprintf"%.8b",$c[$_]}(0,0,0,0,3,1,6,7,1,3,5,3,1,3,4
,2,3,3,5,3);p("\e[6;0H");
[download]

( term >= vt100 required ;-)

[reply]
[d/l]