% place this in the prologue
%
 /FITS1 {GS OrR pc SRGB (FITS) TC S GR} BD
 /FITS2 {GS OrR fc SRGB (FITS) TC F GR} BD
 /FITS3 {-15 15 360 {dup FITS2 FITS1 } for 1 0 0 SRGB Ori (FITS) TC F 0 0 0 SRGB 0 FITS1} BD
 /M1 {urx 2 div ury 2 div} BD
%
% place this in the body after the rectangle fill
%
 /fc {1 0.5 0} D /pc {0 0 0} D 
 GS M1 T Ori FTB FITS3 GR