gelsim.sty

\usepackage{graphicx}
\usepackage{amssymb}
\usepackage{epstopdf}
\usepackage{xcolor}
\usepackage{calculator}
\usepackage{pgf}

\COPY{5}{\gelheight}
\newcounter{lane}
\newcommand{\lane}[1][]{
\addtocounter{lane}{1}
\color{white}
\SUBTRACT{\gelheight}{0.1}{\offsetgelheight}
\pgfrect[stroke]{\pgfxy(\value{lane},\offsetgelheight)}{\pgfxy(0.9,0.1)}


%%
\color{black}
\pgfputat{\pgfxy(\value{lane}+0.4,5.5)}{

\begin{pgfrotateby}{\pgfdegree{20}}
\pgfbox[left,top]{#1}
\end{pgfrotateby}
}
%%
}
\newcommand{\gelscale}[1]{
\COPY{#1}{\gscale}
}
\newcommand{\geloffset}[1]{
\COPY{#1}{\goffset}
}
\newcommand{\band}[2][1]{
 \definecolor{grayval}{gray}{#1}
\LOG{#2}{\log}

\DIVIDE{\gscale}{\log}{\inverse}
\SUBTRACT{\inverse}{\goffset}{\inverse}
\SUBTRACT{\gelheight}{\inverse}{\hval}

\color{grayval}
\pgfrect[fill]{\pgfxy(\value{lane},\hval)}{\pgfxy(0.9,0.03)}
}

%%%%%%
\newenvironment{gelsim}{
\setcounter{lane}{-1}


\setlength{\unitlength}{1cm}
\begin{pgfpicture}{0cm}{0cm}{5cm}{6.5cm}
\color{black}
\pgfrect[fill]{\pgfxy(0,0)}{\pgfxy(5,5)}
\gelscale{25}
\geloffset{1}


}{

\end{pgfpicture}
}