gistfile1.txt

import Window

thickLine = { defaultLine | width <- 20 }
roundLine = { thickLine | cap <- Round }
smoothLine = { thickLine | join <- Clipped, cap <-Round  }

main = let
        disp w h = collage w h
         [ move (-100,250) <| outlined thickLine <| ngon 5 100
         , move (-100,250) <| outlined thickLine <| polygon [(200, 0),(250,100),(150,100)]
         , move (-100,0) <| outlined roundLine <| ngon 5 100
         , move (-100,0) <| outlined roundLine <| polygon [(200, 0),(250,100),(150,100)]
         , move (-100,-250) <| outlined smoothLine <| ngon 5 100
         , move (-100,-250) <| outlined smoothLine <| polygon [(200, 0),(250,100),(150,100)]
         ]
       in disp <~ Window.width ~ Window.height