// the final version of the SuSE 7.2 professional edition title surface

// an enriques surface

int fac=300; width=fac; height=fac;
antialiasing = 6;

background_red=0; background_green=0; background_blue=0;
surface_red=255; surface_green=255; surface_blue=255;
inside_red=255; inside_green=255; inside_blue=255;
light1_x=100;light1_y=100;light1_z=100;light1_vol=80;
light2_x=-50;light2_y=100;light2_z=50;light2_vol=70;
light3_x=0;light3_y=0;light3_z=100;light3_vol=40;

background_red=255;background_green=255;background_blue=255;surface_red=20;surface_green=125;surface_blue=20;inside_red=20;inside_green=165;inside_blue=20;

double w2 = sqrt(2);
poly p=1-z-w2*x;
poly q=1-z+w2*x;
poly r=1+z+w2*y;
poly s=1+z-w2*y;
double c=2;
double R=8;
spec_z = 25.0;

perspective=central;
radius=9.0;

poly S=(3-R)*(p^2+q^2+r^2+s^2)-2*(1+R)*(p*q+p*r+p*s+q*r+q*s+r*s);
poly myf=S*p*q*r*s;
poly myg=p^2*q^2*r^2+p^2*q^2*s^2+p^2*r^2*s^2+q^2*r^2*s^2;

surface=myf+c*myg;

rot_x=-1.022047916666667; rot_y=-1.5866000000000002; rot_z=-4.619323958333332;

scale_x=0.5; scale_y=0.5; scale_z=0.5;

origin_x=0.0; origin_y=0.0; origin_z=0.0;
draw_surface;

//filename="pro_72.ras";
//color_file_format=sun;
filename="pro_72.jpg";
color_file_format=jpg;
save_color_image;