new latex package setdeck (LaTeX Set Deck)

git-svn-id: svn://tug.org/texlive/trunk@27997 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 1369 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/latex/setdeck/README b/Master/texmf-dist/doc/latex/setdeck/README
new file mode 100644
index 00000000000..21dcbbc0d6f
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/setdeck/README
@@ -0,0 +1,42 @@
+Author:  Gwyneth Whieldon
+Institution:  Hood College
+Contact Email:  whieldon@hood.edu or Gwyn.Whieldon@gmail.com
+
+Package Copyright 2012
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+For a copy of the GNU General Public License, see
+<http://www.gnu.org/licenses/>.
+
+
+This is a style file for drawing cards from a Set Deck using TikZ in
+LaTeX.
+
+
+We use the convention
+\setcard{<Number>}{<Shading>}{<Color>}{<Shape>}{<Scaling>}, where
+Number  = 1 (1 card),       2 (2 cards), 3 (3 cards)
+Shading = 1 (plain),          2 (striped),  3 (solid)
+Color =      1 (red),             2 (green),    3 (purple)
+Shape =    1 (diamond),   2 (oval),       3 (squiggle)
+
+
+
+So for example, to typeset a full-size Set card with two striped red
+squiggles, you would use the command \setcard{2}{2}{1}{3}{1}.  To
+typeset a half-sized Set card with three plain green ovals, you could
+use either the command \setcard{3}{1}{2}{2}{0.5} or
+\smallsetcard{3}{1}{2}{2}{0.5}.  The only difference between the two
+commands is the thickness of the lines on the cards.
+
+The command \smallsetcard is designed to be used when displaying
+anything smaller than a half-sized card.
diff --git a/Master/texmf-dist/doc/latex/setdeck/setdeck.pdf b/Master/texmf-dist/doc/latex/setdeck/setdeck.pdf
new file mode 100644
index 00000000000..f2694d08b70
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/setdeck/setdeck.pdf
diff --git a/Master/texmf-dist/doc/latex/setdeck/setdeck.tex b/Master/texmf-dist/doc/latex/setdeck/setdeck.tex
new file mode 100644
index 00000000000..946a727a793
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/setdeck/setdeck.tex
@@ -0,0 +1,76 @@
+\title{LaTeX Set Deck:  Documentation}
+\date{\today}
+\author{Gwyn Whieldon}
+
+
+\documentclass{article}
+
+\usepackage[margin=1.25in, headheight=14pt]{geometry}
+
+\usepackage{setdeck}
+
+
+
+
+
+
+\begin{document}
+
+\maketitle
+
+This document describes a package for typesetting Set cards using TikZ in LaTeX.  We use the conventions:
+
+\begin{center}
+\begin{tabular}{| c | c | c | c | c |}
+\hline
+Coordinate & Number & Shading & Color & Shape \\
+\hline
+1 & 1 & plain & red & diamond \\
+2 & 2 & striped & green & oval \\
+3 & 3 & solid & purple & squiggle \\
+\hline
+\end{tabular}
+\end{center}
+
+To typeset a basic Set card, we use the commands \verb|\setcard| or \verb|\smallsetcard|, with arguments
+
+\verb|\setcard{<Number>}{<Shading>}{<Color>}{<Shape>}{<Scaling>} |.
+
+\vspace{10pt}
+
+So to typeset, for example, the full-sized card with two striped purple diamonds, we use the command \verb|\setcard{2}{2}{3}{1}{1}|, which produces:
+\vspace{10pt}
+\begin{center}
+\setcard{2}{2}{3}{1}{1}
+\end{center}
+
+\vspace{10pt}
+
+For many purposes, this will be too large.  To typeset a more reasonably sized card (let's say, this time, we typeset three solid red squiggles) we might prefer to use \verb|\setcard{3}{3}{1}{3}{0.5}| or \verb|\smallsetcard{3}{3}{1}{3}{0.5}|, which produce (respectively):
+
+\vspace{10pt}
+\begin{center}
+\setcard{3}{3}{1}{3}{0.5}$\;\;\;\;\;\;\;\;\;\;$\smallsetcard{3}{3}{1}{3}{0.5}
+\end{center}
+
+Here is a preview of all cards (produced with \verb|\smallsetcard|) produced by the \verb|setdeck.sty| package:
+
+\vspace{10pt}
+
+\begin{center}
+\foreach \shading in {1,2,3}{
+\foreach \shape in {1,2,3} {
+\smallsetcard{1}{\shading}{1}{\shape}{0.25}\hspace{3pt}\smallsetcard{2}{\shading}{1}{\shape}{0.25}\hspace{3pt}\smallsetcard{3}{\shading}{1}{\shape}{0.25}\hspace{10pt}\smallsetcard{1}{\shading}{2}{\shape}{0.25}\hspace{3pt}\smallsetcard{2}{\shading}{2}{\shape}{0.25}\hspace{3pt}\smallsetcard{3}{\shading}{2}{\shape}{0.25}\hspace{10pt}\smallsetcard{1}{\shading}{3}{\shape}{0.25}\hspace{3pt}\smallsetcard{2}{\shading}{3}{\shape}{0.25}\hspace{3pt}\smallsetcard{3}{\shading}{3}{\shape}{0.25}
+
+\vspace{5pt}
+
+}
+\vspace{15pt}
+}
+\end{center}
+				
+
+\end{document}
+
+
+
diff --git a/Master/texmf-dist/tex/latex/setdeck/setdeck.sty b/Master/texmf-dist/tex/latex/setdeck/setdeck.sty
new file mode 100644
index 00000000000..0a4c976b996
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/setdeck/setdeck.sty
@@ -0,0 +1,1250 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%     Author:  Gwyneth Whieldon
+%%     Institution:  Hood College
+%%     Contact Email:  whieldon@hood.edu or Gwyn.Whieldon@gmail.com
+%%
+%%     Package Copyright 2012
+%%
+%%    This program is free software: you can redistribute it and/or modify
+%%    it under the terms of the GNU General Public License as published by
+%%    the Free Software Foundation, either version 3 of the License, or
+%%    (at your option) any later version.
+%%
+%%    This program is distributed in the hope that it will be useful,
+%%    but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+%%    GNU General Public License for more details.
+%%
+%%    For a copy of the GNU General Public License, see <http://www.gnu.org/licenses/>.
+%%
+%%
+%%  This is the style file for drawing cards from a Set Deck using TikZ in LaTeX
+%%  
+%%  We use the convention \setcard{<Number>}{<Shading>}{<Color>}{<Shape>}{<Scaling>}, where
+%%   Number  = 1 (1 card),       2 (2 cards), 3 (3 cards)
+%%   Shading = 1 (plain),          2 (striped),  3 (solid)
+%%   Color =      1 (red),             2 (green),    3 (purple)
+%%   Shape =    1 (diamond),   2 (oval),       3 (squiggle)
+%%
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{setdeck}
+
+
+\RequirePackage[usenames,dvipsnames]{xcolor}
+
+\RequirePackage{tikz}
+\usetikzlibrary{patterns}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+% Pgf Pattern Definitions for Striped Cards
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\pgfdeclarepatternformonly{vertical stripes}
+{\pgfpointorigin}{\pgfpoint{0.1cm}{0.1cm}}
+{\pgfpoint{0.1cm}{0.1cm}}
+{
+    \pgfpathmoveto{\pgfpoint{0cm}{0cm}}
+    \pgfpathlineto{\pgfpoint{0.05cm}{0cm}}
+    \pgfpathlineto{\pgfpoint{0.05cm}{0.1cm}}
+    \pgfpathlineto{\pgfpoint{0cm}{0.1cm}}
+    \pgfpathclose%
+    \pgfusepath{fill}
+}
+
+\pgfdeclarepatternformonly{thin vertical stripes}
+{\pgfpointorigin}{\pgfpoint{0.075cm}{0.1cm}}
+{\pgfpoint{0.075cm}{0.1cm}}
+{
+    \pgfpathmoveto{\pgfpoint{0cm}{0cm}}
+    \pgfpathlineto{\pgfpoint{0.025cm}{0cm}}
+    \pgfpathlineto{\pgfpoint{0.025cm}{0.1cm}}
+    \pgfpathlineto{\pgfpoint{0cm}{0.1cm}}
+    \pgfpathclose%
+    \pgfusepath{fill}
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+% Command to typeset set cards
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\newcommand{\setcard}[5]{
+\begin{tikzpicture}[scale=#5]
+
+%DRAWS CARD OUTLINE
+\draw[-,very thick,black!30, rounded corners](-2,-3) rectangle (2,3);
+
+%3.  RED CARDS
+\ifnum#3=1
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-,very thick, Red, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-,very thick, Red,pattern = vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-,very thick, Red, fill=Red!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-,very thick, Red ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-,very thick, Red ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-,very thick, Red, pattern = vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-,very thick, Red, pattern = vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-,very thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-,very thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-,very thick, Red ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-,very thick, Red ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-,very thick, Red ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-,very thick, Red, pattern = vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, Red,pattern = vertical stripes, pattern color=Red!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, Red, pattern = vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, very thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, Red ,fill=Red!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+\fi
+
+
+%2.  GREEN CARDS
+\ifnum#3=2
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, very thick, OliveGreen, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, very thick, OliveGreen,pattern = vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, very thick, OliveGreen, fill=PineGreen!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, very thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, very thick, OliveGreen, pattern = vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen, pattern = vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, very thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-, very thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-, very thick, OliveGreen, pattern = vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen,pattern = vertical stripes, pattern color=OliveGreen!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen, pattern = vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, very thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=PineGreen!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+\fi
+
+%3.  PURPLE CARDS
+\ifnum#3=3
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, very thick, RoyalPurple, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, very thick, RoyalPurple,pattern = vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, very thick, RoyalPurple, fill=RoyalPurple!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, very thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, very thick, RoyalPurple, pattern = vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple, pattern = vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, very thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-, very thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-, very thick, RoyalPurple, pattern = vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple,pattern = vertical stripes, pattern color=RoyalPurple!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple, pattern = vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, very thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=RoyalPurple!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, very thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+\fi
+
+
+\end{tikzpicture}
+}
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+% Command to typeset small set cards
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+
+
+\newcommand{\smallsetcard}[5]{
+\begin{tikzpicture}[scale=#5]
+
+%DRAWS CARD OUTLINE
+\draw[-,very thick,black!30, rounded corners](-2,-3) rectangle (2,3);
+
+%3.  RED CARDS
+\ifnum#3=1
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-,thick, Red, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-,thick, Red,pattern = thin vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, Red, fill=Red!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, thick, Red ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, thick, Red, pattern = thin vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red, pattern = thin vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-, thick, Red ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-, thick, Red, pattern = thin vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red,pattern = thin vertical stripes, pattern color=Red!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red, pattern = thin vertical stripes, pattern color=Red!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=Red!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, Red ,fill=Red!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+\fi
+
+
+%2.  GREEN CARDS
+\ifnum#3=2
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, thick, OliveGreen, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, thick, OliveGreen,pattern = thin vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, OliveGreen, fill=PineGreen!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, thick, OliveGreen, pattern = thin vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen, pattern = thin vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-, thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-, thick, OliveGreen, pattern = thin vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen,pattern = thin vertical stripes, pattern color=OliveGreen!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen, pattern = thin vertical stripes, pattern color=OliveGreen!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=PineGreen!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, OliveGreen ,fill=PineGreen!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+\fi
+
+%3.  PURPLE CARDS
+\ifnum#3=3
+%SINGLE CARDS
+\ifnum#1=1
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, thick, RoyalPurple, fill=White] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, thick, RoyalPurple,pattern = thin vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, RoyalPurple, fill=RoyalPurple!40] (1.38,-0.2) \ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%DOUBLE CARDS
+\ifnum#1=2
+
+
+%Sets Shading Plain
+\ifnum#2=1
+\filldraw[-, thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\filldraw[-, thick, RoyalPurple, pattern = thin vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple, pattern = thin vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\filldraw[-, thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,-1) -- (0,-0.4) -- (-1.38,-1) -- (0,-1.6)--(1.38,-1);
+\fi\ifnum#4=2
+(0.8,-1.6) arc (-90:90:0.6) -- (-0.8,-0.4) arc (90:270:0.6)--(0.8,-1.6);
+\fi\ifnum#4=3
+(1.38,-1.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,1) -- (0,1.6) -- (-1.38,1) -- (0,0.4)--(1.38,1);
+\fi\ifnum#4=2
+(0.8,0.4) arc (-90:90:0.6) -- (-0.8,1.6) arc (90:270:0.6)--(0.8,0.4);
+\fi\ifnum#4=3
+(1.38,0.7) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+
+%TRIPLE CARDS
+
+%Sets Shading Plain
+\ifnum#2=1
+\ifnum#1=3
+\filldraw[-, thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=White]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=White] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+%Sets Shading Striped
+\ifnum#2=2
+\ifnum#1=3
+\filldraw[-, thick, RoyalPurple, pattern = thin vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple,pattern = thin vertical stripes, pattern color=RoyalPurple!90]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple, pattern = thin vertical stripes, pattern color=RoyalPurple!90] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+
+%Sets Shading Solid
+\ifnum#2=3
+\ifnum#1=3
+\filldraw[-, thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,1.6) -- (0,2.2) -- (-1.38,1.6) -- (0,1)--(1.38,1.6);
+\fi\ifnum#4=2
+(0.8,1) arc (-90:90:0.6) -- (-0.8,2.2) arc (90:270:0.6)--(0.8,1);
+\fi\ifnum#4=3
+(1.38,-1.8) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=RoyalPurple!40]\ifnum#4=1
+(1.38,0) -- (0,0.6) -- (-1.38,0) -- (0,-0.6)--(1.38,0);
+\fi\ifnum#4=2
+(0.8,-0.6) arc (-90:90:0.6) -- (-0.8,0.6) arc (90:270:0.6)--(0.8,-0.6);
+\fi\ifnum#4=3
+(1.38,-0.2) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\filldraw[-, thick, RoyalPurple ,fill=RoyalPurple!40] \ifnum#4=1
+(1.38,-1.6) -- (0,-1) -- (-1.38,-1.6) -- (0,-2.2)--(1.38,-1.6);
+\fi\ifnum#4=2
+(0.8,-2.2) arc (-90:90:0.6) -- (-0.8,-1) arc (90:270:0.6)--(0.8,-2.2);
+\fi\ifnum#4=3
+(1.38,1.4) arc (-2:2:7) arc (0:180:0.35) arc (0:-180:0.2) arc (25:155:0.9) arc (2:-2:7) arc (-180:0:0.35) arc (180:0:0.2) arc (-155:-25:0.9);
+\fi
+\fi
+\fi
+
+\fi
+
+
+\end{tikzpicture}
+}
diff --git a/Master/tlpkg/tlpsrc/collection-pictures.tlpsrc b/Master/tlpkg/tlpsrc/collection-pictures.tlpsrc
index 51c63188775..958e3d1aa52 100644
--- a/Master/tlpkg/tlpsrc/collection-pictures.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-pictures.tlpsrc
@@ -69,6 +69,7 @@ depend reotex
 depend roundbox
 depend rviewport
 depend schemabloc
+depend setdeck
 depend swimgraf
 depend texdraw
 depend tikz-cd
diff --git a/Master/tlpkg/tlpsrc/setdeck.tlpsrc b/Master/tlpkg/tlpsrc/setdeck.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/setdeck.tlpsrc