xpos.sty

xpos.sty

[Paul Jones]

[-- Attachment #1.1: Type: text/plain, Size: 2808 bytes --]

Hello,

Thank you again for very timely and great answers to my question yesterday.
I am finding that implementing things in Context is usually easier than I
expect.  This is very nice.  Our company decided to switch to context from
latex recently.  It seems to have been a very good decision.  Thanks for all
the work you do to make context so fun to use.

We have one last thing to get translated from latex to context.  David
Kastrup wrote a bit of latex for us (included below) that magically writes
out the absolute xy position of each paragraph and image to a log file for
us.  We pass some extra information to the commands that get put in the log
file for us, but in the end we mainly need a way to get the absolute xy
coordinates of the bounding boxes for each paragraph, each section title,
each image and each image caption.  Is there a way to get this information
with context already? Or do I need to get a new module written?

Thanks in advance for any advise,
paul



\newwrite\posit@write
\AtBeginDvi{\openout\posit@write \jobname.pos\relax}

\long\def\posit@protected@write#1#2#3{%
      \begingroup
       \let\thepage\relax
       #2%
       \let\protect\@unexpandable@protect
       \edef\reserved@a{\write#1{#3}}%
       \reserved@a
      \endgroup
      \if@nobreak\ifvmode\nobreak\fi\fi
}

\def\positionwrite{\ifx\protect\@typeset@protect
   \pdfsavepos
   \else \expandafter\@gobblefour \fi \posit@protected@write\posit@write{}}

\def\thexposition{\ifx\thepage\relax
  \noexpand\thexposition
   \else \strip@pt
  \dimexpr\pdflastxpos sp*\p@/\dimexpr 1bp\relax\relax \fi}
\def\theyposition{\ifx\thepage\relax
  \noexpand\theyposition
  \else \strip@pt
  \dimexpr(\ifnum\pdfoutput>\z@ \pdfpageheight\fi-\pdflastypos sp)%
  *\p@/\dimexpr 1bp\relax\relax \fi}
\def\thexyposition{\thexposition\space\theyposition}
\newbox\posit@box
\setbox\posit@box\box\voidb@x
\def\positionhwrite#1{%
  \global\setbox\posit@box\hbox{\unhbox\posit@box#1}%
  \ifhmode \unhbox\posit@box \fi}

\newtoks\posit@everypar
\posit@everypar\expandafter{\the\everypar}
\def\posit@level{\m@ne}
\everypar{\unhbox\posit@box
  \ifnum\currentgrouplevel=\posit@level
  \fi\the\posit@everypar}
\let\everypar\posit@everypar

\def\positiontop#1{\positionhwrite{\vadjust pre{\positionwrite{#1}}}}
\def\positionbottom#1{\positionhwrite{\vadjust{\positionwrite{#1}}}}
\def\positionbaseline#1{\positionhwrite{\positionwrite{#1}}}
\newcounter{positionpar}\relax
\newenvironment{positionpar}[2]{%
  \par
  \c@positionpar=\z@
  \toks@\expandafter{\number\currentgrouplevel\relax
         \advance\c@positionpar\@ne
         \ifhmode\expandafter\positiontop
                     \else\expandafter\positionwrite\fi{#1}}%
  \edef\posit@level{\the\toks@}%
  \def\position@endhook{#2}}{\ifhmode\par\fi\positionwrite{\position@endhook
}}

[-- Attachment #1.2: Type: text/html, Size: 3575 bytes --]

[-- Attachment #2: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Re: xpos.sty

[Hans Hagen]

Paul Jones wrote:
>
> Thank you again for very timely and great answers to my question 
> yesterday.  I am finding that implementing things in Context is 
> usually easier than I expect.  This is very nice.  Our company decided 
> to switch to context from latex recently.  It seems to have been a 
> very good decision.  Thanks for all the work you do to make context so 
> fun to use.
>
> We have one last thing to get translated from latex to context.  David 
> Kastrup wrote a bit of latex for us (included below) that magically 
> writes out the absolute xy position of each paragraph and image to a 
> log file for us.  We pass some extra information to the commands that 
> get put in the log file for us, but in the end we mainly need a way to 
> get the absolute xy coordinates of the bounding boxes for each 
> paragraph, each section title, each image and each image caption.  Is 
> there a way to get this information with context already? Or do I need 
> to get a new module written?
i dunno about that code but context has support for positions for years now, in your case you probably need something 

\starttext

\let\CurrentPos\empty

\def\StartPos#1%
  {\pushmacro\CurrentPos
   \edef\CurrentPos{mypos:#1}%
   \dontleavehmode\bpos\CurrentPos
   \ignorespaces}

\def\StopPos
  {\removeunwantedspaces
   \epos\CurrentPos
   \popmacro\CurrentPos}

\def\BoxPos#1%
  {\dowithnextbox{\hbox{\hpos{mypos:#1}{\box\nextbox}}}\vbox}

\StartPos{x}\input tufte \StopPos

\StartPos{y}\input zapf \StopPos

\placefigure
  {}
  {\BoxPos{q}{\framed[width=3cm,height=4cm]{}}}

\stoptext

in the *.tui/tuo file you can grep for mypos  



-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------

Re: xpos.sty

[Paul Jones]

[-- Attachment #1.1: Type: text/plain, Size: 2387 bytes --]

Again, that is exactly what we needed.  Thank you so much.

paul

On 8/29/06, Hans Hagen <pragma@wxs.nl> wrote:
>
> Paul Jones wrote:
> >
> > Thank you again for very timely and great answers to my question
> > yesterday.  I am finding that implementing things in Context is
> > usually easier than I expect.  This is very nice.  Our company decided
> > to switch to context from latex recently.  It seems to have been a
> > very good decision.  Thanks for all the work you do to make context so
> > fun to use.
> >
> > We have one last thing to get translated from latex to context.  David
> > Kastrup wrote a bit of latex for us (included below) that magically
> > writes out the absolute xy position of each paragraph and image to a
> > log file for us.  We pass some extra information to the commands that
> > get put in the log file for us, but in the end we mainly need a way to
> > get the absolute xy coordinates of the bounding boxes for each
> > paragraph, each section title, each image and each image caption.  Is
> > there a way to get this information with context already? Or do I need
> > to get a new module written?
> i dunno about that code but context has support for positions for years
> now, in your case you probably need something
>
> \starttext
>
> \let\CurrentPos\empty
>
> \def\StartPos#1%
>   {\pushmacro\CurrentPos
>    \edef\CurrentPos{mypos:#1}%
>    \dontleavehmode\bpos\CurrentPos
>    \ignorespaces}
>
> \def\StopPos
>   {\removeunwantedspaces
>    \epos\CurrentPos
>    \popmacro\CurrentPos}
>
> \def\BoxPos#1%
>   {\dowithnextbox{\hbox{\hpos{mypos:#1}{\box\nextbox}}}\vbox}
>
> \StartPos{x}\input tufte \StopPos
>
> \StartPos{y}\input zapf \StopPos
>
> \placefigure
>   {}
>   {\BoxPos{q}{\framed[width=3cm,height=4cm]{}}}
>
> \stoptext
>
> in the *.tui/tuo file you can grep for mypos
>
>
>
> -----------------------------------------------------------------
>                                           Hans Hagen | PRAGMA ADE
>               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
>                                              | www.pragma-pod.nl
> -----------------------------------------------------------------
>
> _______________________________________________
> ntg-context mailing list
> ntg-context@ntg.nl
> http://www.ntg.nl/mailman/listinfo/ntg-context
>

[-- Attachment #1.2: Type: text/html, Size: 3681 bytes --]

[-- Attachment #2: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context