From a82864a4b5bd41e01beee27f8f1ef1884f53b234 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:56:50 +0000 Subject: histogr git-svn-id: svn://tug.org/texlive/trunk@979 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/histogr/histogr.sty | 58 +++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/histogr/histogr.sty (limited to 'Master') 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'. -- cgit v1.2.3