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

// a cubic surface with one B6 and one C2 double point
// Gerd Fischer #26,#27

int fac=300; width=fac; height=fac;

antialiasing = 6;

illumination = ambient_light
+ diffuse_light
+ reflected_light
+ transmitted_light;
ambient      = 65;
diffuse      = 20;
reflected    = 95;
transmitted  = 20;
smoothness   = 25;
transparence = 0;
thickness    = 10;
radius = 9;

surface_red = 160;
surface_green = 0;
surface_blue = 255;
inside_red = 0;
inside_green = 0;
inside_blue = 255;
background_red = 255;
background_green = 255;
background_blue = 255;
 
light2_x = -0.1;
    light2_y = 2;
    light2_z = 2;
    light2_vol = 80;
    light2_red   = 200;
    light2_green = 255;
    light2_blue  = 255;
 
light3_x = 6.5;
    light3_y = -15;
    light3_z = 1;
    light3_vol = 80;
    light3_red   = 255;
    light3_green = 0;
    light3_blue  = 0;
 
 light4_x = 20;
    light4_y = 20;
    light4_z = 0;
    light4_vol = 80;
    light4_red   = 200;
    light4_green = 255;
    light4_blue  = 255;
 
 light5_x = -4;
    light5_y = -8;
    light5_z = -2;
    light5_vol = 40;
    light5_red   = 200;
    light5_green = 255;
    light5_blue  = 255;
 
// the original w:
//poly w=1.2*(1-x-y-z);
poly w=1.2*(1-x-y-z);

radius=8;
perspective=1;
spec_z=15;
scale_x=0.20;
scale_y=0.2;
scale_z=0.35;

surface = w*x*z-y^2*z-x^3;
surface=rotate(surface,-3.8,xAxis);
surface=rotate(surface,0.8,yAxis);
surface=rotate(surface,1.5,zAxis);
draw_surface;

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