ClickPositions.elm

import Mouse
import Array

buildAppDataMap delta pos history =
  { frameDelta=delta
  , mousePosition=pos
  , clickHistory=history }
  
arrayTakeLast n array =
  let inputLen = Array.length array
      outputLen = min inputLen n
  in Array.slice (inputLen - outputLen) inputLen array

addToHistory pos hist =
  arrayTakeLast 4 (Array.push pos hist)

clickHistory = Mouse.position
               |> sampleOn Mouse.clicks
               |> foldp addToHistory Array.empty

appData = buildAppDataMap <~ (fps 25) ~ Mouse.position ~ clickHistory

main = lift asText appData