contrib/groff-1.19/tmac/papersize.tmac

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