perl -le 'map{$y=$_/12;print map{("@"," ")[-38>$_||$_>-36&&($_**2/800+
+$y**2-1)**3>$_**2*$y**3/1600&&0.2*($_-48)**2-15>15*$y||15*$y>($_-48)*
+*2-12]}-40..60}reverse-15..15'

[download]

Replies are listed 'Best First'.
Re: For this Valentine's day...
by trizen (Hermit) on Feb 04, 2012 at 21:58 UTC
    Nice one!
    Here is a modified version with a better heart :)
    perl -E 'map{$y=$_/12;say map{("@",$")[-38>$_||$_>-36&&($_**2/1024+$y**2-.8)**3>$_**2*$y**3/1024&&.2*($_-48)**2-15>15*$y||13*$y>($_-48)**2-8]}-60..60}reverse-13..15'
[reply]
[d/l]
      Thanks :)
[reply]

Back to Obfuscated Code