with(plots):

plotVal:=proc() local p,t:
p:=plot([16*(sin(t))^3,13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t),t=0..2*Pi]):
t:=textplot([-10,1,"I love Quantum Computing",'font'=["𝚝𝚒𝚖𝚎𝚜","𝚛𝚘𝚖𝚊𝚗",21]],'align'={'above','right'}):
display({p,t}):
end: