46 lines
2.0 KiB
Racket
46 lines
2.0 KiB
Racket
#lang racket/base
|
|
|
|
(require racket/list racket/contract
|
|
"math.rkt"
|
|
"contract.rkt"
|
|
"contract-doc.rkt"
|
|
"ticks.rkt"
|
|
"plot-element.rkt")
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define ((x-ticks-fun ts far?) r)
|
|
(let-values ([(ts far-ts) (if far? (values empty ts) (values ts empty))])
|
|
(cond [(= (vector-length r) 2) (values ts far-ts empty empty)]
|
|
[(= (vector-length r) 3) (values ts far-ts empty empty empty empty)]
|
|
[else (raise-type-error 'x-ticks-fun "2- or 3-vector of ivls" r)])))
|
|
|
|
(define ((y-ticks-fun ts far?) r)
|
|
(let-values ([(ts far-ts) (if far? (values empty ts) (values ts empty))])
|
|
(cond [(= (vector-length r) 2) (values empty empty ts far-ts)]
|
|
[(= (vector-length r) 3) (values empty empty ts far-ts empty empty)]
|
|
[else (raise-type-error 'y-ticks-fun "2- or 3-vector of ivls" r)])))
|
|
|
|
(define ((z-ticks-fun ts far?) r)
|
|
(let-values ([(ts far-ts) (if far? (values empty ts) (values ts empty))])
|
|
(cond [(= (vector-length r) 3) (values empty empty empty empty ts far-ts)]
|
|
[else (raise-type-error 'z-ticks-fun "3-vector of ivls" r)])))
|
|
|
|
(defproc (x-ticks [ts (listof tick?)] [#:far? far? boolean? #f]) non-renderer?
|
|
(non-renderer #f #f (x-ticks-fun ts far?)))
|
|
|
|
(defproc (y-ticks [ts (listof tick?)] [#:far? far? boolean? #f]) non-renderer?
|
|
(non-renderer #f #f (y-ticks-fun ts far?)))
|
|
|
|
(defproc (z-ticks [ts (listof tick?)] [#:far? far? boolean? #f]) non-renderer?
|
|
(non-renderer #f #f (z-ticks-fun ts far?)))
|
|
|
|
(defproc (invisible-box [x-min (or/c real? #f)] [x-max (or/c real? #f)]
|
|
[y-min (or/c real? #f)] [y-max (or/c real? #f)]) non-renderer?
|
|
(non-renderer (vector (ivl x-min x-max) (ivl y-min y-max)) #f #f))
|
|
|
|
(defproc (invisible-box3d [x-min (or/c real? #f)] [x-max (or/c real? #f)]
|
|
[y-min (or/c real? #f)] [y-max (or/c real? #f)]
|
|
[z-min (or/c real? #f)] [z-max (or/c real? #f)]) non-renderer?
|
|
(non-renderer (vector (ivl x-min x-max) (ivl y-min y-max) (ivl z-min z-max)) #f #f))
|