From e7439d65b0e153434d3acc07df6e2a0972ee79ca Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 11 Jan 2011 15:46:43 +0000
Subject: gf-book web page index and toc

---
 gf-book/examples/chapter8/GeometryEng.gf | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 gf-book/examples/chapter8/GeometryEng.gf

(limited to 'gf-book/examples/chapter8/GeometryEng.gf')

diff --git a/gf-book/examples/chapter8/GeometryEng.gf b/gf-book/examples/chapter8/GeometryEng.gf
new file mode 100644
index 000000000..e2e22776e
--- /dev/null
+++ b/gf-book/examples/chapter8/GeometryEng.gf
@@ -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")) ;
+}
-- 
cgit v1.2.3