J.P. Larocque (jp_larocque) wrote,
J.P. Larocque
jp_larocque

  • Mood:

More showing off

CL-USER> (let ((monroe (street-by-name "N" "Monroe" "St" "" :error))
               (indiana (street-by-name "W" "Indiana" "Av" "" :error))
               (rowan (street-by-name "W" "Rowan" "Av" "" :error))
               (queen (street-by-name "W" "Queen" "Pl" "" :error)))
           (let ((isect1 (first (intersections monroe indiana)))
                 (isect2 (first (intersections rowan queen))))
             (condense-path (encode-path (shortest-path-by-distance isect1 isect2)))))

((:START
  #<STREET-VERTEX at #<POINT 47.6749deg,-117.4267deg> on Northwest, Monroe, Indiana>)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.6749deg,-117.4267deg> on Northwest, Monroe, Indiana>
  #<STREET "W" "Northwest" "Bl" "">
  #<STREET-VERTEX at #<POINT 47.6847deg,-117.4479deg> on T J Meenach, Northwest, Cochran>
  1.9214540230061514d0)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.6847deg,-117.4479deg> on T J Meenach, Northwest, Cochran>
  #<STREET "N" "Cochran" "St" "">
  #<STREET-VERTEX at #<POINT 47.6889deg,-117.4480deg> on Cochran, Driscoll, Courtland>
  0.47736290498081285d0)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.6889deg,-117.4480deg> on Cochran, Driscoll, Courtland>
  #<STREET "N" "Driscoll" "Bl" "">
  #<STREET-VERTEX at #<POINT 47.6945deg,-117.4539deg> on Driscoll, A>
  0.7632385498352858d0)
 (:WALK #<STREET-VERTEX at #<POINT 47.6945deg,-117.4539deg> on Driscoll, A>
  #<STREET "N" "A" "St" "">
  #<STREET-VERTEX at #<POINT 47.7067deg,-117.4540deg> on Monticello, Sanson, A>
  1.361697563162269d0)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.7067deg,-117.4540deg> on Monticello, Sanson, A>
  #<STREET "W" "Sanson" "Av" "">
  #<STREET-VERTEX at #<POINT 47.7071deg,-117.4556deg> on Sanson, Allen, Audubon>
  0.13013103443964716d0)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.7071deg,-117.4556deg> on Sanson, Allen, Audubon>
  #<STREET "N" "Allen" "Pl" "">
  #<STREET-VERTEX at #<POINT 47.7069deg,-117.4561deg> on Sanson, Allen>
  0.04297339380321393d0)
 (:WALK #<STREET-VERTEX at #<POINT 47.7069deg,-117.4561deg> on Sanson, Allen>
  #<STREET "W" "Sanson" "Av" "">
  #<STREET-VERTEX at #<POINT 47.7073deg,-117.4573deg> on Fairmount, Sanson, D>
  0.09726165542052545d0)
 (:WALK
  #<STREET-VERTEX at #<POINT 47.7073deg,-117.4573deg> on Fairmount, Sanson, D>
  #<STREET "N" "D" "St" "">
  #<STREET-VERTEX at #<POINT 47.7082deg,-117.4573deg> on D, Rowan>
  0.09801118392763475d0)
 (:WALK #<STREET-VERTEX at #<POINT 47.7082deg,-117.4573deg> on D, Rowan>
  #<STREET "W" "Rowan" "Av" "">
  #<STREET-VERTEX at #<POINT 47.7082deg,-117.4591deg> on Queen, Rowan>
  0.13912780552258505d0))

It's like Google Maps, but for pedestrians. Maybe a little less glitzy?

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 3 comments