[dragonfly.git] / contrib / groff / tmac / papersize.tmac

.\" papersize.tmac
.\"
.\" Set up groff for various paper sizes.
.\"
.\" Usage:
.\"
.\"   groff ... -dpaper=<format> ...
.\"
.\" Possible values for `format' are the same as the predefined `papersize'
.\" values (see the groff_font man page) except a7-d7.  An appended `l'
.\" (ell) character denotes landscape orientation.  Examples: `a4', `c3l',
.\" `letterl'.
.\"
.\" Most output drivers need additional command line switches `-p' and
.\" `-l' to override the default paper length and orientation as set in
.\" the driver specific DESC file.
.\"
.\" For example, use the following for PS output on A4 paper in landscape
.\" orientation::
.\"
.\"   groff -Tps -dpaper=a4l -P-pa4 -P-l -ms foo.ms > foo.ps
.
.nr _C \n(.C
.cp 0
.
.if d paper \{\
.  ds paper-a0-length 118.9c
.  ds paper-a0-width 84.1c
.  ds paper-a1-length 84.1c
.  ds paper-a1-width 59.4c
.  ds paper-a2-length 59.4c
.  ds paper-a2-width 42c
.  ds paper-a3-length 42c
.  ds paper-a3-width 29.7c
.  ds paper-a4-length 29.7c
.  ds paper-a4-width 21c
.  ds paper-a5-length 21c
.  ds paper-a5-width 14.8c
.  ds paper-a6-length 14.8c
.  ds paper-a6-width 10.5c
.
.  ds paper-b0-length 141.4c
.  ds paper-b0-width 100c
.  ds paper-b1-length 100c
.  ds paper-b1-width 70.7c
.  ds paper-b2-length 70.7c
.  ds paper-b2-width 50c
.  ds paper-b3-length 50c
.  ds paper-b3-width 35.3c
.  ds paper-b4-length 35.3c
.  ds paper-b4-width 25c
.  ds paper-b5-length 25c
.  ds paper-b5-width 17.6c
.  ds paper-b6-length 17.6c
.  ds paper-b6-width 12.5c
.
.  ds paper-c0-length 129.7c
.  ds paper-c0-width 91.7c
.  ds paper-c1-length 91.7c
.  ds paper-c1-width 64.8c
.  ds paper-c2-length 64.8c
.  ds paper-c2-width 45.8c
.  ds paper-c3-length 45.8c
.  ds paper-c3-width 32.4c
.  ds paper-c4-length 32.4c
.  ds paper-c4-width 22.9c
.  ds paper-c5-length 22.9c
.  ds paper-c5-width 16.2c
.  ds paper-c6-length 16.2c
.  ds paper-c6-width 11.4c
.
.  ds paper-d0-length 109.0c
.  ds paper-d0-width 77.1c
.  ds paper-d1-length 77.1c
.  ds paper-d1-width 54.5c
.  ds paper-d2-length 54.5c
.  ds paper-d2-width 38.5c
.  ds paper-d3-length 38.5c
.  ds paper-d3-width 27.2c
.  ds paper-d4-length 27.2c
.  ds paper-d4-width 19.2c
.  ds paper-d5-length 19.2c
.  ds paper-d5-width 13.6c
.  ds paper-d6-length 13.6c
.  ds paper-d6-width 9.6c
.
.  ds paper-letter-length 11i
.  ds paper-letter-width 8.5i
.  ds paper-legal-length 14i
.  ds paper-legal-width 8.5i
.  ds paper-tabloid-length 17i
.  ds paper-tabloid-width 11i
.  ds paper-ledger-length 11i
.  ds paper-ledger-width 17i
.  ds paper-statement-length 8.5i
.  ds paper-statement-width 5.5i
.  \" These dimensions for executive paper format is what all
.  \" printer manufacturers use.
.  ds paper-executive-length 10.5i
.  ds paper-executive-width 7.25i
.
.  ds paper-com10-length 9.5i
.  ds paper-com10-width 4.125i
.  ds paper-monarch-length 7.5i
.  ds paper-monarch-width 3.875i
.  ds paper-dl-length 22c
.  ds paper-dl-width 11c
.
.  \" We assume that letters a-z and A-Z aren't mapped during start-up.
.  tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
.  di lowercase
.    nop \*[paper]
.    br
.  di
.  asciify lowercase
.  chop lowercase
.  tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
.  ds paper \*[lowercase]
.  rm lowercase
.
.  ds paper-p \*[paper]
.  ds paper-l \*[paper]
.  length paper-n \*[paper]
.  if (\n[paper-n] > 1) \{\
.    substring paper-p 0 -2
.    substring paper-l -1 -1
.    if !d paper-\*[paper-p]-length \{\
.      ds paper-p \*[paper]
.      ds paper-l
.    \}
.  \}
.
.  nr paper-w 0
.
.  ie d paper-\*[paper-p]-length \{\
.    ie '\*[paper-l]'l' \{\
.      pl \*[paper-\*[paper-p]-width]
.      ll (\*[paper-\*[paper-p]-length] - 2i)
.    \}
.    el \{\
.      ie '\*[paper-l]'' \{\
.        pl \*[paper-\*[paper-p]-length]
.        ll (\*[paper-\*[paper-p]-width] - 2i)
.      \}
.      el \
.        nr paper-w 1
.    \}
.  \}
.  el \
.    nr paper-w 1
.
.  ie \n[paper-w] \
.    tm warning: Unknown paper size `\*[paper]'
.  el \
.    if !r LL \
.      nr LL \n[.l]u  \" for ms, mdoc, man
.\}
.
.cp \n[_C]
.
.\" EOF
Commit	Line	Data
92d0a6a6 JR	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'
465b256c JR	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'.
92d0a6a6 JR	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
4d3e9548 JL	97	. \" These dimensions for executive paper format is what all
	98	. \" printer manufacturers use.
	99	. ds paper-executive-length 10.5i
	100	. ds paper-executive-width 7.25i
92d0a6a6 JR	101	.
	102	. ds paper-com10-length 9.5i
	103	. ds paper-com10-width 4.125i
	104	. ds paper-monarch-length 7.5i
	105	. ds paper-monarch-width 3.875i
	106	. ds paper-dl-length 22c
	107	. ds paper-dl-width 11c
	108	.
465b256c JR	109	. \" We assume that letters a-z and A-Z aren't mapped during start-up.
	110	. tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
	111	. di lowercase
	112	. nop \*[paper]
	113	. br
	114	. di
	115	. asciify lowercase
	116	. chop lowercase
	117	. tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
	118	. ds paper \*[lowercase]
	119	. rm lowercase
	120	.
92d0a6a6 JR	121	. ds paper-p \*[paper]
	122	. ds paper-l \*[paper]
	123	. length paper-n \*[paper]
	124	. if (\n[paper-n] > 1) \{\
	125	. substring paper-p 0 -2
	126	. substring paper-l -1 -1
	127	. if !d paper-\*[paper-p]-length \{\
	128	. ds paper-p \*[paper]
	129	. ds paper-l
	130	. \}
	131	. \}
	132	.
	133	. nr paper-w 0
	134	.
	135	. ie d paper-\*[paper-p]-length \{\
	136	. ie '\*[paper-l]'l' \{\
	137	. pl \[paper-\[paper-p]-width]
	138	. ll (\[paper-\[paper-p]-length] - 2i)
	139	. \}
	140	. el \{\
	141	. ie '\*[paper-l]'' \{\
	142	. pl \[paper-\[paper-p]-length]
	143	. ll (\[paper-\[paper-p]-width] - 2i)
	144	. \}
	145	. el \
	146	. nr paper-w 1
	147	. \}
	148	. \}
	149	. el \
	150	. nr paper-w 1
	151	.
	152	. ie \n[paper-w] \
	153	. tm warning: Unknown paper size `\*[paper]'
	154	. el \
4d3e9548 JL	155	. if !r LL \
4d3e9548 JL	156	. nr LL \n[.l]u \" for ms, mdoc, man
92d0a6a6 JR	157	.\}
	158	.
	159	.cp \n[_C]
	160	.
	161	.\" EOF