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

Added docs and exported basic pinhole manipulation primitives

Browse Source 
original commit: 4fa7fa299490cf1cb7acf71ec4797a9a714c8e14
This commit is contained in:
Robby Findler 2010-09-06 06:12:45 -05:00
parent 31af2360af
commit 4d26bbc40a
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mrlib/image-core.rkt
View File

@ -97,10 +97,6 @@ has been moved out).
(define (image-normalized? p) (send p get-normalized?))
(define (set-image-shape! p s) (send p set-shape s))
(define (set-image-normalized?! p n?) (send p set-normalized? n?))
(define (pinhole-x p) (let ([ph (send p get-pinhole)]) (and ph (pinhole-x ph))))
(define (pinhole-y p) (let ([ph (send p get-pinhole)]) (and ph (pinhole-y ph))))
(define (put-pinhole x y image) (make-image (image-shape image) (image-bb image) (image-normalized? image) (make-point x y)))
(define (clear-pinhole image) (make-image (image-shape image) (image-bb image) (image-normalized? image) #f))
(define (image? p)
(or (is-a? p image%)
(is-a? p image-snip%)
@ -372,6 +368,7 @@ has been moved out).
#f
#f)]
[(= 2 (length lst))
;; backwards compatibility for saved images that didn't have a pinhole
(make-image (list-ref lst 0)
(list-ref lst 1)
#f
@ -1095,12 +1092,7 @@ the mask bitmap and the original bitmap are all together in a single bytes!
to-img
bitmap->image
image-snip->image
put-pinhole
clear-pinhole
pinhole-x
pinhole-y)
image-snip->image)
;; method names
(provide get-shape get-bb get-pinhole get-normalized? get-normalized-shape)