%!
% Network extensibility Research & Development button
% Mike Gallaher, UniPress software
% Display with psview: "psview nerd.ps"

/nerdfont /Times-Roman findfont 50 scalefont def
/nerd {
    gsave
    currentpoint translate
    newpath
    0 0 90 0 360 arc stroke
    nerdfont setfont
    (NeRD) dup stringbbox 2 div neg exch 2 div neg exch
    moveto
    pop pop
    show stroke
    grestore
} def

/NerdMark {
    gsave
	0.12
	dup scale
	nerd
    grestore    
} def

erasepage
20 dup moveto NerdMark

100 100 moveto
3 { gsave
    3 { nerd 200 0 rmoveto pause
      } repeat
    grestore
    0 200 rmoveto
  } repeat

showpage