// The Boy-Surface
//
// Author of this file: Oliver Labs
// Feb. 2003
// www.OliverLabs.net
//
// For the SuSE Title Pages Homepage:
// www.OliverLabs.net/suse/
//

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

double sf=0.16; scale_x=sf; scale_y=sf; scale_z=sf;

clip_front=100;
clip=none;

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

background_red=255; background_green=255; background_blue=255;

surface_red=0; surface_green=77; surface_blue=255;
inside_red=0; inside_green=77; inside_blue=255;

//surface_red=100; surface_green=100; surface_blue=255;
//inside_red=64; inside_green=96; inside_blue=192;

double s = sqrt(2);
double t = 1.0;
surface=-24*z^6 + 48*z^5 - 32*z^4 + 64*z^3/9 - 16*y^2*z^2 - 16*z^2*x^2
- 81*y^6*t^2 - 81*x^6*t^2 - (144*t^2 + 36)*y^2*z^2*x^2 + (72*s*t^2 -
72*s)*y^2*z^2*x + (24*s - 24*s*t^2)*z^2*x^3 - (18 + 72*t^2)*y^4*z^2 +
(24 - 24*t^2)*y^2*z^3 + (24 - 24*t^2)*z^3*x^2 - (18 + 72*t^2)*z^2*x^4
+ (54*s*t^3 - 54*s*t)*z*y^5 - (36*s*t + 12*s*t^3)*z^3*y^3 + (108*s*t -
108*s*t^3)*x^2*z*y^3 + (108*s*t + 36*s*t^3)*x^2*z^3*y + (162*s*t -
162*s*t^3)*x^4*z*y + 72*s*y^2*z^3*x + 48*s*y^3*z^2*t -
144*s*y*z^2*x^2*t - 324*s*y^4*z*x*t^2 - 216*s*y^2*z*x^3*t^2 + 36*y^4*z*t^2 - 243*y^2*x^4*t^2 + 36*z^4*x^2*t^2 - 243*y^4*x^2*t^2 + 36*z*x^4*t^2 - 24*s*z^3*x^3 + 36*y^2*z^4*t^2 + 108*s*z*x^5*t^2 + 72*y^2*z*x^2*t^2;
draw_surface;

filename="per_82.jpg";
color_file_format=jpg;
save_color_image;