11 lines
218 B
Haskell
11 lines
218 B
Haskell
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 7 plant
|