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

tweaks to the splash screen easter eggs to make them more responsive

Browse Source
This commit is contained in:
Robby Findler 2011-01-04 15:38:35 -06:00
parent e0c02e66c8
commit 9cd9fd24aa
2 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/drracket-normal.rkt
View File

@ -91,7 +91,8 @@
(if (eq? special-state match)
(begin (set! special-state #f) normal-bitmap)
(begin (set! special-state match)
(magic-image-bitmap match))))))))))
(magic-image-bitmap match))))
(refresh-splash)))))))
(when (eb-bday?) (install-eb))

14
collects/drracket/private/eb.rkt
View File

@ -25,8 +25,7 @@
(define (draw-single-loop str dc offset cx cy radius font-size color)
(send dc set-font (send the-font-list find-or-create-font font-size 'modern))
(let loop ([i (string-length str)])
(unless (zero? i)
(for ([i (in-range 0 (string-length str))])
(draw-letter dc
cx
cy
@ -35,9 +34,8 @@
(/ pi 2)
offset))
radius
(string (string-ref str (- i 1)))
color)
(loop (- i 1)))))
(substring str i (+ i 1))
color)))
(define (normalize-angle angle)
(cond
@ -46,11 +44,11 @@
[else (normalize-angle (- angle (* 2 pi)))]))
(define splash-canvas (get-splash-canvas))
(define (draw-single-step dc offset)
(define (draw-single-step offset)
(send bdc draw-bitmap eli 0 0)
(draw-single-loop omega-str bdc offset (/ main-size 2) (/ main-size 2) 120 32 outer-color)
(draw-single-loop hebrew-str bdc (+ (- (* 2 pi) offset) (* 2 pi)) (/ main-size 2) (/ main-size 2) 70 20 inner-color)
(send splash-canvas on-paint))
(refresh-splash))
(define gc-b
(with-handlers ([exn:fail? (lambda (x)
@ -122,7 +120,7 @@
(parameterize ([current-eventspace splash-eventspace])
(queue-callback
(λ ()
(draw-single-step bdc o)
(draw-single-step o)
(semaphore-post s))))
(semaphore-wait s))
(let ([next (+ o (/ pi 60))])