1 13f7391e 2004-05-15 devnull '''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro
3 13f7391e 2004-05-15 devnull .nr)y \n(.lu-.65i
4 13f7391e 2004-05-15 devnull .nr)x \n()yu/2u
10 13f7391e 2004-05-15 devnull .if\w\\$2 .ds s1 ~\|
12 13f7391e 2004-05-15 devnull .if\w\\$4 .ds s3 ~\|
13 13f7391e 2004-05-15 devnull .dsy \\*(s4\f3\a\fP\\*(s5
14 13f7391e 2004-05-15 devnull .ta\\n()yu-\w\\*(s5u
15 13f7391e 2004-05-15 devnull \h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5