dimitri/lsystems
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for push ('[') and pop (']') operations

Browse source
This commit is contained in:
Dimitri Lozeve 2018-01-17 10:54:44 +00:00
parent 1b2defc067
commit 05feb56763
4 changed files with 43 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -8,4 +8,4 @@ import Examples
main :: IO ()
main =
display (InWindow "L-System" (200, 200) (10, 10)) black (color white pic)
where pic = drawLSystem $ iterateLSystem 5 gosper
where pic = drawLSystem $ iterateLSystem 7 plant