"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "mkclrnam.scm" between
slib-3b5.tar.gz and slib-3b6.tar.gz

About: SLIB is a portable "scheme" (algorithmic language) library meant to provide compatibiliy and utility functions for all standard "scheme" implementations.

mkclrnam.scm  (slib-3b5):mkclrnam.scm  (slib-3b6)
skipping to change at line 235 skipping to change at line 235
(lambda (line) (lambda (line)
(case (sscanf line "%[a-z0-9 ]\t%[A-Z]:%[./0-9] %s" (case (sscanf line "%[a-z0-9 ]\t%[A-Z]:%[./0-9] %s"
name r rgbx junk) name r rgbx junk)
((3) (set! method-id 'm3x) ((3) (set! method-id 'm3x)
(list (check-match line (string->color (list (check-match line (string->color
(string-append r ":" rgbx))) (string-append r ":" rgbx)))
(color-name:canonicalize name))) (color-name:canonicalize name)))
(else #f))) (else #f)))
(lambda (line) (lambda (line)
;; FED-STD-595C - read only the first ;; FED-STD-595C - read only the first
(case (sscanf line "%5[0-9] %[A-Z]:%f/%f/%f" (case (sscanf line "%5[0-9] %[A-Za-z]:%f/%f/%f"
name ri r g b) name ri r g b)
((5) (set! method-id 'm5x) ((5) (set! method-id 'm5x)
(cond ((string-ci=? "CIEXYZ" ri) (cond ((string-ci=? "CIEXYZ" ri)
(list (check-match line (color:CIEXYZ (/ r 100) (list (check-match line (color:CIEXYZ (/ r 100)
(/ g 100) (/ g 100)
(/ b 100))) (/ b 100)))
(color-name:canonicalize name))) (color-name:canonicalize name)))
((string-ci=? "CIELAB" ri) ((string-ci=? "CIELAB" ri)
(list (check-match line (color:L*A*B* r g b)) (list (check-match line (color:L*A*B* r g b))
(color-name:canonicalize name))) (color-name:canonicalize name)))
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)