> with(plots):with(plottools):

> c:=implicitplot3d({x^4-y^3=0, x^5-z^3=0, y^5-z^4=0},x=-1..1,y=-1..1,z = -1..1, numpoints = 10000,axes = boxed, lightmodel = light4, style = patchnogrid,orientation = [-95, 122]):
d:=spacecurve([t^3, t^4, t^5,t=-1..1], color = black, thickness=2):

> display3d([c,d], insequence = false);

>