Mfcttrf

I am trying to draw the following "symmetrical alien head":

Using the mirror code from Can we mirror a part in tikz? I was able to produce the following result

While the result looks good I am not particularly happy with the code, as I had to juggle a lot of coordinates and a lot of manual adjustments had to be made. In particular

• Is there an easier way to remove the white squares from the figure while still keeping the transparent background?


• Can one make one half of the face and then mirror or across x=6? I tried this, but it was only possible with the coordinates not the fill functions.

Other solutions using TikZ, Asymptote, MetaPost, PSTricks are also welcome.

documentclass[border=2mm]standalone
usepackagetkz-euclide
usetkzobjall % on charge tous les objets

definecolormaincolorMediumHTMLa757b2%

makeatletter
tikzset
 mirror/.code=pgfutil@in@--#1ifpgfutil@in@tikz@trans@mirror#1@nil
 elsetikz@scan@one@pointpgftransformmirror#1relaxfi,
 ymirror/.code=pgfutil@ifnextchar(tikz@trans@ymirror@coordinatetikz@trans@ymirror@simple#1@nil,
 xmirror/.code=pgfutil@ifnextchar(tikz@trans@xmirror@coordinatetikz@trans@xmirror@simple#1@nil
deftikz@trans@mirror#1--#2@nil%
 pgfextract@processpgf@trans@mirror@Atikz@scan@one@pointpgfutil@firstofone#1%
 pgfextract@processpgf@trans@mirror@Btikz@scan@one@pointpgfutil@firstofone#2%
 pgftransformMirrorpgf@trans@mirror@Apgf@trans@mirror@B
defpgftransformxmirror#1pgfmathparse2*(#1)pgftransformcm-1001pgfqpoint+pgfmathresult pt+0pt
defpgftransformymirror#1pgfmathparse2*(#1)pgftransformcm100-1pgfqpoint+0pt+pgfmathresult pt
deftikz@trans@ymirror@simple#1@nil
 pgfmathparse#1lettikz@temppgfmathresult
 ifpgfmathunitsdeclared
 pgftransformymirrortikz@temp pt%
 else
 pgf@processpgfpointxy0tikz@temp%
 pgftransformymirror+thepgf@y%
 fi
deftikz@trans@xmirror@simple#1@nil
 pgfmathparse#1lettikz@temppgfmathresult
 ifpgfmathunitsdeclared
 pgftransformxmirrortikz@temp pt%
 else
 pgf@processpgfpointxytikz@temp0%
 pgftransformxmirror+thepgf@x%
 fi
deftikz@trans@xmirror@coordinate#1@niltikz@scan@one@pointpgfutil@firstofone#1pgftransformxmirror+thepgf@x
deftikz@trans@ymirror@coordinate#1@niltikz@scan@one@pointpgfutil@firstofone#1pgftransformymirror+thepgf@y
defpgftransformmirror#1%
 pgfpointnormalised#1%
 pgf@xa=pgf@sys@tonumberpgf@ypgf@x
 pgf@xb=pgf@sys@tonumberpgf@xpgf@x
 pgf@yb=pgf@sys@tonumberpgf@ypgf@y
 multiplypgf@xa2relax
 pgf@xc=-pgf@ybadvancepgf@xcpgf@xb
 pgf@yc=-pgf@xbadvancepgf@ycpgf@yb
 edefpgf@tempthepgf@xc+thepgf@xa+thepgf@xa+thepgf@yc%
 expandafterpgf@transformcmpgf@temppgfpointorigin
defpgftransformMirror#1#2%
 pgfextract@processpgf@trans@mirror@A#1%
 pgfextract@processpgf@trans@mirror@B#2%
 pgfextract@processpgf@trans@mirror@gpgfpointdiffpgf@trans@mirror@Apgf@trans@mirror@B%
 pgftransformshiftpgf@trans@mirror@A%
 pgftransformmirrorpgf@trans@mirror@g%
 pgftransformshiftpgfpointscale-1pgf@trans@mirror@A
makeatother


begindocument

begintikzpicture
defopa0.4
 tkzInit[xmin=-0.5,xmax=12.5, ymin=-0.5,ymax=9.5]

 % Draw dashed grid
 beginscope[dashed]
 tkzGrid
 endscope

 % Def points
 tkzDefPoint(3,0)A
 tkzDefPoint(3,3)B
 tkzDefPoint(6,4)C
 tkzDefPoint(6,6)D

 % Define the white squares
 tkzDefPoint(5,4)e1tkzDefPoint(5,6)e2tkzDefSquare(e1,e2) tkzGetPointse3e4

 beginscope[xmirror=6]
 tkzDefPoint(3,0)A1
 tkzDefPoint(3,3)B1
 tkzDefPoint(5,4)f1tkzDefPoint(5,6)f2
 endscope

 tkzDefSquare(f2,f1) tkzGetPointsf3f4

 % Fill the figure
 tkzFillPolygon[color=maincolorMedium,opacity=opa](A,e4,C) 
 tkzFillPolygon[color=maincolorMedium,opacity=opa](A1,f3,C)
 tkzFillPolygon[color=maincolorMedium,opacity=opa](e1,f1,f2,e2)
 tkzFillSector[color=maincolorMedium,opacity=opa](e3,D)(B) 
 tkzFillSector[color=maincolorMedium,opacity=opa](f4,B1)(D)

 % Perform the outline
 tkzDrawArc[color=black,thick](e3,D)(B) 
 tkzDrawArc[color=black,thick](f4,B1)(D)
 tkzDrawSquare[thick](e1,e2)tkzDrawSquare(f2,f1)
 tkzDrawSegments[thick](B,A A,C C,A1 A1,B1)
endtikzpicture

enddocument

In simple cases like this you could just use a pic and mirror it.

documentclass[tikz,border=3.14mm]standalone
definecolormaincolorMediumHTMLa757b2%
begindocument
begintikzpicture[pics/lhead/.style=code=
draw[fill=maincolorMedium,even odd rule] (0,0) -- (-3,-4) -- (-3,-1) arc(270:0:3) (-3,0) rectangle (-1,2);]
draw[dashed] (-6.5,-4.5) grid (6.5,5.5);
path[fill opacity=0.4] (0,0) piclhead pic[xscale=-1]lhead;
endtikzpicture
enddocument

As a mathematical figure, it's a poor match.

But as an alien head in the style of Cthulhu, I think it gives the OP's a run for the money.

documentclassarticle
usepackagegraphicx,xcolor,stackengine
begindocument
bgroup
savestackhalfheadHugestackinsetc3ptc23pt%
 colorred!15rule7pt7ptscalebox10,kern-19pt
halfheadreflectboxhalfhead
egroup
enddocument

A pstricks code:

documentclass[border = 5pt, svgnames]standalone
usepackagepstricks
usepackageauto-pst-pdf% to compile with pdflatex --enable-write18 (MiKTeX) or pdflatex --shell-escape (TeXLive, MacTeX)

 begindocument

beginpspicture[showgrid](-6.5, -6.5)(6.5, 3.5)
pssetlinewidth=0.6pt, linecolor=Plum, fillstyle=solid, fillcolor=white
pscustom[fillstyle=solid, fillcolor=Plum, opacity=0.4]%
psarc(-3,0)30270psline(-3,-6)(0,-2)(3,-6)
psarc(3,0)3-90180 %
psframe[](-3,-2)(-1,0)psframe[](1,-2)(3,0)
endpspicture

enddocument 

documentclass[pstricks,border=4mm]standalone
begindocument

defPathpsline(0,0)(-3,-4)(-3,-1)psarcn(-3,2)32700psframe(-3,0)(-1,2)
beginpspicture[showgrid](-6,-4)(6,5)
pscustom[fillstyle=eofill,fillcolor=[HTML]a757b2,opacity=0.4]%
 Pathmoveto(0,0)code-1 1 scalePath
endpspicture
enddocument