macros

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· 代码 · 共 92 行

.ds N6 Six
.ds N9 Nine
.ds L1 at the beginning
.ds L2 in the second place
.ds L3 in the third place
.ds L4 in the fourth place
.ds L5 in the fifth place
.ds L6 at the top
.ds GR ()
.ds CR []
.ds BL \(em\(em\ \(em\(em
.ds SL \(em\(em\(em\(em\(em
.ds T1 Ch\'ien\ The Creative, Heaven
.ds T2 Sun\ \ \ \ The Gentle, Wind
.ds T3 Li\ \ \ \ \ The Clinging, Flame
.ds T4 K\o'^e'n\ \ \ \ Keeping Still, Mountain
.ds T5 Tui\ \ \ \ The Joyous, Lake
.ds T6 K\'an\ \ \ The Abysmal, Water
.ds T7 Ch\o'^e'n\ \ \ The Arousing, Thunder
.ds T8 K\'un\ \ \ The Receptive, Earth
.de H
.ds LH The Lines
.in 0
.ta 0.5i 1.0i 1.5i 2.0i
.na
.nf
.sp 2
\\$1.	\\$2 / \\$3
..
.de X
.sp
.XX \\$1 "above" "\\*(T\\$1"
.XX \\$2 "below" "\\*(T\\$2"
..
.de XX
.ie \\$1>4 	\\*(BL
.el 	\\*(SL
.ie (\\$1-1%4)>1 	\\*(BL\\c
.el 	\\*(SL\\c
	\\$2	\\$3
.ie \\$1%2 	\\*(SL
.el 	\\*(BL
..
.de J
.in 0
.sp
The Judgement
.na
.nf
.in 0.5i
.sp
..
.de I
.in 0
.sp
The Image
.na
.nf
.sp
.in 0.5i
..
.de LX
.in 0.5i
.ti -0.5i
.if '\\$3'G' \\{\\
\\*(GR	\\$1 \\$2 means:\\}
.if '\\$3'C' \\{\\
\\*(CR	\\$1 \\$2 means:\\}
.if '\\$3'' \\{\\
	\\$1 \\$2 means:\\}
..
.de L
.if !'\\*(LH'' \\{\\
.in 0
.sp
\\*(LH
.rm LH
.in 0.5i\\}
.sp
.LX "\\*(N\\$2" "\\*(L\\$1" \\$3
.na
.nf
..
.de LA
.sp
.if '\\$1'6' .LX "When all the lines are" "sixes, it"
.if '\\$1'9' .LX "When all the lines are" "nines, it"
.na
.nf
..
.po 0.5i