<s>[INST] Is this Batman equation for real? HardOCP has an image with an equation which apparently draws the Batman logo.  Is this for real?

Batman Equation in text form:
\begin{align}
&\left(\left(\frac x7\right)^2\sqrt{\frac{||x|-3|}{|x|-3}}+\left(\frac y3\right)^2\sqrt{\frac{\left|y+\frac{3\sqrt{33}}7\right|}{y+\frac{3\sqrt{33}}7}}-1 \right) \\ 
&\qquad \qquad \left(\left|\frac x2\right|-\left(\frac{3\sqrt{33}-7}{112}\right)x^2-3+\sqrt{1-(||x|-2|-1)^2}-y \right) \\
&\qquad \qquad \left(3\sqrt{\frac{|(|x|-1)(|x|-.75)|}{(1-|x|)(|x|-.75)}}-8|x|-y\right)\left(3|x|+.75\sqrt{\frac{|(|x|-.75)(|x|-.5)|}{(.75-|x|)(|x|-.5)}}-y \right) \\ 
&\qquad \qquad \left(2.25\sqrt{\frac{(x-.5)(x+.5)}{(.5-x)(.5+x)}}-y \right) \\
&\qquad \qquad \left(\frac{6\sqrt{10}}7+(1.5-.5|x|)\sqrt{\frac{||x|-1|}{|x|-1}} -\frac{6\sqrt{10}}{14}\sqrt{4-(|x|-1)^2}-y\right)=0
\end{align}
 [/INST] Since people (not from this site, but still...) keep bugging me, and I am unable to edit my previous answer, here's Mathematica code for plotting this monster:
Plot[{With[{w = 3 Sqrt[1 - (x/7)^2], 
            l = 6/7 Sqrt[10] + (3 + x)/2 - 3/7 Sqrt[10] Sqrt[4 - (x + 1)^2], 
            h = (3 (Abs[x - 1/2] + Abs[x + 1/2] + 6) -
                 11 (Abs[x - 3/4] + Abs[x + 3/4]))/2, 
            r = 6/7 Sqrt[10] + (3 - x)/2 - 3/7 Sqrt[10] Sqrt[4 - (x - 1)^2]}, 
           w + (l - w) UnitStep[x + 3] + (h - l) UnitStep[x + 1] +
           (r - h) UnitStep[x - 1] + (w - r) UnitStep[x - 3]],
      1/2 (3 Sqrt[1 - (x/7)^2] + Sqrt[1 - (Abs[Abs[x] - 2] - 1)^2] + Abs[x/2] -
      ((3 Sqrt[33] - 7)/112) x^2 - 3) (Sign[x + 4] - Sign[x - 4]) - 3*Sqrt[1 - (x/7)^2]},
     {x, -7, 7}, AspectRatio -> Automatic,  Axes -> None, Frame -> True,
     PlotStyle -> Black]


This should work even for versions that do not have the Piecewise[] construct. Enjoy. :P
</s>