PaperTypes.mesa
Copyright Ó Xerox Corporation 1982, 1983, 1984, 1985, 1986, 1987. All rights reserved.
LastEdited: 14-Jun-85 9:44:12 By: Jacks
Tim Diebert: March 31, 1987 8:40:32 am PST
PaperTypes: CEDAR DEFINITIONS = BEGIN
Paper: TYPE = RECORD [
knownSize: PaperSize ← other,
otherSize: MMDimensions ← nullDimensions
];
PaperSize: TYPE = {
max, letter, legal, eightX10, eightX10point5,
elevenX14, elevenX17, fourteenX17, fxPostcard,
a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
isoB0, isoB1, isoB2, isoB3, isoB4, isoB5, isoB6, isoB7, isoB8, isoB9, isoB10,
jisB0, jisB1, jisB2, jisB3, jisB4, jisB5, jisB6, jisB7, jisB8, jisB9, jisB10,
other} ← other;
MMDimensions: TYPE = RECORD [short, long: CARDINAL] ← nullDimensions;
nullDimensions: MMDimensions = [short: 0, long: 0];
PaperMicaDimension: PROC [ps: PaperSize]
RETURNS [short, long: LONG CARDINAL] = INLINE
{short ← LONG[PaperMMDimension[ps].short] * 100;
long ← LONG[PaperMMDimension[ps].long] * 100};
PaperMMDimension: ARRAY PaperSize OF MMDimensions = [
-- max -- [1030, 1456],
-- letter -- [216, 279],
-- legal -- [216, 356],
-- eightX10 -- [203, 254],
-- eightX10point5 -- [203, 267],
-- elevenX14 -- [279, 356],
-- elevenX17 -- [279, 432],
-- fourteenX17 -- [356, 432],
-- fxPostcard -- [100, 150],
-- a0 -- [841, 1189],
-- a1 -- [594, 841],
-- a2 -- [420, 594],
-- a3 -- [297, 420],
-- a4 -- [210, 297],
-- a5 -- [148, 210],
-- a6 -- [105, 148],
-- a7 -- [74, 105],
-- a8 -- [52, 74],
-- a9 -- [37, 52],
-- a10 -- [26, 37],
-- isoB0 -- [1000, 1414],
-- isoB1 -- [707, 1000],
-- isoB2 -- [500, 707],
-- isoB3 -- [353, 500],
-- isoB4 -- [250, 353],
-- isoB5 -- [176, 250],
-- isoB6 -- [125, 176],
-- isoB7 -- [88, 125],
-- isoB8 -- [62, 88],
-- isoB9 -- [44, 62],
-- isoB10 -- [31, 44],
-- jisB0 -- [1030, 1456],
-- jisB1 -- [728, 1030],
-- jisB2 -- [515, 728],
-- jisB3 -- [364, 515],
-- jisB4 -- [257, 364],
-- jisB5 -- [182, 257],
-- jisB6 -- [128, 182],
-- jisB7 -- [91, 128],
-- jisB8 -- [64, 91],
-- jisB9 -- [45, 64],
-- jisB10 -- [32, 45],
-- other -- nullDimensions];
END.
LOG
6-Mar-82 11:10:35 - Beeley - Created
10-Mar-82 18:37:39 - Noboru Kawaguchi - Change Name
24 mar 82 Newlin put in max dimensions, clean up things
30-Nov-83 10:23:26 - Jacks - Added Paper definition, which is structured like NSPrint.Paper.
24-Jan-84 11:02:35 - Jacks - Changed Paper from variant to regular record; added nullDimensions; added "other" to PaperSize.
14-Jun-85 9:44:09 - Jacks - Added elevenX14, elevenX17, fourteenX17, a6-a10, isoB0-isoB10, jisB6-jisB10 and fxPostcard to PaperSize and PaperMMDimension.