lpic 0.8 (23dec10)

git-svn-id: svn://tug.org/texlive/trunk@20843 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 724 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/lpic/lpic.sty b/Master/texmf-dist/tex/latex/lpic/lpic.sty
new file mode 100644
index 00000000000..923f44e8e97
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/lpic/lpic.sty
@@ -0,0 +1,724 @@
+%% lpic.sty
+%% Copyright 2010 R. Matveyev
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+% 
+% The Current Maintainer of this work is R. Matveyev.
+%
+% This work consists of the files: 
+%       lpic.sty  instructions.tex
+%       instructions.pdf instructions-differential.eps 
+%       instructions-differential.pdf README 
+
+% lpic.sty V0.8, 23.12.2010
+% 
+
+\ProvidesPackage{lpic}
+    [2010/12/23, version 0.8]
+
+\NeedsTeXFormat{LaTeX2e}
+\RequirePackage{epsfig}
+\RequirePackage{rotating}
+\RequirePackage{calc}
+\RequirePackage{ifthen}
+\RequirePackage{color}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% debugging stuff
+%
+
+\newcommand{\lp@skipthis}[1]{\relax}
+\newcommand{\lp@msg}[1]{\message{^^J! lpic message: #1^^J}}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Counters, lengths, boxes
+%
+
+% Adjustable parameters
+\newlength{\lpunitlength}\setlength{\lpunitlength}{1mm}
+
+\newlength{\lpmarginright}\setlength{\lpmarginright}{0mm}
+\newlength{\lpmarginleft}\setlength{\lpmarginleft}{0mm}
+\newlength{\lpmargintop}\setlength{\lpmargintop}{0mm}
+\newlength{\lpmarginbottom}\setlength{\lpmarginbottom}{0mm}
+
+\newlength{\lpbgboxsep}\setlength{\lpbgboxsep}{\fboxsep}
+
+\newlength{\lpgridthickness}\setlength{\lpgridthickness}{0.01mm}
+\newlength{\lpframethickness}\setlength{\lpframethickness}{0.7mm}
+\newlength{\lplblframethickness}\setlength{\lplblframethickness}{0.01mm}
+\newlength{\lpfigframethickness}\setlength{\lpfigframethickness}{0.2mm}
+
+\newcounter{lpgridstep}\setcounter{lpgridstep}{5}
+\newcounter{lpcoordstep}\setcounter{lpcoordstep}{10}
+
+% Internal parameters
+\newlength{\lp@marginright}
+\newlength{\lp@marginleft}
+\newlength{\lp@margintop}
+\newlength{\lp@marginbottom}
+\newlength{\lp@xsizeorig}
+\newlength{\lp@ysizeorig}
+\newlength{\lp@xtotalsizeorig}
+\newlength{\lp@ytotalsizeorig}
+\newlength{\lp@gridstep}
+\newlength{\lp@coordstep}
+\newlength{\lp@coordx}
+\newlength{\lp@coordy}
+
+\newcounter{lp@xtotalsize}
+\newcounter{lp@ytotalsize}
+\newcounter{lp@xorigin}
+\newcounter{lp@yorigin}
+\newcounter{lp@coordx}
+\newcounter{lp@coordy}
+
+\newsavebox{\lp@pictbox}		%box to save (ps or pdf)-figure
+
+% Temp stuff
+\newlength{\lp@tmpa}
+\newlength{\lp@tmpb}
+\newlength{\lp@tmpc}
+\newlength{\lp@tmpd}
+\newlength{\lp@tmpx}
+\newlength{\lp@tmpy}
+\newlength{\lp@tmpdx}
+\newlength{\lp@tmpdy}
+
+\newcounter{lp@tmpa}
+\newcounter{lp@tmpb}
+\newcounter{lp@tmpc}
+\newcounter{lp@tmpd}
+\newcounter{lp@tmpe}
+\newcounter{lp@tmpf}
+\newcounter{lp@tmpx}
+\newcounter{lp@tmpy}
+\newcounter{lp@tmpdx}
+\newcounter{lp@tmpdy}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Procedure to check whether argument is a number or length
+% we need a way to check whether given argument is a number or 
+% length \lp@ifnumber{arg}{true cmds}{false cmds}
+
+\def\lp@substring#1 in #2;%
+   {%
+     \def\lp@check##1#1##2ENDOFTHEARGS%
+		  {\edef\lp@foundsubstring{\lp@foundsubstring##2}}%
+     \expandafter\lp@check#2#1ENDOFTHEARGS%
+   }
+
+\def\lp@ifsubstring#1 in #2;#3#4%
+   {%
+     \edef\lp@foundsubstring{}%
+     \lp@substring #1 in #2;%
+     \ifthenelse{\equal{x}{x\lp@foundsubstring}}{#4}{#3}%
+   }
+
+\newcommand{\lp@ifnumber}[3]%
+   {%
+     \edef\lp@foundsubstring{}%
+     \lp@substring pt in #1;%
+     \lp@substring pc in #1;%
+     \lp@substring in in #1;%
+     \lp@substring bp in #1;%
+     \lp@substring cm in #1;%
+     \lp@substring mm in #1;%
+     \lp@substring dd in #1;%
+     \lp@substring cc in #1;%
+     \lp@substring sp in #1;%
+     \lp@substring em in #1;%
+     \lp@substring ex in #1;%
+     \ifthenelse{\equal{\lp@foundsubstring}{}}{#2}{#3}%
+   }
+
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Save scaled picture in \lp@pictbox, calculate its sizes, calculate
+% sizes and the origin of the whole picture box and define procedure
+% for calculating coordinates
+% \lp@dimens defines \lp@xtotalsize!, \lp@ytotalsize!, \lp@xorig!,
+% \lp@yorig!, \lp@xcoord{original_length_in_\lp@units},
+% \lp@ycoord{original_length_in_\lp@units} 
+%
+
+\newcommand{\lp@dimens}
+{%
+  % Save unscaled pict and calculate sizes
+  \sbox{\lp@pictbox}{\epsfig{figure=\lp@epsfile}}%
+  \settowidth{\lp@xsizeorig}{\usebox{\lp@pictbox}}% Original x-size
+  \settoheight{\lp@ysizeorig}{\usebox{\lp@pictbox}}% Original y-size
+  %
+  % Are we given absolute dimensions or scale coefficients?
+  \ifthenelse{\equal{\lp@xscale}{}}%
+      % x scale is not given
+      {%
+	%\lp@msg{x=\lp@xscale, y=\lp@yscale}
+	\ifthenelse{\equal{\lp@yscale}{}}
+	    % x - no, y - no
+	    {%
+	      \edef\lp@xnum{1cm}\edef\lp@xdenom{1cm}%
+	      \edef\lp@ynum{1cm}\edef\lp@ydenom{1cm}%
+	    }%
+	    % x - no, y - yes
+	    {%
+	      \lp@ifnumber{\lp@yscale}
+		 {%
+		   \edef\lp@ynum{\lp@yscale cm}\edef\lp@ydenom{1cm}% 
+		   \edef\lp@xnum{\lp@yscale cm}\edef\lp@xdenom{1cm}%
+		 }%
+		 {%
+		   \edef\lp@ynum{\lp@yscale}\def\lp@ydenom{\lp@ysizeorig}%
+		   \edef\lp@xnum{\lp@yscale}\def\lp@xdenom{\lp@ysizeorig}% 
+		 }%
+	    }%
+      }%
+      % x is given
+      {%
+	\ifthenelse{\equal{\lp@yscale}{}}
+	    % x - yes, y - no
+	    {%
+	      \lp@ifnumber{\lp@xscale}
+		 {%
+		   \edef\lp@ynum{\lp@xscale cm}\edef\lp@ydenom{1cm}%
+		   \edef\lp@xnum{\lp@xscale cm}\edef\lp@xdenom{1cm}%
+		 }%
+		 {%
+		   \edef\lp@ynum{\lp@xscale}\def\lp@ydenom{\lp@xsizeorig}%
+		   \edef\lp@xnum{\lp@xscale}\def\lp@xdenom{\lp@xsizeorig}%
+		 }%
+	    }%
+	    % x - yes, y - yes
+	    {%
+	      \lp@ifnumber{\lp@xscale}
+	         {%
+		   \edef\lp@xnum{\lp@xscale cm}\edef\lp@xdenom{1cm}%
+		 }
+		 {%
+		   \edef\lp@xnum{\lp@xscale}\def\lp@xdenom{\lp@xsizeorig}%
+		 }
+	      \lp@ifnumber{\lp@yscale}
+	         {%
+		   \edef\lp@ynum{\lp@yscale cm}\edef\lp@ydenom{1cm}%
+		 }
+		 {%
+		   \edef\lp@ynum{\lp@yscale}\def\lp@ydenom{\lp@ysizeorig}%
+		 }%
+		 
+	    }%
+      }%
+  %\lp@msg{xscale=\lp@xnum/\lp@xdenom, yscale=\lp@ynum/\lp@ydenom}
+  \setlength{\lp@tmpx}{\lp@xsizeorig * \ratio{\lp@xnum}{\lp@xdenom}}% x-size in the doc
+  \setlength{\lp@tmpy}{\lp@ysizeorig * \ratio{\lp@ynum}{\lp@ydenom}}% y-size in the doc
+  % Save scaled picture  
+  \sbox{\lp@pictbox}% 
+       {\epsfig{figure=\lp@epsfile, width=\lp@tmpx, height=\lp@tmpy}}%
+  % Calculate sizes and coordinates of the origin of the whole pict 
+  \setlength{\lp@tmpa}{\lp@tmpx + \lpmarginleft + \lpmarginright}%
+  \setcounter{lp@xtotalsize}{\lp@tmpa / \unitlength}%
+  \def\lp@xtotalsize{\value{lp@xtotalsize}}%
+  \setlength{\lp@tmpa}{\lp@tmpy + \lpmargintop + \lpmarginbottom}%
+  \setcounter{lp@ytotalsize}{\lp@tmpa / \unitlength}%
+  \def\lp@ytotalsize{\value{lp@ytotalsize}}%
+  \setcounter{lp@xorigin}{-\lpmarginleft / \unitlength}%
+  \def\lp@xorigin{\value{lp@xorigin}}%
+  \setcounter{lp@yorigin}{-\lpmarginbottom / \unitlength}%
+  \def\lp@yorigin{\value{lp@yorigin}}%
+  % Redefine margins in units of the original
+  \setlength{\lp@marginleft}{\lpmarginleft / \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setlength{\lp@marginright}{\lpmarginright / \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setlength{\lp@margintop}{\lpmargintop / \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setlength{\lp@marginbottom}{\lpmarginbottom / \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setlength{\lp@xtotalsizeorig}%
+	    {\lp@xsizeorig + \lp@marginleft + \lp@marginright}%
+  \setlength{\lp@ytotalsizeorig}%
+	    {\lp@ysizeorig + \lp@margintop + \lp@marginbottom}%
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Define \lp@put(x,y)[position]{object}
+% \lp@multiput(x,y)(deltax,deltay)[position]{count}{object} 
+% where (x,y)(deltax,deltay) are lengths in the original unscaled eps
+% picture.
+% 
+\def\lp@put(#1,#2)[#3]#4%
+{{%
+  \setlength{\lp@tmpx}{( #1 ) * \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setlength{\lp@tmpy}{( #2 ) * \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setcounter{lp@tmpx}{\lp@tmpx / \unitlength}%
+  \setcounter{lp@tmpy}{\lp@tmpy / \unitlength}%
+  \put(\value{lp@tmpx},\value{lp@tmpy})%
+      {\makebox(0,0)[#3]{#4}}%
+}}
+ 
+\def\lp@multiput(#1,#2)(#3,#4)(#5)[#6]#7%
+{{%
+  \setlength{\lp@tmpx}{( #1 ) * \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setlength{\lp@tmpy}{( #2 ) * \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setcounter{lp@tmpx}{\lp@tmpx / \unitlength}%
+  \setcounter{lp@tmpy}{\lp@tmpy / \unitlength}%
+  \setlength{\lp@tmpdx}{( #3 ) * \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setlength{\lp@tmpdy}{( #4 ) * \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setcounter{lp@tmpdx}{\lp@tmpdx / \unitlength}%
+  \setcounter{lp@tmpdy}{\lp@tmpdy / \unitlength}%
+  \multiput(\value{lp@tmpx},\value{lp@tmpy})%
+           (\value{lp@tmpdx},\value{lp@tmpdy})%
+           {#5}%
+	   {\makebox(0,0)[#6]{#7}}%
+}}
+
+\def\lp@hline#1%
+{{%
+  \setlength{\lp@tmpa}{#1}%
+  \setlength{\lp@tmpa}{\lp@tmpa * \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setcounter{lp@tmpa}{\lp@tmpa / \unitlength}%
+  \line(1,0){\value{lp@tmpa}}%
+}}
+
+\def\lp@vline#1%
+{{%
+  \setlength{\lp@tmpa}{#1}%
+  \setlength{\lp@tmpa}{\lp@tmpa * \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setcounter{lp@tmpa}{\lp@tmpa / \unitlength}%
+  \line(0,1){\value{lp@tmpa}}%
+}}
+
+% \lp@put.....
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Drawing commands
+%
+
+% \lp@pictframecmd draws a frame around all of the picture including
+% margins. \lpframethickness -- thickness of the lines
+\newcommand{\lp@pictframecmd}
+{\begingroup%
+  \linethickness{\lpframethickness}%
+  \lp@put(-\lp@marginleft,-\lp@marginbottom)[l]
+	 {\lp@hline{\lp@xsizeorig+\lp@marginleft+\lp@marginright}}%
+  \lp@put(-\lp@marginleft,-\lp@marginbottom)[b]
+	 {\lp@vline{\lp@ysizeorig+\lp@margintop+\lp@marginbottom}}%
+  \lp@put(\lp@xsizeorig+\lp@marginright,\lp@ysizeorig+\lp@margintop)[r]
+	 {\lp@hline{\lp@xsizeorig+\lp@marginleft+\lp@marginright}}%
+  \lp@put(\lp@xsizeorig+\lp@marginright,\lp@ysizeorig+\lp@margintop)[t]
+	 {\lp@vline{\lp@ysizeorig+\lp@margintop+\lp@marginbottom}}%
+\endgroup}
+
+% \lp@gridcmd draws a grid with the step \value{lpgridstep} x
+% \lpunitlength wrt original and lines \lpgridthickness thick
+\newcommand{\lp@gridcmd}
+{%
+\begingroup%
+  \linethickness{\lpgridthickness} % 
+  \setlength{\lp@gridstep}{\lpunitlength * \value{lpgridstep}}%
+  \setcounter{lp@tmpa}{\lp@marginleft / \lp@gridstep}%
+  \setlength{\lp@tmpa}{-\lp@gridstep * \value{lp@tmpa}}%
+  \setcounter{lp@tmpb}
+	     {(\lp@xsizeorig-\lp@tmpa+\lp@marginright ) / %
+	       \lp@gridstep + 1}%
+  \lp@multiput(\lp@tmpa,-\lp@marginbottom)%
+              (\lp@gridstep,0mm)%
+              (\value{lp@tmpb})%
+              [b]%
+              {\lp@vline{\lp@ysizeorig+\lp@margintop+\lp@marginbottom}}%
+  \setcounter{lp@tmpa}{\lp@marginbottom / \lp@gridstep}%
+  \setlength{\lp@tmpa}{-\lp@gridstep * \value{lp@tmpa}}%
+  \setcounter{lp@tmpb}
+	     {(\lp@ysizeorig-\lp@tmpa+\lp@margintop ) / %
+	       \lp@gridstep + 1}%
+  \lp@multiput(-\lp@marginleft,\lp@tmpa)%
+              (0mm,\lp@gridstep)%
+              (\value{lp@tmpb})%
+              [l]%
+              {\lp@hline{\lp@xsizeorig+\lp@marginleft+\lp@marginright}}%
+\endgroup%
+}
+
+% \lp@coordscmd draws coordinates on all four sides of the picture
+% with the step \lpunitlength * \value{lpcoordstep}
+\newcommand{\lp@coordscmd}
+{\begingroup%
+  \setlength{\lp@coordstep}{\lpunitlength * \value{lpcoordstep}}%
+  \setcounter{lp@tmpa}{\lp@marginleft / \lp@coordstep}
+  \setlength{\lp@tmpa}{-\lp@coordstep * \value{lp@tmpa}}
+  \setcounter{lp@tmpb}
+	     {(\lp@xsizeorig-\lp@tmpa+\lp@marginright) / \lp@coordstep+1}
+  \setcounter{lp@tmpc}{\lp@tmpa / \lpunitlength}
+  \lp@multiput(\lp@tmpa,-\lp@marginbottom-\lpframethickness-0.1mm)%
+              (\lp@coordstep,0mm)%
+              (\value{lp@tmpb})%
+              [t]%
+              {%
+		{\tiny\bf\arabic{lp@tmpc}}%
+		\addtocounter{lp@tmpc}{\value{lpcoordstep}}%
+	      }%
+  \setcounter{lp@tmpc}{\lp@tmpa / \lpunitlength}
+  \lp@multiput(\lp@tmpa,\lp@ysizeorig+\lp@margintop+\lpframethickness)%
+              (\lp@coordstep,0mm)%
+              (\value{lp@tmpb})%
+              [b]%
+              {%
+		{\tiny\bf\arabic{lp@tmpc}}%
+		\addtocounter{lp@tmpc}{\value{lpcoordstep}}%
+	      }%
+  \setcounter{lp@tmpa}{\lp@marginbottom / \lp@coordstep}
+  \setlength{\lp@tmpa}{-\lp@coordstep * \value{lp@tmpa}}
+  \setcounter{lp@tmpb}
+	     {(\lp@ysizeorig-\lp@tmpa+\lp@margintop)/\lp@coordstep+1}
+  \setcounter{lp@tmpc}{\lp@tmpa / \lpunitlength}
+  \lp@multiput(-\lp@marginleft-\lpframethickness,\lp@tmpa)%
+              (0mm,\lp@coordstep)%
+              (\value{lp@tmpb})%
+              [r]%
+              {%
+		{\tiny\bf\arabic{lp@tmpc}}%
+		\addtocounter{lp@tmpc}{\value{lpcoordstep}}%
+	      }%
+  \setcounter{lp@tmpc}{\lp@tmpa / \lpunitlength}
+  \lp@multiput(\lp@xsizeorig+\lp@marginright+\lpframethickness,\lp@tmpa)%
+              (0mm,\lp@coordstep)%
+              (\value{lp@tmpb})%
+              [l]%
+              {%
+		{\tiny\bf\arabic{lp@tmpc}}%
+		\addtocounter{lp@tmpc}{\value{lpcoordstep}}%
+	      }%
+\endgroup}
+
+
+% \lp@lblframecmd draws a frame around each label \lplblframethickness
+% thick 
+\newcommand{\lp@lblframecmd}[1]
+{\begingroup%
+  \setlength{\linethickness}{\lplblframethickness}%
+  \frame{#1}%
+\endgroup}
+
+% \lp@figframecmd draws a frame around eps figure \lpfigframethickness 
+% thick 
+\newcommand{\lp@figframecmd}[1]
+{\begingroup%
+  \setlength{\linethickness}{\lpfigframethickness}%
+  \frame{#1}%
+\endgroup}
+
+%
+\newcommand{\lp@putepsfigurecmd}
+{%
+  \put(0,0){\makebox(0,0)[bl]{\lp@figframe{\usebox{\lp@pictbox}}}}
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% options
+
+% Print nothing but the picture and labels
+\def\lpopt@clean
+{%
+  \let\lp@lblframe=\relax%
+  \let\lp@figframe=\relax%
+  \let\lp@pictframe=\relax%
+  \let\lp@coords=\relax%
+  \let\lp@grid=\relax%
+  \let\lbl=\lbl@cmd%
+  \let\lp@putepsfigure=\lp@putepsfigurecmd%
+}
+
+% Set margins
+\def\lpopt@l#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpmarginleft}{#1}}
+	     {}%
+}
+\def\lpopt@r#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpmarginright}{#1}}
+	     {}%
+}
+\def\lpopt@t#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpmargintop}{#1}}
+	     {}%
+}
+\def\lpopt@b#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpmarginbottom}{#1}}
+	     {}%
+}
+
+% Print frame around whole picture margins included
+\def\lpopt@frame#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpframethickness}{#1}}{}%
+\let\lp@pictframe=\lp@pictframecmd%
+}
+
+% Print frame around eps figure
+\def\lpopt@figframe#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lpfigframethickness}{#1}}{}%
+  \let\lp@figframe=\lp@figframecmd%
+}
+
+% Draw frames around labels
+\def\lpopt@frames#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setlength{\lplblframethickness}{#1}}{}%
+  \let\lp@lblframe=\lp@lblframecmd%
+}
+
+% Write coordinates on all four sides of the picture
+% argument=step
+\def\lpopt@coords#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setcounter{lpcoordstep}{#1}}{}%
+  \let\lp@coords=\lp@coordscmd%
+}
+
+% Draw a grid, argument=step
+\def\lpopt@grid#1%
+{%
+  \ifthenelse{\not\equal{#1}{}}
+             {\setcounter{lpgridstep}{#1}}{}%
+  \let\lp@grid=\lp@gridcmd%
+}
+
+% Ignore all the labels
+\def\lpopt@nolbl{\renewcommand{\lbl}[2][]{\relax}}
+
+% Don't insert epsfigure
+\def\lpopt@nofigure{\let\lp@putepsfigure=\relax}
+
+% Draw what is usually convenient for adjusting the labels
+\def\lpopt@draft
+{%
+\lpopt@figframe{}\relax%
+\lpopt@frame{}\relax%
+\lpopt@coords{}\relax%
+\lpopt@grid{}\relax%
+\lpopt@frames{}\relax%
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Option processing commands
+%
+%
+
+% Should be called \exec@option{name(arg)} or 
+% \exec@option{name}. It executes \name and passes
+% arg if present as an argument.
+% That is \name should have at most one argument.
+
+\def\exec@optionmisc#1(#2)#3ENDOFTHEARGS%
+{%
+  \csname#1\endcsname{#2}\relax%
+}
+\newcommand{\exec@option}[1]
+{%
+  \exec@optionmisc#1()ENDOFTHEARGS%
+}
+
+
+% Called with a coma-separated list of options, and then executes
+% each ``name'' prefixed with the value of \option@prefix. It passes
+% this command the argument if present. Each option is either
+% ``name'' or ``name(arg)''. ``arg'' should not contain comas or
+% should be enclosed in {}.
+\def\process@optionsmisc#1,#2ENDOFTHEARGS%
+{%
+  %\lp@msg{1=#1, 2=#2}
+  \ifthenelse{\not\equal{#1}{}}%
+     {%
+       \exec@option{\option@prefix#1}%
+       \process@optionsmisc#2ENDOFTHEARGS%
+     }%
+     {}%
+}
+\newcommand\process@options[1]
+{%
+  \process@optionsmisc#1,,ENDOFTHEARGS%
+}
+
+
+% Next command process ``filename'' argument. 
+% Defines \lp@epsfile, \lp@xscale, \lp@yscale
+% Syntaxis is one of the following
+% \lp@getscaleandfile{FILE}
+% \lp@getscaleandfile{FILE()}
+% \lp@getscaleandfile{FILE(,)}
+% \lp@getscaleandfile{FILE(x)}
+% \lp@getscaleandfile{FILE(x,)}
+% \lp@getscaleandfile{FILE(,y)}
+% \lp@getscaleandfile{FILE(x,y)}
+
+\def\lp@getname#1(#2ENDOFTHEARGS{\edef\lp@epsfile{#1}\edef\lp@string{#2}}
+\def\lp@getscales#1)#2ENDOFTHEARGS{\edef\lp@string{#1}}
+\def\lp@getxscale#1,#2ENDOFTHEARGS{\edef\lp@xscale{#1}\edef\lp@string{#2}}
+\def\lp@getyscale#1,#2ENDOFTHEARGS{\edef\lp@yscale{#1}\edef\lp@string{#2}}
+
+\def\lp@getscaleandfile#1%
+{%
+  \edef\lp@epsfile{}%
+  \edef\lp@xscale{}%
+  \edef\lp@yscale{}%
+  \edef\lp@string{#1}%
+  \expandafter\lp@getname\lp@string(ENDOFTHEARGS%
+  \expandafter\lp@getscales\lp@string)ENDOFTHEARGS%
+  \expandafter\lp@getxscale\lp@string,ENDOFTHEARGS%
+  \expandafter\lp@getyscale\lp@string,ENDOFTHEARGS%
+  %\lp@msg{file=\lp@epsfile, x=\lp@xscale, y=\lp@yscale}%
+}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \begin{lpic}[coma separated options]{filename[(xscale[,yscale])]},
+% \lbl[position]{xcoord,ycoord;object}
+% ....
+% \end{lpic}
+% Where options are clean, draft, grid, frame, frames, coords, nolbl
+% Position is at most two of the following t,b,l,r
+\newenvironment{lpic}[2][clean]
+{\begingroup%
+  %Process options
+  \edef\option@prefix{lpopt@}%
+  \setlength{\unitlength}{1sp}%
+  \lpopt@clean%
+  \process@options{#1}%
+  % read scale and filename from the second argument
+  \expandafter\lp@getscaleandfile{#2}%
+  % Calculate parameters
+  \lp@dimens%
+  % Start picture environment
+  \begin{picture}(\lp@xtotalsize,\lp@ytotalsize)
+                 (\lp@xorigin,\lp@yorigin)%
+    %insert picture. We do it before any LaTeX, so that white bg rectangles are on top
+    \lp@putepsfigure%
+}
+{%
+    %draw a frame around the whole picture
+    \lp@pictframe
+    % draw grid
+    \lp@grid
+    % draw coordinates
+    \lp@coords
+  \end{picture}%
+\endgroup}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \lbl[position]{<xcoord>,<ycoord>[,angle];object}
+%
+
+% read coordinates and the angle from the argument of \lbl
+\def\lp@getxya#1,#2,#3,#4ENDOFTHEARGS%
+{%
+  \setlength{\lp@tmpx}{\lpunitlength * \real{#1} * \ratio{\lp@xnum}{\lp@xdenom}}%
+  \setcounter{lp@tmpx}{\lp@tmpx / \unitlength}%
+  \setlength{\lp@tmpy}{\lpunitlength * \real{#2} * \ratio{\lp@ynum}{\lp@ydenom}}%
+  \setcounter{lp@tmpy}{\lp@tmpy / \unitlength}%
+  \def\lp@angle{#3}%
+}
+
+% disassemble the arg of \lbl
+\def\lp@getdata#1;#2#3ENDOFTHEARGS%
+{%
+  \lp@getxya#1,,,ENDOFTHEARGS% 
+  \def\lp@lbldata{#2#3}%
+}
+
+\newcommand{\lp@getcoords}[1]
+{%
+  \lp@getdata#1ENDOFTHEARGS%
+}
+
+%\setlength{\lpbgboxsep}{10mm}
+
+\newcommand{\lbl@cmd}[2][]
+{\begingroup%
+    % Set the defaults
+    \def\lp@lblbox{\makebox(0,0)[#1]} % 
+    \def\lp@bgbox{\relax}         % No background
+    \setcounter{lp@tmpdx}{0}      % No shifting
+    \setcounter{lp@tmpdy}{0}
+    % Dissasemble the second argument
+    \lp@getcoords{#2}%
+    % Let's see whether angle is supplied
+    \ifthenelse{\equal{\lp@angle}{}}
+               {\let\lp@rotatelbl=\relax}
+	       {\def\lp@rotatelbl{\turnbox{\lp@angle}}}%
+    % What options are given?
+    % ``W'' put white background with margins
+    \lp@ifsubstring W in #1;%
+	{%
+	  \setlength{\lp@tmpa}{0.152mm} 
+	  \setcounter{lp@tmpdx}{( \lpbgboxsep + \lp@tmpa ) / \unitlength}%
+	  \setcounter{lp@tmpdy}{( \lpbgboxsep + \lp@tmpa ) / \unitlength}%
+	  \def\lp@bgbox##1{%  
+            \begingroup%
+            \setlength{\fboxsep}{\lpbgboxsep}%
+            \colorbox{white}{##1}
+            \endgroup%
+          }%
+        }% 
+	{}%
+    % ``w'' put white background without margins
+    \lp@ifsubstring w in #1;%
+	{%
+	  \def\lp@bgbox##1{%
+            \begingroup%
+            \setlength{\fboxsep}{0mm}%
+            \colorbox{white}{##1}%
+            \endgroup%
+          }%
+	}%
+	{}%
+    % Positioning
+    \lp@ifsubstring t in #1;{\addtocounter{lp@tmpy}{\value{lp@tmpdy}}}{}%
+    \lp@ifsubstring b in #1;{\addtocounter{lp@tmpy}{-\value{lp@tmpdy}}}{}%
+    \lp@ifsubstring l in #1;{\addtocounter{lp@tmpx}{-\value{lp@tmpdx}}}{}%
+    \lp@ifsubstring r in #1;{\addtocounter{lp@tmpx}{\value{lp@tmpdx}}}{}%
+    % Put the material	
+    \put(\value{lp@tmpx},\value{lp@tmpy})%
+        {\lp@rotatelbl{\lp@lblbox{\lp@bgbox{\lp@lblframe{\lp@lbldata}}}}}%
+\endgroup}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% PS definitions for the white bg
+%\special{! TeXDict 
+%  begin
+%  /whitebgbox{% Needs : x0 y0 x1 y1.
+%    newpath 2 copy moveto 3 copy pop exch lineto 4 copy pop pop
+%    lineto 4 copy exch pop exch pop lineto closepath 1 setgray fill} bind def
+%  end
+%}