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

unbreak 2htdp/image

Browse Source
This commit is contained in:
Robby Findler 2010-10-29 14:39:05 -05:00
parent cbe42caa41
commit cc0f246048
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/2htdp/image.rkt
View File

@ -50,8 +50,7 @@ and they all have good sample contracts. (It is amazing what we can do with kids
"private/image-more.ss" "private/image-more.ss"
"private/img-err.ss" "private/img-err.ss"
(only-in lang/prim provide-primitive provide-primitives define-primitive) (only-in lang/prim provide-primitive provide-primitives define-primitive)
htdp/error htdp/error)
(only-in lang/imageeq image=?))
(provide-primitives (provide-primitives
overlay overlay
@ -138,11 +137,9 @@ and they all have good sample contracts. (It is amazing what we can do with kids
make-pen pen make-pen pen
pen? pen?
step-count? step-count?
save-image save-image)
image=?)
(provide bitmap (provide bitmap)
image=?)
(define-primitive make-color build-color/make-color) (define-primitive make-color build-color/make-color)
(define-primitive color build-color/color) (define-primitive color build-color/color)

8
collects/teachpack/2htdp/scribblings/image.scrbl
View File

@ -2,7 +2,7 @@
@(require (for-label (only-in racket/contract and/c or/c any/c not/c) @(require (for-label (only-in racket/contract and/c or/c any/c not/c)
2htdp/image 2htdp/image
(except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image? image=?) (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?)
lang/posn lang/posn
racket/gui/base racket/gui/base
(only-in racket/base path-string?)) (only-in racket/base path-string?))
@ -1283,12 +1283,6 @@ Two images are @racket[equal?] if they draw exactly the same way at their curren
(not neccessarily at all sizes) and, if there are pinholes, the pinholes are (not neccessarily at all sizes) and, if there are pinholes, the pinholes are
in the same place. in the same place.
@defproc[(image=? [i1 image?] [i2 image?]) boolean?]{
Tests the same thing as @racket[(equal? i1 i2)], but
insists that its arguments are images, signalling an error
otherwise.
}
@section[#:tag "pinholes"]{Pinholes} @section[#:tag "pinholes"]{Pinholes}
A pinhole is an optional property of an image that identifies a point somewhere A pinhole is an optional property of an image that identifies a point somewhere