(lisppad draw map)
(import (lispkit draw)
(lisppad location)
(lisppad draw map))
(define d
(let*
(; Determine the current location
(center (current-location))
; Show a 1km box around the center
(area (size 1000 1000))
; Create a map snapshot of 500x500 points
(snapsh (make-map-snapshot center area (size 500 500) 'satellite))
; Determine the points on the map image for the center
(pt (map-snapshot-point snapsh center)))
; Create a drawing of the map with highlighted center
(drawing
; Draw the map at the origin of the drawing
(draw-image (map-snapshot-image snapsh) (point 0 0))
; Highlight the center with a red circle
(set-fill-color red)
(fill-ellipse
(rect (point (- (point-x pt) 4) (- (point-y pt) 4))
(size 8 8))))))Last updated