e90ec4b69f
Reorganized contracts Started exposing customization API in plot/utils Now dog-fooding customization API in earnest
48 lines
2.0 KiB
Racket
48 lines
2.0 KiB
Racket
#lang racket/base
|
|
|
|
(require racket/contract plot/utils
|
|
"../common/deprecation-warning.rkt"
|
|
"../common/contract-doc.rkt"
|
|
"renderers.rkt")
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(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))
|