alex-hhh

#lang racket

;; https://github.com/alex-hhh/ActivityLog2/issues/17
(require plot
         racket/draw)
(require "al-interactive.rkt"
         "../rkt/metrics.rkt"
         "../rkt/series-meta.rkt")

(define candidates

alex-hhh

#lang racket

;; Script used to generate plots for the blog post below:
;;
;; https://alex-hhh.github.io/2017/11/quantifying-fatigue.html

;; You will need to clone https://github.com/alex-hhh/ActivityLog2 and fix the
;; require below to point to the al-interactive.rkt file.  You will also need
;; to update the session ids as they reference activities in my own database.

alex-hhh

#lang racket

;; You will need to clone https://github.com/alex-hhh/ActivityLog2 and fix the
;; require below to point to the al-interactive.rkt file.  You will also need
;; to update the session ids and season names as they reference activities in
;; my own database.

(require "../../ActivityLog2/etc/al-interactive.rkt"
         "../../ActivityLog2/rkt/data-frame.rkt"
         "../../ActivityLog2/rkt/fmt-util.rkt")

alex-hhh

#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)

alex-hhh

#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)

alex-hhh

 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

alex-hhh

#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

alex-hhh

#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)

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
(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)