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

Fixed x/y mixup in 'axes'

Browse Source 
Removed 'plot-tick-skip' parameter

Merge into 5.2
(cherry picked from commit 7270c27141)
This commit is contained in:
Neil Toronto 2011-10-14 22:04:59 -06:00 committed by Eli Barzilay
parent 8031c88b9c
commit 9465805f50
7 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/plot/common/parameters.rkt
View File

@ -38,7 +38,6 @@
(defparam plot-legend-box-alpha alpha (real-in 0 1) 2/3)
(defparam plot-tick-size (>=/c 0) 10)
(defparam plot-tick-skip exact-positive-integer? 2)
(defparam plot-title (or/c string? #f) #f)
(defparam plot-x-label (or/c string? #f) "x axis")

2
collects/plot/common/ticks.rkt
View File

@ -42,7 +42,7 @@
(map tick ps labels majors)))
(defproc (default-ticks-fun [x-min real?] [x-max real?]) (listof tick?)
(linear-ticks (plot-tick-skip) x-min x-max))
(linear-ticks 2 x-min x-max))
(defproc (auto-contour-zs [z-min real?] [z-max real?]) (listof real?)
(let* ([zs (map tick-p (default-ticks-fun z-min z-max))]

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

@ -76,8 +76,8 @@
[#:x-ticks? x-ticks? boolean? (x-axis-ticks?)]
[#:y-ticks? y-ticks? boolean? (y-axis-ticks?)]
) (listof renderer2d?)
(list (x-axis x #:ticks? x-ticks?)
(y-axis y #:ticks? y-ticks?)))
(list (x-axis y #:ticks? x-ticks?)
(y-axis x #:ticks? y-ticks?)))
;; ===================================================================================================
;; Polar axes

2
collects/plot/plot2d/plot.rkt
View File

@ -128,7 +128,6 @@
(define line-width (plot-line-width))
(define legend-box-alpha (plot-legend-box-alpha))
(define tick-size (plot-tick-size))
(define tick-skip (plot-tick-skip))
(define x-transform (plot-x-transform))
(define y-transform (plot-y-transform))
(define z-transform (plot-z-transform))
@ -144,7 +143,6 @@
[plot-line-width line-width]
[plot-legend-box-alpha legend-box-alpha]
[plot-tick-size tick-size]
[plot-tick-skip tick-skip]
[plot-x-transform x-transform]
[plot-y-transform y-transform]
[plot-z-transform z-transform]

2
collects/plot/plot3d/plot.rkt
View File

@ -150,7 +150,6 @@
(define line-width (plot-line-width))
(define legend-box-alpha (plot-legend-box-alpha))
(define tick-size (plot-tick-size))
(define tick-skip (plot-tick-skip))
(define x-transform (plot-x-transform))
(define y-transform (plot-y-transform))
(define z-transform (plot-z-transform))
@ -170,7 +169,6 @@
[plot-line-width line-width]
[plot-legend-box-alpha legend-box-alpha]
[plot-tick-size tick-size]
[plot-tick-skip tick-skip]
[plot-x-transform x-transform]
[plot-y-transform y-transform]
[plot-z-transform z-transform]

1
collects/plot/scribblings/params.scrbl
View File

@ -84,7 +84,6 @@ See @(racket ->pen-color) and @(racket ->brush-color) for details on how PLoT in
@doc-apply[plot-legend-box-alpha]{The opacity of the filled rectangle behind the legend entries.}
@doc-apply[plot-tick-size]{The length of tick lines, in drawing units.}
@doc-apply[plot-tick-skip]{Controls the spacing between major ticks for renderers that use the default tick function, such as the renderers returned by @(racket function) and @(racket surface3d). With the default value @(racket 2), every other tick is major. A tick at @(racket 0) is always major. Major ticks are thicker and labeled; minor ticks are thinner and unlabeled.}
@doc-apply[plot-title]
@doc-apply[plot-x-label]

2
collects/plot/tests/plot2d-tests.rkt
View File

@ -11,6 +11,8 @@
(plot empty #:x-min -1 #:x-max 1 #:y-min -1 #:y-max 1)
(plot (list (axes 1 2) (function values -4 4)))
(time (plot (function values 0 1000)))
(parameterize ([plot-background "black"]