| % Redefine pathforall for tracing. |
| % Can't be used recursively. |
| |
| /# {( )print} def |
| |
| /-pathforall /pathforall load def |
| |
| /pathforall |
| { /-close exch def /-curve exch def /-line exch def /-move exch def |
| {2 copy exch =only # =only ( moveto\n)print /-move load exec} |
| {2 copy exch =only # =only ( lineto\n)print /-line load exec} |
| {6 copy 6 -1 roll =only # 5 -1 roll =only # |
| 4 -1 roll =only # 3 -1 roll =only # exch =only # =only ( curveto\n)print |
| /-curve load exec} |
| {(closepath\n)print /-close load exec} |
| -pathforall flush } |
| def |
| |
| % Just print the current path |
| |
| /printpath |
| { {pop pop} {pop pop} {pop pop pop pop pop pop} {} pathforall } def |