summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/histogr
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:56:50 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:56:50 +0000
commita82864a4b5bd41e01beee27f8f1ef1884f53b234 (patch)
treef19302dfd711ce1887eb6e780e4d7a6a2347af37 /Master/texmf-dist/tex/latex/histogr
parent40a944ad7415cb83a2e60d23b2b516fd3faf1dbb (diff)
histogr
git-svn-id: svn://tug.org/texlive/trunk@979 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/histogr')
-rw-r--r--Master/texmf-dist/tex/latex/histogr/histogr.sty58
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/histogr/histogr.sty b/Master/texmf-dist/tex/latex/histogr/histogr.sty
new file mode 100644
index 00000000000..965264b6b3f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/histogr/histogr.sty
@@ -0,0 +1,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'.