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