Initial revision

mkun/tmac.q5

@@ -0,0 +1,123 @@
+.\"	MACROES FOR EQUATIONS (file tmac.q5)
+.\"
+.\"		Th.A. Zoethout
+.\"
+.de EQ			\" START EQUATION
+.\"	.EQ [$1] [$2] [ $3 $4 ] [ $5 $6 ] [$7]
+.			\" $1 = Indented, Centered { C }
+.			\" $2 = indent from Left margin (I) { 0 }
+.			\" $3 = Left numbered, Right numbered {  }
+.			\" $4 = equation number { }
+.			\" $5 = Right numbered, Left numbered {  }
+.			\" $6 = equation number { }
+.			\" $7 = preceding vertical spacing { \n(VS }
+.			\" eqn checks against nested equations.
+.\"	WARNING: For "inline" equations the (almost) only reasonable
+.\"		 delimeter character is "$". All other seemingly useful
+.\"		 characters could be generated by t(a)b(e)l.
+.ch Id
+.nr EQ 0
+.nr EN 1
+.ie \&\\$1\&I\& .nr EQ 1
+.el .if !\&\\$1\&C\& .nr EN 0
+.nr EN +1
+.nr Ex 0
+.ie (\\$\\n(EN)=(\\$\\n(EN) .nr Ex \\$\\n(ENm
+.el .nr EN -1
+.if \\n(EN=1 .if \\n(Ex>0  .nr EQ 1
+.nr EN +1
+.ds E1 "
+.nr Et 0
+.if \&\\$\\n(EN\&L\& .nr Et 1
+.if \\n(Et=1 .nr EN +1
+.if \\n(Et=1 .ds E1 \\$\\n(EN
+.if \\n(Et=1 .nr EN +1
+.ds E2 "
+.nr Et 0
+.if \&\\$\\n(EN\&R\& .nr Et 1
+.if \\n(Et=1 .nr EN +1
+.if \\n(Et=1 .ds E2 \\$\\n(EN
+.if \\n(Et=1 .nr EN +1
+.nr Et 0
+.if \&\\$\\n(EN\&L\& .nr Et 1
+.if \\n(Et=1 .nr EN +1
+.if \\n(Et=1 .ds E1 \\$\\n(EN
+.if \\n(Et=1 .nr EN +1
+.ie \\n(EN=\\n(.$ .nr EN \\$\\n(.$
+.el .nr EN 0-1
+.ev 1
+.if !\&\\n(.z\&\& .br
+.di Ex
+..
+.de EN			\" END EQUATION
+.\"	.EN [$1]
+.			\" $1 = succeeding vertical spacing { \n(VS }
+.ie !\&\\n(.z\&Ex\& .Er W ".EN: no matching .EQ
+.el \{\
+.br
+.di
+.ev
+.rm Ex
+.ie \\n(dn=0 .if !\&\\*(E1\\*(E2\&\& .Et \\$1
+.el .Et \\$1
+.rm E1
+.rm E2
+.rm 10
+.rm 11
+.rm 12
+.rm 13
+.rm 14
+.rm 15
+.rm 16
+.rm 17
+.rm 18
+.rm 19
+.rm 20
+.rm 21
+.rm 22
+.rm 23
+.rr EN
+.rr E1
+.rr E2
+.rr Et
+.rr Ex
+.rr EQ
+.rr 10
+.rr 11
+.rr 12
+.rr 13
+.rr 14
+.rr 15
+.rr 16
+.rr 17
+.rr 18
+.rr 19
+.rr 20
+.rr 21
+.rr 22
+.rr 23 \}
+..
+.de Et			\" final rediversion of equation
+.			\" $1 = succeeding vertical spacing { \n(VS }
+.ie \\n(EN>=0 .sp \\n(ENv
+.el .sp \\n(VSu
+.ti \\n(.iu
+.ne \\n(NDv
+.rs
+.nr EN \\n(.u
+.if \\n(EN>0 .nf
+.nr Et \\n(.lu-\\n(.iu
+.if \\n(EQ=0 .nr E1 \\n(Etu-\\w\&\\*(E1\&u-\\w\&\\*(10\&u-\\w\&\\*(E2\&u/2u
+.if \\n(EQ=1 .nr E1 \\n(Exu-\\w\&\\*(E1\&u
+.if \\n(E1<1m .nr E1 1m
+.nr E1 1m/2u+\\w\&\\*(E1\&u+\\n(E1u/1m*1m-\\w\&\\*(E1\&u
+.nr E2 \\n(Etu-\\w\&\\*(E2\&u
+.pc
+\&\\*(E1\h#\\n(E1u#\\*(10\h#|\\n(E2u#\\*(E2
+.pc %
+.if \\n(EN>0 .fi
+.ie \\n(.$>0 .sp \\$1v
+.el .sp \\n(VSu
+..
+.\*($0
+.rm $0