cities plot

cities plot.rkt

#lang racket
(require plot)
(require pict)

(define (pick l)
  (list-ref l (random (length l))))

(define (pick-colour)
  (pick (list "red" "orange" "yellow" "green" "blue" "indigo" "violet")))
(struct city (name lat long))
(define cities (list
                (city "Melbourne" -37.814167 144.963056)
                (city "Darwin" -12.438056 130.841111)
                (city "London" 51.507222 -0.1275)
                (city "Berlin" 52.52 13.405)
                (city "Valetta" 35.898333 14.5125)
                (city "Honolulu" 21.306944 -157.858333)))


(parameterize ([plot-width    720]
               [plot-height   360]
               [plot-x-label "#t"]
               [plot-y-label #f]

               
                 [plot-x-ticks (linear-ticks)
]
                 [plot-y-ticks (linear-ticks)
]

               )
  (plot (list (map (λ (a-city) 
                     (point-label (vector (city-long a-city) (city-lat a-city))
                                  (city-name a-city))) cities)
              )
        #:x-min -180 #:x-max 180
        #:y-min -90 #:y-max 90))