never executed always true always false

    1 {- |
    2   Reanimate configures a consistent, default canvas. The values of this default
    3   can be observed via the constants in this module. Keep in mind, these values
    4   describe the /default/ canvas and will not apply to custom viewports.
    5 -}
    6 module Reanimate.Constants
    7   ( screenWidth
    8   , screenHeight
    9   , screenTop
   10   , screenBottom
   11   , screenLeft
   12   , screenRight
   13   , defaultDPI
   14   , defaultStrokeWidth
   15   ) where
   16 
   17 import           Graphics.SvgTree
   18 
   19 -- | Number of units from the left-most point to the right-most point on the screen.
   20 screenWidth :: Fractional a => a
   21 
   22 -- | Number of units from the bottom to the top of the screen.
   23 screenHeight :: Fractional a => a
   24 
   25 -- | Position of the top of the screen.
   26 screenTop :: Fractional a => a
   27 
   28 -- | Position of the bottom of the screen.
   29 screenBottom :: Fractional a => a
   30 
   31 -- | Position of the left side of the screen.
   32 screenLeft :: Fractional a => a
   33 
   34 -- | Position of the right side of the screen.
   35 screenRight :: Fractional a => a
   36 
   37 screenWidth = 16
   38 screenHeight = 9
   39 screenTop = screenHeight/2
   40 screenBottom = -screenHeight/2
   41 screenLeft = -screenWidth/2
   42 screenRight = screenWidth/2
   43 
   44 -- | SVG allows measurements in inches which have to be converted to local units.
   45 --   This value describes how many local units there are in an inch.
   46 defaultDPI :: Dpi
   47 defaultDPI = 96
   48 
   49 -- | Default thickness of lines.
   50 defaultStrokeWidth :: Double
   51 defaultStrokeWidth = 0.05