reanimate-0.4.2.0: examples/doc_cameraFocus.hs

#!/usr/bin/env stack
-- stack runghc --package reanimate
module Main(main) where

import Reanimate
import Reanimate.Builtin.Documentation
import Reanimate.Scene
import Control.Lens

main :: IO ()
main = reanimate $ docEnv $ sceneAnimation $ do
  cam <- newObject Camera
  circ <- newObject $ Circle 2; oShow circ
  oModify circ $ oTranslate .~ (-3,0)
  box <- newObject $ Rectangle 4 4; oShow box
  oModify box $ oTranslate .~ (3,0)

  cameraAttach cam circ
  cameraAttach cam box
  cameraFocus cam (-3,0)
  cameraZoom cam 2 2
  cameraZoom cam 2 1
  cameraFocus cam (3,0)
  cameraZoom cam 2 2
  cameraZoom cam 2 1