1 .\" -*- mode: text; coding: utf-8; -*-
3 \# Copyright 2004-2018 Free Software Foundation, Inc.
5 \# Copying and distribution of this file, with or without modification,
6 \# are permitted in any medium without royalty provided the copyright
7 \# notice and this notice are preserved.
9 \# Most mom users rely on mom's document processing macros to format
10 \# their work. The doc processing macros take care of all things
11 \# typographic and are simple, clear and easy to learn. The kind of
12 \# "by hand" typesetting this file demonstrates is geared towards
13 \# professional typographers. Bear in mind, though, that the full
14 \# power of mom's typesetting capabilities can be brought to bear on
15 \# document processing as well.
19 .PAGE 8.5i 11i 1i 1i 1i \" Page size, margins
21 \# Basic type parameters
23 .FAMILY T \" Times Roman family
25 .PT_SIZE 12 \" Point size
26 .LS 14 \" Leading (line spacing)
27 .LEFT \" Set lines flush left, nofill mode
32 .KERN \" Automatic pairwise kerning
33 .LIGATURES \" Automatic ligature generation
34 .SMARTQUOTES \" Enable smartquotes
35 .SS 0 \" No extra space between sentences
37 .SP |1i-1v \" Advance 1 inch from top of paper to first baseline
39 .ALD .25v \" Advance an extra 1/4 linespace
40 .UNDERSCORE 3.5p "T\*[BU 4]asting notes using padding, string tabs \
43 .SP \" Add an extra line space
45 .FAM H \" Helvetica family
49 \# The following uses a combination of padding, string tabs, and the
50 \# FWD escape to set up five tabs with 1-pica gutters stretched over
51 \# the full line length.
53 .SILENT \" Don't print the next line
54 .PAD "\*[ST1]VIN#\*[ST1X]\*[FWD 1P]\*[ST2]ROBE#\*[ST2X]\
55 \*[FWD 1P]\*[ST3]NEZ#\*[ST3X]\*[FWD 1P]\*[ST4]BOUCHE#\*[ST4X]\
56 \*[FWD 1P]\*[ST5]COMMENTAIRES\*[ST5X]"
57 .SILENT OFF \" Resume normal printing of text
59 \# Now that the string tabs have been marked off, we "set" them.
61 .ST 1 L \" First string tab flush left, nofill (line-for-line) mode
62 .ST 2 L QUAD \" Remaining tabs are flush left/rag right, fill mode
67 .TAB 1 \" Call first tab
69 .TN \" Move to next tab and stay on the same baseline
76 .UNDERSCORE "COMMENTAIRES"
79 .ALD 6p \" Advance an extra 6 points
80 .FT R \" Change font to roman (medium)
81 .MCO \" Turn multi-column mode on
83 .TAB 1 \" Notice that this tab gets set line-for-line
84 \*[IT]Peelee Island \" Set italic
85 \*[PREV]Gewürztraminer \" Revert to former font (roman)
88 .MCR \" Return to top of column
89 .TAB 2 \" Call tab 2; in multi-column mode, don't use .TN
92 .TB 3 \" Notice that from here on, we use the alias TB instead of TAB
93 Frais, fruité, ci\%tronné, arômes fortes de lichee et de fruits
97 Doux, fruité, bien équilibré avec une bonne acidité.
100 Bon apéro. Servir avec des plats
101 .RW .1 \" Reduce Whitespace between letters to tighten this line
102 indiens ou \%chinois.
103 .RW 0 \" Back to normal spacing between letters
105 Excellent rapport qualité/prix.
106 .MCX 8p \" Multi-column mode off; advance an extra 8 points
107 .MCO \" Re-invoke multi-columns for next wine description
115 Rubis foncé, vio\%lacée, presque opaque.
118 Belles arômes de fruits foncés (prunes, cerises noires, cassis).
119 Odeurs tertiares de cuir, cèdre, violets, eucalyptus, avec une trace
120 exotique de Band-Aid*\*[BU 12].
122 \# The \*[BU 12], above, pulls the period back so that it falls
123 \# underneath the asterisk. \*[BP<n>] could have been used instead
124 \# if you prefer to use points rather than kern units.
128 Très rond, tannins mûres et veloutés, avec un long finis fruité et
129 doucement alcoolique.
132 Superbe\|! Une aubaine à ne pas manquer. Prêt à boire maintenant.
133 .MCX 1v \" Multi-columns off; advance an extra linespace
135 \# Now, an example of a hanging indent. This is excessively fussy
136 \# from a typographic standpoint in that it hangs the asterisk outside
137 \# the current left margin so that the text following it lines up with
138 \# with the text in the tasting notes. Notice that in order to use a
139 \# hanging indent, you must first set a left indent.
141 .FT I \" Change font to italic
142 .PT_SIZE -.5 \" Reduce point size by 1/2 point
143 .LS -.5 \" Reduce leading by 1/2 point
144 .JUSTIFY \" Set text justified
146 \# Now, move the left margin back by the width of an asterisk plus 2 points...
148 .L_MARGIN -(\w'*'+2p)
150 \# ...and set a left indent equal to the width of an asterisk plus 2 points
154 \# Now, set the hanging indent equal to the left indent, effectively
155 \# pulling the first line of the following text back to the new left
156 \# margin. Subsequent output lines will be indented by the .IL
157 \# amount. Notice that when using the \w inline escape, there's no
158 \# need to append a unit of measure.
161 *\*[FWD 1p]The term "Band-Aid" means the slightly sweet, vaguely chemical
162 smell associated with medical-grade plastics. It is often found in
163 wines from terroirs in South America. Provided a wine has a sufficient
164 concentration of fruit
165 .RW .04 \" Tighten the next line slightly, so "lipstick" doesn't hyphenate.
166 aromas and complex tertiary characteristics, Band-Aid is a Good Thing.
167 Otherwise, it smells like cheap lipstick.
168 .RW 0 \" Reset kerning to 0
170 \# Notice, above, that although the values for IL and HI are the width
171 \# of an asterisk plus 2 points, when setting the first line of text
172 \# (the one with the asterisk at the beginning), we put only 1 point of
173 \# space after the *. This is to compensate for the fact that in the
174 \# italic font, the letter T doesn't align visually with the rest of
175 \# the text. As already noted, this is an extremely fussy example. :)
177 .IQ CLEAR \" Cancel and clear stored indent values
178 .L_MARGIN 1i \" Reset left margin to its original value.
180 .ALD 2P \" Add 2-picas extra space before next example
191 In the next line, because the string to be underscored must be
192 enclosed in double-quotes, you can't use the double-quote character
193 itself around the word "Massaging". We circumvent this by using the
194 groff inline escapes \[lq] and \[rq] (leftquote and rightquote).
197 .UNDERSCORE 3.5p "\[lq]Massaging\[rq] \*[BCK 1p]a passage of rag right text"
198 .SP \" Add an extra linespace
202 .PT_SIZE -1 \" Reduce point size by 1 point
203 Passage using groff spacing defaults
205 .ALD .5v \" Add an extra 1/2 line space
207 .PT_SIZE +1 \" Restore point size
208 .QUAD LEFT \" Set quad left, fill mode
209 .IB 3P \" Indent 3 picas from both the left and right margins
211 The thousand injuries of Fortunato I had borne as I best could;
212 but when he ventured upon insult, I vowed revenge. You, who so well
213 know the nature of my soul, will not suppose, however, that I gave
214 utterance to a threat. \*[IT]At length\*[PREV] I would be
215 avenged; this was a point definitively settled\[em]but the very
216 definitiveness with which it was resolved, precluded the idea of
217 risk. I must not only punish, but punish with impunity. A
218 wrong is unredressed when retribution overtakes its redresser.
219 It is equally unredressed when the avenger fails to make himself
220 felt as such to him who has done the wrong.
223 \# The next line is set quad right, nofill mode, 1/2 point smaller
224 \# than the preceding text (using the \*[SIZE <n>] inline escape.
227 \*[SIZE -.5]\[em]Edgar Allen Poe, \*[IT]The Cask of Amontillado\*[PREV]\*[SIZE +.5]
228 .SP \" Extra linespace
229 .IBQ \" Disable "indent both"
231 \# The passage above, while acceptable in a longer document, exhibits a
232 \# few typographic flaws. The shape of the right margin rag exhibits
233 \# a decidedly "rounded" appearance. The word "I" stands alone at the
234 \# end of the third line. The space between the 1st and 2nd sentences
235 \# ("...revenge. You...") is too large, owing to the letter "Y" that
236 \# begins the 2nd sentence. The spacing between "A wrong..." (line 6)
237 \# is equally too large because of the way "A" and "w" fit together.
238 \# The em-dash before Edgar isn't vertically centered with the letter "E".
239 \# And so on. The most important correction below is fixing the rag
240 \# so that longer and shorter lines alternate. This is accomplished by
241 \# manually breaking lines and then slightly lengthening and shortening
242 \# them until a pleasing rag is achieved. The remainder of the little
243 \# flaws are fixed with inline escapes.
248 The same passage, \*[BU4]"massaged"
255 .HY OFF \" Turn automatic hyphenation off
256 .BR_AT_LINE_KERN \" Automatically insert a line break (.BR) at each .RW and .EW
257 .WS +1 \" Increase word space slightly
258 .IB \" Turn "indent both" back on; values are the same as before
260 The thousand injuries of Fortunato I had borne as I best could;
261 but when he ventured upon insult, I \*[BU2]vowed revenge.
262 \*[BU4]Y\*[BU6]ou, \*[BU4]who so \*[BU2]well know the nature
264 of my soul, \*[BU2]will not suppose, however, that I gave utterance
265 to a threat. \*[IT]At
267 length\*[PREV] I would be avenged; this was a point definitively
270 v\*[BU1]ery definitiveness with which it was resolved, precluded the
273 I must not only punish, but punish with impunity. A \*[BCK 1p]wrong
276 when retribution overtakes its redresser. It is equally unredressed
279 avenger fails to make himself felt as such to him \*[BU 2]who has
281 .RW 0 \" Restore normal kerning
282 .WS +0 \" Restore normal wordspacing
286 \*[UP 1.5p]\[em]\*[DOWN 1.5p]\*[BCK 1p]Edgar \*[BCK 1p]Allen Poe, \
287 \*[IT]The Cask of Amontillado\*[PREV]
288 .IQ CLEAR \" Cancel and clear stored values of all indents
290 .NEWPAGE \" Start a new page
291 .T_MARGIN 1i \" Set top margin to 1i (approx. equivalent to .ALD 1i-1v above)
301 .UNDERSCORE 3.5p "A \*[BU2]recipe for enumerated lists using indents"
302 .SP .5v \" Add an extra half line space
304 .FAM N \" New Century Schoolbook family
305 .el .if '\*[.T]'pdf' \
310 .HY \" Turn hyphenation back on
311 .JUSTIFY \" Justify text
312 This example demonstrates the use of left and hanging indents for
313 simple enumerated lists. Nested lists are possible, as the example
314 shows; however, the more complex the nesting, the wiser it becomes
315 to use (string) tabs, as seen in Example 4.
316 .DBX .5 0 \n[.l]u 2P+9p \" Draw box; \n[.l]u means "the current line length"
317 .IB 6p \" Indent from both left and right margins
319 \*[BD]Please note: mom\*[PREV] has macros that allow you to set
320 enumerated lists automatically. These examples merely show hanging
321 indents and string tabs in use.
324 .JUSTIFY \" Justify text
325 .IL \w'\0.\0' \" Establish a left indent equal to 2 figure spaces plus a period.
326 .HI \w'\0.\0' \" Establish a hanging indent equal to the left indent.
330 1.\0This is the first item in the list. N\*[BU2]otice how the first line
331 "hangs" back from the remaining text, which is otherwise
332 indented by the width of by two figure-spaces (digit-width
333 spaces) and a period.
335 .HI \" Notice that HI doesn't require an argument once the value's set
337 2.\0This is the second item in the list. As with the above item,
338 notice the use of the \*[BU8]\\0 escape sequence in the input
339 text. It's there to ensure that the space after the number/period
340 combination always remains the same (i.e. doesn't stretch when the
341 line is justified). That way, the text of each item always lines up
345 Now we're going to set a bullet-point list, indented from the text
346 above by 1 pica. IL arguments are always added to whatever value
347 is in already effect for IL, hence all we have to do is tell mom to
348 indent (from the current left indent) 1 pica plus the width of the
349 bullet character, \[bu]. \*[FWD 3p] puts three points of space after
350 the bullet so that the bullet and the text are visually separated.
354 .IL 1P+\w'\[bu]\*[FWD 3p]'
356 \# Hanging indents are always relative to the current left indent.
357 \# The additional 1-pica indent, above, already having been taken
358 \# care of, we only want to hang the first lines of bullet list
359 \# items back by the width of the bullet character plus its 3 extra
363 .HI \w'\[bu]\*[FWD 3p]'
364 \*[DOWN 1p]\[bu]\*[UP 1p]\*[FWD 3p]This is the first line of a
365 sublist with bullets. N\*[BU2]otice how the first line (the one
366 with the bullet) is indented exactly one pica from the text of the
367 list item above it, while the remaining lines align with the left
371 \*[DOWN 1p]\[bu]\*[UP 1p]\*[FWD 3p]This is the second item of the
372 sublist with bullets. \*[BU4]We could go on indefinitely, but let's
373 go back to the top level (numbered) list...
375 \# The easiest way to return to a previous indent value is by
376 \# subtraction. The argument to IL, above, was 1P+\w'[bu]\*[FWD
377 \# 3p]', so we just reverse it by putting a minus sign in front.
378 \# The parentheses are required for groff to evaluate the expression
381 .IL -(1P+\w'\[bu]\*[FWD 3p]')
382 .HI \w'\0.\0' \" Reset hanging indent for use with numbered items.
384 3.\0...and here we are.
385 .IQ CLEAR \" Don't forget to cancel and/or clear indents!
396 .UNDERSCORE 3.5p "A \*[BU 2]recipe for nested lists using string tabs"
400 .el .if '\*[.T]'pdf' \
406 Although setting up string tabs is a bit more complex than setting
407 up indents, it's \*[BU 3]well worth the effort, especially for
412 The PAD line, below, sets up two string tabs. The first (ST1) is
413 exactly the length of two figure spaces and a period. The second
414 (ST2) is simply "the remainder of the line."
417 .SILENT \" Don't print any of this
418 .PAD "\*[ST1]\0.\0\*[ST1X]\*[ST2]#\*[ST2X]"
419 .ST 1 L \" String tabs must be "set" after being marked off in a line
420 .ST 2 J \" ST 1 will be set flush left, nofill; ST 2 will be justified.
421 .SILENT OFF \" Restore printing
425 .TN \" Use .TN so text stays on the same baseline
426 This is the first item in the list. N\*[BU 2]otice how, just as in
427 Example 3, the first line hangs back from the remaining text, which
434 This is the second item in the list. N\*[BU 2]otice that when
435 setting "lists" with tabs, there's no need to use the \*[BU 8]\\0
436 escape sequence after the number/period combination in the input
440 Now, set up the indented bullet-point sublist. The PAD line
441 says: move forward 12 points (1 pica), then mark off a string
442 tab (ST3) that's the length of the bullet character; move foward
443 another three points, then make the next string tab (ST4) the
444 length of remainder of the line.
448 .PAD "\*[FWD 12p]\*[ST3]\[bu]\*[ST3X]\*[FWD 3p]\*[ST4]#\*[ST4X]"
454 \*[DOWN 1p]\[bu]\*[UP 1p]\c
456 This is the first line of a sublist with bullets. N\*[BU2]otice
457 how the bullets and the text line up exactly the same as in Example
461 \*[DOWN 1p]\[bu]\*[UP 1p]\c
463 This is the second item of the sublist with bullets. For the fun of
466 en-dashed sub-sublist.
467 .BR \" We're in fill mode right now, so you must terminate the line with BR
470 .PAD "\*[FWD 12p]\*[ST5]\[en]\*[ST5X]\*[FWD 4p]\*[ST6]#\*[ST6X]"
476 \*[UP .75p]\[en]\*[DOWN .75p]\c
478 Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam
479 nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam
480 erat, sed diam voluptua.
483 \*[UP .75p]\[en]\*[DOWN .75p]\c
485 At \*[BU 3]vero eos et accusam et justo duo dolores et ea rebum.
486 Stet clita kasd gubergren, no sea takimata sanctus est lorem ipsum
492 And here we are, back at the top-level numbered list with a minimum
498 Generally speaking, once you get the hang of string tabs and the
499 \*[BD]PAD\*[PREV] macro, you'll find setting up complex indenting
500 structures easier than with the indent macros.
513 .UNDERSCORE 3.5p "Word spacing"
516 .FAM P \" Palatino family
517 .el .if '\*[.T]'pdf' \
522 \# The "label" lines for the following are set in Helvetica
523 \# bold, one point smaller than the examples themselves. This
524 \# demonstrates the use of the groff inline escape \f[...] to change
525 \# both family and font inline. It also shows using the mom inline
526 \# \*S[...], which is an alternate form of the inline, \*[SIZE <n>]
528 \f[HB]\*S[-1]Normal word spacing\*S[+1]\*[PREV]
530 N\*[BU1]o\*[BU1]w \*[BU1]is the time for all good men to come to the aid of the party.
532 \f[HB]\*S[-1]Word spacing adjusted by \*[UP 1p]\*[BU3]+\*[DOWN 1p]\*[BU1]2\*S[+1]\*[PREV]
535 N\*[BU1]o\*[BU1]w \*[BU1]is the time for all good men to come to the aid of the party.
538 \f[HB]\*S[-1]Word spacing adjusted by \*[UP 1p]\*[BU3]+\*[DOWN 1p]4\*S[+1]\*[PREV]
541 N\*[BU1]o\*[BU1]w \*[BU1]is the time for all good men to come to the aid of the party.
544 \f[HB]\*S[-1]Word spacing adjusted by \*[UP 1p]\*[BU3]+\*[DOWN 1p]6\*S[+1]\*[PREV]
547 N\*[BU1]o\*[BU1]w \*[BU1]is the time for all good men to come to the aid of the party.
559 .UNDERSCORE 3.5p "Line kerning"
562 .FAM P \" Palatino family
563 .el .if '\*[.T]'pdf' \
569 \# Here, we set up some tabs so the examples can go into facing columns.
572 .TAB_SET 2 19.5P 19.5P L
574 .MCO \" Turn multi-columns on
576 \f[HB]\*S[-1]Unkerned line\*S[+1]\*[PREV]
578 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
580 \f[HB]\*S[-1]Line "tightened" \[en] .RW .1\*S[+1]\*[PREV]
582 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
585 \# In the next line, notice that because it uses a different family
586 \# (Helvetica instead of Palatino), the RW macro doesn't affect it.
588 \f[HB]\*S[-1]Line "tightened" \[en] .RW .2\*S[+1]\*[PREV]
590 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
592 \f[HB]\*S[-1]Line "tightened" \[en] .RW .3\*S[+1]\*[PREV]
594 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
597 \f[HB]\*S[-1]Unkerned line\*S[+1]\*[PREV]
598 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
600 \f[HB]\*S[-1]Line "loosened" \[en] .EW .1\*S[+1]\*[PREV]
602 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
604 \f[HB]\*S[-1]Line "loosened" \[en] .EW .2\*S[+1]\*[PREV]
606 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
608 \f[HB]\*S[-1]Line "loosened" \[en] .EW .3\*S[+1]\*[PREV]
610 "But this is \*[IT]important!\/"\*[PREV]she exclaimed.
622 .UNDERSCORE 3.5p "Cutaround using left\*[FU 2]/right indents, \
623 multi columns and a dropcap"
629 .BR_AT_LINE_KERN OFF \" In justified text, it's best to have this OFF
632 .TAB_SET 2 20.5P 18.5P J
636 \# The little picture of tux.
638 .if '\*[.T]'pdf' .PDF_IMAGE penguin.pdf 81p 96p
639 .if '\*[.T]'ps' .PSPIC penguin.ps 81p 96p
642 .XCOLOR red \" Initialize the X11 color, red
645 .DROPCAP L 3 COND 80 \" i.e. the letter L dropped 3 lines, condensed to 80% of its normal width
647 orem ipsum dolor sit amet, consetetur sa\%dip\%scing elitr, sed diam
648 nonumy eir\%mod tempor invidunt ut labore et dolore magna aliquyam
649 erat, sed diam voluptua.
652 At vero eos et accusam et justo duo dolores et ea rebum. Stet clita
653 kasd gubergren, no sea taki-
654 .SPREAD \" Force justify preceding line before starting indent
656 kimata sanctus est lorem ipsum dolor sit amet. Lorem ipsum dolor
657 sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod
661 Invidunt ut labore et dolore magna ali\%qu\%yam erat, sed diam
664 vero eos et accusam et justo duo dolores et ea rebum.
666 Stet clita kasd gubergren, no sea ta-
667 .SPREAD \" Force justify preceding line before quitting indent
669 kimata sanctus est lorem ipsum dolor sit amet. Lorem ipsum dolor
670 sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor
671 in\%vi\%dunt ut labore et dolore magna aliquyam erat. Sed diam
672 voluptua, at vero eos et accusam et justo duo
675 dolores et ea rebum. Stet clita no kasd guber-
679 gren, no sea takimata sanctus est lorem ipsum
681 dolor sit amet. Consetetur sadipscing elitr, sed diam nonumy eirmod
682 tempor invidunt ut labore et dolore.
684 Magna aliquyam erat, sed diam voluptua, at vero eos et accusam. Et
685 justo duo dolores et ea
688 rebum, stet clita kasd gubergren. No sea takimata sanctus est,
689 lorem ipsum dolor sit amet.
691 Sit amet, consetetur sadipscing elitr, sed diam. Nonumy eirmod
694 dunt ut labore et dolore magna. Ali-
696 quyam erat sed diam voluptua. At vero eos et accusam et justo duo
697 dolores et ea rebum stet.
700 Dolores et ea rebum stet clita kasd gubergren, no sea takimata
701 sanctus. Sadipscing elitr sed diam, nonumy eirmod tempor, invidunt
702 ut labore et dolore magna aliquyam erat. Sed diam voluptua, at vero
703 eos et accusam et justo duo dolores et ea rebum.
707 .\" vim: filetype=groff:
projects / platform / upstream / groff.git / blob