// SuSE Version 8.1 personal edition
// by Oliver Labs
//
// title image
//
// Swallow-Tail
//
// A cubic surface admitting a non-isolated singularity.

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

background_red=255; background_green=255; background_blue=255;
surface_red=64; surface_green=80; surface_blue=255;
inside_red=192; inside_green=192; inside_blue=255;

poly w = 1;
int i = 1;
illumination = ambient_light + diffuse_light + reflected_light + transmitted_light;
ambient      = 70;
diffuse      = 80;
reflected    = 80;
transmitted  = 20;
smoothness   = 50;
transparence = 0;
thickness = 10;

perspective = parallel;

light1_x=-100.0;
light1_y=100.0;
light1_z=100.0;
light1_vol=50;

light2_x=-30.0;
light2_y=25.0;
light2_z=-10.0;
light2_vol=40;

light3_x=100.0;
light3_y=100.0;
light3_z=100.0;
light3_vol=50;


light4_x=0.0;
light4_y=-20.0;
light4_z=-50.0;
light4_vol=30;


light5_x=-2.0;
light5_y=10.0;
light5_z=-10.0;
light5_vol=10;

light6_vol=0;
light7_vol=0;

light8_x=0.0;
light8_y=-100.0;
light8_z=100.0;
light8_vol=40;

light9_vol=0;


surface=-(4 * z^3 * y^2 - 27 * y^4 + 16 * x * z^4 -128 * x^2 * z^2 - 144 * x * y^2 * z + 256 * x^3);
//surface=(-4*z^3*y^2-27*y^4+16*z^4*x-128*x^2*z^2+144*x*z*y^2+256*x^3);                             
poly f=surface;

clip=cube;
radius=0.75;

rot_x=-0.65;
rot_y=0.2244527777777778; 
rot_z=-1.57895833333333;
double sf = 0.055;
scale_x=2*sf; 
scale_y=sf; 
scale_z=sf;
origin_x=-0.3; 
origin_y=0.34125; 
origin_z=-0.45;
                 
     
draw_surface;

//filename="per_81.ras";
//color_file_format=sun;
filename = "per_81.jpg";
color_file_format = jpeg;
save_color_image;