(in-package "design")
(setup-dmodel `(:NAME 48CHATHAM :IMAGE-NAME "48CHATHAM" :LEFT-HANDED-COORDINATES-P NIL
:IMAGE-SCALE 9.0 :IMAGE-SCALE-UNITS "PIXELS/FEET" :UNITS FEET
:edge-model 48CHATHAM
:disjoint-territory-model 48CHATHAM
:default-territory-model 48CHATHAM)
:design-elements `(
(FIREPLACE :NAME FPLACE)
(STAIRCASE :FROM-LEVEL 1 :TO-LEVEL 2 :NAME STAIRCASE)
(STEPS :FROM-LEVEL 0 :TO-LEVEL 1 :NAME SIDE-STEPS)
(STEPS :FROM-LEVEL 0 :TO-LEVEL 1 :NAME FRONT-STEPS)
(STEPS :FROM-LEVEL 0 :TO-LEVEL 1 :NAME PORCH-STEPS)
(DOORWAY :NUMBER-OF-DOORS 1 :NAME BACK-DOOR)
(DOORWAY :NUMBER-OF-DOORS 1 :NAME SIDE-DOOR)
(DOORWAY :NUMBER-OF-DOORS 1 :NAME FRONT-DOOR))
:MARKERS `(
(APPROACH-MARKER :X 0.5555556 :Y 28.555555 :TAG :APPROACH-POINT :NOTE "APPROACH POINT")
(APPROACH-MARKER :X 24.88889 :Y 41.555557 :TAG :APPROACH-POINT :NOTE "APPROACH POINT")))