ContourPlot[y^5-4*x*y*(y^2-x^2)+2*x^5==0,{x,-0.8,1},{y,-1,2},PlotPoints->{100,100},PlotStyle->{Thickness[0.01],RGBColor[1,0,0]}]