Differences From Artifact [3969906f45]:
- File gutils.scm — part of check-in [14e9c3fb65] at 2018-02-16 10:51:55 on branch v1.65-license-update — Update license blurbs (user: mrwellan, size: 3595) [annotate] [blame] [check-ins using] [more...]
To Artifact [94030f1a6e]:
- File attic/gutils.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 3643) [annotate] [blame] [check-ins using]
- File attic_modular/gutils.scm — part of check-in [5d8e30ec14] at 2021-03-06 04:45:53 on branch v1.65-real-chicken-5 — wip (user: matt, size: 3643) [annotate] [blame] [check-ins using]
- File gutils.scm — part of check-in [708a0404a7] at 2018-05-13 23:27:58 on branch v1.65 — Missing comment (user: matt, size: 3643) [annotate] [blame] [check-ins using]
︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | + + | (require-library iup) (import (prefix iup iup:)) (use canvas-draw) (use srfi-1 regex regex-case srfi-69) (declare (unit gutils)) ;; NOTE: These functions will move to iuputils (define (gutils:colors-similar? color1 color2) (let* ((c1 (map string->number (string-split color1))) (c2 (map string->number (string-split color2))) (delta (map (lambda (a b)(abs (- a b))) c1 c2))) (null? (filter (lambda (x)(> x 3)) delta)))) |
︙ |