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

fixed to handle 0x0 picts (which are drawn as 1x1 bitmaps now)

Browse Source 
svn: r6506
This commit is contained in:
Robby Findler 2007-06-06 18:49:24 +00:00
parent da9fee0afc
commit e9598b5eb6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/slideshow/tool.ss
View File

@ -279,8 +279,8 @@ pict snip :
(error 'pict-snip "expected a pict to be the result of each embedded snip, got ~e"
pict))
(let* ([bm (make-object bitmap%
(inexact->exact (ceiling w))
(inexact->exact (ceiling h)))]
(max 1 (inexact->exact (ceiling w)))
(max 1 (inexact->exact (ceiling h))))]
[bdc (make-object bitmap-dc% bm)])
(send bdc clear)
(draw-pict pict bdc 0 0)
@ -894,8 +894,8 @@ pict snip :
[pict-height (dynamic-require '(lib "mrpict.ss" "texpict") 'pict-height)]
[draw-pict (dynamic-require '(lib "mrpict.ss" "texpict") 'draw-pict)]
[bm (make-object bitmap%
(inexact->exact (ceiling (pict-width p)))
(inexact->exact (ceiling (pict-height p))))]
(max 1 (inexact->exact (ceiling (pict-width p))))
(max 1 (inexact->exact (ceiling (pict-height p)))))]
[bdc (make-object bitmap-dc% bm)])
(send bdc clear)
(draw-pict p bdc 0 0)