%!PS-Adobe-2.0
%%Pages: 0 1
%%BoundingBox: 0 0 612 792
%%EndComments
% bushno.ps: red "prohibit" circle over "BUSH"
/Black{0 0 0 1 setcmykcolor}def % text color
/Red{0 1 1 0 setcmykcolor}def % circle color
/White{0 0 0 0 setcmykcolor}def % background color
/thick 15 def   % thickness of circl
/inch { 72 mul } def % convert: inches to points

/outercircle { % outer boundary of main circle
  newpath % 360 degree circle: center, radius, degree range
  0 0 100 0 360 arc  closepath % 360 degree circle
  fill
} def

/innercircle { % inner boundary of main circle
  newpath
  0 0 100 thick sub 0 360 arc  closepath
  1 setgray
  fill
  0 setgray
} def

% diagonal rectangle -- sloppy, but doesn't matter
/s1 2 sqrt 92 2 div mul def
/s2 2 sqrt 85 2 div mul def
/inter 2 sqrt thick 2 div mul def
/rect {
  newpath
  s1 s1 inter sub moveto
  s2 s2 inter add lineto
  s1 neg s1 neg inter add lineto
  s2 neg s2 neg inter sub lineto
  closepath
  fill
} def

/bush { % print "BUSH" in the middle
  % special tall font: 50 is horizontal size, 120 is vertical
  /Helvetica-Bold findfont [50 0 0 120 0 0] makefont setfont
  0 0 moveto
  % center horizontally by using its width
  % height determined by hand
  (BUSH) stringwidth pop
  neg 2 div -43 rmoveto
  (BUSH) show
} def

/clip1 { % clipping path for lower left overlap
  newpath -15 20 moveto % sloppy rectangle, but doesn't matter
  -35 20 lineto
  -35 -50 lineto
  -15 -50 lineto
  closepath
} def

/clip2 { % clipping path for upper right overlap
  newpath 17 13 moveto % sloppy rectangle, but doesn't matter
  17 50 lineto
  35 50 lineto
  35 13 lineto
  closepath
} def

/page_ne { % clip to 8.5 by 11 page
   0 0 moveto
   0 11 inch lineto
   8.5 inch 11 inch lineto
   8.5 inch 0 lineto
   closepath
} def

/page_nw {
   0 0 moveto
   0 11 inch lineto
   -8.5 inch 11 inch lineto
   -8.5 inch 0 lineto
   closepath
} def

/page_se {
   0 0 moveto
   0 -11 inch lineto
   8.5 inch -11 inch lineto
   8.5 inch 0 lineto
   closepath
} def

/page_sw {
   0 0 moveto
   0 -11 inch lineto
   -8.5 inch -11 inch lineto
   -8.5 inch 0 lineto
   closepath
} def

/everything { % do everything
  0 0 moveto
  Red   outercircle % filled red circle
  White innercircle % filled white circle inside
  Black bush % inner black "BUSH"
  Red   rect % red diagonal on top
  Black % clip and show to put pieces over diagonal
  gsave % one part of "BUSH" on top of diagonal
    clip1 clip
    bush % just small portion of "BUSH" printed
  grestore
  gsave % other part of "BUSH" on top of diagonal
    clip2 clip
    bush % just small portion of "BUSH" printed
  grestore
} def

/margin 0.75 inch def

/do_ne {
  gsave
    margin margin translate
    %dashed_lines
    5 5 scale
    page_ne clip
    everything
  grestore
} def

/do_nw {
  gsave
    8.5 inch margin sub margin translate
    %dashed_lines
    5 5 scale
    page_nw clip
    everything
  grestore
} def

/do_se {
  gsave
    margin 11 inch margin sub translate
    %dashed_lines
    5 5 scale
    page_se clip
    everything
  grestore
} def

/do_sw {
  gsave
    8.5 inch margin sub 11 inch margin sub translate
    %dashed_lines
    5 5 scale
    page_sw clip
    everything
  grestore
} def

% At this point, print four of the poster in four
% separate pages, with 3/4 inch margins to allow
% for printer not printing to the edge,
% using one of
%    do_ne,  do_nw,  do_se, do_sw
% followed by showpage.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Instead below,give the four pages at once on one
% page at half size
gsave % northeast page
  0.5 0.5 scale
  do_ne
grestore
gsave % southwest page
  8.5 inch 2 div 11 inch 2 div translate
  0.5 0.5 scale
  do_sw
grestore
gsave % southeast page
  0 11 inch 2 div translate
  0.5 0.5 scale
  do_se
grestore
gsave % northwest page
  8.5 inch 2 div 0 translate
  0.5 0.5 scale
  do_nw
grestore
% draw lines between pages
8.5 inch 2 div 0 moveto
8.5 inch 2 div 11 inch lineto stroke
0 11 inch 2 div moveto
8.5 inch 11 inch 2 div lineto stroke
showpage