summaryrefslogtreecommitdiff
path: root/examples/graftals
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/graftals
parent8e1c6cca407c82fc09569d80c231b8d256735989 (diff)
Remove contribs and examples
Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/graftals')
-rw-r--r--examples/graftals/Cantor.gf11
-rw-r--r--examples/graftals/Dragon.gf13
-rw-r--r--examples/graftals/Graftal.gf15
-rw-r--r--examples/graftals/Koch.gf12
-rw-r--r--examples/graftals/Sierpinski.gf14
5 files changed, 0 insertions, 65 deletions
diff --git a/examples/graftals/Cantor.gf b/examples/graftals/Cantor.gf
deleted file mode 100644
index 9444a31f3..000000000
--- a/examples/graftals/Cantor.gf
+++ /dev/null
@@ -1,11 +0,0 @@
-concrete Cantor of Graftal = {
-lincat N = {f : Str; g : Str} ;
-lincat S = {s : Str} ;
-
-lin z = {f = F; g = G} ;
-lin s x = {f = x.f ++ x.g ++ x.f; g = x.g ++ x.g ++ x.g} ;
-lin c x = {s = "newpath 10 550 moveto" ++ x.f ++ "stroke showpage"} ;
-
-oper F : Str = "1 0 rlineto" ;
-oper G : Str = "1 0 rmoveto" ;
-} \ No newline at end of file
diff --git a/examples/graftals/Dragon.gf b/examples/graftals/Dragon.gf
deleted file mode 100644
index ff151ce95..000000000
--- a/examples/graftals/Dragon.gf
+++ /dev/null
@@ -1,13 +0,0 @@
-concrete Dragon of Graftal = {
-lincat N = {x : Str; y : Str} ;
-lincat S = {s : Str} ;
-
-lin z = {x = ""; y = ""} ;
-lin s x = {x = x.x ++ R ++ x.y ++ F ++ R; y = L ++ F ++ x.x ++ L ++ x.y} ;
-lin c x = {s = "newpath 300 550 moveto" ++ F ++ x.x ++ "stroke showpage"} ;
-
-oper F : Str = "0 5 rlineto" ;
-oper L : Str = "+90 rotate" ;
-oper R : Str = "-90 rotate" ;
-
-} \ No newline at end of file
diff --git a/examples/graftals/Graftal.gf b/examples/graftals/Graftal.gf
deleted file mode 100644
index a182d3ebd..000000000
--- a/examples/graftals/Graftal.gf
+++ /dev/null
@@ -1,15 +0,0 @@
--- (c) Krasimir Angelov
---
--- The L-System is a grammar formalism which is used to describe
--- graftals (recursive graphical objects). It is interesting
--- coincidence that every L-System grammar could be redefined
--- as PMCFG grammar. This demo shows how to generate graftals
--- using GF. The output from every concrete syntax is in postscript
--- format.
-
-abstract Graftal = {
-cat N; S;
-fun z : N ;
- s : N -> N ;
- c : N -> S ;
-} \ No newline at end of file
diff --git a/examples/graftals/Koch.gf b/examples/graftals/Koch.gf
deleted file mode 100644
index bbfda8c0d..000000000
--- a/examples/graftals/Koch.gf
+++ /dev/null
@@ -1,12 +0,0 @@
-concrete Koch of Graftal = {
-lincat N = {f : Str} ;
-lincat S = {s : Str} ;
-
-lin z = {f = F} ;
-lin s x = {f = x.f ++ L ++ x.f ++ R ++ x.f ++ R ++ x.f ++ L ++ x.f} ;
-lin c x = {s = "newpath 10 550 moveto" ++ x.f ++ "stroke showpage"} ;
-
-oper F : Str = "2 0 rlineto" ;
-oper L : Str = "+90 rotate" ;
-oper R : Str = "-90 rotate" ;
-} \ No newline at end of file
diff --git a/examples/graftals/Sierpinski.gf b/examples/graftals/Sierpinski.gf
deleted file mode 100644
index c85d274f4..000000000
--- a/examples/graftals/Sierpinski.gf
+++ /dev/null
@@ -1,14 +0,0 @@
-concrete Sierpinski of Graftal = {
-lincat N = {a : Str; b : Str} ;
-lincat S = {s : Str} ;
-
-lin z = {a = A; b = B} ;
-lin s x = {a = x.b ++ R ++ x.a ++ R ++ x.b; b =x.a ++ L ++ x.b ++ L ++ x.a} ;
-lin c x = {s = "newpath 300 550 moveto" ++ x.a ++ "stroke showpage"} ;
-
-oper A : Str = "0 2 rlineto" ;
-oper B : Str = "0 2 rlineto" ;
-oper L : Str = "+60 rotate" ;
-oper R : Str = "-60 rotate" ;
-
-} \ No newline at end of file