1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
'''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro .tr ~ .nr)y \n(.lu-.65i .nr)x \n()yu/2u .dss2 ~~~ .dss4 ~ .dss5 ~ .dexx .dss1 .if\w\\$2 .ds s1 ~\| .dss3 .if\w\\$4 .ds s3 ~\| .dsy \\*(s4\f3\a\fP\\*(s5 .ta\\n()yu-\w\\*(s5u \h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5 .. .nf