This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
(require xml | |
racket/date | |
(only-in srfi/19 string->date) | |
map-widget) | |
(provide gpx-load | |
gpx-lookup-position | |
gpx-lookup-elevation | |
gpx-total-distance) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
(require racket/gui) | |
;; Sequence of events to illustrate the problem: | |
;; | |
;; 1. Open Dialog 1 | |
;; | |
;; 2. Open Dialog 2 | |
;; | |
;; 3. Close Dialog 2 -- notice that dialog 1 now has focus |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
(require racket/gui mrlib/snip-canvas plot pict racket/draw) | |
(define (pie-slice w h angle) | |
(define nangle (let ((npi (floor (/ angle (* 2 pi))))) | |
(- angle (* 2 pi npi)))) | |
(define (draw dc dx dy) (send dc draw-arc dx dy w h (- (/ nangle 2)) (/ nangle 2))) | |
(dc draw w h)) | |
(define item-font (send the-font-list find-or-create-font 12 'default 'normal 'normal)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
plot-doc/plot/scribblings/plotting.scrbl | 2 +- | |
plot-doc/plot/scribblings/renderer2d.scrbl | 2 +- | |
plot-gui-lib/plot/private/gui/snip2d.rkt | 25 +++++++++++++------------ | |
plot-gui-lib/plot/snip.rkt | 2 +- | |
4 files changed, 16 insertions(+), 15 deletions(-) | |
diff --git a/plot-doc/plot/scribblings/plotting.scrbl b/plot-doc/plot/scribblings/plotting.scrbl | |
index fa78670..b67fc8a 100644 | |
--- a/plot-doc/plot/scribblings/plotting.scrbl | |
+++ b/plot-doc/plot/scribblings/plotting.scrbl |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
;; Updated plot library required, https://github.com/alex-hhh/plot/tree/ah/interactive-overlays | |
(require plot pict) | |
;; Helper function to add a pict as a plot overlay -- don't want to add "pict" | |
;; as a dependency to the "plot" package | |
(define (add-pict-overlay plot-snip x y pict) | |
(send plot-snip add-general-overlay x y | |
(lambda (dc x y) (draw-pict pict dc x y)) | |
(pict-width pict) |