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

Fixed error in drawing connected lines with axis transforms

Browse Source
This commit is contained in:
Neil Toronto 2014-04-02 11:35:17 -06:00
parent 04b49bcdd1
commit 3d2a9794b4
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/plot-pkgs/plot-lib/plot/private/plot3d/plot-area.rkt
View File

@ -1024,10 +1024,10 @@
(map plot->norm vs))))]
[else
(for ([vs (in-list vss)])
(define vs (subdivide-lines plot->dc vs))
(add-shape! plot3d-area-layer
(lines (line-data alpha pen-color pen-width pen-style)
(map plot->norm vs))))])))))
(let ([vs (subdivide-lines plot->dc vs)])
(add-shape! plot3d-area-layer
(lines (line-data alpha pen-color pen-width pen-style)
(map plot->norm vs)))))])))))
(define (add-polygon! vs face ls)
(let/ec return

8
pkgs/plot-pkgs/plot-test/plot/tests/plot3d-bsp-tests.rkt
View File

@ -24,6 +24,12 @@ slow parts
profile
contract-profile)
#;; Test under crazy transformation
(begin
(plot-x-transform cbrt-transform)
(plot-y-transform cbrt-transform)
(plot-z-transform cbrt-transform))
#;
(plot3d (contour-intervals3d * -1 1 -1 1 #:samples 3 #:line-widths '(2)))
@ -112,7 +118,7 @@ slow parts
0.7)
0.4))
-1 1 -1 1
#:samples 41
#:samples 40
;#:alphas '(0.75)
#:alpha 0.95
#:color "plum"