clear_screen;

height=900;
width=900;
set_size;
optimize_colors=no;


double sf=0.34;

scale_x=sf;
scale_y=sf;


curve_width=0.8;

curve_red  =255;
curve_green=0;
curve_blue =0;

poly f=(x-y-1.5)*(x^2/4+4*y^2-1)+0.01;
poly g=(x+y-1.5)*(4*x^2+y^2/4-1)-0.01;

curve=f;



draw_curve;

curve=g;
curve_red=0;
curve_green=0;
curve_blue=255;



draw_curve;

double a=-1.05;

loop:
curve=a*f+(1-a)*g;
curve_red  =0;
curve_green=255;
curve_blue =100;



draw_curve;
a=a+0.47;
if ( a < 2.5) goto loop;