[dev-context] strc-flt.mkiv

Wolfgang Schuster schuster.wolfgang at googlemail.com
Fri Jul 1 13:00:06 CEST 2011


I’m not sure about this:

\def\movedownsidefloat[#1]% already in core
  {\bgroup
   \cleanupfeatures
   \doifinstringelse{:}{#1}
     \donothing
     {\def\docommand##1%
        {\processaction
           [##1]%
           [ \v!line=>\dodocommand+,%
            +\v!line=>\dodocommand+,%
            -\v!line=>\dodocommand-]}%
      \def\dodocommand##1%
        {\ifdone\else\global\sidefloatdownshift\zeropoint\donetrue\fi
         \global\advance\sidefloatdownshift##1\lineheight}%
      \donefalse\normalexpanded{\noexpand\dorepeatwithcommand[#1]}\docommand
      \def\docommand##1%
        {\processaction
           [##1]%
           [ \v!hang=>\dodocommand+,%
            +\v!hang=>\dodocommand+,%
            -\v!hang=>\dodocommand-]}%
      \def\dodocommand##1% inefficient but who cares
-       {\ifdone\else\global\sidefloatsidelines\zeropoint\donetrue\fi
-        \global\advance\sidefloatsidelines\plusone\relax}%
+       {\ifdone\else\global\sidefloatsidelines\zerocount\donetrue\fi
+        \global\advance\sidefloatsidelines##1\plusone\relax}%
      \donefalse\normalexpanded{\noexpand\dorepeatwithcommand[#1]}\docommand}%
   \egroup}

Wolfgang



More information about the dev-context mailing list