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

Little fixes

Browse Source
This commit is contained in:
Neil Toronto 2011-11-14 22:00:37 -08:00
parent 75f76986c3
commit cf75609d82
3 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,6 @@
@title[#:tag "custom"]{Custom Plot Elements}
@defmodule*/no-declare[(plot/utils)]
@declare-exporting[plot/utils]
@section{Plot Elements}

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

@ -18,10 +18,6 @@
(time (plot (function values 0 1000)))
(time
(define flepsilon (ordinal->flonum 1))
(plot (lines (list (vector 0 0) (vector flepsilon flepsilon)))))
(parameterize ([plot-x-transform log-transform]
[plot-x-ticks (log-ticks #:base 4)]
[plot-y-transform log-transform]

12
collects/plot/tests/plot3d-tests.rkt
View File

@ -10,15 +10,6 @@
(time
(plot3d (points3d empty) #:x-min -1 #:x-max 1 #:y-min -1 #:y-max 1 #:z-min -1 #:z-max 1))
(define flepsilon (ordinal->flonum 1))
(time
(plot3d (lines3d (list (vector 0 0 0) (vector flepsilon flepsilon flepsilon)))))
(time
(plot3d (contour-intervals3d (λ (x y) (- (sqr x) (sqr y)))
(- flepsilon) flepsilon (- flepsilon) flepsilon)))
(parameterize ([plot-background "black"]
[plot-foreground "white"]
[plot-background-alpha 1/2]
@ -242,3 +233,6 @@
#:contour-styles '(long-dash)
#:alphas '(1 2/3))
#:altitude 20)))
(time
(plot3d (contour-intervals3d (λ (x y) (- (sqr x) (sqr y))) -min.0 +min.0 -min.0 +min.0)))