File: leftover-contracts.rkt

package info (click to toggle)
racket 7.2%2Bdfsg1-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 125,432 kB
  • sloc: ansic: 258,980; pascal: 59,975; sh: 33,650; asm: 13,558; lisp: 7,124; makefile: 3,329; cpp: 2,889; exp: 499; python: 274; xml: 11
file content (30 lines) | stat: -rw-r--r-- 948 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#lang racket/base

(require racket/contract
         "axis-transform.rkt"
         "sample.rkt"
         "math.rkt"
         "ticks.rkt")

(provide (all-defined-out))

(define axis-transform/c (real? real? invertible-function? . -> . invertible-function?))

(define ticks-layout/c (real? real? . -> . (listof pre-tick?)))
(define ticks-format/c (real? real? (listof pre-tick?) . -> . (listof string?)))

(define sampler/c
  (-> rational-ivl? exact-nonnegative-integer? sample?))

(define 2d-sampler/c
  (-> (vector/c rational-ivl? rational-ivl?)
      (vector/c exact-nonnegative-integer? exact-nonnegative-integer?)
      2d-sample?))

(define 3d-sampler/c
  (-> (vector/c rational-ivl? rational-ivl? rational-ivl?)
      (vector/c exact-nonnegative-integer? exact-nonnegative-integer? exact-nonnegative-integer?)
      3d-sample?))

(define bounds-fun/c ((vectorof ivl?) . -> . (vectorof ivl?)))
(define ticks-fun/c ((vectorof ivl?) . -> . any))