我们怎样才能制作南瓜、南瓜灯或其他万圣节精神、食尸鬼或骷髅？

Question

我们有以下问题圣诞树和情人节爱心但我们还没有关于万圣节或亡灵节艺术的专题问题。内容如下：

使用 Ti钾Z 或 PSTricks 或任何其他您喜欢的 LaTeX 工具，创建适合季节的南瓜、食尸鬼等。

我认为只要创建不同的对象，多次提交就应该没问题。

Answer 1

以下是一些可怕的 TikZ 代码：

\documentclass[tikz,border=0]{standalone}
\usetikzlibrary{backgrounds}
\begin{document}
\tikz[background rectangle/.style={fill=black},show background rectangle]\foreach\c[count=\i from0]in{red!10!black,red!15!black,red!20!black,red!25!black,red!30!black,red!35!black,red!40!black,red!45!black,red!50!black,red!55!black,red!60!black,red!65!black,red!75!black,red!75!black!75!orange,red!75!black!50!orange,red!75!black!25!orange,red!75!black!5!orange,orange,orange!75!yellow,orange!50!yellow,orange!25!yellow,yellow,yellow!75,yellow!50,white}\clip[preaction={fill=\c},xscale=1-\i/100,yshift=(\i>0)*1.5](-6,-7)(6,3)\foreach\x in{1,-1}{[xscale=\x](0:1)to[bend right]++(315:2)to[bend right]++(60:4)to[bend right,looseness=0.5]cycle}[shift=(270:\i/15),yscale=1-\i/50](0:5)arc(360:330:5 and 3)\foreach\i in{330,300,270,240}{arc(\i:\i-10:5 and 3)--(\i-15:5 and 5)--(\i-20:5 and 3)arc(\i-20:\i-30:5 and 3)}arc(210:180:5 and 3)arc(180:195:5 and 6)\foreach\i in{195,225,255,285,315}{arc(\i:\i+10:5 and 6)--(\i+15:5 and 4)--(\i+20:5 and 6)arc(\i+20:\i+30:5 and 6)}arc(345:360:5 and 6)--cycle;
\end{document}

这可能要等到明年万圣节才能完成：

\documentclass[tikz,border=0]{standalone}
\usetikzlibrary{decorations,backgrounds}
\tikzset{pics/flame/.style 2 args={code={
  \fill [fill=#1, yscale=1-#2/4, xscale=1-#2/5, rotate=rand*5]
    (0:.5+rnd) coordinate (a) arc (360:180:1 and 1) 
    .. controls ++(90:rnd)            and ++(270:rnd) .. (90+rand*5:2+rnd*2)
    .. controls ++(270+rand*5:.5+rnd) and ++(90+rand*5:.5+rnd) .. (a) 
    \pgfextra{\pgfgetpath\flame\global\let\flame=\flame};
  \foreach \l in {1,...,20}
    \draw [draw=#1, line width=\l/2, draw opacity=1/10] \pgfextra{\pgfsetpath\flame};
}}}
\pgfdeclaredecoration{flames}{burn}{
  \state{burn}[width=\pgfdecorationsegmentlength]{
     \pic {flame={flame}{\pgfdecorationsegmentamplitude}};
   }
}
\colorlet{flame}{red}
\begin{document}
\foreach \i in {1,...,5}{
\begin{tikzpicture}[background rectangle/.style={fill=black}, show background rectangle, line join=round]
\useasboundingbox (-20,-20) rectangle (20,20); 
\foreach \c [count=\x from 0] in {red!50!black, red!75!black, orange, yellow}{
  \colorlet{flame}{\c}
  \draw [decoration={flames, segment length=1.5cm-\x*0.125cm, amplitude=\x}, decorate] 
    circle [radius=15]
    (270:15) -- (54:15) -- (198:15) -- (342:15) -- (126:15) -- cycle;
}
\end{tikzpicture}
}
\end{document}

Answer 2

tikz?, pstricks? 大家都知道黑社会用的图片模式。

\documentclass{article}
\usepackage{color}
\usepackage{pict2e}
\pagecolor[RGB]{255,177,69}
\begin{document}

\begin{picture}(120,200)
\thicklines
\put(100,100){\circle{150}}

\put(70,130){\line(1,-1){10}}
\put(70,130){\line(-1,-1){10}}
\put(60,120){\line(1,0){20}}

\put(130,130){\line(1,-1){10}}
\put(130,130){\line(-1,-1){10}}
\put(120,120){\line(1,0){20}}

\put(100,90){\line(1,-1){10}}
\put(100,90){\line(-1,-1){10}}
\put(90,80){\line(1,0){20}}

\put(70,50){\line(1,0){60}}
\put(70,50){\line(-2,1){5}}
\put(130,50){\line(2,1){5}}
\end{picture}

\end{document}

Answer 3

\documentclass[tikz]{standalone}
\usetikzlibrary{decorations.pathreplacing}
\begin{document}
\begin{tikzpicture}\def\onehalf{
\fill(0.25,0) to [bend right] ++(180:1) to [bend right] ++(330:1.5) to[bend right, looseness=0.5] cycle;
\draw [decoration={expanding waves,angle=4,segment length=0.5pt},decorate] (-1cm,0.7cm) to[out=0,in=140] (0.7cm,-0.2cm);
\fill (1.05cm,-1.1cm) to[out=270,in=180] ++(2mm,-0.4cm) to[out=0,in=0,looseness=0.5] cycle;
\fill[preaction={draw,decorate},decoration={ticks}] (-0.3,-1.5) to[out=-30,in=180] (1,-2) to[bend left] (1,-3) to[bend left] cycle;}
\onehalf\begin{scope}[cm={-1,0,0,1,(2,0)}]\onehalf\end{scope}
\end{tikzpicture}
\end{document}

Answer 4

\documentclass[tikz,border=10pt]{standalone}
\usetikzlibrary{calc,backgrounds}
\usepackage{hieroglf}
\newcommand*{\llygaddienyddiwr}{\textpmhg{\He}}
\pgfdeclarelayer{foreground}
\pgfsetlayers{background,main,foreground}
% adapted (simplified version) from tex/generic/pgf/frontendlayer/tikz/libraries/tikzlibrarybackgrounds.code.tex
\makeatletter
\tikzset{%
  on foreground layer/.style={%
                execute at begin scope={%
                  \pgfonlayer{foreground}%
                  \let\tikz@options=\pgfutil@empty%
                  \tikzset{every on foreground layer/.try,#1}%
                  \tikz@options%
                },
                execute at end scope={\endpgfonlayer}
  },
}
\makeatother
\tikzset{%
  pics/yr Angau/.style n args={2}{
        code={
          \path  (-#2/4,-.55*#2)
                |- (-.15*#2,-.15*#2) coordinate (angau7)
                [out=-20, in=110] to (-.025*#2,-.25*#2) coordinate (angau8)
                [out=85, in=-85] to (0,-.1*#2) coordinate (angau9)
                [out=135, in=-100] to (-.125*#2,-.015*#2) coordinate (angau3)
                -| (-#2/4,#2/2) -| (.375*#2,-.55*#2) -- cycle;
          \path [line cap=round, line width=.025*#2]
                  (0,-.5125*#2) coordinate (angau5) -- ++(-#2/6,.95*#2) coordinate [pos=.875] (angau4) coordinate [pos=.95] (angau1);
          \path [draw=#1, fill=#1, line width=.005*#2, line join=miter]% llafn
                (angau1) [out=30, in=150] to ($(angau5) + (.375*#2,#2)$) [out=-30, in=135] to ++(.125*#2,-.1*#2) [out=135, in=30] to (angau4);
                \path [angau clogyn={#1}{#2}]% corff & pen
                (-.2*#2,-#2/2)
                  [out=85, in=-110] to (angau7)
                  [out=160, in=-45] to (-.2*#2,-.115*#2)
                  [out=135, in=-135] to (-.2*#2,.075*#2)
                  [out=45, in=-135] to (-.05*#2,.125*#2)
                  [out=80, in=-80] to (-.075*#2,.2*#2)
                  [out=100, in=-150] to (.025*#2,.35*#2) coordinate (pen angau)
                  [out=-35, in=80] to (.125*#2,.2*#2)
                  [out=-100, in=170] to (.15*#2,.1*#2)
                  [out=-10, in=120] to (.3*#2,-#2/2)
                  [out=170, in=-10] to cycle;
          \path [angau inner={#1}{#2}]% gwyneb
                (.025*#2,.325*#2) coordinate (pen angau1)
                  [out=-40, in=60] to (.025*#2,.125*#2) coordinate (angau6)
                  [out=120, in=-145] to cycle;
          \begin{scope}% carn (neu 'dwrn'?)
                \clip  (-#2/4,-.55*#2)
                  |- (angau7)
                  [out=-20, in=110] to(angau8)
                  [out=85, in=-85] to (angau9)
                  [out=135, in=-100] to (angau3)
                  -| (-#2/4,#2/2) -| (.375*#2,-.55*#2) -- cycle;
                \path [draw=#1, line cap=round, line width=.025*#2]
                  (angau5) -- (angau1);
          \end{scope}
          \path [angau outer={#2}{#1}]% llewysau (llinellau)
                (angau6)
                  [out=-100, in=85] to (.025*#2,-#2/2)
                (angau7)
                  [out=-20, in=110] to (angau8)
                  [out=85, in=-85] to (angau9)
                  [out=135, in=-100] to (angau3)
                (.15*#2,-.02*#2)
                  [out=-60, in=30] to (.125*#2,-.175*#2) coordinate (angau10)
                  [out=-10, in=135] to (.275*#2,-.475*#2) coordinate (angau2);
          \path [angau inner={#1}{#2}]% llawes chwith
                (angau8) [out=85, in=-85] to (angau9) [out=-85, in=-85] to cycle;
          \path [angau inner={#1}{#2}]% llawes dde
                (angau10) [out=-10, in=135] to (angau2) [out=135, in=-20] to ($(angau10) + (-.005*#2,-.015*#2)$) [out=160, in=170] to cycle;
        }
  },
  pics/dienyddiwr/.style n args={2}{
        code={
          \begin{scope}[on foreground layer]% carn (neu 'dwrn'?)
                \path (-#2/4,-.55*#2)
                  |- (-.15*#2,-.15*#2) coordinate (dienyddiwr7)
                  [out=-20, in=110] to (-.025*#2,-.25*#2) coordinate (dienyddiwr8)
                  [out=85, in=-85] to (0,-.1*#2) coordinate (dienyddiwr9)
                  [out=135, in=-100] to (-.125*#2,-.015*#2) coordinate (dienyddiwr3)
                  -| (-#2/4,#2/2) -| (.375*#2,-.55*#2) -- cycle;
                \begin{scope}
                  \clip  (-#2/4,-.55*#2)
                        |- (dienyddiwr7)
                        [out=-20, in=110] to (dienyddiwr8)
                        [out=-85, in=-85] to (dienyddiwr9)
                        [out=135, in=-100] to (-.125*#2,-.015*#2) coordinate (dienyddiwr3)
                        -| (-#2/4,#2/2) -| (.375*#2,-.55*#2) -- cycle;
                  \path [draw=#1, line cap=round, line width=.025*#2]
                  (-.05*#2,-.25*#2) coordinate (dienyddiwr5) -- ++(#2/4,.45*#2) coordinate [pos=.875] (dienyddiwr4) coordinate [pos=.95] (dienyddiwr1);
                \end{scope}
          \end{scope}
          \path [draw=#1, fill=#1, line width=.005*#2, line join=miter]% llafn
                (dienyddiwr1)
                  [out=-35, in=-115] to ++(.2*#2,-.025*#2)
                  [out=-90, in=35] to ($(dienyddiwr4) + (.125*#2,-.175*#2)$)
                  [out=65, in=-35] to (dienyddiwr4);
          \path [angau clogyn={#1}{#2}]% corff & pen
          (-.2*#2,-#2/2)
                [out=85, in=-110] to (dienyddiwr7)
                [out=160, in=-45] to (-.2*#2,-.115*#2)
                [out=135, in=-135] to (-.2*#2,.075*#2)
                [out=45, in=-135] to (-.05*#2,.125*#2)
                [out=80, in=-80] to (-.075*#2,.2*#2)
                [out=100, in=-150] to (.025*#2,.35*#2) coordinate (pen dienyddiwr)
                [out=-35, in=80] to (.125*#2,.2*#2)
                [out=-100, in=170] to (.15*#2,.1*#2)
                [out=-10, in=120] to (.3*#2,-#2/2)
                [out=170, in=-10] to cycle;
          \path [angau inner={#1}{#2}]% gwyneb
                (.025*#2,.325*#2) coordinate (pen dienyddiwr1)
                  [out=-40, in=60] to (.025*#2,.125*#2) coordinate (dienyddiwr6)
                  [out=120, in=-145] to cycle;
          \begin{scope}[on foreground layer]
                \path [angau outer={#2}{#1}]% llewysau (llinellau)
                  (dienyddiwr7)
                        [out=-20, in=110] to (dienyddiwr8)
                        [out=85, in=-85] to (dienyddiwr9)
                        [out=135, in=-100] to (dienyddiwr3)
                  (.15*#2,-.02*#2)
                        [out=-60, in=30] to (.125*#2,-.175*#2) coordinate (dienyddiwr10)
                        [out=-10, in=135] to (.275*#2,-.475*#2) coordinate (dienyddiwr2);
                \path [angau inner={#1}{#2}]% llawes chwith
                  (dienyddiwr8) [out=85, in=-85] to (dienyddiwr9) [out=-85, in=-85] to cycle;
                \path [angau inner={#1}{#2}]% llawes dde
                  (dienyddiwr10) [out=-10, in=135] to (dienyddiwr2) [out=135, in=-20] to ($(dienyddiwr10) + (-.005*#2,-.015*#2)$) [out=160, in=170] to cycle;
          \end{scope}
          \path [angau outer={#2}{#1}]% clogyn (llinell canolog)
                (dienyddiwr6)
                  [out=-100, in=85] to (.025*#2,-#2/2);
          \begin{scope}% llygaid
                  \clip (pen dienyddiwr1) [out=-40, in=60] to (dienyddiwr6) [out=120, in=-145] to cycle;
                  \path [fill=#1!25!darkgray, draw=#1!25!darkgray, line width=.005*#2]
                        ($(dienyddiwr6)!2/3!(pen dienyddiwr1) - (.03*#2,0)$) coordinate (llygad dienyddiwr chwith) +(.005*#2,0) coordinate (llygad dienyddiwr chwith1) circle (.013*#2 and .003*#2)
                        ($(dienyddiwr6)!2/3!(pen dienyddiwr1) + (.03*#2,0)$) coordinate (llygad dienyddiwr de) +(-.006*#2,0) coordinate (llygad dienyddiwr de1) circle (.013*#2 and .003*#2);
                  \path [fill=#1, draw=#1, line width=.005*#2]
                        (llygad dienyddiwr chwith1) +(.003*#2,0) circle (.003*#2)
                        (llygad dienyddiwr de1) +(-.003*#2,0) circle (.003*#2);
                  \node [#1, font=\tiny, xscale=-.0075*#2, yscale=.0075*#2, inner sep=0pt, outer sep=0pt, anchor=center] at (llygad dienyddiwr chwith) {\llygaddienyddiwr};
                  \node [#1, font=\tiny, scale=.0075*#2, inner sep=0pt, outer sep=0pt, anchor=center] at (llygad dienyddiwr de) {\llygaddienyddiwr};
          \end{scope}
        }
  },
  angau outer/.style n args={2}{draw=#2, line join=miter, line width=.005*#1},
  angau clogyn/.style n args={2}{angau outer={#2}{#1}, inner color=#1, outer color=black},
  angau inner/.style n args={2}{angau clogyn={#1!25!black}{#2}},
}
\begin{document}
\begin{tikzpicture}[background rectangle/.style={top color=black!35!red, bottom color=black!85!red}, show background rectangle]
  \pic {yr Angau={darkgray}{50pt}};
  \pic at (1,0) {dienyddiwr={red}{50pt}};
\end{tikzpicture}
\end{document}