carpetquote.sim

   ref(Carpet) c;  
    ref(Room) r;  
    ref(CarpetQuote) q;

    r :- new RectangularRoom(2.5, 2.5);    
    c :- new StandardCarpet(10.0, False);
    q :- new CarpetQuote(r, c);

    OutText("Quote for rectangular carpet (not rounded) = ");
    OutFix(q.quote, 5, 10);
    Outimage;

    c :- new StandardCarpet(10.0, True);
    q :- new CarpetQuote(r, c);

    OutText("Quote for rectangular carpet (rounded to nearest sq m) = ");
    OutFix(q.quote, 5, 10);
    Outimage;

    r :- new CircularRoom(2.5);
    c :- new StandardCarpet(10.0, True);
    q :- new CarpetQuote(r, c);

    OutText("Quote for carpet for circular room (rounded to nearest sq m) = ");
    OutFix(q.quote, 5, 10);
    Outimage;