From 0d4f11dd58f67cb7fc78dcd7f411c2f957d5e444 Mon Sep 17 00:00:00 2001
From: puripuri2100 <puripuri2100@gmail.com>
Date: Wed, 29 Dec 2021 01:53:03 +0900
Subject: [PATCH 1/3] add santa hat option

---
 scsnowman-normal.def | 23 +++++++++++++++++++++++
 scsnowman.sty        | 10 ++++++++++
 scsnowman.tex        | 20 ++++++++++++++++++++
 3 files changed, 53 insertions(+)

diff --git a/scsnowman-normal.def b/scsnowman-normal.def
index 235f949..d12105b 100644
--- a/scsnowman-normal.def
+++ b/scsnowman-normal.def
@@ -77,6 +77,29 @@
         cycle;
     \fi
     \fi
+    \ifsctkzsym@snowman@santa
+      \sctkzsym@snowman@santa@hatpath % santa
+        (0.35,0.72) .. controls (0.35,0.72) and (0.35,0.88) ..
+        (0.50,0.88) .. controls (0.50,0.88) and (0.525,0.88) ..
+        (0.58,0.88) .. controls (0.58,0.88) and (0.70,0.88) ..
+        (0.73,0.82) .. controls (0.73,0.82) and (0.73,0.82) ..
+        (0.72,0.81) .. controls (0.72,0.81) and (0.66,0.85) ..
+        (0.61,0.83) .. controls (0.61,0.83) and (0.66,0.78) ..
+        (0.65,0.72) .. controls (0.65,0.72) and (0.50,0.72) ..
+        (0.35,0.72) --
+        cycle;
+    \sctkzsym@snowman@santa@furpath % santa
+      (0.74,0.81) circle [radius=0.02];
+    \sctkzsym@snowman@santa@furpath % santa
+      (0.35,0.67) .. controls (0.35,0.67) and (0.32,0.675) ..
+      (0.32,0.70) .. controls (0.32,0.70) and (0.32,0.725) ..
+      (0.35,0.73) .. controls (0.35,0.73) and (0.50,0.74) ..
+      (0.65,0.73) .. controls (0.65,0.73) and (0.68,0.725) ..
+      (0.68,0.70) .. controls (0.68,0.70) and (0.68,0.675) ..
+      (0.65,0.67) .. controls (0.65,0.67) and (0.50,0.66) ..
+      (0.35,0.67) --
+      cycle;
+    \fi
     \ifsctkzsym@snowman@broom
       \sctkzsym@snowman@broompath[line width=0.08ex*\sctkzsym@coord@scl,line cap=butt]
         (0.03,0.06) -- (0.12,0.50);
diff --git a/scsnowman.sty b/scsnowman.sty
index 2bacfb5..d355acd 100644
--- a/scsnowman.sty
+++ b/scsnowman.sty
@@ -204,6 +204,7 @@
   \def\sctkzsym@snowman@adjustbaseline{false}%
   \def\sctkzsym@snowman@mikan{false}%
   \def\sctkzsym@snowman@leaf{false}%
+  \def\sctkzsym@snowman@santa{false}%
   \def\sctkzsym@snowman@broom{false}%
 }
 \newcommand{\sctkzsym@snowman@defaultkeys}{%
@@ -230,6 +231,7 @@
 \sctkzsym@define@key@withbool{snowman}{adjustbaseline}
 \sctkzsym@define@key@withbool{snowman}{mikan}
 \sctkzsym@define@key@withbool{snowman}{leaf}
+\sctkzsym@define@key@withbool{snowman}{santa}
 \sctkzsym@define@key@withbool{snowman}{broom}
 %
 % definition of \scsnowman[...]
@@ -340,6 +342,14 @@
   \def\sctkzsym@snowman@leaffill{\sctkzsym@snowman@leaf}%
   \def\sctkzsym@snowman@leafpath
     {\path[draw=\sctkzsym@snowman@leafstroke,fill=\sctkzsym@snowman@leaffill]}%
+  % check santa
+  \sctkzsym@hndl@key@withbool{snowman}{santa}%
+  \def\sctkzsym@snowman@santafill{\sctkzsym@snowman@santa}%
+  \def\sctkzsym@snowman@santastroke{\sctkzsym@defaultcolor}%
+  \def\sctkzsym@snowman@santa@hatpath
+    {\path[draw=\sctkzsym@snowman@santastroke,fill=\sctkzsym@snowman@santafill]}%
+  \def\sctkzsym@snowman@santa@furpath
+    {\path[draw=\sctkzsym@snowman@santastroke,fill=white]}%
   % check broom (only stroke)
   \sctkzsym@hndl@key@withbool{snowman}{broom}%
   \def\sctkzsym@snowman@broomstroke{\sctkzsym@snowman@broom}%
diff --git a/scsnowman.tex b/scsnowman.tex
index c48931c..9ac5217 100644
--- a/scsnowman.tex
+++ b/scsnowman.tex
@@ -410,6 +410,26 @@ \subsection{Drawing ``\emph{Kagami-mochi}''}
   \scsnowman[eyes=false,mouth=false,mikan=orange,leaf=green]
 \end{minipage}
 
+\subsection{Drawing ``\emph{Santa hat}''}
+
+Using \Lpack{scsnowman} package, you can also draw ``\emph{santa hat}''.
+
+Following \emph{key} is implemented for this usage:
+\begin{quote}
+  \Lopt{santa}
+\end{quote}
+
+Here is an example:\\[1ex]
+\begin{minipage}{.75\textwidth}\begin{verbatim}
+  \scsnowmandefault{scale=5.5}
+  \scsnowman[santa]
+  {\color{blue}\scsnowman[santa=red]}
+\end{verbatim}\end{minipage}
+\begin{minipage}{.2\textwidth}
+  \scsnowmandefault{scale=5.5}
+  \scsnowman[santa]{\color{blue}\scsnowman[santa=red]}
+\end{minipage}
+
 \subsection{Replacing All ``8'' with Snowmen}
 
 You can replace all ``8'' inside an arabic number expression with snowmen

From 04e25f14374124abff6f20d5ab656b9da9c37a44 Mon Sep 17 00:00:00 2001
From: puripuri2100 <puripuri2100@gmail.com>
Date: Wed, 29 Dec 2021 02:03:15 +0900
Subject: [PATCH 2/3] fix

---
 scsnowman.tex | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsnowman.tex b/scsnowman.tex
index 9ac5217..817f295 100644
--- a/scsnowman.tex
+++ b/scsnowman.tex
@@ -419,7 +419,7 @@ \subsection{Drawing ``\emph{Santa hat}''}
   \Lopt{santa}
 \end{quote}
 
-Here is an example:\\[1ex]
+Here are some examples:\\[1ex]
 \begin{minipage}{.75\textwidth}\begin{verbatim}
   \scsnowmandefault{scale=5.5}
   \scsnowman[santa]

From 6b011285dada3be18b371096089f4ae230f423b4 Mon Sep 17 00:00:00 2001
From: puripuri2100 <puripuri2100@gmail.com>
Date: Wed, 29 Dec 2021 02:06:35 +0900
Subject: [PATCH 3/3] add comment

---
 scsnowman-normal.def | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scsnowman-normal.def b/scsnowman-normal.def
index d12105b..6281f92 100644
--- a/scsnowman-normal.def
+++ b/scsnowman-normal.def
@@ -78,6 +78,9 @@
     \fi
     \fi
     \ifsctkzsym@snowman@santa
+      %%% Reference(Japanese only):
+      %%% https://puripuri2100.hatenablog.com/entry/2018/12/25/000805
+      %%% https://gist.github.com/puripuri2100/3290dd78ad7387b4bc30c61d1bb84df5
       \sctkzsym@snowman@santa@hatpath % santa
         (0.35,0.72) .. controls (0.35,0.72) and (0.35,0.88) ..
         (0.50,0.88) .. controls (0.50,0.88) and (0.525,0.88) ..