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. Β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 Κͺ˜šœ™JšœV™VJšœ)™)Icode™*—J˜šΠln œΟkœž œž˜%J˜šœžœžœ˜J˜J˜(˜J˜——šœ žœ˜J˜-J˜/J˜,J˜MJ˜MJ˜——˜Jšœžœžœžœ˜EJ˜J˜3—˜šΟnœžœ˜(Jšžœžœžœž˜-Jšœ žœ#˜0Jšœžœ#˜.——˜JšŸœžœ žœ˜5JšΟc œ˜Jš  œ ˜Jš  œ ˜Jš œ ˜Jš œ ˜ Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš œ ˜Jš  œ ˜Jš  œ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ ˜Jš  œ˜Jšžœ˜J˜Jšž˜J˜—J˜$J˜3J˜:J˜^J˜|J˜š—…— X Δ