Load File DESIGNER:DATA;TEST-USE.LISP

Loading DESIGNER:DATA;TEST-USE.LISP.NEWEST into package DESIGN
Loading DESIGNER:DATA;TEST-TERRITORY.LISP.NEWEST into package DESIGN
Loading DESIGNER:DATA;TEST-DESIGN.LISP.NEWEST into package DESIGN
Loading DESIGNER:DATA;TEST-EDGE.LISP.NEWEST into package USER (really COMMON-LISP-
USER)
Loading DESIGNER:DATA;TEST-TERRITORY.LISP.NEWEST into package DESIGN
 ... Done.

(get-models)
(<DESIGN-MODEL: TEST>)
(<TERRITORY-MODEL: TEST>)
(<USE-MODEL: TEST>)

(describe <DESIGN-MODEL: TEST>)

<DESIGN-MODEL: TEST> is an object of class #<STANDARD-CLASS DESIGN-MODEL 
21012760172>
Instance Slots:
  IMAGE-SCALE:  5.75
  IMAGE-SCALE-UNITS:  "PIXELS/FEET"
  LEFT-HANDED-COORDINATES-P:  NIL
  IMAGE-NAME:  NIL
  UNITS:  NIL
  MARKERS:  NIL
  TERRITORY-MODELS:  (<TERRITORY-MODEL: TEST>)
  EDGE-MODEL:  <EDGE-MODEL: TEST>
  NOTES:  NIL
  PLIST:  NIL
  NAME:  TEST
  DESIGN-ELEMENTS:  (<DOORWAY: BACK-DOOR> <DOORWAY: FRONT-DOOR>)
  DISJOINT-TERRITORY-MODEL:  <TERRITORY-MODEL: TEST>
  DEFAULT-TERRITORY-MODEL:  <TERRITORY-MODEL: TEST>
  CURRENT-TERRITORY-MODEL:  NIL
<DESIGN-MODEL: TEST>

(describe <EDGE-MODEL: TEST>)

<EDGE-MODEL: TEST> is an object of class #<STANDARD-CLASS EDGE-MODEL 21012761576>
Instance Slots:
  CIRCULATION-MODEL:  <CIRCULATION-MODEL: TEST>
  DESIGN-MODEL:  <DESIGN-MODEL: TEST>
  POINTS:  (<POINT: 48.347828 53.04348> <POINT: 48.347828 64.695656>
            		<POINT: 48.347828 56.347828> <POINT: 48.347828 49.04348> 
			<POINT: 65.21739 49.04348> <POINT: 65.21739 55.47826> 
			<POINT: 65.21739 58.95652> <POINT: 65.21739 64.695656>
          		  <POINT: 81.73913 49.04348> <POINT: 81.73913 55.47826> 
			<POINT: 81.73913 58.95652> <POINT: 81.73913 64.695656>)
  EDGES:  (<EDGE: (48.347828 53.04348) (48.347828 56.347828)>
           <EDGE: (48.347828 49.04348) (48.347828 53.04348)>
           <EDGE: (65.21739 64.695656) (81.73913 64.695656)>
           <EDGE: (65.21739 55.47826) (65.21739 58.95652)>
           <EDGE: (65.21739 64.695656) (48.347828 64.695656)>
           <EDGE: (48.347828 64.695656) (48.347828 56.347828)>
           <EDGE: (65.21739 49.04348) (81.73913 49.04348)>
           <EDGE: (48.347828 49.04348) (65.21739 49.04348)>
           <EDGE: (65.21739 49.04348) (65.21739 55.47826)>
           <EDGE: (65.21739 58.95652) (65.21739 64.695656)>
           <EDGE: (81.73913 55.47826) (81.73913 58.95652)>
           <EDGE: (81.73913 49.04348) (81.73913 55.47826)>
           <EDGE: (81.73913 58.95652) (81.73913 64.695656)>)
  NOTES:  NIL
  PLIST:  NIL
  NAME:  TEST
<EDGE-MODEL: TEST>

(describe <TERRITORY-MODEL: TEST>)

<TERRITORY-MODEL: TEST> is an object of class #<STANDARD-CLASS TERRITORY-MODEL 
21012761616>
Instance Slots:
  DERIVATION:  NIL
  DERIVED-FROM:  NIL
  MODIFIED-OBJECTS:  NIL
  TERRITORIES:  (<TERRITORY: B> <TERRITORY: A>)
  CIRCULATION-MODEL:  <CIRCULATION-MODEL: TEST>
  DESIGN-MODEL:  <DESIGN-MODEL: TEST>
  POINTS:  (<POINT: 81.73913 64.695656> <POINT: 81.73913 49.04348> 
				<POINT: 81.73913 55.47826> <POINT: 81.73913 58.95652> 
				<POINT: 48.347828 56.347828> <POINT: 48.347828 53.04348>
            <POINT: 65.21739 58.95652> <POINT: 65.21739 55.47826> 
				<POINT: 65.21739 64.695656> <POINT: 48.347828 64.695656> 
				<POINT: 48.347828 49.04348> <POINT: 65.21739 49.04348>)
  EDGES:  (<EDGE: (65.21739 64.695656) (81.73913 64.695656)>
          <EDGE: (81.73913 58.95652) (81.73913 64.695656)>
            <EDGE: (65.21739 49.04348) (81.73913 49.04348)>
            <EDGE: (81.73913 49.04348) (81.73913 55.47826)>
            <EDGE: (81.73913 55.47826) (81.73913 58.95652)>
            <EDGE: (48.347828 53.04348) (48.347828 56.347828)>
            <EDGE: (48.347828 64.695656) (48.347828 56.347828)>
            <EDGE: (48.347828 49.04348) (48.347828 53.04348)>
            <EDGE: (65.21739 55.47826) (65.21739 58.95652)>
            <EDGE: (65.21739 58.95652) (65.21739 64.695656)>
            <EDGE: (65.21739 49.04348) (65.21739 55.47826)>
            <EDGE: (65.21739 64.695656) (48.347828 64.695656)>
            <EDGE: (48.347828 49.04348) (65.21739 49.04348)>)
  NOTES:  NIL
  PLIST:  NIL
  NAME:  TEST
<TERRITORY-MODEL: TEST>

(describe <CIRCULATION-MODEL: TEST>)

<CIRCULATION-MODEL: TEST> is an object of class #<STANDARD-CLASS CIRCULATION-MODEL 
21012764024>
Instance Slots:
  NOTES:  NIL
  PLIST:  NIL
  NAME:  TEST
  TERRITORY-MODEL:  <TERRITORY-MODEL: TEST>
  POINTS:  (<CIRCULATION-NODE: FRONT-DOOR> <CIRCULATION-NODE: BACK-DOOR> 			
				<CIRCULATION-NODE: A-B>)
  EDGES:  (<CIRCULATION-LINK: FRONT-DOOR to A-B d=17.06>
           <CIRCULATION-LINK: A-B to BACK-DOOR d=16.52>)
<CIRCULATION-MODEL: TEST>