|
--import should go to the top of the code
|
|
import Graphics.EasyPlot
|
|
|
|
--change PNG by the desired format
|
|
main = plot (PNG "pith.png") $ map (mkLine . close) squares
|
|
where mkLine = Data2D [Style Lines, Color Black,Title ""] []
|
|
close lst = lst ++ [head lst]
|