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?

Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 3 comments