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

plot tests: write files to temp dir

Browse Source
This commit is contained in:
Matthew Flatt 2014-06-03 09:40:20 +01:00
parent 66be790141
commit 6ee2079d8a
2 changed files with 15116 additions and 13742 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28839
pkgs/plot-pkgs/plot-test/plot/tests/compat-tests.rkt
View File

File diff suppressed because it is too large Load Diff

19
pkgs/plot-pkgs/plot-test/plot/tests/out-file-tests.rkt
View File

@ -10,41 +10,44 @@
(* 2 (norm 1 1 x y))
(* 1.3 (norm 2 -2 x y))))
(define (dest fn)
(build-path (find-system-path 'temp-dir) fn))
(parameterize ([plot-title "Survival Rate of Torsion Widgets"]
[plot-x-label "Torsion"]
[plot-y-label "Widgetyness"])
(time
(plot (contour-intervals f #:alphas '(0.5))
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
#:out-file "contour-test.png"))
#:out-file (dest "contour-test.png")))
(time
(plot (contour-intervals f)
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
#:out-file "contour-test.ps"))
#:out-file (dest "contour-test.ps")))
(time
(plot (contour-intervals f #:alphas '(0.5))
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
#:out-file "contour-test.pdf"))
#:out-file (dest "contour-test.pdf")))
(time
(plot (contour-intervals f)
#:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5
#:out-file "contour-test.svg")))
#:out-file (dest "contour-test.svg"))))
(time
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
#:out-file "contour3d-test.pdf"))
#:out-file (dest "contour3d-test.pdf")))
(time
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
#:out-file "contour3d-test.ps"))
#:out-file (dest "contour3d-test.ps")))
(time
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
#:out-file "contour3d-test.svg"))
#:out-file (dest "contour3d-test.svg")))
(time
(plot3d (contour-intervals3d f -5 5 -5 5 #:alphas '(1/4 3/4))
#:out-file "contour3d-test.png"))
#:out-file (dest "contour3d-test.png")))