Happy Valentine's Day!

data one;
do t = 1 to 3*constant("pi") by 0.05;
x = 16*sin(t)**3;
y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t);
output;
end;
run;

data two;
set one;
if _n_ = 70 then label = "Valentine's Day";
run;

ods graphics on / width=6in height= 5in;
proc sgplot data = two;
series x = x y = y /lineattrs=(color=red thickness=5)
datalabel = label datalabelattrs=(color=red
family="garamond" style=italic size=45 weight= bold);
run;