1; The Scheme code in this file provides some compatibility with
2; scripts that were originally written for use with older versions of
3; GIMP.
4;
5; It provides PDB procedures that used to be provided by plug-ins that
6; were since then removed from the GIMP distribution. You should not
7; use these in newly written scripts as the functions defined here may
8; be removed at some later date.
9
10
11(define (plug-in-color-map run-mode img layer
12			   src-color-1 src-color-2 dest-color-1 dest-color-2
13			   map-mode)
14  (gimp-levels layer HISTOGRAM-RED
15	       (car src-color-1) (car src-color-2) 1.0
16	       (- 255 (car dest-color-1)) (- 255 (car dest-color-2)))
17  (gimp-levels layer  HISTOGRAM-GREEN
18	       (cadr 	src-color-1) (cadr src-color-2) 1.0
19	       (- 255 (cadr dest-color-1)) (- 255 (cadr dest-color-2)))
20  (gimp-levels layer HISTOGRAM-BLUE
21	       (caddr src-color-1) (caddr src-color-2) 1.0
22	       (- 255 (caddr dest-color-1)) (- 255 (caddr dest-color-2)))
23  (gimp-levels layer HISTOGRAM-VALUE 0 255 1.0 255 0)
24)
25