diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:56:50 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:56:50 +0000 |
commit | a82864a4b5bd41e01beee27f8f1ef1884f53b234 (patch) | |
tree | f19302dfd711ce1887eb6e780e4d7a6a2347af37 /Master/texmf-dist/tex/latex/histogr | |
parent | 40a944ad7415cb83a2e60d23b2b516fd3faf1dbb (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.sty | 58 |
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'. |