From 19a703d7879f5fdaeabe6b3b422b85ea423cf76f Mon Sep 17 00:00:00 2001
From: hbeni <beni@hallinger.org>
Date: Sun, 12 Jan 2025 08:29:30 +0100
Subject: [PATCH] Add UIS camp symbol

(Symbol provided by Bergil06)

Fix #455
---
 mpost/thPoint.mp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/mpost/thPoint.mp b/mpost/thPoint.mp
index ca074857..680de574 100644
--- a/mpost/thPoint.mp
+++ b/mpost/thPoint.mp
@@ -694,6 +694,18 @@ def p_rope_SKBB (expr pos,r,s,al) =
     thdraw (.1u,.1u);
 enddef;
 
+def p_camp_UIS (expr pos,r,s,al) =
+    U:=(.4u, .5u);
+    T:=identity aligned al scaled s shifted pos;
+
+    pickup PenC;
+    thdraw (-.5u,-.4u)--(.5u,-.4u);
+    pickup PenD;
+    thdraw (-.4u,-.4u)--(0,.5u)--(.4u,-.4u);
+    thfill (-.3u,-.4u)--(0,.30u)--(.3u,-.4u)--cycle;
+    thfill (0,.5u)--(.35u,.45u)--(.07u,.35u)--cycle;
+enddef;
+
 def p_camp_SKBB (expr pos,r,s,al) =
     U:=(.4u, .5u);
     T:=identity aligned al scaled s shifted pos;