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

Initial commit

Browse source
This commit is contained in:
Dimitri Lozeve 2018-01-15 18:47:54 +00:00
commit 9c21bf1d37
10 changed files with 272 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
app/Main.hs Normal file
View file

@ -0,0 +1,11 @@
module Main where
import Graphics.Gloss
import Lib
import Examples
main :: IO ()
main =
display (InWindow "L-System" (200, 200) (10, 10)) black (color white pic)
where pic = drawLSystem $ iterateLSystem 5 gosper