forked from GitHub/gf-core
20 lines
550 B
Plaintext
20 lines
550 B
Plaintext
--# -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)) ;
|
|
|
|
}
|