% TITLE: suppose.sty    1.0    2021/03/11
% AUTHOR: Andrew Lounsbury
% DESCRIPTION: This file contains commands that abbreviate the word ``Suppose''. 

% Commands:
%------------------------------------------------------------------------------
% \supp     plain supposition symbol
% \csup     mathcal
% \dsup     dutchcal
% \esup     eulerscript
% \tsup     typewriter
% \vsup     sans serif (v for variation)

% To most of these: 
%       add ``b''  after the slash for boldface
%       add ``s''  after the slash for a slanted line
%       add ``sb'' after the slash for a slanted line and boldface

% Exceptions are derivatives of \supp, which shortens to \ssup, \bsup, and 
% \sbsup for brevity. 
%-------------------------------------------------------------------------------

% I recommend only using these commands when the immediately succeding 
% strings are mathematical in nature. I do not recommend using these in 
% formal work. 

%************************************************************************
%% suppose.sty
%% Copyright 2021 A. W. Lounsbury
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% This work has the LPPL maintenance status `maintained'.
% 
% The Current Maintainer of this work is A. W. Lounsbury.
%
% This work consists of the files suppose.sty. 
%************************************************************************

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{suppose}[2021/03/11 supposition symbols]

\RequirePackage{amsmath, euscript, graphicx}

\DeclareMathAlphabet{\mathdutchcal}{U}{dutchcal}{m}{n}
\DeclareMathAlphabet{\mathdutchbfcal}{U}{dutchcal}{b}{n}

\font\btt=rm-lmtk10 % bold typewriter font
\font\bitt=rm-lmtko10 % bold italicized typewriter font

\newlength{\Swidth}
\settowidth{\Swidth}{S}
\newcommand{\supp}{\makebox[\Swidth][r]{\ $\rule[-0.5ex]{0.15ex}{1.3ex}\mspace{-0.25mu}$\ }\llap{$S$}\ }
\newcommand{\csup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.15ex}{1.45ex}\mspace{9mu}$}\llap{$\mathcal{S}$}\ }
\newcommand{\dsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.15ex}{1.45ex}\mspace{9.5mu}$}\llap{$\mathdutchcal{S}$}\ }
\newcommand{\esup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.15ex}{1.35ex}\mspace{5.25mu}$}\llap{$\EuScript{S}$}\ }
\newcommand{\tsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.15ex}{1.3ex}\mspace{4.5mu}$\ }\llap{\textit{\texttt{S}}}\ }
\newcommand{\vsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.15ex}{1.45ex}\mspace{8mu}$}\llap{\textit{{\fontfamily{lmss}\selectfont S}}}\ }
% Bold version
\newcommand{\bsup}{\makebox[\Swidth][r]{\ $\rule[-0.5ex]{0.20ex}{1.3ex}\mspace{6.5mu}$}\llap{$\boldsymbol{S}$}\ }
\newcommand{\bcsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.20ex}{1.5ex}\mspace{10mu}$}\llap{$\boldsymbol{\mathcal{S}}$}\ }
\newcommand{\bdsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.20ex}{1.5ex}\mspace{10.125mu}$}\llap{$\mathdutchbfcal{S}$}\ }
\newcommand{\besup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.20ex}{1.35ex}\mspace{6mu}$}\llap{$\boldsymbol{\EuScript{S}}$}\ }
\newcommand{\btsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.2ex}{1.3ex}\mspace{-1mu}$\ }\llap{\scalebox{1.2}{\bitt S}}\ }
\newcommand{\bvsup}{\makebox[\Swidth][c]{\ $\rule[-0.5ex]{0.20ex}{1.45ex}\mspace{9.5mu}$}\llap{\textbf{\textit{{\fontfamily{lmss}\selectfont S}}}}\ }
% Slanted rule
\newcommand{\ssup}{\makebox[\Swidth][r]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.3ex}}\mspace{5mu}$}\llap{$S$}\ }
\newcommand{\scsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.45ex}}\mspace{10mu}$}\llap{$\mathcal{S}$}\ }
\newcommand{\sdsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.45ex}}\mspace{11mu}$}\llap{$\mathdutchcal{S}$}\ }
\newcommand{\sesup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.45ex}}\mspace{7mu}$}\llap{$\EuScript{S}$}\ }
\newcommand{\stsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.3ex}}\mspace{5.5mu}$\ }\llap{\textit{\texttt{S}}}\ }
\newcommand{\svsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.15ex}{1.45ex}}\mspace{8.5mu}$}\llap{\textit{{\fontfamily{lmss}\selectfont S}}}\ }
% Slanted & bold
\newcommand{\sbsup}{\makebox[\Swidth][r]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.20ex}{1.3ex}}\mspace{5.5mu}$}\llap{$\boldsymbol{S}$}\ }
\newcommand{\sbcsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.20ex}{1.45ex}}\mspace{12mu}$}\llap{$\boldsymbol{\mathcal{S}}$}\ }
\newcommand{\sbdsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.20ex}{1.4ex}}\mspace{11mu}$}\llap{$\mathdutchbfcal{S}$}\ }
\newcommand{\sbesup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.20ex}{1.45ex}}\mspace{8mu}$}\llap{$\boldsymbol{\EuScript{S}}$}\ }
\newcommand{\sbtsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.2ex}{1.3ex}}$\ }\llap{\scalebox{1.2}{\bitt S}}\ }
\newcommand{\sbvsup}{\makebox[\Swidth][c]{\ $\rotatebox{-15}{\rule[-0.5ex]{0.20ex}{1.45ex}}\mspace{10mu}$}\llap{\textbf{\textit{{\fontfamily{lmss}\selectfont S}}}}\ }