RFX-GIMP

Artifact Content
Login

Artifact a620afe8b5f211cfdc4f209d1801978f4b141242:


&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") 
      )
    }
  );