syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Repair error in hsv->color

This commit is contained in:
Tony Garnock-Jones 2016-09-25 15:05:07 -04:00
parent 39e46c1cfa
commit be7cf7417d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate-ide/hsv.rkt
View File

@ -21,7 +21,8 @@
[(< h* 4) (values 0 x chroma)]
[(< h* 5) (values x 0 chroma)]
[else (values chroma 0 x)]))
(define (scale x) (inexact->exact (truncate (* 255 x))))
(define m (- v chroma))
(define (scale x) (inexact->exact (truncate (* 255 (+ x m)))))
(make-color (scale r) (scale g) (scale b)))
(define (color-by-hash v)