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
|
#lang racket/base
(require scribble/eval
(for-label racket
racket/gui/base
pict
db
plot
(except-in plot/utils sample) ; need the one from math/distributions
plot/snip
math/distributions
(only-in racket/sequence sequence/c)))
(provide (all-defined-out)
(all-from-out scribble/eval)
(for-label (all-from-out racket
racket/gui/base
pict
db
plot
plot/snip
plot/utils
math/distributions)
sequence/c))
(require (for-syntax racket/base
syntax/parse
racket/syntax)
(prefix-in s. scribble/manual)
(only-in racket/contract any/c)
(only-in racket/format ~a)
(for-label (only-in racket/contract any/c)))
(define (author-email) "neil.toronto@gmail.com")
(define (plot-name) "Plot")
(define plot-eval
(let ([eval (make-base-eval)])
(eval '(begin
(require racket/math racket/match racket/list racket/draw racket/class
plot/pict
plot/utils
math/distributions)))
eval))
(define (close-plot-eval)
(close-eval plot-eval))
(require plot/no-gui plot/utils pict racket/match racket/class racket/draw)
(define (pretty-print-color-maps (width 400) (height 30))
(define cm-names
(sort (color-map-names)
(lambda (a b)
(string<=? (symbol->string a) (symbol->string b)))))
(define cm-labels
(for/list ([cm cm-names])
(text (symbol->string cm) null 16)))
(define cm-picts
(for/list ([cm cm-names])
(parameterize ([plot-pen-color-map cm])
(define w (/ width (color-map-size cm)))
(apply
hc-append 0
(for/list ([c (in-range (color-map-size cm))])
(match-define (list r g b) (->pen-color c))
(define color (make-object color% r g b))
(filled-rectangle w height #:draw-border? #f #:color color))))))
(define picts
(let loop ([result '()]
[labels cm-labels]
[picts cm-picts])
(if (null? labels)
(reverse result)
(loop (cons (car picts) (cons (car labels) result))
(cdr labels)
(cdr picts)))))
(table 2 picts lc-superimpose cc-superimpose 15 3))
(define (pretty-print-known-point-symbols)
(define num-rows 3)
(define yoffset 4)
(parameterize ([plot-width 800]
[plot-height 600]
[plot-decorations? #f])
(plot-pict
(for/list ([s (in-list (sort known-point-symbols symbol<?))]
[i (in-naturals)])
(point-label (list (modulo i num-rows) (- (* yoffset (quotient i num-rows))))
(string-append " " (~a s))
#:point-sym s
#:point-size (* 1.5 (point-size))))
#:x-min -0.2
#:x-max num-rows
#:y-min (- (* yoffset (add1 (quotient (length known-point-symbols) num-rows))))
#:y-max 1)))
|
