File: leftover-contracts.rkt

package info (click to toggle)
racket 7.9%2Bdfsg1-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 178,684 kB
  • sloc: ansic: 282,112; lisp: 234,887; pascal: 70,954; sh: 27,112; asm: 16,268; makefile: 4,613; cpp: 2,715; ada: 1,681; javascript: 1,244; cs: 879; exp: 499; csh: 422; python: 274; xml: 106; perl: 104
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))