File: utils.rkt

package info (click to toggle)
racket 6.7-1~bpo8%2B1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-backports
  • size: 97,324 kB
  • sloc: ansic: 277,847; sh: 33,512; asm: 13,558; lisp: 7,113; cpp: 2,872; makefile: 2,417; pascal: 2,262; exp: 499; python: 274; xml: 11
file content (210 lines) | stat: -rw-r--r-- 3,493 bytes parent folder | download | duplicates (3)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
#lang typed/racket/base

(require "private/utils-and-no-gui.rkt")
(provide (all-from-out "private/utils-and-no-gui.rkt"))

(require "private/common/contract.rkt"
         "private/common/leftover-contracts.rkt"
         "private/common/marching-squares.rkt"
         "private/common/marching-cubes.rkt")

(provide (all-from-out 
          "private/common/contract.rkt"
          "private/common/leftover-contracts.rkt"
          "private/common/marching-squares.rkt"
          "private/common/marching-cubes.rkt"))

(require "private/common/types.rkt")

(provide
 Color
 Plot-Pen-Style-Sym
 Plot-Brush-Style-Sym
 generate-list
 Legend-Draw-Proc
 (struct-out legend-entry)
 Plot-Device%)

(require "private/common/math.rkt")

(provide
 equal?*
 ;; Flonums
 flblend
 flsumof
 fldistance
 ;; Reals
 maybe-inexact->exact
 min*
 max*
 blend
 atan2
 sumof
 real-modulo
 distance
 floor-log/base
 ceiling-log/base
 polar->cartesian
 3d-polar->3d-cartesian
 ;; Vectors
 vcross
 vcross2
 v+
 v-
 vneg
 v*
 v/
 vmag^2
 vmag
 vnormalize
 vdot
 vcos-angle
 vrational?
 v=
 vcenter
 ;; Intervals
 ivl-meet
 ivl-join
 empty-ivl
 unknown-ivl
 rational-ivl?
 ivl-empty?
 ivl-known?
 ivl-rational?
 ivl-singular?
 ivl-length
 ivl-center
 ivl-zero-length?
 ivl-inexact->exact
 ivl-contains?
 ivl-translate
 bounds->intervals
 clamp-real
 points-apply-jitters
 ;; Rectangles
 Rect
 rect-meet
 rect-join
 empty-rect
 unknown-rect
 bounding-rect
 ;rational-rect?
 rect-empty?
 rect-known?
 rect-rational?
 rect-area
 rect-center
 rect-zero-area?
 rect-singular?
 rect-inexact->exact
 rect-translate
 rect-contains?)

(require "private/common/legend.rkt")

(provide
 (struct-out legend-entry)
 line-legend-entry
 line-legend-entries
 rectangle-legend-entry
 rectangle-legend-entries
 interval-legend-entry
 interval-legend-entries
 point-legend-entry
 arrow-legend-entry)

(require "private/common/parameter-groups.rkt")

(provide
 Plot-Parameters
 plot-parameters
 plot-axes?
 plot-tick-labels
 plot-appearance
 plot3d-appearance
 plot-output
 plot-labels
 plot-axes
 plot-x-axis
 plot-y-axis
 plot-z-axis)

(require "private/common/format.rkt")

(provide
 integer->superscript
 digits-for-range
 real->decimal-string*
 real->string/trunc
 real->plot-label
 ivl->plot-label
 ->plot-label
 parse-format-string
 apply-formatter)

(require "private/common/draw-attribs.rkt")

(provide
 ->color
 ->pen-color
 ->brush-color
 ->pen-style
 ->brush-style
 color-seq
 color-seq*)

(require "private/common/sample.rkt")

(provide
 (struct-out sample)
 (struct-out 2d-sample)
 (struct-out 3d-sample)
 Sampler
 2D-Sampler
 3D-Sampler
 build-linear-seq
 linear-seq
 linear-seq*
 nonlinear-seq
 make-function->sampler
 make-2d-function->sampler
 make-3d-function->sampler
 for-2d-sample
 for-3d-sample)

(require "private/common/samplers.rkt")

(provide
 function->sampler
 inverse->sampler
 2d-function->sampler
 3d-function->sampler)

(require "private/common/plot-element.rkt"
         "private/common/nonrenderer.rkt"
         "private/plot2d/plot-area.rkt"
         "private/plot3d/plot-area.rkt"
         "private/plot2d/renderer.rkt"
         "private/plot3d/renderer.rkt")

(provide
 2D-Plot-Area%
 3D-Plot-Area%
 Bounds-Fun
 Ticks-Fun
 2D-Render-Proc
 3D-Render-Proc
 default-ticks-fun
 function-bounds-fun
 function-interval-bounds-fun
 inverse-bounds-fun
 inverse-interval-bounds-fun
 surface3d-bounds-fun
 plot3d-back-layer
 plot3d-area-layer
 plot3d-front-layer)

(require "private/common/kde.rkt")

(provide
 kde)