Overview
| Comment: | Missing comment |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
708a0404a7604d2efcede5917e325472 |
| User & Date: | matt on 2018-05-13 23:27:58 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-18
| ||
| 12:13 | fixed generate-html get records check-in: 0c15178d6d user: pjhatwal tags: v1.65 | |
|
2018-05-13
| ||
| 23:27 | Missing comment check-in: 708a0404a7 user: matt tags: v1.65 | |
|
2018-05-09
| ||
| 00:14 | Fixed makefile check-in: e174a07c36 user: matt tags: v1.65 | |
Changes
Modified gutils.scm from [3969906f45] to [94030f1a6e].
| ︙ | ︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use srfi-1 regex regex-case srfi-69)
(declare (unit gutils))
(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))))
| > > | 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))))
|
| ︙ | ︙ |