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

// a new view on one of the two endrass octics

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

illumination = ambient_light + diffuse_light + reflected_light + transmitted_light;
ambient      = 20;
diffuse      = 80;
reflected    = 80;
transmitted  = 20;
smoothness   = 50;
transparence = 0;
thickness = 10;

poly w = 1;
int i = 1;
background_red=255;background_green=255;background_blue=255;

surface_red=0;surface_green=205;surface_blue=0;
inside_red=0;inside_green=225;inside_blue=0; 

double Pi=2*arccos(0);
epsilon=0.000000000001;
polyxyz E0=cos(0*Pi/4)*x+sin(0*Pi/4)*y-1;
polyxyz E1=cos(1*Pi/4)*x+sin(1*Pi/4)*y-1;
polyxyz E2=cos(2*Pi/4)*x+sin(2*Pi/4)*y-1;
polyxyz E3=cos(3*Pi/4)*x+sin(3*Pi/4)*y-1;
polyxyz E4=cos(4*Pi/4)*x+sin(4*Pi/4)*y-1;
polyxyz E5=cos(5*Pi/4)*x+sin(5*Pi/4)*y-1;
polyxyz E6=cos(6*Pi/4)*x+sin(6*Pi/4)*y-1;
polyxyz E7=cos(7*Pi/4)*x+sin(7*Pi/4)*y-1;
polyxyz P=E0*E1*E2*E3*E4*E5*E6*E7;
double a=-(1.0)/(4.0)*(1.0-sqrt(2.0));
double b=1.0-(1.0)/sqrt(2.0);double c=0.0;
double d=(1.0)/(8.0)*(2.0-7.0*sqrt(2.0));
double e=-1.0;
double f_=0.0;
double g_=0.5+sqrt(2.0);
double h=0.0;
double i_=-(1.0)/(16.0)*(1.0-12.0*sqrt(2.0));
polyxyz Q=(a*(x^2+y^2)^2+(x^2+y^2)*(b*z^2+c*z+d)+e*z^4+f_*z^3+g_*z^2+h*z+i_)^2; 
clip=cylinder; 
radius=3.2;
spec_z=16;
perspective=central; 
surface=P-Q;

rot_x=1.57075; rot_y=0.448536388888889; rot_z=0.453772222222222;
scale_x=0.5; scale_y=0.495; scale_z=0.5;
origin_x=0.0; origin_y=0.0; origin_z=0.0;

draw_surface;

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