summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/histogr/histogr.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/histogr/histogr.sty
Initial commit
Diffstat (limited to 'macros/latex/contrib/histogr/histogr.sty')
-rw-r--r--macros/latex/contrib/histogr/histogr.sty62
1 files changed, 62 insertions, 0 deletions
diff --git a/macros/latex/contrib/histogr/histogr.sty b/macros/latex/contrib/histogr/histogr.sty
new file mode 100644
index 0000000000..45240d30fe
--- /dev/null
+++ b/macros/latex/contrib/histogr/histogr.sty
@@ -0,0 +1,62 @@
+%%
+%% 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.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from histogr.sty.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file histogr.dtx.
+%%
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%% 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'.