another byrne.mp and byrne.sty update

jemmybutton · Sep 17, 2024 · f025594 · f025594
1 parent ce04fe3
commit f025594
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/byrne.mp b/byrne.mp
@@ -2192,6 +2192,9 @@ vardef byCircleABCDefine@#(suffix a, b, c)(expr col, dp, th, s) =
 if str @# = "":
     byCircleABCDefine.scantokens(str a & str b & str c)(a, b, c)(col, dp, th, s)
 else:
+	if mainPictureMode:
+        appendList(allCirclesList, str @#, 1, true);
+    fi;
     save o, r;
     pair o;
     numeric r;
@@ -3402,6 +3405,24 @@ vardef generateAngleSynonyms =
     fi;
 enddef;
 
+vardef generateCircleSynonyms =
+save pointName, originalName;
+string pointName[], originalName;
+	if string allCirclesList:
+		forsuffixes i=scantokens(allCirclesList):
+			originalName := str i;
+			pointName0 := getAttribute("circle", "AName", originalName);
+			pointName1 := getAttribute("circle", "BName", originalName);
+			pointName2 := getAttribute("circle", "CName", originalName);
+			setAttribute("circle", "Synonym", pointName1 & pointName2 & pointName0, originalName);
+			setAttribute("circle", "Synonym", pointName2 & pointName0 & pointName1, originalName);
+			setAttribute("circle", "Synonym", pointName0 & pointName2 & pointName1, originalName);
+			setAttribute("circle", "Synonym", pointName1 & pointName0 & pointName2, originalName);
+			setAttribute("circle", "Synonym", pointName2 & pointName1 & pointName0, originalName);
+		endfor;
+	fi;
+enddef;
+
 vardef sortPointAnglesList (expr anglesListToSort) =
     save preList, postList, nPre, nPost, isSorted, value, firstValue, lastValue, rv;
     string preList, postList, rv;

diff --git a/byrne.sty b/byrne.sty
@@ -73,6 +73,7 @@ end
 				#3
 			scaleFactor := \sfA;
 			generateAngleSynonyms;
+			generateCircleSynonyms;
 			generateLineSynonyms;
 			stopMainPictureMode;
 		);