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)
(string->symbol arg)
arg)]
[(filename)
(check-arg fn-name (path-string? arg) 'path-string i arg)
arg]
[else
(error 'check "the function ~a has an argument with an unknown name: ~s"
fn-name

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

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

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

@ -6,10 +6,40 @@
(define mapping
(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-baseline (rectangle 100 100 "solid" "black")) 'val 100)
(list '(image-height (text "Hello" 24 "black")) 'val 24)
(list '(image-baseline (text "Hello" 24 "black")) 'val 18)
(list '(image-height (text "Hello" 24 "black")) 'val 41)
(list '(image-baseline (text "Hello" 24 "black")) 'val 31)
(list '(image-height (rectangle 10 0 "solid" "purple")) 'val 0)
(list
'(image-height
@ -717,4 +747,34 @@
(list '(ellipse 20 40 "solid" "blue") 'image "25451dd2997.png")
(list '(ellipse 40 20 "outline" "black") 'image "8cb34e62d4.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")))

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

@ -15,8 +15,8 @@
(for-each (λ (exp) (printf "~s\n" (syntax->datum exp)))
(syntax->list #'(exp ...))))
#'(interleave
(list (racketinput exp) ...)
(list 'exp ...))]))
(list (racketinput exp) ...)
(list 'exp ...))]))
(define (interleave expr-paras val-list+outputs)
(make-table