alex-hhh

#lang racket
(require racket/gui
         map-widget
         json
         "gpx.rkt"
         mrlib/snip-canvas plot)

;; This bit of code intercepts messages logged by the map widget and prints
;; them out.  Might be helpful during debugging.
(define (make-dbglog-sink . loggers)

alex-hhh

#lang racket/gui
(require data-frame map-widget mrlib/snip-canvas plot)

(define toplevel (new frame% [label "Map Demo"] [width 600] [height 400]))
(define map (new map-widget% [parent toplevel]))
(send toplevel show #t)

;; Load the GPX file in a data frame
(define df (df-read/gpx "./tarn-shelf.gpx"))
(df-describe df)

alex-hhh

#lang racket/gui

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui
(require embedded-gui)

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui
(require embedded-gui)

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui
(require embedded-gui)

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui
(require embedded-gui)

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui
(require embedded-gui)

(define chess-piece-snip-class
  (make-object
   (class snip-class%
     (super-new)
     (send this set-classname "chess-piece-snip"))))

(send (get-the-snip-class-list) add chess-piece-snip-class)

alex-hhh

#lang racket/gui

;; Copyright (c) 2018 Alex Harsanyi

;; Permission is hereby granted, free of charge, to any person obtaining a
;; copy of this software and associated documentation files (the "Software"),
;; to deal in the Software without restriction, including without limitation
;; the rights to use, copy, modify, merge, publish, distribute, sublicense,
;; and/or sell copies of the Software, and to permit persons to whom the
;; Software is furnished to do so, subject to the following conditions: