\documentclass[pstricks]{standalone}
\usepackage{pst-contourplot}
\begin{document}
\begin{pspicture}(-6,-6)(6,6)
% Courbe du diable
% page 52 : Revue du Palais de la Découverte
% Courbes mathématiques
% Numéro spécial 8 . Juillet 1976
% et Serge Mehl
% http://serge.mehl.free.fr/anx/Diable.html
\psframe*[linecolor=cyan](-6,-6)(6,6)
\psContourPlot[a=0.1,linecolor=red,Fill,fillcolor=yellow,ReverseColors,
               function=x 4 exp y 4 exp sub 24 y 2 exp mul add 25 x 2 exp mul sub](-6,-6)(6,6)
\end{pspicture}
\end{document} 