%%
%% Doug Aberdeen
%%
%% Provides an enumeration type environment called 'keylist'
%% Which draws keys where the notches are roman numerals. 
%% Neat kind of way to list 'key' points. Requires the hhcount package.
%%
%% Can also draw individual keys with \keypoint{number}
%%
%% May not work with an index or the fancyheaders package with section numbers
%%

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{keypoints}[1995/03/31 Fancy counters]
\RequirePackage{hhcount}

\newcommand{\keypoint}[1]{%
  \thicklines
  \setlength{\unitlength}{0.50em}
  \begin{picture}(4.5,1.85)(0, 0)
  \put(1,1){\line(1,0){3.5}}
  \put(0.5,1){\oval(1,1.5)}
  \put(0.5,1){\oval(0.9,1.6)}
  \put(0.5,1){\oval(0.8,1.7)}
  \put(0,0){\parbox{2.27em}{\raggedleft\fcsmallroman{#1}}}
\end{picture}}


\newenvironment{keylist}{%
  \begin{list}{\keypoint{\value{enumi}}}{
  	\setlength{\labelwidth}{4em}%
  	\setlength{\leftmargin}{\labelwidth+\labelsep}%
	\usecounter{enumi}%
  }
}%	
{%
 \end{list}%
}