mathtext examples from Bonn

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/mathtext/GeometryGer.gf b/examples/mathtext/GeometryGer.gf
new file mode 100644
index 000000000..25c2cf965
--- /dev/null
+++ b/examples/mathtext/GeometryGer.gf
@@ -0,0 +1,19 @@
+--# -path=alltenses
+
+concrete GeometryGer of Geometry = LogicGer ** 
+  open SyntaxGer, ParadigmsGer, IrregGer in {
+lin
+  Line = mkN "Gerade" ;
+  Point = mkN "Punkt" ; 
+  Circle = mkN "Kreis" ;
+  Intersect = pred (mkV2 (mkV "schneiden")) ;
+  Parallel = pred (mkA2 (mkA "parallel") (mkPrep "zu" dative)) ;
+  Vertical = pred (mkA "vertikal") ;
+  Centre = app (mkN2 (mkN "Mittelpunkt") (mkPrep [] genitive)) ;
+
+  Horizontal = mkVP (mkA "horizontal") ;
+  Diverge = mkVP (mkV "divergieren") ;
+
+  Contain = mkVPSlash (mkV2 (fixprefixV "ent" halten_V)) ;
+
+}