%% %% This is file `realhats.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% realhats.dtx (with options: `realhats') %% Copyright (c) 2019 Matthew Scroggs & Adam Townsend %% %% Permission is hereby granted, free of charge, to any person obtaining a copy %% of this software and associated documentation files (the "Software"), to deal %% in the Software without restriction, including without limitation the rights %% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell %% copies of the Software, and to permit persons to whom the Software is %% furnished to do so, subject to the following conditions: %% %% The above copyright notice and this permission notice shall be included in all %% copies or substantial portions of the Software. %% %% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR %% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, %% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE %% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER %% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, %% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE %% SOFTWARE. %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{realhats}[2019/04/14 realhats 3.0] \RequirePackage{amsmath} \RequirePackage{graphicx} \RequirePackage{ifthen} \RequirePackage[first=0, last=9, counter=hat]{lcg} \RequirePackage{calc} \RequirePackage{stackengine} \newcommand\myhat{} \newlength{\hatwidth} %hat width \newlength{\hshif} %horizontal shift \newlength{\vshif} %vertical shift \global\def\hatused{-1} \DeclareOption{beret}{\global\def\hatused{beret}} \DeclareOption{santa}{\global\def\hatused{santa}} \DeclareOption{sombrero}{\global\def\hatused{sombrero}} \DeclareOption{witch}{\global\def\hatused{witch}} \DeclareOption{tophat}{\global\def\hatused{tophat}} \DeclareOption{ash}{\global\def\hatused{ash}} \DeclareOption{fez}{\global\def\hatused{fez}} \DeclareOption{cowboy}{\global\def\hatused{cowboy}} \DeclareOption{crown}{\global\def\hatused{crown}} \DeclareOption{dunce}{\global\def\hatused{dunce}} \ProcessOptions\relax \newcommand{\gethat}{% \ifcase\thehat beret% \or santa% \or sombrero% \or witch% \or tophat% \or ash% \or fez% \or cowboy% \or crown% \or dunce% \fi } \renewcommand{\hat}[2][]{% \ifthenelse{\equal{#1}{}}{% \ifthenelse{\equal{\hatused}{-1}}% {\rand\hatn{#2}{\gethat}}% {\hatn{#2}{\hatused}}% }{% \ifthenelse{\equal{#1}{beret}}{\hatn{#2}{beret}}{}% \ifthenelse{\equal{#1}{santa}}{\hatn{#2}{santa}}{}% \ifthenelse{\equal{#1}{sombrero}}{\hatn{#2}{sombrero}}{}% \ifthenelse{\equal{#1}{witch}}{\hatn{#2}{witch}}{}% \ifthenelse{\equal{#1}{tophat}}{\hatn{#2}{tophat}}{}% \ifthenelse{\equal{#1}{ash}}{\hatn{#2}{ash}}{}% \ifthenelse{\equal{#1}{fez}}{\hatn{#2}{fez}}{}% \ifthenelse{\equal{#1}{cowboy}}{\hatn{#2}{cowboy}}{}% \ifthenelse{\equal{#1}{crown}}{\hatn{#2}{crown}}{}% \ifthenelse{\equal{#1}{dunce}}{\hatn{#2}{dunce}}{}% }% } \newcommand{\hatn}[2]{\hatnoptions{#1}{#2}{0ex}{0ex}} \newcommand{\hatnoptions}[4]{% \setlength{\hshif}{1pt} \setlength{\hatwidth}{2ex} \ifthenelse{\equal{#2}{beret}}{\renewcommand\myhat{hats/realhats-beret}\setlength{\vshif}{-0.6ex} \setlength{\hshif}{0.5ex} }{}% \ifthenelse{\equal{#2}{santa}}{\renewcommand\myhat{hats/realhats-santa}\setlength{\vshif}{-0.1ex} }{}% \ifthenelse{\equal{#2}{sombrero}}{\renewcommand\myhat{hats/realhats-sombrero}\setlength{\vshif}{-0.17ex} \addtolength{\hshif}{-1pt}}{}% \ifthenelse{\equal{#2}{witch}}{\renewcommand\myhat{hats/realhats-witch}\setlength{\vshif}{-0.12ex} \addtolength{\hshif}{-1pt}}{}% \ifthenelse{\equal{#2}{tophat}}{\renewcommand\myhat{hats/realhats-tophat}\setlength{\vshif}{-0.4ex} \setlength{\hatwidth}{1.8ex} \addtolength{\hshif}{-1pt}}{}% \ifthenelse{\equal{#2}{ash}}{\renewcommand\myhat{hats/realhats-ash}\setlength{\vshif}{-0.6ex} \setlength{\hatwidth}{1.8ex} \addtolength{\hshif}{-1pt}}{}% \ifthenelse{\equal{#2}{fez}}{\renewcommand\myhat{hats/realhats-fez}\setlength{\vshif}{-0.4ex} \setlength{\hatwidth}{1ex} \addtolength{\hshif}{-1pt}}{}% \ifthenelse{\equal{#2}{cowboy}}{\renewcommand\myhat{hats/realhats-cowboy}\setlength{\vshif}{-0.3ex} \setlength{\hshif}{0.2ex}}{}% \ifthenelse{\equal{#2}{crown}}{\renewcommand\myhat{hats/realhats-crown}\setlength{\vshif}{-0.3ex} \setlength{\hshif}{0.2ex}}{}% \ifthenelse{\equal{#2}{dunce}}{\renewcommand\myhat{hats/realhats-dunce}\setlength{\vshif}{-0.3ex} \setlength{\hatwidth}{1.4ex}}{}% \addtolength{\hshif}{#3}% \addtolength{\vshif}{#4}% \stackMath % \stackon[\vshif]{#1}{\hspace{\hshif}\includegraphics[width=\hatwidth]{\myhat}} } \endinput %% %% End of file `realhats.sty'.