I tried to create primitives using the techniques in [this][1], found problems with parallel rasterization
```
SetAttributes[createPrimitive,HoldAll];

createPrimitive[patt_,expr_]:=Typeset`MakeBoxes[p:patt,fmt_,Graphics]:=Typeset`MakeBoxes[Interpretation[expr,p],fmt,Graphics];

createPrimitive[face[x_:0.1],{Circle[{0,0},1],Circle[{-0.3,0.5},x],Circle[{0.3,0.5},x],Line[{{-0.4,-0.2},{0.4,-0.2}}]}];

ParallelTable[Graphics[{face[i]},ImageSize->Tiny],{i,0,0.3,0.3/5}]
ParallelTable[Rasterize@Graphics[{face[i]},ImageSize->Tiny],{i,0,0.3,0.3/5}]
```
[![enter image description here][2]][2]

Is there any way to fix this?


  [1]: https://mathematica.stackexchange.com/questions/27184/how-to-create-custom-graphics-primitive
  [2]: https://i.sstatic.net/zZaUt.png