external/clem/src/normalize.lisp

   1
   2 (in-package :clem)
   3
   4 (defmethod normalize ((u matrix) &key (normin) (normax) (truncate nil) (copy nil))
   5   (let ((min (min-val u))
   6         (max (max-val u))
   7         (nmin (if normin normin 0))
   8         (nmax (if normax normax 255))
   9         (u (if copy (mat-copy u) u)))
  10     (let ((slope (if (= max min)
  11                      0
  12                      (/ (- nmax nmin) (- max min)))))
  13       (map-set-val-fit u #'(lambda (x) (+ nmin (* slope (- x min))))
  14                        :truncate truncate))
  15     u))
  16
  17 (defmethod norm-0-255 ((u matrix) &key copy)
  18   (normalize u :normin 0 :normax 255 :copy copy))
  19
  20 (defmethod norm-0-1 ((u matrix) &key copy)
  21   (normalize u :normin 0 :normax 1 :copy copy))
  22