summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/histogr/histogr.sty
blob: 965264b6b3f773a77e975025a1fe8005496ab98d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
%% 
%% 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'.