# Matthew Esaia, 2/16/2025, Valentine
with(plots):
valentine:=proc() local heart,text:
	heart_3d(u,v) := [16*(sin(u))^3, 13*cos(u) - 5*cos(2*u) - 2*cos(3*u) - cos(4*u), 
                   (13 - 5*cos(2*u) - 2*cos(3*u) - cos(4*u))*sin(v)];
				   
	heart := plot3d(heart_3d(u,v), u= 0..2*Pi, v = 0..Pi, color=red, orientation=[270, 20], style=patchnogrid);
	text := textplot3d([0,-4,15,"I love Quantum Computing"], font=[TIMES, BOLD, 20], color = red);
	
	display({heart, text}, axes=none);
end: