mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 13:29:32 -06:00
12 lines
338 B
Plaintext
12 lines
338 B
Plaintext
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" ;
|
|
} |