Graphics.PS.Paper

Paper and BBox.

Documentation

data Units

Enumeration type for Units.

Constructors

MM

PT

Instances

Eq Units

Methods

(==) :: Units -> Units -> Bool

(/=) :: Units -> Units -> Bool

Show Units

Methods

showsPrec :: Int -> Units -> ShowS

show :: Units -> String

showList :: [Units] -> ShowS

data Paper

Paper size data type, the units are specified in the type. The units in postscript are points, we often work in millimeters.

Constructors

Paper

Fields

• units :: Units
• width :: Int
• height :: Int

Instances

Eq Paper

Methods

(==) :: Paper -> Paper -> Bool

(/=) :: Paper -> Paper -> Bool

Show Paper

Methods

showsPrec :: Int -> Paper -> ShowS

show :: Paper -> String

showList :: [Paper] -> ShowS

paper_size_pt :: Paper -> (Int, Int)

Translate Paper from mm to points.

let a4 = Paper MM 210 297
paper_size_pt a4 == (595,841)

data BBox

BoundingBox for an EPSF file with an optional HiResBoundingBox

Constructors

BBox

Fields

• llx :: Int

  lower left x (x-min)

• lly :: Int

  lower left y (y-min)

• urx :: Int

  upper right x (x-max)

• ury :: Int

  upper right y (y-max)

HRBBox

Fields

• llx :: Int

  lower left x (x-min)

• lly :: Int

  lower left y (y-min)

• urx :: Int

  upper right x (x-max)

• ury :: Int

  upper right y (y-max)

• hrllx :: Double

  high resolution llx

• hrlly :: Double

  high resolution lly

• hrurx :: Double

  high resolution urx

• hrury :: Double

  high resolution ury

Instances

Eq BBox

Methods

(==) :: BBox -> BBox -> Bool

(/=) :: BBox -> BBox -> Bool

Show BBox

Methods

showsPrec :: Int -> BBox -> ShowS

show :: BBox -> String

showList :: [BBox] -> ShowS

landscape :: Paper -> Paper

Swap width and height of Paper.

proportion :: Paper -> Double

Proportion of Paper.

import Graphics.PS.Paper.Names
proportion broadsheet == 1.25
map (round . (* 1e3) . proportion) [a0,b0,c0] == [1414,1414,1414]
map proportion [usLetter,berliner,tabloid]

inset_margin :: Paper -> Paper -> (Units, Int, Int)

The margin given by placing paper size p within q.

BBox

bbox_sum :: BBox -> BBox -> BBox

Sum of BBox.

bbox_sum (BBox 5 5 10 10) (BBox 0 0 2 20) == BBox 0 0 10 20

bbox_mm_to_pt :: BBox -> BBox

Translate BBox from mm to points.

divRound :: Int -> Int -> Int

A div variant that rounds rather than truncates.

let f (Paper _ h _) = h `div` 2 == h `divRound` 2
in all id (map f [b0,b1,b2,b3,b4,b5,b6,b7,b8,b9]) == False