tmac/papersize.tmac

   1 .\" -*- nroff -*-
   2 .\"
   3 .\" papersize.tmac
   4 .\"
   5 .\" Set up groff for various paper sizes.
   6 .\"
   7 .\" Usage:
   8 .\"
   9 .\"   groff ... -dpaper=<format> ...
  10 .\"
  11 .\" Possible values for `format' are the same as the predefined `papersize'
  12 .\" values (see the groff_font man page) except a7-d7.  An appended `l'
  13 .\" (ell) character denotes landscape orientation.  Examples: `a4', `c3l',
  14 .\" `letterl'.
  15 .\"
  16 .\" Most output drivers need additional command line switches `-p' and
  17 .\" `-l' to override the default paper length and orientation as set in
  18 .\" the driver specific DESC file.
  19 .\"
  20 .\" For example, use the following for PS output on A4 paper in landscape
  21 .\" orientation::
  22 .\"
  23 .\"   groff -Tps -dpaper=a4l -P-pa4 -P-l -ms foo.ms > foo.ps
  24 .
  25 .nr _C \n(.C
  26 .cp 0
  27 .
  28 .if d paper \{\
  29 .  ds paper-a0-length 118.9c
  30 .  ds paper-a0-width 84.1c
  31 .  ds paper-a1-length 84.1c
  32 .  ds paper-a1-width 59.4c
  33 .  ds paper-a2-length 59.4c
  34 .  ds paper-a2-width 42c
  35 .  ds paper-a3-length 42c
  36 .  ds paper-a3-width 29.7c
  37 .  ds paper-a4-length 29.7c
  38 .  ds paper-a4-width 21c
  39 .  ds paper-a5-length 21c
  40 .  ds paper-a5-width 14.8c
  41 .  ds paper-a6-length 14.8c
  42 .  ds paper-a6-width 10.5c
  43 .
  44 .  ds paper-b0-length 141.4c
  45 .  ds paper-b0-width 100c
  46 .  ds paper-b1-length 100c
  47 .  ds paper-b1-width 70.7c
  48 .  ds paper-b2-length 70.7c
  49 .  ds paper-b2-width 50c
  50 .  ds paper-b3-length 50c
  51 .  ds paper-b3-width 35.3c
  52 .  ds paper-b4-length 35.3c
  53 .  ds paper-b4-width 25c
  54 .  ds paper-b5-length 25c
  55 .  ds paper-b5-width 17.6c
  56 .  ds paper-b6-length 17.6c
  57 .  ds paper-b6-width 12.5c
  58 .
  59 .  ds paper-c0-length 129.7c
  60 .  ds paper-c0-width 91.7c
  61 .  ds paper-c1-length 91.7c
  62 .  ds paper-c1-width 64.8c
  63 .  ds paper-c2-length 64.8c
  64 .  ds paper-c2-width 45.8c
  65 .  ds paper-c3-length 45.8c
  66 .  ds paper-c3-width 32.4c
  67 .  ds paper-c4-length 32.4c
  68 .  ds paper-c4-width 22.9c
  69 .  ds paper-c5-length 22.9c
  70 .  ds paper-c5-width 16.2c
  71 .  ds paper-c6-length 16.2c
  72 .  ds paper-c6-width 11.4c
  73 .
  74 .  ds paper-d0-length 109.0c
  75 .  ds paper-d0-width 77.1c
  76 .  ds paper-d1-length 77.1c
  77 .  ds paper-d1-width 54.5c
  78 .  ds paper-d2-length 54.5c
  79 .  ds paper-d2-width 38.5c
  80 .  ds paper-d3-length 38.5c
  81 .  ds paper-d3-width 27.2c
  82 .  ds paper-d4-length 27.2c
  83 .  ds paper-d4-width 19.2c
  84 .  ds paper-d5-length 19.2c
  85 .  ds paper-d5-width 13.6c
  86 .  ds paper-d6-length 13.6c
  87 .  ds paper-d6-width 9.6c
  88 .
  89 .  ds paper-letter-length 11i
  90 .  ds paper-letter-width 8.5i
  91 .  ds paper-legal-length 14i
  92 .  ds paper-legal-width 8.5i
  93 .  ds paper-tabloid-length 17i
  94 .  ds paper-tabloid-width 11i
  95 .  ds paper-ledger-length 11i
  96 .  ds paper-ledger-width 17i
  97 .  ds paper-statement-length 8.5i
  98 .  ds paper-statement-width 5.5i
  99 .  \" These dimensions for executive paper format is what all
 100 .  \" printer manufacturers use.
 101 .  ds paper-executive-length 10.5i
 102 .  ds paper-executive-width 7.25i
 103 .
 104 .  ds paper-com10-length 9.5i
 105 .  ds paper-com10-width 4.125i
 106 .  ds paper-monarch-length 7.5i
 107 .  ds paper-monarch-width 3.875i
 108 .  ds paper-dl-length 22c
 109 .  ds paper-dl-width 11c
 110 .
 111 .  \" We assume that letters a-z and A-Z aren't mapped during start-up.
 112 .  tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
 113 .  di lowercase
 114 .    nop \*[paper]
 115 .    br
 116 .  di
 117 .  asciify lowercase
 118 .  chop lowercase
 119 .  tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
 120 .  ds paper \*[lowercase]
 121 .  rm lowercase
 122 .
 123 .  ds paper-p \*[paper]
 124 .  ds paper-l \*[paper]
 125 .  length paper-n \*[paper]
 126 .  if (\n[paper-n] > 1) \{\
 127 .    substring paper-p 0 -2
 128 .    substring paper-l -1 -1
 129 .    if !d paper-\*[paper-p]-length \{\
 130 .      ds paper-p \*[paper]
 131 .      ds paper-l
 132 .    \}
 133 .  \}
 134 .
 135 .  nr paper-w 0
 136 .
 137 .  ie d paper-\*[paper-p]-length \{\
 138 .    ie '\*[paper-l]'l' \{\
 139 .      pl \*[paper-\*[paper-p]-width]
 140 .      ll (\*[paper-\*[paper-p]-length] - 2i)
 141 .    \}
 142 .    el \{\
 143 .      ie '\*[paper-l]'' \{\
 144 .        pl \*[paper-\*[paper-p]-length]
 145 .        ll (\*[paper-\*[paper-p]-width] - 2i)
 146 .      \}
 147 .      el \
 148 .        nr paper-w 1
 149 .    \}
 150 .  \}
 151 .  el \
 152 .    nr paper-w 1
 153 .
 154 .  ie \n[paper-w] \
 155 .    tm warning: Unknown paper size `\*[paper]'
 156 .  el \
 157 .    if !r LL \
 158 .      nr LL \n[.l]u  \" for ms, mdoc, man
 159 .\}
 160 .
 161 .cp \n[_C]
 162 .
 163 .\" EOF