@AlanMunn ` \draw[->,red] plot[smooth,tension=2] coordinates {(TRACE.south) (A.center)
(SUBJ.south)};` does perhaps do what you describe but it doesn't look good.
(SUBJ.south)};` does perhaps do what you describe but it doesn't look good.