File:Blowup.png

width = 1024;
height = 1024;

scale_x = 0.2;
//scale_y = 2;
rot_y = -0.4;
rot_x = 0.05;

second = scale;
third = rotate;

//clip = 3;

// affine plane has coordinates z,y
surface = x*z-y;
//surface = x;
draw_surface;

curve_width = 1;
curve_red = 100;
curve_blue = 100;
curve_green = 100;

double pi = 2*arcsin(1);
int steps = 12;
int stepsdrawn = 9;
int i = -stepsdrawn;
double angle = 0;
loop:
	alpha = i*pi/(2*steps);
	//plane = cos(alpha)*y + sin(alpha)*z;
	plane = x - tan(alpha);
	cut_with_plane;
	i = i + 1;
	if (i < stepsdrawn) goto loop;

// E
curve_red = 200;
curve_blue = 30;
curve_green = 30;
plane = z-0;
cut_with_plane;