From d727c799380434800e74e7f7c2c8b7dd264bf6c1 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 16 Feb 2012 09:55:00 +0100
Subject: beta 2012.02.16 09:55

---
 tex/context/base/pack-rul.mkiv | 67 ++++++++++++++++++++++++++++--------------
 1 file changed, 45 insertions(+), 22 deletions(-)

(limited to 'tex/context/base/pack-rul.mkiv')

diff --git a/tex/context/base/pack-rul.mkiv b/tex/context/base/pack-rul.mkiv
index 43dcef7bf..18f0db163 100644
--- a/tex/context/base/pack-rul.mkiv
+++ b/tex/context/base/pack-rul.mkiv
@@ -1548,15 +1548,12 @@
 % \framed[width=12cm,height=3cm,orientation=-270]{\input ward\relax}
 
 \def\pack_framed_start_orientation
-  {\ifcase\p_framed_orientation\else
+  {\ifcase\p_framed_orientation
      \let\pack_framed_stop_orientation\relax
    \else
      \scratchcounter\p_framed_orientation % weird .. why
      \divide\scratchcounter\plustwo
      \ifodd\scratchcounter
-       \swapmacros\framedwidth\framedheight
-       \swapmacros\localwidth\localheight
-       \swapdimens\d_framed_height\d_framed_width
        \let\pack_framed_stop_orientation\pack_framed_stop_orientation_odd
      \else
        \let\pack_framed_stop_orientation\pack_framed_stop_orientation_even
@@ -2184,24 +2181,50 @@
 %D possible to the circumstances and act as natural as
 %D possible.
 
-\def\pack_framed_vboxed_hairline
-  {\bgroup
-   \dimen2=\ifconditional\c_framed_has_offset \localoffset \else \zeropoint \fi
-   \dimen4=\dimexpr\dimen2+\d_framed_linewidth\relax
-   \setbox0\vbox
-     {\advance\hsize 2\dimen4
-      \vskip\dimen2
-      \hrule
-        \!!height\d_framed_linewidth
-        \!!depth\zeropoint
-        \!!width\hsize
-      \vskip\dimen2}%
-   \endgraf\obeydepth\nointerlineskip
-   \moveleft\dimen4\box0
-   \endgraf\nointerlineskip\localbegstrut % beware, we might kill it in a style using \vskip\lineheight
-   \egroup}                               % so this must not be changed
-
-\def\pack_framed_hboxed_hairline % use framed dimen
+% \unexpanded\def\pack_framed_vboxed_hairline
+%   {\bgroup
+%    \dimen2=\ifconditional\c_framed_has_offset \localoffset \else \zeropoint \fi
+%    \dimen4=\dimexpr\dimen2+\d_framed_linewidth\relax
+%    \setbox0\vbox
+%      {\advance\hsize 2\dimen4
+%       \vskip\dimen2
+%       \hrule
+%         \!!height\d_framed_linewidth
+%         \!!depth\zeropoint
+%         \!!width\hsize
+%       \vskip\dimen2}%
+%    \endgraf\obeydepth\nointerlineskip
+%    \moveleft\dimen4\box0
+%    \endgraf\nointerlineskip\localbegstrut % beware, we might kill it in a style using \vskip\lineheight
+%    \egroup}                               % so this must not be changed
+
+\unexpanded\def\pack_framed_vboxed_hairline % nasty overlay mess .. needed for autowidth
+  {\begingroup
+   \scratchoffset\ifconditional\c_framed_has_offset \localoffset \else \zeropoint \fi
+   \scratchwidth \dimexpr\scratchoffset+\d_framed_linewidth\relax
+   \par
+   \nointerlineskip
+   \kern\scratchoffset
+   \dontleavehmode
+     \hrule\!!height\d_framed_linewidth\!!depth\zeropoint
+   \par
+   \kern-\d_framed_linewidth
+   \dontleavehmode
+     \hbox to \zeropoint{\normalhss\vrule\!!height\d_framed_linewidth\!!depth\zeropoint\!!width\scratchwidth}%
+     \hfill
+     \hbox to \zeropoint{\vrule\!!height\d_framed_linewidth\!!depth\zeropoint\!!width\scratchwidth\normalhss}%
+   \par
+   \nointerlineskip
+   \kern\scratchoffset
+   \nointerlineskip
+   \endgraf
+   \nointerlineskip
+   \localbegstrut
+   \endgroup}
+
+% todo:
+
+\unexpanded\def\pack_framed_hboxed_hairline % use framed dimen
   {\bgroup
    \dimen2=\ifconditional\c_framed_has_offset \localoffset \else \zeropoint \fi
    \ifconditional\c_framed_has_height
-- 
cgit v1.2.3