From 49a6126dc0cc532254edaeecec129961b132cac5 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Wed, 17 Nov 2010 14:40:15 +0200
Subject: beta 2010.11.17 13:27

---
 tex/context/base/pack-lyr.mkiv | 111 -----------------------------------------
 1 file changed, 111 deletions(-)

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

diff --git a/tex/context/base/pack-lyr.mkiv b/tex/context/base/pack-lyr.mkiv
index 8b35a98a7..955381d62 100644
--- a/tex/context/base/pack-lyr.mkiv
+++ b/tex/context/base/pack-lyr.mkiv
@@ -639,117 +639,6 @@
      [\c!background={\v!foreground,#1},
       \c!frame=\v!off,
       \c!offset=\v!overlay,#2]}
-
-% The next mechanism is obsolete and will be removed in \MKIV\ (or move to
-% the compatibility module.
-
-\newskip\xposition  \newskip\yposition
-\newskip\xdimension \newskip\ydimension
-\newskip\xoffset    \newskip\yoffset
-
-% already defined \newbox\positionbox
-
-\unexpanded\def\startpositioning
-  {\bgroup
-   \xposition \zeropoint     \yposition \zeropoint
-   \xdimension\zeropoint     \ydimension\zeropoint
-   \xoffset   \zeropoint     \yoffset   \zeropoint
-   \hfuzz     \paperwidth \vfuzz     \paperheight
-   \setbox\positionbox\hbox\bgroup}
-
-\unexpanded\def\stoppositioning
-  {\doifnot\@@psoffset\v!yes
-     {\global\xoffset\zeropoint
-      \global\yoffset\zeropoint}%
-   \global\advance\xdimension \xoffset
-   \global\advance\ydimension \yoffset
-   \egroup
-   \vbox to \ydimension
-     {\vskip\yoffset
-      \hbox to \xdimension
-        {\hskip\xoffset
-         \box\positionbox
-         \hfill}
-      \vfill}%
-   \egroup}
-
-\def\resetpositioning
-  {\getparameters[\??ps]
-     [\c!state=\v!start,%
-      \c!unit=\s!cm,%
-      \c!factor=1,%
-      \c!scale=1,%
-      \c!xfactor=\@@psfactor,%
-      \c!yfactor=\@@psfactor,%
-      \c!xscale=\@@psscale,%
-      \c!yscale=\@@psscale,%
-      \c!xstep=\v!absolute,%
-      \c!ystep=\v!absolute,%
-      \c!xoffset=\!!zeropoint,%
-      \c!yoffset=\!!zeropoint]}
-
-\unexpanded\def\setuppositioning
-  {\resetpositioning
-   \dodoubleargument\getparameters[\??ps]}
-
-\def\calculateposition#1#2#3#4#5#6#7#8#9%
-  {\setdimensionwithunit\scratchskip{#1}\@@psunit
-   \scratchskip#8\scratchskip
-   \scratchskip#9\scratchskip
-   \advance\scratchskip #4\relax
-   \doif{#2}\v!relative
-     {\advance\scratchskip #3%
-      \let#4\!!zeropoint}%
-   #3\scratchskip\relax
-   \doifnot\@@psstate\v!overlay
-     {\scratchskip#5\relax
-      \advance\scratchskip #3\relax
-      \ifdim#3<-#7\relax          \global#7-#3\relax          \fi
-      \ifdim\scratchskip>#6\relax \global#6\scratchskip\relax \fi}}
-
-\def\position
-  {\dosingleempty\doposition}
-
-\def\doposition[#1]#2(#3,#4)%
-  {\dowithnextbox
-     {\bgroup
-      \getparameters[\??ps][#1]%
-      \dontcomplain
-      \calculateposition{#3}\@@psxstep\xposition
-        \@@psxoffset{\nextboxwd}\xdimension\xoffset
-        \@@psxscale\@@psxfactor
-      \scratchdimen\nextboxht \advance\scratchdimen \nextboxdp
-      \calculateposition{#4}\@@psystep\yposition
-        \@@psyoffset\scratchdimen\ydimension\yoffset
-        \@@psyscale\@@psyfactor
-      \vbox to \zeropoint % kan beter.
-        {\vskip\yposition
-         \hbox to \zeropoint
-           {\hskip\xposition
-            \flushnextbox
-            \hss}
-         \vss}%
-      \xdef\dopoppositioning
-        {\xposition\the\xposition
-         \yposition\the\yposition
-         \noexpand\def\noexpand\@@psxoffset{\@@psxoffset}%
-         \noexpand\def\noexpand\@@psyoffset{\@@psyoffset}}%
-      \egroup
-      \dopoppositioning
-      \ignorespaces}
-   \hbox}
-
-\resetpositioning
-
-\setuppositioning
-  [\c!unit=\s!cm,
-   \c!factor=1,
-   \c!scale=1,
-   \c!xstep=\v!absolute,
-   \c!ystep=\v!absolute,
-   \c!offset=\v!yes,
-   \c!xoffset=\!!zeropoint,
-   \c!yoffset=\!!zeropoint]
 
 %D Watch out, a redefinition:
 
-- 
cgit v1.2.3