0. (require 2htdp/image lang/posn)
1.  
2. (define N-GRID-ROWS 42)
3. (define N-RECTO-GRID-COLUMNS 17)
4.  
5. (define PX/PT 1)
6.  
7. ;; produces the number of pixels equivalent to n points
8. (define (pt n) (* n PX/PT))
9.  
10.  
11. (define CELL-W (pt 24))
12. (define CELL-H (pt 24))
13.  
14. (define HEADER-ROW-H (pt 108))
15.  ; how far the header line & number are rotated from horiz:
16. (define HEADER-ROW-ANGLE 60)
17. (define HEADER-LINE-LENGTH
18.   (/ HEADER-ROW-H (sin (degrees->radians HEADER-ROW-ANGLE))))
19.  
20. (define HEADER-NUMERAL-SIZE (pt 9))
21.  
22. ;; Names column geometry
23. (define NAMES-COLUMN-W (pt 72))
24. (define NAMES-NUMERAL-SIZE (pt 8))
25.  
26. (define NAMES-ROW-ANGLE 30)
27.  
28. (define NAMES-COLUMN-LINE-LENGTH (/ NAMES-COLUMN-W (cos (degrees->radians NAMES-ROW-ANGLE))))
29.  
30. (define NAME-CELL-DIAGONAL-H
31.   ;; vertical distance from bottom-left corner of a name cell to the right end of
32.   ;; the bottom line of the cell
33.   (* NAMES-COLUMN-LINE-LENGTH (sin (degrees->radians NAMES-ROW-ANGLE))))
34. (define NAME-CELL-DIAGONAL-OVERLAP (- NAME-CELL-DIAGONAL-H CELL-H))
35.  
36. ;; Colors
37.  
38. (define GRID-BG-COLORS
39.   ; lavenders
40.   #;(list 'white
41.         (make-color #xF0 #xE0 #xFF)
42.         (make-color #xD0 #xC0 #xFF))
43.   ; greens
44.   (list 'white
45.         (make-color #xF0 #xFF #xE0)
46.         (make-color #xD0 #xFF #xC0)))
47.  
48. (define HEADER-LINE-COLOR 'forestgreen)
49. (define GRID-LINE-COLOR (make-color 0 0 0 #x40))
50. (define DARK-GRID-LINE-COLOR (make-color 0 0 0 #xA0))
51. (define HEADER-NUMERAL-COLOR (make-color #x80 #x80 #x80 255))
52. (define NAMES-NUMERAL-COLOR HEADER-NUMERAL-COLOR)
53. (define HEADER-NUMERAL-OFFSET
54.   (* CELL-W (cos (degrees->radians HEADER-ROW-ANGLE))))
55.  
56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
57. ;; Pinhole helper
58.  
59. ;; x-place y-place Image -> Image
60. ;; places a pinhole on img at the location specified by x-place and y-place
61. (define (align-pinhole x-place y-place img)
62.   (put-pinhole (x-place->coordinate x-place img)
63.                (y-place->coordinate y-place img)
64.                img))
65.  
66. ;; x-place Image -> (Option Nat)
67. ;; produces the x-coordinate for the given x-place in the image, or
68. ;; #f if x-place is 'pinhole and img has no pinhole.
69. (define (x-place->coordinate x-place img)
70.   (define place (if (symbol? x-place) x-place (string->symbol x-place)))
71.   (case place
72.     [(left) 0]
73.     [(right)         (image-width img)]
74.     [(middle center) (exact-round (/ (image-width img) 2))]
75.     [(pinhole)       (pinhole-x img)]))
76.  
77. ;; y-place Image -> (Option Nat)
78. ;; produces the y-coordinate for the given y-place in the image, or
79. ;; #f if y-place is 'pinhole and img has no pinhole.
80. (define (y-place->coordinate y-place img)
81.   (define place (if (symbol? y-place) y-place (string->symbol y-place)))
82.   (case place
83.     [(top)           0]
84.     [(bottom)        (image-height img)]
85.     [(middle center) (exact-round (/ (image-height img) 2))]
86.     [(baseline) (error "FIXME need to implement baseline")]
87.     [(pinhole) (pinhole-y img)]))
88.  
89. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
90. ;; Making numbered slanted headers
91.  
92. ;; Int+ -> Image
93. ;; makes n header cells side-by-side, numbered R-to-L from 1 to n,
94. ;; with a pinhole at the right end of the bottom line
95. (define (number-headers n)
96.   (put-pinhole (* n CELL-W) HEADER-ROW-H
97.                (for/fold ([result empty-image])
98.                          ([i (in-range 1 (add1 n))])
99.                  (overlay/align/offset 'left 'bottom
100.                                        (number-header i)
101.                                        CELL-W 0
102.                                        result))))
103.  
104. ;; Int+ -> Image
105. ;; makes a header cell containing the number i
106. (define (number-header i)
107.   (define lines
108.     (overlay/align 'left 'top
109.                    (rotate (- HEADER-ROW-ANGLE) (line CELL-W 0 HEADER-LINE-COLOR))
110.                    (line HEADER-LINE-LENGTH 0 HEADER-LINE-COLOR)))
111.   (rotate HEADER-ROW-ANGLE
112.           (overlay/align/offset 'left 'middle  lines HEADER-NUMERAL-OFFSET 0
113.                                 (numeral i HEADER-NUMERAL-COLOR HEADER-NUMERAL-SIZE))))
114.  
115. ;; Nat Color Int+ -> Image
116. ;; make an image of the given numeral, given color & point size font
117. (define (numeral n c size) (cell-text (number->string n) c size))
118.  
119. ;; String Color Int+ -> Image
120. ;; make an image of the given text, color & point size font
121. (define (cell-text s c size)
122.   (text/font s size c "Concourse T3 Tab" 'default 'normal 'normal #f))
123.  
124. (define ASSIGNMENTS-TITLE
125.   (rotate HEADER-ROW-ANGLE
126.           (put-pinhole 0 0 (above/align 'right
127.                                         (line HEADER-LINE-LENGTH 0 HEADER-LINE-COLOR)
128.                                         (cell-text "Asg" HEADER-NUMERAL-COLOR 11)))))
129.  
130. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
131. ;; Names column
132.  
133. ;; Int+ -> Image
134. ;; makes n right-sidebar name cells, stacked vertically, numbered 1 to n
135. ;; with a pinhole @ TL corner of the top cell
136. (define (name-cells n)
137.   (put-pinhole 0 NAME-CELL-DIAGONAL-H
138.                (for/fold ([result empty-image])
139.                          ([i (in-range 1 (add1 n))]
140.                           [c (in-cycle GRID-BG-COLORS)])
141.                  (overlay/align/offset 'left 'bottom
142.                                        result
143.                                        0 CELL-H
144.                                        (name-cell i c)))))
145.  
146. ;; Generate the page:
147. (gradebook-recto 20 36)

=>

load-handler: expected a `module` declaration in "paste 36388", but found something else

Check that paste includes #lang?