nuclear@11: #include <float.h>
nuclear@0: #include "opengl.h"
nuclear@0: #include "board.h"
nuclear@1: #include "meshgen.h"
nuclear@6: #include "pnoise.h"
nuclear@0: 
nuclear@0: Board::Board()
nuclear@0: {
nuclear@2: 	puck_obj = 0;
nuclear@0: 	clear();
nuclear@0: }
nuclear@0: 
nuclear@0: Board::~Board()
nuclear@0: {
nuclear@0: 	destroy();
nuclear@0: }
nuclear@0: 
nuclear@0: bool Board::init()
nuclear@0: {
nuclear@4: 	if(!generate_textures()) {
nuclear@4: 		return false;
nuclear@4: 	}
nuclear@1: 	if(!generate()) {
nuclear@0: 		return false;
nuclear@0: 	}
nuclear@1: 
nuclear@0: 	return true;
nuclear@0: }
nuclear@0: 
nuclear@0: void Board::destroy()
nuclear@0: {
nuclear@2: 	for(size_t i=0; i<obj.size(); i++) {
nuclear@2: 		delete obj[i];
nuclear@1: 	}
nuclear@2: 	obj.clear();
nuclear@1: 
nuclear@2: 	delete puck_obj;
nuclear@2: 	puck_obj = 0;
nuclear@0: }
nuclear@0: 
nuclear@0: void Board::clear()
nuclear@0: {
nuclear@0: 	memset(slots, 0, sizeof slots);
nuclear@0: }
nuclear@0: 
nuclear@0: void Board::draw() const
nuclear@0: {
nuclear@2: 	for(size_t i=0; i<obj.size(); i++) {
nuclear@2: 		obj[i]->draw();
nuclear@1: 	}
nuclear@0: }
nuclear@0: 
nuclear@1: #define HSIZE	1.0
nuclear@1: #define VSIZE	(2.0 * HSIZE)
nuclear@1: #define BOT_THICKNESS	(HSIZE * 0.01)
nuclear@1: #define WALL_THICKNESS	(HSIZE * 0.05)
nuclear@1: #define WALL_HEIGHT		(HSIZE * 0.1)
nuclear@1: #define GAP				(HSIZE * 0.025)
nuclear@1: #define HINGE_RAD		(GAP * 0.5)
nuclear@1: #define HINGE_HEIGHT	(VSIZE * 0.075)
nuclear@11: #define PIECE_RAD		(0.45 * HSIZE / 5.0)
nuclear@11: 
nuclear@11: static const float piece_cp[][3][2] = {
nuclear@11: 	{{0, 0.25}, {1, 0.25}, {2, 0.5}},
nuclear@11: 	{{2, 0.5}, {2.5, 0.5}, {3, 0.5}},
nuclear@11: 	{{3, 0.5}, {4, 0.5}, {4, 0}},
nuclear@11: 	{{4, 0}, {4, -0.5}, {3, -0.5}},
nuclear@11: 	{{3, -0.5}, {2.5, -0.5}, {0, -0.5}},
nuclear@11: 	//{{2, -0.5}, {1, -0.25}, {0, -0.25}}
nuclear@11: };
nuclear@11: static const int piece_ncurves = sizeof piece_cp / sizeof *piece_cp;
nuclear@11: 
nuclear@11: static Vector2 piece_revol(float u, float v, void *cls)
nuclear@11: {
nuclear@11: 	if(v >= 1.0) v = 1.0 - 1e-6;
nuclear@11: 	int idx = std::min((int)(v * piece_ncurves), piece_ncurves - 1);
nuclear@11: 	float t = fmod(v * (float)piece_ncurves, 1.0);
nuclear@11: 
nuclear@11: 	Vector2 res;
nuclear@11: 	for(int i=0; i<2; i++) {
nuclear@11: 		float mid = piece_cp[idx][1][i];
nuclear@11: 		res[i] = bezier(piece_cp[idx][0][i], mid, mid, piece_cp[idx][2][i], t);
nuclear@11: 	}
nuclear@11: 	return res * 0.25 * PIECE_RAD;
nuclear@11: }
nuclear@1: 
nuclear@1: bool Board::generate()
nuclear@0: {
nuclear@4: 	Mesh tmp;
nuclear@1: 	Matrix4x4 xform;
nuclear@1: 
nuclear@2: 	obj.clear();
nuclear@2: 
nuclear@4: 	for(int i=0; i<2; i++) {
nuclear@4: 		int sign = i * 2 - 1;
nuclear@1: 
nuclear@4: 		// generate bottom
nuclear@4: 		Mesh *bottom = new Mesh;
nuclear@4: 		gen_box(bottom, HSIZE, BOT_THICKNESS, HSIZE * 2.0);
nuclear@4: 		xform.set_translation(Vector3(0, -BOT_THICKNESS / 2.0, 0));
nuclear@4: 		bottom->apply_xform(xform);
nuclear@2: 
nuclear@4: 		Object *obottom = new Object;
nuclear@4: 		obottom->set_mesh(bottom);
nuclear@4: 		obottom->xform().set_translation(Vector3(sign * (HSIZE / 2.0 + WALL_THICKNESS + HINGE_RAD * 0.25), 0, 0));
nuclear@4: 		obottom->set_texture(img_field.texture());
nuclear@4: 		obj.push_back(obottom);
nuclear@2: 
nuclear@1: 
nuclear@4: 		// generate the 4 sides
nuclear@4: 		Mesh *sides = new Mesh;
nuclear@4: 		gen_box(sides, WALL_THICKNESS, WALL_HEIGHT, VSIZE + WALL_THICKNESS * 2);
nuclear@4: 		xform.set_translation(Vector3(-(HSIZE + WALL_THICKNESS) / 2.0,
nuclear@4: 					WALL_HEIGHT / 2.0 - BOT_THICKNESS, 0));
nuclear@4: 		sides->apply_xform(xform);
nuclear@1: 
nuclear@4: 		gen_box(&tmp, WALL_THICKNESS, WALL_HEIGHT, VSIZE + WALL_THICKNESS * 2);
nuclear@4: 		xform.set_translation(Vector3((HSIZE + WALL_THICKNESS) / 2.0,
nuclear@4: 					WALL_HEIGHT / 2.0 - BOT_THICKNESS, 0));
nuclear@4: 		tmp.apply_xform(xform);
nuclear@4: 		sides->append(tmp);
nuclear@4: 		tmp.clear();
nuclear@1: 
nuclear@4: 		gen_box(&tmp, HSIZE, WALL_HEIGHT, WALL_THICKNESS);
nuclear@4: 		xform.set_translation(Vector3(0, WALL_HEIGHT / 2.0 - BOT_THICKNESS,
nuclear@4: 					(VSIZE + WALL_THICKNESS) / 2.0));
nuclear@4: 		tmp.apply_xform(xform);
nuclear@4: 		sides->append(tmp);
nuclear@4: 		tmp.clear();
nuclear@1: 
nuclear@4: 		gen_box(&tmp, HSIZE, WALL_HEIGHT, WALL_THICKNESS);
nuclear@4: 		xform.set_translation(Vector3(0, WALL_HEIGHT / 2.0 - BOT_THICKNESS,
nuclear@4: 					-(VSIZE + WALL_THICKNESS) / 2.0));
nuclear@4: 		tmp.apply_xform(xform);
nuclear@4: 		sides->append(tmp);
nuclear@4: 		tmp.clear();
nuclear@4: 
nuclear@6: 		// generate texture coordinates
nuclear@6: 		sides->texcoord_gen_box();
nuclear@6: 
nuclear@4: 		Object *osides = new Object;
nuclear@4: 		osides->set_mesh(sides);
nuclear@4: 		osides->xform() = obottom->xform();
nuclear@6: 		osides->set_texture(img_wood.texture());
nuclear@6: 		osides->tex_xform().set_scaling(Vector3(2, 2, 2));
nuclear@6: 		osides->tex_xform().rotate(-Vector3(1, 0, 0.5), M_PI / 4.0);
nuclear@4: 		obj.push_back(osides);
nuclear@4: 
nuclear@4: 	}
nuclear@2: 
nuclear@2: 
nuclear@1: 	// generate the hinges
nuclear@1: 	Mesh *hinges = new Mesh;
nuclear@7: 	for(int i=0; i<2; i++) {
nuclear@7: 		float sign = i * 2 - 1;
nuclear@1: 
nuclear@7: 		// barrel
nuclear@11: 		gen_cylinder(&tmp, HINGE_RAD, HINGE_HEIGHT, 8, 1, 1);
nuclear@7: 		xform.reset_identity();
nuclear@7: 		xform.translate(Vector3(0, WALL_HEIGHT - HINGE_RAD * 0.5, sign * VSIZE / 4.0));
nuclear@7: 		xform.rotate(Vector3(-M_PI / 2.0, 0, 0));
nuclear@7: 		tmp.apply_xform(xform);
nuclear@7: 		hinges->append(tmp);
nuclear@1: 
nuclear@7: 		// flange
nuclear@7: 		gen_plane(&tmp, HINGE_HEIGHT * 0.6, HINGE_HEIGHT * 0.8);
nuclear@7: 		tmp.apply_xform(xform);
nuclear@7: 
nuclear@7: 		Matrix4x4 tex_xform;
nuclear@7: 		tex_xform.set_rotation(Vector3(0, 0, M_PI / 2.0));
nuclear@7: 		tmp.texcoord_apply_xform(tex_xform);
nuclear@7: 		hinges->append(tmp);
nuclear@7: 
nuclear@7: 		// studs
nuclear@7: 		for(int j=0; j<4; j++) {
nuclear@7: 			Vector3 pos;
nuclear@7: 
nuclear@7: 			pos.x = (float)((j & 1) * 2 - 1) * HINGE_HEIGHT * 0.2;
nuclear@7: 			pos.y = (float)((j & 2) - 1) * HINGE_HEIGHT * 0.3;
nuclear@7: 
nuclear@7: 			Matrix4x4 stud_xform = xform;
nuclear@7: 			stud_xform.translate(pos);
nuclear@7: 
nuclear@7: 			Matrix4x4 squash;
nuclear@7: 			squash.set_scaling(Vector3(1, 1, 0.5));
nuclear@7: 
nuclear@7: 			gen_sphere(&tmp, HINGE_RAD * 0.5, 8, 4);
nuclear@7: 			tmp.apply_xform(stud_xform * squash);
nuclear@7: 			hinges->append(tmp);
nuclear@7: 		}
nuclear@7: 	}
nuclear@1: 
nuclear@2: 	Object *ohinges = new Object;
nuclear@2: 	ohinges->set_mesh(hinges);
nuclear@7: 	ohinges->set_texture(img_hinge.texture());
nuclear@2: 	obj.push_back(ohinges);
nuclear@1: 
nuclear@6: 	// debug object
nuclear@7: 	/*
nuclear@7: 	Mesh *dbgmesh = new Mesh;
nuclear@6: 	gen_box(dbgmesh, 0.5, 0.5, 0.5);
nuclear@6: 	xform.set_translation(Vector3(0, 0.4, 0));
nuclear@7: 	xform.set_scaling(Vector3(1, 1, 1));
nuclear@6: 	dbgmesh->apply_xform(xform);
nuclear@6: 	Object *dbgobj = new Object;
nuclear@6: 	dbgobj->set_mesh(dbgmesh);
nuclear@7: 	dbgobj->set_texture(img_hinge.texture());
nuclear@7: 	//dbgobj->tex_xform().set_scaling(Vector3(3, 3, 3));
nuclear@7: 	obj.push_back(dbgobj);
nuclear@7: 	*/
nuclear@2: 
nuclear@11: 	Mesh *piece = new Mesh;
nuclear@11: 	gen_revol(piece, 18, 15, piece_revol, 0);
nuclear@11: 
nuclear@11: 	Object *opiece = new Object;
nuclear@11: 	opiece->set_mesh(piece);
nuclear@11: 	opiece->xform().set_translation(Vector3(0, 0.2, 0));
nuclear@11: 	obj.push_back(opiece);
nuclear@11: 
nuclear@11: 
nuclear@8: 	// meshgen stats
nuclear@8: 	printf("Generated board:\n  %u meshes\n", (unsigned int)obj.size());
nuclear@8: 	unsigned int polycount = 0;
nuclear@8: 	for(size_t i=0; i<obj.size(); i++) {
nuclear@8: 		const Mesh *m = obj[i]->get_mesh();
nuclear@8: 		polycount += m->get_poly_count();
nuclear@8: 	}
nuclear@8: 	printf("  %u polygons\n", polycount);
nuclear@8: 
nuclear@1: 	return true;
nuclear@0: }
nuclear@4: 
nuclear@5: static float wood(float x, float y)
nuclear@5: {
nuclear@5: 	float u = x;
nuclear@5: 	float v = y;
nuclear@5: 	x += 1.0;
nuclear@5: 	x *= 10.0;
nuclear@5: 	y *= 20.0;
nuclear@5: 
nuclear@5: 	float len = sqrt(x * x + y * y) + turbulence2(u * 6.0, v * 12.0, 2) * 1.2 +
nuclear@5: 		turbulence2(u * 0.5, v, 2) * 15.0;
nuclear@5: 	float val = fmod(len, 1.0);
nuclear@5: 
nuclear@5: 	//val = val * 0.5 + 0.5;
nuclear@5: 	return val < 0.0 ? 0.0 : (val > 1.0 ? 1.0 : val);
nuclear@5: }
nuclear@5: 
nuclear@6: static float wood_tile(float x, float y)
nuclear@6: {
nuclear@6: 	float u = x;
nuclear@6: 	float v = y;
nuclear@6: 	x *= 10.0;
nuclear@6: 	y *= 10.0;
nuclear@6: 
nuclear@6: 	float val = x + pnoise2(u * 6.0, v, 6, 1) * 3.0 +
nuclear@6: 		pturbulence2(u * 4, v * 2, 4, 2, 2) * 1.5 + pturbulence2(u * 8, v * 8, 8, 8, 2) * 0.5;
nuclear@6: 
nuclear@6: 	val = fmod(val, 1.0);
nuclear@6: 	return val < 0.0 ? 0.0 : (val > 1.0 ? 1.0 : val);
nuclear@6: }
nuclear@6: 
nuclear@4: static bool spike(float x, float y)
nuclear@4: {
nuclear@4: 	x = fmod(x * 5.0, 1.0);
nuclear@4: 	return y < (x < 0.5 ? 2.0 * x : 2.0 - 2.0 * x);
nuclear@4: }
nuclear@4: 
nuclear@4: static bool circle(float x, float y, float rad)
nuclear@4: {
nuclear@4: 	x = fmod(x * 5.0, 1.0) - 0.5;
nuclear@4: 	y = (y - 0.65) * 5.0;
nuclear@4: 	float len = sqrt(x * x + y * y);
nuclear@4: 	return len < rad;
nuclear@4: }
nuclear@4: 
nuclear@4: static bool diamond(float x, float y)
nuclear@4: {
nuclear@4: 	return y >= (1.0 - (x < 0.5 ? 2.0 * x : 2.0 - 2.0 * x)) * 0.3333333 + 0.88;
nuclear@4: }
nuclear@4: 
nuclear@4: static bool center_circle(float x, float y, float rad)
nuclear@4: {
nuclear@4: 	x = x - 0.5;
nuclear@4: 	y = 1.0 - y;
nuclear@4: 	return sqrt(x * x + y * y) < rad;
nuclear@4: }
nuclear@4: 
nuclear@4: bool Board::generate_textures()
nuclear@4: {
nuclear@6: 	// ---- board field texture ----
nuclear@5: 	static const Vector3 wcol1 = Vector3(0.6, 0.4, 0.2);
nuclear@6: 	static const Vector3 wcol2 = Vector3(0.53, 0.32, 0.1);
nuclear@6: 	static const Vector3 wcol3 = Vector3(0.38, 0.25, 0.08);
nuclear@5: 
nuclear@8: 	img_field.create(1024, 1024);
nuclear@6: 	unsigned char *pptr = img_field.pixels;
nuclear@6: 	for(int i=0; i<img_field.height; i++) {
nuclear@6: 		float v = (float)i / (float)img_field.height;
nuclear@4: 
nuclear@6: 		for(int j=0; j<img_field.width; j++) {
nuclear@6: 			float u = (float)j / (float)img_field.width;
nuclear@4: 
nuclear@4: 			int r = 0, g = 0, b = 0;
nuclear@4: 
nuclear@5: 			float wood_val = wood(u, v);
nuclear@5: 
nuclear@5: 			// pattern mask
nuclear@4: 			float x = u;
nuclear@4: 			float y = v < 0.5 ? v * 2.0 : 2.0 - v * 2.0;
nuclear@4: 			bool inside = false;
nuclear@4: 
nuclear@4: 			inside |= (spike(x, y + 0.33333) && !spike(x, y + 0.4)) ||
nuclear@4: 				(spike(x, y + 0.5) && !spike(x, y + 0.68));
nuclear@4: 			inside |= (circle(x, y, 0.12) && !circle(x, y, 0.1)) || circle(x, y, 0.06);
nuclear@4: 			inside |= (diamond(x, y) && !diamond(x, y - 0.015)) ||
nuclear@4: 				(diamond(x, y - 0.023) && !diamond(x, y - 0.028));
nuclear@4: 			inside |= center_circle(x, y, 0.03);
nuclear@4: 
nuclear@5: 			Vector3 wood_color = lerp(wcol1, wcol2, wood_val) * 0.9;
nuclear@4: 			if(inside) {
nuclear@5: 				wood_color = lerp(wcol1, wcol2, 1.0 - wood_val) * 2.0;
nuclear@4: 			}
nuclear@4: 
nuclear@5: 			r = (int)(wood_color.x * 255.0);
nuclear@5: 			g = (int)(wood_color.y * 255.0);
nuclear@5: 			b = (int)(wood_color.z * 255.0);
nuclear@5: 
nuclear@5: 			pptr[0] = r > 255 ? 255 : r;
nuclear@5: 			pptr[1] = g > 255 ? 255 : g;
nuclear@5: 			pptr[2] = b > 255 ? 255 : b;
nuclear@4: 			pptr += 3;
nuclear@4: 		}
nuclear@4: 	}
nuclear@6: 	img_field.texture();
nuclear@4: 
nuclear@6: 	// ---- generic wood texture ----
nuclear@6: 	img_wood.create(256, 256);
nuclear@6: 	pptr = img_wood.pixels;
nuclear@6: 	for(int i=0; i<img_wood.height; i++) {
nuclear@6: 		float v = (float)i / (float)img_wood.height;
nuclear@6: 		for(int j=0; j<img_wood.width; j++) {
nuclear@6: 			float u = (float)j / (float)img_wood.width;
nuclear@6: 
nuclear@6: 			float wood_val = wood_tile(u, v);
nuclear@6: 			Vector3 wood_color = lerp(wcol2, wcol3, wood_val) * 0.7;
nuclear@6: 
nuclear@6: 			int r = (int)(wood_color.x * 255.0);
nuclear@6: 			int g = (int)(wood_color.y * 255.0);
nuclear@6: 			int b = (int)(wood_color.z * 255.0);
nuclear@6: 
nuclear@6: 			pptr[0] = r > 255 ? 255 : r;
nuclear@6: 			pptr[1] = g > 255 ? 255 : g;
nuclear@6: 			pptr[2] = b > 255 ? 255 : b;
nuclear@6: 			pptr += 3;
nuclear@6: 		}
nuclear@6: 	}
nuclear@6: 	img_wood.texture();
nuclear@7: 
nuclear@7: 	// ---- metal hinge diffuse texture ----
nuclear@7: 	Vector3 rusty_col1 = Vector3(0.43, 0.46, 0.52);
nuclear@7: 	Vector3 rusty_col2 = Vector3(0.52, 0.47, 0.43);
nuclear@7: 
nuclear@7: 	img_hinge.create(128, 128);
nuclear@7: 	pptr = img_hinge.pixels;
nuclear@7: 	for(int i=0; i<img_hinge.height; i++) {
nuclear@7: 		float v = (float)i / (float)img_hinge.height;
nuclear@7: 		for(int j=0; j<img_hinge.width; j++) {
nuclear@7: 			float u = (float)j / (float)img_hinge.width;
nuclear@7: 
nuclear@7: 			// rust pattern
nuclear@7: 			float w1 = fbm2(u * 4.0, v * 4.0, 3) * 0.5 + 0.5;
nuclear@9: 			//float w2 = fbm2(u * 8.0, v * 8.0, 1) * 0.5 + 0.5;
nuclear@7: 			Vector3 col = lerp(rusty_col1, rusty_col2 * 0.5, w1);
nuclear@7: 
nuclear@7: 			// center hinge split
nuclear@7: 			if(fabs(v - 0.5) < 0.01) {
nuclear@7: 				col *= 0.5;
nuclear@7: 			}
nuclear@7: 
nuclear@7: 			int r = (int)(col.x * 255.0);
nuclear@7: 			int g = (int)(col.y * 255.0);
nuclear@7: 			int b = (int)(col.z * 255.0);
nuclear@7: 
nuclear@7: 			pptr[0] = r > 255 ? 255 : (r < 0 ? 0 : r);
nuclear@7: 			pptr[1] = g > 255 ? 255 : (g < 0 ? 0 : g);
nuclear@7: 			pptr[2] = b > 255 ? 255 : (b < 0 ? 0 : b);
nuclear@7: 
nuclear@7: 			pptr += 3;
nuclear@7: 		}
nuclear@7: 	}
nuclear@7: 	img_hinge.texture();
nuclear@7: 
nuclear@4: 	return true;
nuclear@4: }