Re: \externalfigure and dvi-output

[Hans Hagen <pragma@wxs.nl>]

At 07:51 16/05/2004, Peter Münster wrote:
>Hello,
>when using \externalfigure, the figure is shifted to the right in
>dvi-output. How could I fix this?
>TIA for any help, Peter
>
>Here an example:
>
>%\setupoutput[pdftex]
>\starttext
>X\externalfigure[example][width=3cm,frame=on]X
>\stoptext
>
>The eps-file is in the attachment.

put this in cont-new.tex:


\def\dogetobject#1#2#3#4#5#6#7%
   {\initializepaper
    \forgetall
    \dontshowcomposition
    \setbox\scratchbox\vbox
      {\doinsertobject{#1}{#2}}%
    \setbox\scratchbox#3%
      {\vbox to #5\scaledpoint
         {\ifdim\ht\scratchbox>#5\scaledpoint
     % or \ifdim\wd\scratchbox>#4\scaledpoint
            \vss\hbox to #4\scaledpoint{\hss\box\scratchbox\hss}\vss
          \else
            \vss\box\scratchbox
          \fi}}%
    \scratchdimen#7\scaledpoint
    \setbox\scratchbox\hbox
      {\hskip-\scratchdimen\lower\scratchdimen\box\scratchbox}%
    \wd\scratchbox#4\scaledpoint
    \ht\scratchbox#5\scaledpoint
    \dp\scratchbox#6\scaledpoint
    \box\scratchbox
    \elabelgroup}

and replace this in spec-tr.tex:



\definespecial\doinsertobject#1#2%
   {\bgroup
    \dogetobjectreference{#1}{#2}\DVIobjectreference
    \splittopskip\zeropoint
    \setbox0=\copy\DVIobjects
    \dimen0=\DVIobjectreference\onepoint
    \advance\dimen0 -\onepoint
    \setbox2\vsplit0 to \dimen0
    \ifdim\ht0>\onepoint
      \setbox0\vsplit0 to \onepoint
    \fi
    \unvbox0\setbox0\lastbox\box0
    \egroup}