/*
**  GAUSS program for generating homepage plot
*/

library pgraph;
#include pgraph.ext;
graphset;

_pltype = 6;
_paxes = 0;
_pdate = "";

t = seqap(-pi,pi,5000);
x = ((cos(2*t) + sin(1*t))^2).*sin(4*t);
y = ((sin(2*t) + cos(1*t))^2).*cos(4*t);

xy(x,y);