%!

18 18 translate
360 dup scale
0 setlinewidth

0 0 1 0 360 arc stroke
3 0 2 0 360 arc stroke
0 4 3 0 360 arc stroke

/circ{
  gsave
  1 exch div
  dup scale
  1 0 360 arc
   closepath fill
  grestore
  } def

/M 150 def

/xdef{ exch def }def

/gasket{
  dup M gt
    {12 {pop} repeat}
    {
     3 copy circ
     /C4 xdef /B4 xdef /A4 xdef
     /C3 xdef /B3 xdef /A3 xdef
     /C2 xdef /B2 xdef /A2 xdef
     /C1 xdef /B1 xdef /A1 xdef
     /A0 A1 A2 A3 A4 add add add 2 mul def
     /B0 B1 B2 B3 B4 add add add 2 mul def
     /C0 C1 C2 C3 C4 add add add 2 mul def
     A1 B1 C1  A2 B2 C2  A4 B4 C4
       A0 A3 3 mul sub B0 B3 3 mul sub C0 C3 3 mul sub
     A1 B1 C1  A3 B3 C3  A4 B4 C4
       A0 A2 3 mul sub B0 B2 3 mul sub C0 C2 3 mul sub
     A2 B2 C2  A3 B3 C3  A4 B4 C4
       A0 A1 3 mul sub B0 B1 3 mul sub C0 C1 3 mul sub
     gasket gasket gasket
    }
  ifelse
  } def

0 0 1
1.5 0 .5
0 1.33333 0.33333
3.5 3.33333 3.83333
gasket

showpage