6 lines
178 B
Haskell
6 lines
178 B
Haskell
|
--import should go to the top of the code
|
||
|
|
import Graphics.Gloss
|
||
|
|
|
||
|
|
main = display (InWindow "Pithagoras tree" (400, 400) (0, 0)) white tree
|
||
|
|
where tree = foldMap lineLoop squares
|