From d3c8d4b40548192631d4b0b9e91a8d6a8743dd82 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sat, 17 Apr 2021 04:13:07 +0900 Subject: Cheange interfaces. * configure.ac: Version Up. * extract-green-color.scm (show-version): Version Up. (main)[hue-minus]: Removed. [hue-plus]: Removed. [hue-red]: New local variable. [hue-blue]: New local variable. (show-usage): Change help message. --- configure.ac | 2 +- extract-green-color.scm | 14 +++++++------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/configure.ac b/configure.ac index a5eff4b..27b38ab 100644 --- a/configure.ac +++ b/configure.ac @@ -1,4 +1,4 @@ -AC_INIT([extract-green-color], [1.0.2]) +AC_INIT([extract-green-color], [2.0.0]) AC_CONFIG_SRCDIR([extract-green-color.scm]) AC_CONFIG_AUX_DIR([build-aux]) AM_INIT_AUTOMAKE([-Wall -Werror foreign]) diff --git a/extract-green-color.scm b/extract-green-color.scm index 2d56d6b..3f9e868 100755 --- a/extract-green-color.scm +++ b/extract-green-color.scm @@ -75,8 +75,8 @@ Extract green color from input-file and save to output-file. Options: - -m, --hue-minus hue threshold to express distance to red (default 60) - -p, --hue-plus hue threshold to express distance to blue (default 60) + -r, --hue-red hue threshold to express distance to red (default 60) + -b, --hue-blue hue threshold to express distance to blue (default 60) -s, --saturation saturation threshold (default 0) -v, --value value threshold (default 0) @@ -86,13 +86,13 @@ Options: (define (show-version) (format (current-error-port) - "extract-green-color.scm 1.0~%")) + "extract-green-color.scm 2.0~%")) (define (main args) (let* ((option-spec `((version (single-char #\V)) (help (single-char #\h)) - (hue-minus (single-char #\m) (value #t) (predicate ,string->number)) - (hue-plus (single-char #\p) (value #t) (predicate ,string->number)) + (hue-red (single-char #\r) (value #t) (predicate ,string->number)) + (hue-blue (single-char #\b) (value #t) (predicate ,string->number)) (saturation (single-char #\s) (value #t) (predicate ,string->number)) (value (single-char #\v) (value #t) (predicate ,string->number)))) (options (getopt-long args option-spec))) @@ -108,8 +108,8 @@ Options: (exit 1)) (match-let (((input-file output-file) (option-ref options '() '()))) (im-save (extract-green-color (im-load input-file) - (string->number (option-ref options 'hue-minus "60")) - (string->number (option-ref options 'hue-plus "60")) + (string->number (option-ref options 'hue-red "60")) + (string->number (option-ref options 'hue-blue "60")) (string->number (option-ref options 'saturation "0.0")) (string->number (option-ref options 'value "0.0"))) output-file)))) -- cgit v1.2.3