001  (ns cc.journeyman.the-great-game.location.location)
002  
003  ;;; There's probably conflict between this sense of a reified location and
004  ;;; the simpler sense of a location described in 
005  ;;; `cc.journeyman.the-great-game.world.location`, q.v. This needs to
006  ;;; be resolved!
007  
008  (defprotocol ProtoLocation
009    (easting [location]
010     "Return the easting of this location")
011    (northing [location] "Return the northing of this location")
012    (altitude [location]
013              "Return the absolute altitude of this location, which may be
014               different from the terrain height at this location, if, for
015               example, the location is underground or on an upper floor.")
016    (terrain-altitude [location]
017                      "Return the 'ground level' (altitude of the terrain)
018                       at this location given this world. TODO: possibly
019                       terrain-altitude should be a method of the world.")
020    (settlement [location]
021                "Return the settlement record of the settlement in this world
022                 within whose parish polygon this location exists, or if none
023                 whose centre (inn location) is closest to this location"))
024  
025  
026  (defrecord Location [^Double easting ^Double northing ^Double altitude world]
027    ProtoLocation
028    (easting [l] (:easting l))
029    (northing [l] (:northing l))
030    (altitude [l] (:altitude l))
031    (terrain-altitude [l] 0.0) ;; TODO
032    (settlement [l] :tchahua))
033  
034  (defrecord OrientedLocation
035    ;; "Identical to a Location except having, additionally, an orientation"
036             [^Double easting ^Double northing ^Double altitude ^Double orientation world]
037    ProtoLocation
038    (easting [l] (:easting l))
039    (northing [l] (:northing l))
040    (altitude [l] (:altitude l))
041    (terrain-altitude [l] 0.0) ;; TODO
042    (settlement [l] :tchahua)) ;; TODO
043  
044   ;; (.settlement (OrientedLocation. 123.45 543.76 12.34 0.00 {}))
045  
046  
047  ;; (OrientedLocation. 123.45 543.76 12.34 0.00 {})