522ba14b9f
Combine plot-ps-interactive? and plot-pdf-interactive? into plot-ps/pdf-interactive? Rename plot3d-ambient-light-value -> plot3d-ambient-light Fix off-by-one 2D plot area clipping Add warning to docs about 'fit' disappearing Stop providing 'fit', 'derivative', 'gradient' and 'make-vec' from the 'plot' module Merge into 5.2
56 lines
2.2 KiB
Racket
56 lines
2.2 KiB
Racket
#lang racket/base
|
|
|
|
(require racket/contract racket/match racket/class racket/snip racket/draw racket/string
|
|
;; Plotting
|
|
"common/deprecation-warning.rkt"
|
|
"common/contract.rkt"
|
|
"common/contract-doc.rkt"
|
|
"plot2d/line.rkt"
|
|
"plot2d/contour.rkt"
|
|
"plot2d/renderer.rkt"
|
|
"plot3d/surface.rkt"
|
|
"plot3d/renderer.rkt"
|
|
"utils.rkt"
|
|
"deprecated/renderers.rkt")
|
|
|
|
(provide mix line contour shade surface)
|
|
|
|
(define (mix . renderers)
|
|
(deprecation-warning "mix" "list")
|
|
(apply list renderers))
|
|
|
|
(defproc (line [f (real? . -> . (or/c real? (vector/c real? real?)))]
|
|
[#:samples samples (and/c exact-integer? (>=/c 2)) 150]
|
|
[#:width width (>=/c 0) 1]
|
|
[#:color color plot-color/c 'red]
|
|
[#:mode mode (one-of/c 'standard 'parametric) 'standard]
|
|
[#:mapping mapping (one-of/c 'cartesian 'polar) 'cartesian]
|
|
[#:t-min t-min real? -5] [#:t-max t-max real? 5]
|
|
) renderer2d?
|
|
(deprecation-warning "line" "function, parametric or polar")
|
|
(line-renderer f samples width color mode mapping t-min t-max))
|
|
|
|
(defproc (contour [f (real? real? . -> . real?)]
|
|
[#:samples samples (and/c exact-integer? (>=/c 2)) 50]
|
|
[#:width width (>=/c 0) 1]
|
|
[#:color color plot-color/c 'black]
|
|
[#:levels levels (or/c (and/c exact-integer? (>=/c 2)) (listof real?)) 10]
|
|
) renderer2d?
|
|
(deprecation-warning "contour" "contours")
|
|
(contour-renderer f samples width color levels))
|
|
|
|
(defproc (shade [f (real? real? . -> . real?)]
|
|
[#:samples samples (and/c exact-integer? (>=/c 2)) 50]
|
|
[#:levels levels (or/c (and/c exact-integer? (>=/c 2)) (listof real?)) 10]
|
|
) renderer2d?
|
|
(deprecation-warning "shade" "contour-intervals")
|
|
(shade-renderer f samples levels))
|
|
|
|
(defproc (surface [f (real? real? . -> . real?)]
|
|
[#:samples samples (and/c exact-integer? (>=/c 2)) 50]
|
|
[#:width width (>=/c 0) 1]
|
|
[#:color color plot-color/c 'black]
|
|
) renderer3d?
|
|
(deprecation-warning "surface" "surface3d")
|
|
(surface-renderer f samples width color))
|