%!ps-nonconforming
% on the Google maps I downloaded, 60 pixels are supposed to be 100 feet
% as it turns out by measuring, it's quite a bit more than that
/foot 0.64 def
/feet {foot mul} bind def
% the following widths are from Alan Newman's map
% possibly modified by me (jc) for making a better fit
/lotlength {100 feet} def  % north-south distance
/lotwidth {100 feet} def  % east-west distance
/nothing 0 def
/alley {15 feet} bind def  % like the road between Steve and Adelaide
/sunset_way {20 feet} bind def
/arroyo_road {35 feet} bind def
/lighthouse_lane {40 feet} bind def
/east {1 mul} bind def
/south {-1 mul} bind def
/west {-1 mul} bind def
/north {1 mul} bind def
/cross_west {west nothing north rmoveto} bind def
/cross_north {nothing west exch rmoveto} bind def
% now for moving on the paper itself:
/inch {72 mul} bind def
/drawlot  % draw a lot north and west
{
 gsave
 nothing west lotlength north rlineto
 lotwidth west nothing north rlineto
 nothing east lotlength south rlineto
 lotwidth east nothing south rlineto
 stroke
 grestore
} def
% set a nice bright color for overlay on satellite imagery
/yellow {255 255 0} bind def
/cyan {0 255 255} bind def
/magenta {255 0 255} bind def
yellow setrgbcolor
/draw_riverside_lots  % 5 lots next to arroyo
{
 3 {drawlot lotwidth cross_west} repeat
 arroyo_road cross_west
 2 {drawlot lotwidth cross_west} repeat
} def
/draw_northwest_lots  % full row of 8 lots
{
 3 {drawlot lotwidth cross_west} repeat
 arroyo_road cross_west
 2 {drawlot lotwidth cross_west} repeat
 % cross the alley for the westernmost lots
 alley cross_west
 3 {drawlot lotwidth cross_west} repeat
} def
% we're going to work in landscape mode
% starting in the southeast part of the north side of the arroyo
% (near lagoon)
0.1 inch 0.1 inch moveto -90 rotate
gsave draw_riverside_lots grestore
lotlength sunset_way add cross_north
gsave draw_northwest_lots grestore
lotlength cross_north
gsave draw_northwest_lots grestore
lotlength lighthouse_lane add cross_north
gsave draw_northwest_lots grestore
lotlength cross_north
gsave draw_northwest_lots grestore
showpage
% where this should be offset on the satellite image, for IM "convert":
% offset +230+40