&rfx_sendmsg (
qq{
(let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
(image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
(layer (car (gimp-image-get-active-layer image))) )
(gimp-image-undo-disable image)
(let ((processed-layer (car (gimp-layer-copy layer TRUE)))
(yellow-layer 0) )
(gimp-image-add-layer image processed-layer 0)
(gimp-curves-spline processed-layer HISTOGRAM-RED 10 #(0 0 80 40 190 190 235 255 255 255))
(gimp-curves-spline processed-layer HISTOGRAM-GREEN 8 #(0 0 70 60 190 210 255 255))
(gimp-curves-spline processed-layer HISTOGRAM-BLUE 4 #(0 23 255 228))
(gimp-layer-set-mode processed-layer COLOR-MODE)
(set! yellow-layer (car (gimp-layer-new image $width $height RGB-IMAGE "color" 8 NORMAL-MODE)))
(gimp-image-add-layer image yellow-layer 0)
(gimp-context-set-foreground '(225 255 0))
(gimp-drawable-fill yellow-layer FOREGROUND-FILL)
(gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
)
(rfx-save-frame image "$out")
)
}
);