void boas_draw_old_walls(epswr_figure_t *epsf, adrw_point_vec_t *P, bool_t show_dots)
  {
    double R = 1.000, G = 0.750, B = 0.250;

    PSHAPE
      ( "pwall", "Old perimeter wall", R, G, B, show_dots,
         80,  63,  81,  82,  
         83,  87,  86,  85,  64,  84,  80
      );

    PSHAPE
      ( "swall", "Old side door wall", R, G, B, show_dots,
         72,  70,  71,  73,  72
      );

    PSHAPE
      ( "fwall1", "Front wall section 1", R, G, B, show_dots,
         80, 301, 323, 322,  80
      );
    PSHAPE
      ( "fwall1", "Front wall section 2", R, G, B, show_dots,
         80, 301, 323, 322,  80
      );
    PSHAPE
      ( "fwall2", "Front wall section 3", R, G, B, show_dots,
        308, 309, 325, 324, 308
      );
    PSHAPE
      ( "fwall3", "Front wall section 3", R, G, B, show_dots,
        310, 311, 327, 326, 310
      );
    PSHAPE
      ( "fwall4", "Front wall section 4", R, G, B, show_dots,
        312,  83, 329, 328, 312
      );

    PSHAPE
      ( "fpill1", "Front wall pillar 1", R, G, B, show_dots,
        301, 302, 332, 331, 301
      );
    PSHAPE
      ( "fpill2", "Front wall pillar 2", R, G, B, show_dots,
        303, 304, 334, 333, 303
      );
    PSHAPE
      ( "fpill3", "Front wall pillar 3", R, G, B, show_dots,
        305, 306, 336, 335, 305
      );
    PSHAPE
      ( "fpill4", "Front wall pillar 4", R, G, B, show_dots,
        307, 308, 338, 337, 307
      );
    PSHAPE
      ( "fpill5", "Front wall pillar 5", R, G, B, show_dots,
        309, 310, 340, 339, 309
      );

    PSHAPE
      ( "fdoor1", "Front wall door jamb 1", R, G, B, show_dots,
        304, 351, 352, 362, 361, 344, 334, 304
      );
    PSHAPE
      ( "fdoor2", "Front wall door jamb 2", R, G, B, show_dots,
        305, 335, 345, 364, 363, 353, 354, 305
      );
  }

void boas_draw_old_pavement(epswr_figure_t *epsf, adrw_point_vec_t *P, bool_t show_dots)
  {
    /* Tiled area around building: */
    double Rw = 0.800, Gw = 0.800, Bw = 0.950;
    PSHAPE
      ( "owalk1", "Old walkway north", Rw, Gw, Bw, show_dots,
         63,   3,   6,   7,   8,  
          9,  10,  11,  12,  13, 
         14,  16,  74,  70,  
         58,  57,  56,  55,  54,  53,  52,  51,  50,  49,
         48,  47,  46,  45,  44,  43,  38,
        128, 127,  
         63
      );
    PSHAPE
      ( "owalk2", "Old walkway south", Rw, Gw, Bw, show_dots,
         71,  28,  29,  90,  67,  66,  65, 
         71
      );

    double Rg = 0.800, Gg = 0.800, Bg = 0.800;
    PSHAPE
      ( "ogaraf", "Old garage floor", Rg, Gg, Bg, show_dots,
         62,  68,  69, 100,  98,  96,  91,  
         92,  93,  99, 103, 104,
         62
      );

    double Rr = 0.600, Gr = 0.600, Br = 0.700;
    PSHAPE
      ( "osidew", "Old sidewalk pavement", Rr, Gr, Br, show_dots,
         401, 402, 403, 404, 405, 406, 407, 408, 
         408, 409, 410, 411, 412, 413, 414, 415, 416, 
         401
      );
  }