GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Graftals in GF. examples/graftals

Browse Source
This commit is contained in:
krasimir
2009-02-14 14:07:04 +00:00
parent 8ec1a5643e
commit 37aebd395c
5 changed files with 65 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/graftals/Cantor.gf Normal file
View File

@@ -0,0 +1,11 @@
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" ;
}