/Exp
{10 ln div 10 exch exp} def

/Gauss
{
  newpath
  -3 -9 Exp moveto
  -3 0.15 3 {dup dup mul neg Exp lineto} for
  closepath
} def

/StrokedDoubleGauss
{
  gsave
  Gauss stroke
  180 rotate
  Gauss stroke
  grestore
} def

/FilledDoubleGauss
{
  gsave
  45 rotate
  0.5 setgray
  Gauss gsave fill grestore stroke
  180 rotate
  0.0 setgray
  Gauss gsave fill grestore stroke
  grestore
} def

/one
{
  gsave
    0.6 0.6 scale
    StrokedDoubleGauss
  grestore
} def

/two
{
  gsave
    0 3 translate
    0.6 0.6 scale
    FilledDoubleGauss
  grestore
} def

/three
{
  gsave
    0 -3 translate
    0.6 0.6 scale
    4 {45 rotate FilledDoubleGauss} repeat
  grestore
} def

/go
{
  currentrgbcolor
  initgraphics
  setrgbcolor
  100 100 scale
  0 setlinewidth
  4.1 5.3 translate
  one two three
} def

/e {erasepage} def
