@SysInclude { eq }
@SysInclude { tab }
@SysInclude { fig }
@SysInclude { pas }
@SysInclude { graph }
@SysInclude { cprint }
@SysInclude { slides }
@SysDatabase @Reference { loutrefs }
@OverheadTransparencies
@Title { A Practical Introduction to the
Lout
Document Formatting System
}
@RunningTitle { lout }
@Author { Jeffrey H. Kingston }
@Institution {
Basser Dept. of Computer Science
The University of Sydney
}
@InitialLanguage { English }
//
@Overhead
@Title { A simple input file }
@Begin
@ID @Code {
"@SysInclude { doc }"
"@Doc @Text @Begin"
"Hello, world"
"@End @Text"
}
@LP
@LP
@Heading { How to format it }
@ID @Code {
"lout filename > out.ps"
"ghostview out.ps"
"mpr out.ps"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
Hello, world
}
@End @Overhead
@Overhead
@Title { Headings and paragraphs }
@Begin
@ID @Code {
"@SysInclude { doc }"
"@Doc @Text @Begin"
"@Heading { Introduction }"
"@PP"
"The design of the Lout formatting"
"system was undertaken with the"
"needs of the @I { ordinary user }"
"very much in mind."
"@End @Text"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Heading { Introduction }
@PP
The design of the Lout formatting
system was undertaken with the
needs of the @I { ordinary user }
very much in mind.
}
@End @Overhead
@Overhead
@Title { Displays }
@Begin
@ID @Code {
"You certainly don't want to return to"
"his office and report:"
"@IndentedDisplay @I {"
"`I can't find an efficient algorithm, I"
"guess I'm just too dumb.'"
"}"
"To avoid serious damage to your"
"position in the company, it would"
"be better if ..."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
You certainly don't want to return to
his office and report:
@IndentedDisplay @I {
`I can't find an efficient algorithm, I
guess I'm just too dumb.'
}
To avoid serious damage to your
position in the company, it would
be better if ...
}
@End @Overhead
@Overhead
@Title { Paragraph breaking styles }
@Begin
@ID @Code {
"You certainly don't want to return to"
"his office and report:"
"@ID { ragged nohyphen } @Break @I {"
"`I can't find an efficient algorithm, I"
"guess I'm just too dumb.'"
"}"
"To avoid serious damage to your"
"position in the company, it would"
"be better if ..."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
You certainly don't want to return to
his office and report:
@ID { ragged nohyphen } @Break @I {
`I can't find an efficient algorithm, I
guess I'm just too dumb.'
}
To avoid serious damage to your
position in the company, it would
be better if ...
}
@End @Overhead
@Overhead
@Title { Lists }
@Begin
@ID @Code {
"@Heading { Operating Instructions }"
"@NumberedList"
"@ListItem { Press small green lever. }"
"@ListItem { Wait approximately 10 seconds"
"until red light flashes. }"
"@ListItem { If smoke emerges from rear of unit,"
"call Service Department. }"
"@EndList"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Heading { Operating Instructions }
@NumberedList
@ListItem { Press small green lever. }
@ListItem { Wait approximately 10 seconds
until red light flashes. }
@ListItem { If smoke emerges from rear of unit,
call Service Department. }
@EndList
}
@End @Overhead
@Overhead
@Title { Technical reports }
@Begin
@ID @Code {
"@SysInclude { report }"
"@Report"
" @Title { ... }"
" @Author { ... }"
" @Institution { ... }"
" @DateLine { ... }"
"//"
"@Abstract { ... }"
"@Section { ... }"
"@Section { ... }"
"@Section { ... }"
"@Appendix { ... }"
"@Appendix { ... }"
}
@End @Overhead
@Overhead
@Title { Sections }
@Begin
@ID @Code {
"@Section"
" @Tag { dfs }"
" @Title { Depth-first search }"
"@Begin"
"@PP"
"We turn now to our first algorithm"
"on general graphs ..."
"@End @Section"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Heading { 10.6. Depth-first search }
@PP
We turn now to our first algorithm
on general graphs ...
}
@End @Overhead
@Overhead
@Title { Cross references }
@Begin
@ID @Code {
"For further information, consult"
"Section @NumberOf dfs on page"
"@PageOf { dfs }."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
For further information, consult
Section 10.6 on page 245.
}
@End @Overhead
@Overhead
@Title { References }
@Begin
@ID @Code {
"@Database @Reference { myrefs }"
"..."
"For the details, consult the User's"
"Guide @Cite { $kingston1995lout.user }."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
For the details, consult the User's
Guide [1].
@LP
...
@LP
@Heading { References }
@NumberedList
@LI @RefPrint kingston1995lout.user
@LI ...
@EndList
}
@End @Overhead
@Overhead
@Title { Database file myrefs.ld }
@Begin
@ID @Code {
"{ @Reference"
" @Tag { kingston1995lout.user }"
" @Type { Book }"
" @Author { Jeffrey H. Kingston }"
" @Title { A User's Guide to the Lout"
"Document Formatting System (Version 3) }"
" @Institution { Basser Department of"
"Computer Science }"
" @Address { University of Sydney"
"2006, Australia }"
" @Year { 1994 }"
"}"
}
@End @Overhead
@Overhead
@Title { Books (and theses) }
@Begin
@BulletList
@LI { Title page, preface, introduction }
@LI { Automatic table of contents }
@LI { Prefatory pages numbered in Roman numerals }
@LI { Chapters, sections, subsections, appendices }
@LI { References at end of chapters or book }
@LI { Running page headers }
@LI { Odd-even page formats }
@LI { Sorted index }
@EndList
@End @Overhead
@Overhead
@Title { Making a sorted index }
@Begin
@ID @Code {
"@PP"
"There are several possible ways to implement the"
"@I Partition procedure,"
"partition @Index { @I Partition (in {@I Quicksort}) }"
"but the following seems to be the best. Starting ..."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Heading { Index }
@LD lines @Break {
...
partial order, 227
@I Partition (in {@I Quicksort}), 189
postorder traversal
of binary tree, 19
topological ordering, 229
...
}
}
@End @Overhead
@Overhead
@Title { Equation formatting }
@Begin
@ID @Code {
"@SysInclude { eq }"
"..."
"Since @Eq { T(n-i) = T(0) = 0 } we have"
"@IndentedDisplay @Eq {"
"T(n) = big sum from i=0 to n-1 2 sup i = 2 sup n - 1"
"}"
"for the number of disk moves made by the Towers"
"of Hanoi algorithm, given @Eq { n } disks."
}
@End @Overhead
@Overhead @Begin
@ShowPage {
Since @Eq { T(n-i) = T(0) = 0 } we have
@IndentedDisplay @Eq {
T(n) = big sum from i=0 to n-1 2 sup i = 2 sup n - 1
}
for the number of disk moves made by the Towers of Hanoi
algorithm, given @Eq { n } disks.
}
@End @Overhead
@Overhead
@Title { Another equation }
@Begin
@ID @Code {
"@CenteredDisplay @Eq {"
"big int supp 1 on 0 `"
"dx over sqrt { 1 - x sup 2 }"
"= pi over 2"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@CenteredDisplay @Eq {
big int supp 1 on 0 `
dx over sqrt { 1 - x sup 2 }
= pi over 2
}
}
@End @Overhead
@Overhead
@Title { Tables }
@Begin
@ID @Code {
"@SysInclude { tab }"
"..."
"@Tab"
" @Fmta { @Col @I A ! @Col B }"
"{"
"@Rowa"
" A { Fortran }"
" B { The first ... language }"
"@Rowa"
" A { Algol-60 }"
" B { Said to be ... successors }"
"@Rowa"
" A { Pascal }"
" B { The famous ... successors }"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Tab
vmargin { 0.4v }
@Fmta { @Col @I A ! @Col B }
{
@Rowa
A { Fortran }
B { The first high-level
programming language }
@Rowa
A { Algol-60 }
B { Said to be a better
language than most of its successors }
@Rowa
A { Pascal }
B { The most famous of
Algol-60's successors }
}
}
@End @Overhead
@Overhead
@Title { Another table }
@Begin
@RID @Code {
"@Tab"
" hmargin { 0.4c }"
" vmargin { 0.3v }"
" side { single }"
" @Fmta { @Col @B @CC X @Over A,B,C }"
" @Fmtb { @Col @I A ! @Col B !! @Col C }"
"{"
""
"@Rowa above { single }"
" X { Value of mathematical ... dollars) }"
""
"@Rowb above { double }"
" A { Quadratic formula }"
" B { @Eq { x ^= { ... } over 2a } }"
" C { 3^.5 }"
""
"@Rowb below { single }"
" A { Binomial theorem }"
" B { @Eq { ( a + b ) sup n ^= ... b sup n-k } }"
" C { 12^ }"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
0.6 @Scale @Tab
hmargin { 0.4c }
vmargin { 0.3v }
side { single }
@Fmta { @Col @B @CC X @Over A,B,C }
@Fmtb { @Col @I A ! @Col B !! @Col C }
{
@Rowa
above { single }
X { Value of mathematical formulae (millions of dollars) }
@Rowb
above { double }
A { Quadratic formula }
B { @Eq { x ^= { minus b +- sqrt { b sup 2 - 4ac } } over 2a } }
C { 3^.5 }
@Rowb
below { single }
A { Binomial theorem }
B { @Eq { ( a + b ) sup n ^= big sum from k=0 to infty
matrix atleft { ( } atright { ) } { n above k } a sup k b sup n-k
} }
C { 12^ }
}
}
@End @Overhead
@Overhead
@Title { Pascal programs }
@Begin
@ID @Code {
"@SysInclude { pas }"
"..."
"@ID @Pas {"
"procedure DoPriAbstract(root: PriEntry);"
"begin"
" if root^.leftchild <> nil then begin"
" DoPriAbstract(root^.leftchild);"
" write(', ');"
" end;"
" PriKeyAbstract(root^.key);"
" write(':');"
" PriValueAbstract(root^.value);"
" if root^.rightchild <> nil then begin"
" write(', ');"
" DoPriAbstract(root^.rightchild);"
" end;"
"end;"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Pas {
procedure DoPriAbstract(root: PriEntry);
begin
if root^.leftchild <> nil then begin
DoPriAbstract(root^.leftchild);
write(', ');
end;
PriKeyAbstract(root^.key);
write(':');
PriValueAbstract(root^.value);
if root^.rightchild <> nil then begin
write(', ');
DoPriAbstract(root^.rightchild);
end;
end;
} |0io
}
@End @Overhead
@Overhead
@Title { Basic graphics }
@Begin
@ID @Code {
"45d @Rotate 1.5 @Scale @Box {"
" Hello, world"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@ID @Code {
45d @Rotate 1.5 @Scale @Box {
Hello, world
}
}
}
@End @Overhead
@Overhead
@Title { Advanced graphics }
@Begin
@ID @Code {
"@SysInclude { fig }"
"..."
"@Fig {"
"@Box"
" margin { 0c }"
" paint { black }"
"@Ellipse"
" linestyle { noline }"
" paint { white }"
"{ Hello, world }"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Fig {
@Box
margin { 0c }
paint { black }
@Ellipse
linestyle { noline }
paint { white }
{ Hello, world }
}
}
@End @Overhead
@Overhead
@Title { Point labelling }
@Begin
@ID @Code {
"@Fig {"
"A::"
"{"
" 1:: @Ellipse { 3c @Wide 2c @High }"
" //3c"
" 2:: @Box { 3c @Wide 2c @High }"
"}"
"@ShowLabels"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage {
@Fig {
A::
{
1:: @Ellipse { 3c @Wide 2c @High }
//3c
2:: @Box { 3c @Wide 2c @High }
}
@ShowLabels
}
}
@End @Overhead
@Overhead
@Title { Graphs }
@Begin
@LP
@ID -1p @Font @Code {
"@Graph"
" abovecaption { New South Wales road deaths"
"(per 100 million vehicle km) }"
"{"
" @Data points { plus } pairs { dashed }"
" { 1963 5.6 1971 4.3 1976 3.7 1979 3.4"
" 1982 2.9 1985 2.3 1988 2.0 }"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage @Graph
width { 9 cm }
height { 6 cm }
abovecaption { New South Wales road deaths
(per 100 million vehicle km) }
{
@Data
points { plus }
pairs { dashed }
{
1963 5.6 1971 4.3 1976 3.7 1979 3.4 1982 2.9 1985 2.3 1988 2.0
}
}
@End @Overhead
@Overhead @Begin
@RID @Code {
"-2p @Font @Graph"
" style { axes }"
" xorigin { 0 } yorigin { 0 }"
" xticks { 10@ 50@ 100@ 200@ 500@ }"
" objects { @NE at { 300 2 } @I { Exponential }"
" @SE at { ... } @I { Uniform } }"
" belowcaption { @I n }"
"{"
" @Data points { filledcircle } { ... }"
" @Data points { filledcircle } { ... }"
""
" @Data pairs { dashed }"
" { 10 2 500 2 }"
""
" @Data pairs { dashed }"
" {"
" xloop from { 10 } to { 500 } by { 20 } do"
" {"
" x sqrt { pi*x / 4 } + 1"
" }"
" }"
"}"
}
@End @Overhead
@Overhead @Begin
@ShowPage -2p @Font @Graph
style { axes }
xorigin { 0 }
yorigin { 0 }
width { 10 cm }
height { 7 cm }
xticks { 10@ 50@ 100@ 200@ 500@ }
objects {
@NE at { 300 2 } @I { Exponential }
@SE at { 300 sqrt { pi*300/4 } + 1 } @I { Uniform }
}
belowcaption { @I n }
belowgap { 0 cm }
{
@Data points { filledcircle }
{ 10 1.97 50 2.01 100 2.00 200 2.0 500 2.00 }
@Data points { filledcircle }
{ 10 3.53 50 7.45 100 9.32 200 13.41 500 21.63 }
@Data pairs { dashed }
{ 10 2 500 2 }
@Data pairs { dashed }
{
xloop from { 10 } to { 500 } by { 20 } do
{
x sqrt { pi*x / 4 } + 1
}
}
}
@End @Overhead
