suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a better explanation of pixels and fixed a bug in save-image

Browse Source
This commit is contained in:
Robby Findler 2010-08-28 20:39:42 -05:00
parent bc15f398f2
commit 3704e2d69f
4 changed files with 69 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/2htdp/private/img-err.rkt
View File

@ -239,6 +239,9 @@
(if (string? arg) (if (string? arg)
(string->symbol arg) (string->symbol arg)
arg)] arg)]
[(filename)
(check-arg fn-name (path-string? arg) 'path-string i arg)
arg]
[else [else
(error 'check "the function ~a has an argument with an unknown name: ~s" (error 'check "the function ~a has an argument with an unknown name: ~s"
fn-name fn-name

2
collects/teachpack/2htdp/scribblings/image-gen.rkt
View File

@ -35,7 +35,7 @@
(define (handle-image exp) (define (handle-image exp)
(printf ".") (flush-output) (printf ".") (flush-output)
(let ([result (let ([result
(with-handlers ([exn:fail? (with-handlers ([(λ (x) #t)
(λ (x) (λ (x)
(printf "\nerror evaluating:\n") (printf "\nerror evaluating:\n")
(pretty-write exp) (pretty-write exp)

66
collects/teachpack/2htdp/scribblings/image-toc.rkt
View File

@ -6,10 +6,40 @@
(define mapping (define mapping
(list (list
(list
'(let* ((s
(crop
0
0
20
20
(rectangle
20
20
"outline"
(make-pen "black" 2 "solid" "round" "round"))))
(r (beside s s s s s s)))
(above r r r r r r))
'image
"5127be89b4-1.png")
(list
'(crop
0
0
20
20
(rectangle 20 20 "outline" (make-pen "black" 2 "solid" "round" "round")))
'image
"284a96a769b-1.png")
(list
'(let* ((s (rectangle 20 20 "outline" "black")) (r (beside s s s s s s)))
(above r r r r r r))
'image
"245380940d6-1.png")
(list '(image-height (rectangle 100 100 "solid" "black")) 'val 100) (list '(image-height (rectangle 100 100 "solid" "black")) 'val 100)
(list '(image-baseline (rectangle 100 100 "solid" "black")) 'val 100) (list '(image-baseline (rectangle 100 100 "solid" "black")) 'val 100)
(list '(image-height (text "Hello" 24 "black")) 'val 24) (list '(image-height (text "Hello" 24 "black")) 'val 41)
(list '(image-baseline (text "Hello" 24 "black")) 'val 18) (list '(image-baseline (text "Hello" 24 "black")) 'val 31)
(list '(image-height (rectangle 10 0 "solid" "purple")) 'val 0) (list '(image-height (rectangle 10 0 "solid" "purple")) 'val 0)
(list (list
'(image-height '(image-height
@ -717,4 +747,34 @@
(list '(ellipse 20 40 "solid" "blue") 'image "25451dd2997.png") (list '(ellipse 20 40 "solid" "blue") 'image "25451dd2997.png")
(list '(ellipse 40 20 "outline" "black") 'image "8cb34e62d4.png") (list '(ellipse 40 20 "outline" "black") 'image "8cb34e62d4.png")
(list '(circle 20 "solid" "blue") 'image "54d58bf7f6.png") (list '(circle 20 "solid" "blue") 'image "54d58bf7f6.png")
(list '(circle 30 "outline" "red") 'image "262a4fa650a.png"))) (list '(circle 30 "outline" "red") 'image "262a4fa650a.png")
(list
'(let* ((s
(crop
0
0
20
20
(rectangle
20
20
"outline"
(make-pen "black" 2 "solid" "round" "round"))))
(r (beside s s s s s s)))
(above r r r r r r))
'image
"5127be89b4.png")
(list
'(crop
0
0
20
20
(rectangle 20 20 "outline" (make-pen "black" 2 "solid" "round" "round")))
'image
"284a96a769b.png")
(list
'(let* ((s (rectangle 20 20 "outline" "black")) (r (beside s s s s s s)))
(above r r r r r r))
'image
"245380940d6.png")))