summaryrefslogtreecommitdiff
path: root/examples/graftals/Sierpinski.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/graftals/Sierpinski.gf')
-rw-r--r--examples/graftals/Sierpinski.gf14
1 files changed, 0 insertions, 14 deletions
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