suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Plot label renderers now use tick settings to format coordinates

Browse Source
This commit is contained in:
Neil Toronto 2011-11-22 17:43:28 -07:00
parent bddcd76f7f
commit 700765abb2
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/plot/plot2d/decoration.rkt
View File

@ -197,17 +197,12 @@
;; ===================================================================================================
;; Labeled points
(define (format-x-coordinate x area)
(match-define (vector (ivl x-min x-max) y-ivl) (send area get-bounds-rect))
(format "~a" (real->plot-label x (digits-for-range x-min x-max))))
(define (format-y-coordinate y area)
(match-define (vector x-ivl (ivl y-min y-max)) (send area get-bounds-rect))
(format "~a" (real->plot-label y (digits-for-range y-min y-max))))
(define (format-coordinate v area)
(match-define (vector x y) v)
(format "(~a,~a)" (format-x-coordinate x area) (format-y-coordinate y area)))
(match-define (vector (ivl x-min x-max) (ivl y-min y-max)) (send area get-bounds-rect))
(match-define (list x-str) ((ticks-format (plot-x-ticks)) x-min x-max (list (pre-tick x #t))))
(match-define (list y-str) ((ticks-format (plot-y-ticks)) y-min y-max (list (pre-tick y #t))))
(format "(~a,~a)" x-str y-str))
(define ((label-render-proc label v color size family anchor angle point-size alpha) area)
(let ([label (if label label (format-coordinate v area))])

4
collects/plot/tests/tick-tests.rkt
View File

@ -191,3 +191,7 @@
#:y-min -25 #:x-label "Time" #:y-label "Temp."
#:title "Temp./Time With Applied Heat (Measurement and Trend)")))
(parameterize ([plot-x-ticks (fraction-ticks)]
[plot-y-ticks (currency-ticks)])
(plot (list (function sin -4 4)
(function-label sin 1/3))))