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

somewhat fixed up -d mode

Browse Source 
svn: r1044
This commit is contained in:
Robby Findler 2005-10-11 14:58:40 +00:00
parent 83c917698d
commit 0484ff7f56
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/slideshow/viewer.ss
View File

@ -761,13 +761,29 @@
(send dc set-brush b)))]) (send dc set-brush b)))])
(send dc set-scale 1 1))] (send dc set-scale 1 1))]
[else [else
(paint-slide dc current-page 2/3 1/2 cw ch cw ch #f) (paint-slide dc current-page 2/3 1 cw ch cw ch #f)
(send dc set-origin (* cw 2/3) 0) (let ([pen (send dc get-pen)]
[brush (send dc get-brush)])
(send dc set-pen "black" 1 'solid)
(send dc set-brush "black" 'solid)
(send dc draw-rectangle
(* cw 2/3)
0
(* cw 1/3)
(* ch 1/6))
(send dc draw-rectangle
(* cw 2/3)
(* ch 5/6)
(* cw 1/3)
(* ch 1/6))
(send dc set-pen pen)
(send dc set-brush brush))
(send dc set-origin (* cw 2/3) (* ch 1/6))
(when (< (add1 current-page) slide-count) (when (< (add1 current-page) slide-count)
(send dc draw-rectangle (* cw 2/3) 0 (* cw 1/3) ch) (send dc draw-rectangle (* cw 2/3) 0 (* cw 1/3) ch)
(paint-slide dc (paint-slide dc
(+ current-page 1) (+ current-page 1)
1/3 1/6 1/3 1/2
cw ch cw ch cw ch cw ch
#f))]) #f))])
(send dc set-origin 0 0) (send dc set-origin 0 0)