threadscope-0.1: Timeline/WithViewScale.hs

module Timeline.WithViewScale
where

import State

import Graphics.Rendering.Cairo

-------------------------------------------------------------------------------

withViewScale :: ViewParameters -> Render () -> Render ()
withViewScale params@ViewParameters{..} inner = do
   save
   scale (1/scaleValue) 1.0
   translate (-hadjValue) 0
   inner
   restore

-------------------------------------------------------------------------------