% Florian Sihler, 2022
% Licensed under GNU General Public License version 3
% https://opensource.org/licenses/gpl-3.0.html
\pingu@create@wing@extra{handcast}{%
  handcast \@lr/.forward to    = /pingu/hand cast \@lr,
  hand cast \@lr/.code         = {\pingu@set@extra{handcast\@lr}{true}\@namedef{pingu@handcast@\@lr}{##1}},
  hand cast \@lr/.default      = {X},
  handcast \@lr\space color/.forward to    = /pingu/hand cast \@lr\space color,
  hand cast \@lr\space color/.code = \pingu@color{handcast@\@lr @color}{##1},%
}{hand cast \@lr\space color=pingu@purple}
\def\pingu@draw@wi@handcast#1{%
    \pingu@setup@wing{handcast}{#1}%
    \path[rotate around={\@angle:(\pingu@name-wing-#1)}] (\pingu@name-wing-#1)++(0,5mm) node[\csname pingu@color@handcast@#1@color\endcsname] {\@nameuse{pingu@handcast@#1}};
}