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

Fixed extreme bounds tests

Browse Source
This commit is contained in:
Neil Toronto 2011-11-22 22:11:35 -07:00
parent 57f07d516d
commit 192539259c
3 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/plot/common/plot-element.rkt
View File

@ -129,7 +129,5 @@
(rect-meet bounds-rect (rect-inexact->exact elem-bounds-rect))
bounds-rect)])
(if elem-bounds-fun
(let ([new-elem-bounds-rect (elem-bounds-fun elem-bounds-rect)])
;(printf "new-elem-bounds-rect = ~v~n" new-elem-bounds-rect)
(rect-inexact->exact new-elem-bounds-rect))
(rect-inexact->exact (elem-bounds-fun elem-bounds-rect))
elem-bounds-rect)))

5
collects/plot/plot2d/plot-area.rkt
View File

@ -428,8 +428,9 @@
clip-y-min clip-y-max))
(in-value vs))])
(when (not (empty? vs))
(let ([vs (if identity-transforms? vs (subdivide-lines plot->dc vs))])
(send pd draw-lines (map (λ (v) (plot->dc v)) vs)))))))
(let* ([vs (if identity-transforms? vs (subdivide-lines plot->dc vs))]
[vs (map (λ (v) (plot->dc v)) vs)])
(send pd draw-lines vs))))))
(define/public (put-line v1 v2)
(when (and (vrational? v1) (vrational? v2))

16
collects/plot/tests/extreme-bounds-tests.rkt
View File

@ -6,11 +6,7 @@
(plot-y-label #f)
(define stops (list (* 2 (inexact->exact -max.0))
(inexact->exact -max.0)
(inexact->exact -min.0)
0
(inexact->exact +min.0)
(inexact->exact +max.0)
-max.0 -min.0 0 +min.0 +max.0
(* 2 (inexact->exact +max.0))))
(define (extreme-real->string x)
@ -27,7 +23,8 @@
(list (format "[~a,~a] × [~a,~a]"
(extreme-real->string x-min) (extreme-real->string x-max)
(extreme-real->string y-min) (extreme-real->string y-max))
(time (plot (lines (list (vector x-min y-min) (vector x-max y-max)))))))
(time (plot (lines (list (vector (inexact->exact x-min) (inexact->exact y-min))
(vector (inexact->exact x-max) (inexact->exact y-max))))))))
(set! num-2d (+ 1 num-2d))))
(printf "Total 2D plots: ~a~n" num-2d)
@ -49,7 +46,12 @@
(extreme-real->string x-min) (extreme-real->string x-max)
(extreme-real->string y-min) (extreme-real->string y-max)
(extreme-real->string z-min) (extreme-real->string z-max))
(time (plot3d (lines3d (list (vector x-min y-min z-min) (vector x-max y-max z-max)))))))
(time (plot3d (lines3d (list (vector (inexact->exact x-min)
(inexact->exact y-min)
(inexact->exact z-min))
(vector (inexact->exact x-max)
(inexact->exact y-max)
(inexact->exact z-max))))))))
(set! num-3d (+ 1 num-3d))))
(printf "Total plots: ~a~n" num-3d)