Alignment.hs

module Alignment where

type Alignment = Double

aTop = 0 :: Alignment
aBottom = 1 :: Alignment

aLeft = 0 :: Alignment
aRight = 1 :: Alignment

aCenter = 0.5 :: Alignment