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

...

Browse Source 
svn: r714
This commit is contained in:
Eli Barzilay 2005-08-31 05:04:05 +00:00
parent 30020ec063
commit a1a8630666
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drscheme/private/drscheme-normal.ss
View File

@ -102,7 +102,7 @@
(define outer-color (send the-color-database find-color "darkorange")) (define outer-color (send the-color-database find-color "darkorange"))
(define inner-color (send the-color-database find-color "green")) (define inner-color (send the-color-database find-color "green"))
(define omega-str "λ (x) (x x)) (λ (x) (x x))) ((") (define omega-str "λ (x) (x x)) (λ (x) (x x))) ((")
(define hebrew-str "אין סופיות אין סופיות ") (define hebrew-str " ףוס ןיא ףוס ןיא")
(define (draw-letter dc cx cy angle radius letter color) (define (draw-letter dc cx cy angle radius letter color)
(let ([x (+ cx (* (cos angle) radius))] (let ([x (+ cx (* (cos angle) radius))]
@ -212,10 +212,10 @@
(draw-single-step bdc o) (draw-single-step bdc o)
(semaphore-post s)))) (semaphore-post s))))
(semaphore-wait s)) (semaphore-wait s))
(let ([next (- o (/ pi 60))]) (let ([next (+ o (/ pi 60))])
(set! o (if (< next 0) (set! o (if (< next (* 2 pi))
(+ next (* 2 pi)) next
next)))))) (- next (* 2 pi))))))))
(define draw-thread #f) (define draw-thread #f)
(define (start-thread) (define (start-thread)