Codeworld-Reflex experiments

CR001RotatingColorfulSquares.hs

{-# LANGUAGE BlockArguments #-}
import CodeWorld.Reflex
import Reflex

-- Move mouse to rotate squares.
-- Click to add squares.

positions :: [(Color,(Double,Double))]
positions = zip assortedColors [(0,0),(2,2),(-2,2),(-2,-2),(2,-2)]

main :: IO ()
main = reflexOf \input -> do
  clicks <- count (pointerPress input)
  return do 
    currentClicks <- clicks
    angle <- vectorDirection <$> pointerPosition input
    let currentPositions = take (succ currentClicks) positions
        makeRectangle (c,(x,y)) = 
            colored c
          . translated x y
          . rotated angle
          $ solidRectangle 2 2
    constDyn (pictures (map makeRectangle currentPositions))