#AJ Bu, February 10 2022, Assignment Valentine


with(plots): 
Valentine:=proc() local H,T1:
H:=implicitplot3d((x^2 + 9/4*y^2 + z^2 - 1)^3 - x^2*z^3 - 9/40*y^2*z^3, x = -1.2 .. 1.2, y = -1 .. 1, 
z = -1.1 .. 1.3, numpoints = 100000, color = red, shading = zhue, glossiness = 1, style = surface, 
axes = none, title = "", orientation = [110, 90, 40]):
T1:=textplot3d([.5,1.9,.25, "I Love Pi"]):
display({H,T1}):
end: