This breaks on 4.9

# *** generic/src/contrib/groff/tmac/tmac.pspic	Sun Apr 13 00:59:09 1997
# --- jhs/src/contrib/groff/tmac/tmac.pspic	Tue Apr 29 10:14:30 1997
# ***************
# *** 28,34 ****
#   .br
#   .sy echo .ps-bb `psbb \\$1` >/tmp/psbb\\n[$$]
#   .so /tmp/psbb\\n[$$]
# - .sy rm /tmp/psbb\\n[$$]
#   .if \\n[ps-nargs]=4 \{\
#   .	nr ps-wid (\\n[ps-urx]-\\n[ps-llx])
#   .	nr ps-ht (\\n[ps-ury]-\\n[ps-lly])
# --- 28,33 ----
# ***************
# *** 36,48 ****
#   .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
#   .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
#   .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
# ! .	nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
#   *\\n[ps-ht]+500/1000
# - .	if \\n[.$]>=3&(\\n[ps-desht]>(i;0\\$3)) \{\
# - .		nr ps-desht (i;\\$3)
# - .		nr ps-deswid \\n[ps-desht]*1000+(\\n[ps-ht]/2)/\\n[ps-ht]\
# - *\\n[ps-wid]+500/1000
# - .	\}
#   .	ne \\n[ps-desht]u+1v
#   .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
#   .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
# --- 35,43 ----
#   .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
#   .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
#   .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
# ! .	ie \\n[.$]>=3 .nr ps-desht (i;\\$3)
# ! .	el .nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
#   *\\n[ps-ht]+500/1000
#   .	ne \\n[ps-desht]u+1v
#   .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
#   .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
# ***************
# *** 58,61 ****
# --- 53,57 ----
#   .	br
#   .	sp \\n[ps-desht]u
#   .\}
# + .sy rm /tmp/psbb\\n[$$]
#   ..
# ------------------
# 
# Julian
# ---
# Julian H. Stacey	jhs@

# 4.1.1 used name tmac.pspic, 4.4 uses pspic.tmac.

# *** 4.4-RELEASE/src/contrib/groff/tmac/pspic.tmac	Sun Apr 13 00:59:09 1997
# --- jhs/src/contrib/groff/tmac/pspic.tmac	Tue Apr 29 10:14:30 1997
# ***************
# *** 28,34 ****
#   .br
#   .sy echo .ps-bb `psbb \\$1` >/tmp/psbb\\n[$$]
#   .so /tmp/psbb\\n[$$]
# - .sy rm /tmp/psbb\\n[$$]
#   .if \\n[ps-nargs]=4 \{\
#   .	nr ps-wid (\\n[ps-urx]-\\n[ps-llx])
#   .	nr ps-ht (\\n[ps-ury]-\\n[ps-lly])
# --- 28,33 ----
# ***************
# *** 36,48 ****
#   .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
#   .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
#   .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
# ! .	nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
#   *\\n[ps-ht]+500/1000
# - .	if \\n[.$]>=3&(\\n[ps-desht]>(i;0\\$3)) \{\
# - .		nr ps-desht (i;\\$3)
# - .		nr ps-deswid \\n[ps-desht]*1000+(\\n[ps-ht]/2)/\\n[ps-ht]\
# - *\\n[ps-wid]+500/1000
# - .	\}
#   .	ne \\n[ps-desht]u+1v
#   .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
#   .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
# --- 35,43 ----
#   .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
#   .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
#   .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
# ! .	ie \\n[.$]>=3 .nr ps-desht (i;\\$3)
# ! .	el .nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
#   *\\n[ps-ht]+500/1000
#   .	ne \\n[ps-desht]u+1v
#   .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
#   .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
# ***************
# *** 58,61 ****
# --- 53,57 ----
#   .	br
#   .	sp \\n[ps-desht]u
#   .\}
# + .sy rm /tmp/psbb\\n[$$]
#   ..

# 4.5-RELEASE has no .sy string so the first patch failed,
#	2nd & 3rd patch worked, but I'm guessing I should probably drop 3rd
#	patch.  I'll come back & analyse this later maybe
*** 4.5-RELEASE/src/contrib/groff/tmac/pspic.tmac	Wed Mar 27 00:04:04 2002
--- jhs/src/contrib/groff/tmac/pspic.tmac	Wed Mar 27 00:16:01 2002
***************
*** 34,46 ****
  .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
  .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
  .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
! .	nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
  *\\n[ps-ht]+500/1000
- .	if \\n[.$]>=3&(\\n[ps-desht]>(i;0\\$3)) \{\
- .		nr ps-desht (i;\\$3)
- .		nr ps-deswid \\n[ps-desht]*1000+(\\n[ps-ht]/2)/\\n[ps-ht]\
- *\\n[ps-wid]+500/1000
- .	\}
  .	ne \\n[ps-desht]u+1v
  .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
  .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
--- 34,42 ----
  .	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
  .	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
  .	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
! .	ie \\n[.$]>=3 .nr ps-desht (i;\\$3)
! .	el .nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
  *\\n[ps-ht]+500/1000
  .	ne \\n[ps-desht]u+1v
  .       if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
  .       if \\n[ps-offset-mode]=1 .nr ps-offset 0
***************
*** 56,60 ****
--- 52,57 ----
  .	br
  .	sp \\n[ps-desht]u
  .\}
+ .\" Maybe: .sy rm /tmp/psbb\\n[$$]
  .HTML-IMAGE-END
  .







.