mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
gf-book web page index and toc
This commit is contained in:
13
gf-book/examples/chapter8/GeometryEng.gf
Normal file
13
gf-book/examples/chapter8/GeometryEng.gf
Normal file
@@ -0,0 +1,13 @@
|
||||
--# -path=.:present
|
||||
|
||||
concrete GeometryEng of Geometry = LogicEng **
|
||||
open SyntaxEng, ParadigmsEng in {
|
||||
lin
|
||||
Line = mkCN (mkN "line") ;
|
||||
Point = mkCN (mkN "point") ;
|
||||
Circle = mkCN (mkN "circle") ;
|
||||
Intersect = pred (mkV2 "intersect") ;
|
||||
Parallel = pred (mkA2 (mkA "parallel") (mkPrep "to")) ;
|
||||
Vertical = pred (mkA "vertical") ;
|
||||
Centre = app (mkN2 (mkN "centre") (mkPrep "of")) ;
|
||||
}
|
||||
Reference in New Issue
Block a user