xtrace	"Waved Sphere"
{
	view	15, 0,1,0, 0,0,0, 0,0,48;
	ambi	1, 0.000,0.000,0.000, 0.000,0.00,0;

	loc		0,20,40, 1, 1.000,1.000,1.000;

	var		y_max=512;
	ginit	64,y_max,32;
	var		c, y=0, yy;
	while	(y<y_max)
	{
		hsv;
		yy=y/y_max;
		col2pix	0,0,(0.5^(yy*4))*(cos (PI*13*yy) + 1)/2, c;
		line	0,y_max - y - 1,63,y_max - y - 1, c;
		y=y + 1;
	}
	bmap	mwave, 0,0,fwid - 1,fhei - 1, 1,fhei;

	ifacc	"mapping.jpg"
	{
		load	"mapping.jpg";
	}
	else
	{
		ginit	64,64,32;
		box		0,0,63,63, cwhite,solid;
		box		0,0,31,31, cblue,solid;
		box		32,32,64,64, cblue,solid;
	}
	cmap	caround, 0,0,fwid - 1,fhei - 1, fwid,fhei;

	attr	aaround=
	{
		diff	1,0;
		map		caround;
		msph	0,0,0, 0,0,1, 0,1,0, 10,5;
	};
	sphere	0,0,0, -50;

	model
	{
		leverz	1,1,2;
		attr	Red=
		{
			color	1,0,0;
			diff	0.70,0;
			refl	0.30,2,0.5;
		};
		bump	bwave=
		{
			nmap	mwave,0.2;
			mdsk	0,0,0, 0,0,-1, 0,1,0, 1,8;
			mreg	-5,5, 0,0.99, 0,0;
		};
		sphere	0,0,0, 10;
	}
}