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

// a variant of the fresnel wave surface

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.2*(1-x-y-z);
int i = 1;
background_red=255; background_green=255; background_blue=255; 
inside_red=100; inside_green=100; inside_blue=255; 
surface_red=0; surface_green=0; surface_blue=255; 

double a=1.0; 
double b=0.3; 
double c=0.5; 

poly r2=x^2+y^2+z^2;
surface=(x^2 * (r2-b^2) * (r2-c^2)) - (y^2 * (r2-a^2) * (r2-c^2)) - (z^2 * (r2-a^2) * (r2-b^2)) + (r2-a^2)*(r2-b^2)*(r2-c^2);

surface=rotate(surface,-3.5,xAxis);
surface=rotate(surface,0.7,yAxis);
surface=rotate(surface,1.5,zAxis); 

transparence=10;
rot_x=0.0; rot_y=0.0; rot_z=0.0;
scale_x=0.12; scale_y=0.12; scale_z=0.12;
origin_x=0.0; origin_y=0.0; origin_z=0.0;

draw_surface;

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