src/primitives.cpp

/*
 *  LDForge: LDraw parts authoring CAD
 *  Copyright (C) 2013 Santeri Piippo
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <QDir>
#include <QThread>
#include <QRegExp>
#include <QFileDialog>
#include "file.h"
#include "gui.h"
#include "primitives.h"
#include "ui_makeprim.h"
#include "misc.h"
#include "colors.h"
#include "moc_primitives.cpp"

List<PrimitiveCategory> g_PrimitiveCategories;
List<Primitive> g_primitives;
static PrimitiveLister* g_activePrimLister = null;
static bool g_primListerMutex = false;
static const str g_Other = PrimitiveLister::tr ("Other");

static const str g_radialNameRoots[] =
{	"edge",
	"cyli",
	"disc",
	"ndis",
	"ring",
	"con"
};

static void populateCategories();
static void loadPrimitiveCatgories();

// =============================================================================
// -----------------------------------------------------------------------------
void loadPrimitives()
{	print ("Loading primitives...\n");
	loadPrimitiveCatgories();

	// Try to load prims.cfg
	File conf (Config::filepath ("prims.cfg"), File::Read);

	if (!conf)
	{	// No prims.cfg, build it
		PrimitiveLister::start();
	}
	else
	{	// Read primitives from prims.cfg
		for (str line : conf)
		{	int space = line.indexOf (" ");

			if (space == -1)
				continue;

			Primitive info;
			info.name = line.left (space);
			info.title = line.mid (space + 1);
			g_primitives << info;
		}

		populateCategories();
	}
}

// =============================================================================
// -----------------------------------------------------------------------------
static void recursiveGetFilenames (QDir dir, List<str>& fnames)
{	QFileInfoList flist = dir.entryInfoList();

for (const QFileInfo & info : flist)
	{	if (info.fileName() == "." || info.fileName() == "..")
			continue; // skip . and ..

		if (info.isDir())
			recursiveGetFilenames (QDir (info.absoluteFilePath()), fnames);
		else
			fnames << info.absoluteFilePath();
	}
}

// =============================================================================
// -----------------------------------------------------------------------------
void PrimitiveLister::work()
{	g_activePrimLister = this;
	m_prims.clear();

	QDir dir (LDPaths::prims());
	ulong baselen = dir.absolutePath().length();
	ulong i = 0;
	List<str> fnames;

	assert (dir.exists());
	recursiveGetFilenames (dir, fnames);
	emit starting (fnames.size());

	for (str fname : fnames)
	{	File f (fname, File::Read);

		Primitive info;
		info.name = fname.mid (baselen + 1);  // make full path relative
		info.name.replace ('/', '\\');  // use DOS backslashes, they're expected
		info.cat = null;

		if (!f.readLine (info.title))
			info.title = "";

		info.title = info.title.simplified();

		if (info.title[0] == '0')
		{	info.title.remove (0, 1);  // remove 0
			info.title = info.title.simplified();
		}

		m_prims << info;
		emit update (++i);
	}

	// Save to a config file
	File conf (Config::filepath ("prims.cfg"), File::Write);

	for (Primitive & info : m_prims)
		fprint (conf, "%1 %2\n", info.name, info.title);

	conf.close();

	g_primListerMutex = true;
	g_primitives = m_prims;
	populateCategories();
	g_primListerMutex = false;
	g_activePrimLister = null;
	emit workDone();
}

// =============================================================================
// -----------------------------------------------------------------------------
void PrimitiveLister::start()
{	if (g_activePrimLister)
		return;

	PrimitiveLister* lister = new PrimitiveLister;
	QThread* listerThread = new QThread;
	lister->moveToThread (listerThread);
	connect (lister, SIGNAL (starting (ulong)), g_win, SLOT (primitiveLoaderStart (ulong)));
	connect (lister, SIGNAL (update (ulong)), g_win, SLOT (primitiveLoaderUpdate (ulong)));
	connect (lister, SIGNAL (workDone()), g_win, SLOT (primitiveLoaderEnd()));
	connect (listerThread, SIGNAL (started()), lister, SLOT (work()));
	connect (listerThread, SIGNAL (finished()), lister, SLOT (deleteLater()));
	listerThread->start();
}

// =============================================================================
// -----------------------------------------------------------------------------
static PrimitiveCategory* findCategory (str name)
{	for (PrimitiveCategory& cat : g_PrimitiveCategories)
		if (cat.name() == name)
			return &cat;

	return null;
}

// =============================================================================
// -----------------------------------------------------------------------------
static void populateCategories()
{	for (PrimitiveCategory & cat : g_PrimitiveCategories)
		cat.prims.clear();

	PrimitiveCategory* unmatched = findCategory (g_Other);

	if (!unmatched)
	{	// Shouldn't happen.. but catch it anyway.
		PrimitiveCategory cat;
		cat.setName (g_Other);
		unmatched = & (g_PrimitiveCategories << cat);
	}

	for (Primitive& prim : g_primitives)
	{	bool matched = false;
		prim.cat = null;

		// Go over the categories and their regexes, if and when there's a match,
		// the primitive's category is set to the category the regex beloings to.
		for (PrimitiveCategory & cat : g_PrimitiveCategories)
		{	for (PrimitiveCategory::RegexEntry & entry : cat.regexes)
			{	switch (entry.type)
				{	case PrimitiveCategory::Filename:
					// f-regex, check against filename
					matched = entry.regex.exactMatch (prim.name);
					break;

					case PrimitiveCategory::Title:
					// t-regex, check against title
					matched = entry.regex.exactMatch (prim.title);
					break;
				}

				if (matched)
				{	prim.cat = &cat;
					break;
				}
			}

			// Drop out if a category was decided on.
			if (prim.cat)
				break;
		}

		// If there was a match, add the primitive to the category.
		// Otherwise, add it to the list of unmatched primitives.
		if (prim.cat)
			prim.cat->prims << prim;
		else
			unmatched->prims << prim;
	}
}

// =============================================================================
// -----------------------------------------------------------------------------
static void loadPrimitiveCatgories()
{	g_PrimitiveCategories.clear();
	File f (Config::dirpath() + "primregexps.cfg", File::Read);

	if (!f)
		f.open (":/data/primitive-categories.cfg", File::Read);

	if (!f)
		critical (QObject::tr ("Failed to open primitive categories!"));

	if (f)
	{	PrimitiveCategory cat;

		for (str line : f)
		{	int colon;

			if (line.length() == 0 || line[0] == '#')
				continue;

			if ( (colon = line.indexOf (":")) == -1)
			{	if (cat.regexes.size() > 0)
					g_PrimitiveCategories << cat;

				cat.regexes.clear();
				cat.prims.clear();
				cat.setName (line);
			}
			else
			{	str cmd = line.left (colon);
				PrimitiveCategory::Type type = PrimitiveCategory::Filename;

				if (cmd == "f")
					type = PrimitiveCategory::Filename;
				elif (cmd == "t")
					type = PrimitiveCategory::Title;
				else
					continue;

				QRegExp regex (line.mid (colon + 1));
				PrimitiveCategory::RegexEntry entry = { regex, type };
				cat.regexes << entry;
			}
		}

		if (cat.regexes.size() > 0)
			g_PrimitiveCategories << cat;
	}

	// Add a category for unmatched primitives
	PrimitiveCategory cat;
	cat.setName (g_Other);
	g_PrimitiveCategories << cat;
}

// =============================================================================
// -----------------------------------------------------------------------------
bool primitiveLoaderBusy()
{	return g_primListerMutex;
}

// =============================================================================
// -----------------------------------------------------------------------------
static double radialPoint (int i, int divs, double (*func) (double))
{	return (*func) ((i * 2 * pi) / divs);
}

// =============================================================================
// -----------------------------------------------------------------------------
List<LDObject*> makePrimitive (PrimitiveType type, int segs, int divs, int num)
{	List<LDObject*> objs;
	List<int> condLineSegs;

	for (int i = 0; i < segs; ++i)
	{	double x0 = radialPoint (i, divs, cos),
			x1 = radialPoint (i + 1, divs, cos),
			z0 = radialPoint (i, divs, sin),
			z1 = radialPoint (i + 1, divs, sin);

		switch (type)
		{	case Circle:
			{	vertex v0 (x0, 0.0f, z0),
				  v1 (x1, 0.0f, z1);

				LDLine* line = new LDLine;
				line->setVertex (0, v0);
				line->setVertex (1, v1);
				line->setColor (edgecolor);
				objs << line;
			}
			break;

			case Cylinder:
			case Ring:
			case Cone:
			{	double x2, x3, z2, z3;
				double y0, y1, y2, y3;

				if (type == Cylinder)
				{	x2 = x1;
					x3 = x0;
					z2 = z1;
					z3 = z0;

					y0 = y1 = 0.0f;
					y2 = y3 = 1.0f;
				}
				else
				{	x2 = x1 * (num + 1);
					x3 = x0 * (num + 1);
					z2 = z1 * (num + 1);
					z3 = z0 * (num + 1);

					x0 *= num;
					x1 *= num;
					z0 *= num;
					z1 *= num;

					if (type == Ring)
						y0 = y1 = y2 = y3 = 0.0f;
					else
					{	y0 = y1 = 1.0f;
						y2 = y3 = 0.0f;
					}
				}

				vertex v0 (x0, y0, z0),
					   v1 (x1, y1, z1),
					   v2 (x2, y2, z2),
					   v3 (x3, y3, z3);

				LDQuad* quad = new LDQuad;
				quad->setColor (maincolor);
				quad->setVertex (0, v0);
				quad->setVertex (1, v1);
				quad->setVertex (2, v2);
				quad->setVertex (3, v3);

				if (type == Cylinder)
					quad->invert();

				objs << quad;

				if (type == Cylinder || type == Cone)
					condLineSegs << i;
			}
			break;

			case Disc:
			case DiscNeg:
			{	double x2, z2;

				if (type == Disc)
					x2 = z2 = 0.0f;
				else
				{	x2 = (x0 >= 0.0f) ? 1.0f : -1.0f;
					z2 = (z0 >= 0.0f) ? 1.0f : -1.0f;
				}

				vertex v0 (x0, 0.0f, z0),
					   v1 (x1, 0.0f, z1),
					   v2 (x2, 0.0f, z2);

				// Disc negatives need to go the other way around, otherwise
				// they'll end up upside-down.
				LDTriangle* seg = new LDTriangle;
				seg->setColor (maincolor);
				seg->setVertex (type == Disc ? 0 : 2, v0);
				seg->setVertex (1, v1);
				seg->setVertex (type == Disc ? 2 : 0, v2);
				objs << seg;
			}
			break;

			default:
			break;
		}
	}

	// If this is not a full circle, we need a conditional line at the other
	// end, too.
	if (segs < divs && condLineSegs.size() != 0)
		condLineSegs << segs;

	for (int i : condLineSegs)
	{	vertex v0 (radialPoint (i, divs, cos), 0.0f, radialPoint (i, divs, sin)),
		  v1,
		  v2 (radialPoint (i + 1, divs, cos), 0.0f, radialPoint (i + 1, divs, sin)),
		  v3 (radialPoint (i - 1, divs, cos), 0.0f, radialPoint (i - 1, divs, sin));

		if (type == Cylinder)
			v1 = vertex (v0[X], 1.0f, v0[Z]);
		elif (type == Cone)
		{	v1 = vertex (v0[X] * (num + 1), 0.0f, v0[Z] * (num + 1));
			v0[X] *= num;
			v0[Y] = 1.0f;
			v0[Z] *= num;
		}

		LDCndLine* line = new LDCndLine;
		line->setColor (edgecolor);
		line->setVertex (0, v0);
		line->setVertex (1, v1);
		line->setVertex (2, v2);
		line->setVertex (3, v3);
		objs << line;
	}

	return objs;
}

// =============================================================================
// -----------------------------------------------------------------------------
static str primitiveTypeName (PrimitiveType type)
{	// Not translated as primitives are in English.
	return type == Circle   ? "Circle" :
		   type == Cylinder ? "Cylinder" :
		   type == Disc     ? "Disc" :
		   type == DiscNeg  ? "Disc Negative" :
		   type == Ring     ? "Ring" : "Cone";
}

// =============================================================================
// -----------------------------------------------------------------------------
str radialFileName (PrimitiveType type, int segs, int divs, int num)
{	short numer = segs,
			  denom = divs;

	// Simplify the fractional part, but the denominator must be at least 4.
	simplify (numer, denom);

	if (denom < 4)
	{	const short factor = 4 / denom;

		numer *= factor;
		denom *= factor;
	}

	// Compose some general information: prefix, fraction, root, ring number
	str prefix = (divs == lores) ? "" : fmt ("%1/", divs);
	str frac = fmt ("%1-%2", numer, denom);
	str root = g_radialNameRoots[type];
	str numstr = (type == Ring || type == Cone) ? fmt ("%1", num) : "";

	// Truncate the root if necessary (7-16rin4.dat for instance).
	// However, always keep the root at least 2 characters.
	int extra = (frac.length() + numstr.length() + root.length()) - 8;
	root.chop (min<short> (max<short> (extra, 0), 2));

	// Stick them all together and return the result.
	return prefix + frac + root + numstr + ".dat";
}

// =============================================================================
// -----------------------------------------------------------------------------
LDFile* generatePrimitive (PrimitiveType type, int segs, int divs, int num)
{	// Make the description
	str frac = ftoa (((float) segs) / divs);
	str name = radialFileName (type, segs, divs, num);
	str descr;
	
	// Ensure that there's decimals, even if they're 0.
	if (frac.indexOf (".") == -1)
		frac += ".0";
	
	if (type == Ring || type == Cone)
	{	str spacing =
		(num < 10) ? "  " :
		(num < 100) ? " "  : "";
		
		descr = fmt ("%1 %2%3 x %4", primitiveTypeName (type), spacing, num, frac);
	}
	else
		descr = fmt ("%1 %2", primitiveTypeName (type), frac);
	
	// Prepend "Hi-Res" if 48/ primitive.
	if (divs == hires)
		descr.insert (0, "Hi-Res ");
	
	LDFile* f = new LDFile;
	f->setName (QFileDialog::getSaveFileName (null, QObject::tr ("Save Primitive"), name));
	
	f->addObjects (
	{	new LDComment (descr),
		new LDComment (fmt ("Name: %1", name)),
		new LDComment (fmt ("Author: LDForge")),
		new LDComment (fmt ("!LDRAW_ORG Unofficial_%1Primitive", divs == hires ? "48_" : "")),
		new LDComment (CALicense),
		new LDEmpty,
		new LDBFC (LDBFC::CertifyCCW),
		new LDEmpty,
	});
	
	f->addObjects (makePrimitive (type, segs, divs, num));
	return f;
}

// =============================================================================
// -----------------------------------------------------------------------------
LDFile* getPrimitive (PrimitiveType type, int segs, int divs, int num)
{	str name = radialFileName (type, segs, divs, num);
	LDFile* f = getFile (name);
	if (f != null)
		return f;

	return generatePrimitive (type, segs, divs, num);
}

// =============================================================================
// -----------------------------------------------------------------------------
PrimitivePrompt::PrimitivePrompt (QWidget* parent, Qt::WindowFlags f) :
QDialog (parent, f)
{
	
	ui = new Ui_MakePrimUI;
	ui->setupUi (this);
	connect (ui->cb_hires, SIGNAL (toggled (bool)), this, SLOT (hiResToggled (bool)));
}

// =============================================================================
// -----------------------------------------------------------------------------
PrimitivePrompt::~PrimitivePrompt()
{	delete ui;
}

// =============================================================================
// -----------------------------------------------------------------------------
void PrimitivePrompt::hiResToggled (bool on)
{	ui->sb_segs->setMaximum (on ? hires : lores);
	
	// If the current value is 16 and we switch to hi-res, default the
	// spinbox to 48.
	if (on && ui->sb_segs->value() == lores)
		ui->sb_segs->setValue (hires);
}

// =============================================================================
// -----------------------------------------------------------------------------
DEFINE_ACTION (MakePrimitive, 0)
{	PrimitivePrompt* dlg = new PrimitivePrompt (g_win);
	
	if (!dlg->exec())
		return;
	
	int segs = dlg->ui->sb_segs->value();
	int divs = dlg->ui->cb_hires->isChecked() ? hires : lores;
	int num = dlg->ui->sb_ringnum->value();
	PrimitiveType type =
	dlg->ui->rb_circle->isChecked()   ? Circle :
	dlg->ui->rb_cylinder->isChecked() ? Cylinder :
	dlg->ui->rb_disc->isChecked()     ? Disc :
	dlg->ui->rb_ndisc->isChecked()    ? DiscNeg :
	dlg->ui->rb_ring->isChecked()     ? Ring : Cone;
	
	LDFile* f = generatePrimitive (type, segs, divs, num);
	
	g_win->save (f, false);
	delete f;
}