Make more title adjustments to System.c4g files

1 files changed, 38 insertions, 0 deletions

diff --git a/TemplePushing.c4s/System.c4g/FindCriteria.c b/TemplePushing.c4s/System.c4g/FindCriteria.c
new file mode 100644
index 0000000..8563ad3
--- /dev/null
+++ b/TemplePushing.c4s/System.c4g/FindCriteria.c
@@ -0,0 +1,38 @@
+/*-- Additional FindObjects search criteria for a certain angle range --*/

+#strict 2

+

+global func SwapIfBigger(&smaller, &bigger)

+{

+	if (bigger < smaller)

+	{

+		var swap = smaller;

+		smaller = bigger;

+		bigger = swap;

+	}

+}

+

+global func Find_Angle(int angleStart, int angleEnd, bool biggerPart, int x, int y)

+{

+	while (angleStart < 0) angleStart += 360;

+	while (angleEnd < 0) angleEnd += 360;

+	angleStart %= 360;

+	angleEnd %= 360;

+	SwapIfBigger(angleStart, angleEnd);

+	if (angleEnd - angleStart > 180) biggerPart = !biggerPart;

+	return [C4FO_Func, "Find_AngleCheck", angleStart, angleEnd, biggerPart, GetX() + x, GetY() + y];

+}

+

+global func Find_AngleCheck(int angleStart, int angleEnd, bool biggerPart, int x, int y)

+{

+	var angle = Angle(x, y, GetX(), GetY());

+	var inside = Inside(angle, angleStart, angleEnd);

+	var ret;

+	if (biggerPart) ret = !inside;

+	else ret = inside;

+	return ret;

+}

+

+global func Find_Procedure(string procedure)

+{

+	return Find_FuncEqual("GetProcedure()", procedure);

+}