%% 
%% This is file `histogr.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% histogr.dtx  (with options: `package')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% You are *not* allowed to modify this file.
%% 
%% You are *not* allowed to distribute this file.
%% For distribution of the original source see
%% the terms for copying and modification in the file  histogr.dtx.
%% 
%% File: histogr.dtx Copyright (C) 1987-1997 Rainer Sch\"opf
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{histogr}
         [1997/02/13 v1.01 Histogram (RmS)]
\newcount\hist@x
\newcount\hist@y
\newcount\hist@ystart
\newif\ifhist@vert

\let\verticallines\hist@verttrue
\let\noverticallines\hist@vertfalse

\hist@verttrue
\def\histogram(#1,#2){\hist@x #1 \hist@y #2 \hist@ystart\hist@y
  \hist@next}
\def\hist@next{\@ifnextchar ({\hist@box}{\hist@end}}
\def\hist@box(#1,#2){\@tempcnta -\hist@x
   \advance\@tempcnta #1
   \ifnum \@tempcnta >\z@
        \put(\hist@x,\hist@y){\line(1,0){\@tempcnta}}\else
        \put(\hist@x,\hist@y){\line(-1,0){-\@tempcnta}}\fi
   \hist@x #1
   \ifhist@vert
      \ifnum \hist@y >#2 \@tempcnta\hist@y
        \else \@tempcnta #2 \fi
      \@tempcntb\@tempcnta
      \advance\@tempcnta -\hist@ystart
      \put(\hist@x,\@tempcntb){\line(0,-1){\@tempcnta}}%
   \else
      \@tempcnta -\hist@y
      \advance\@tempcnta #2
      \ifnum \@tempcnta >\z@
         \put(\hist@x,\hist@y){\line(0,1){\@tempcnta}}\else
         \put(\hist@x,\hist@y){\line(0,-1){-\@tempcnta}}\fi
   \fi
   \hist@y #2\hist@next}
\def\hist@end{}
\endinput
%% 
%% End of file `histogr.sty'.