RFX-GIMP

Artifact 4886f44c0ad84c78fefd534474446755dcde75e9:

• File effects/motion-blur.loop — part of check-in [4e8eee5546] at 2012-03-19 17:34:14 on branch trunk — New script to implement motion blur. (user: saul size: 1116)

&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))) )
      (if $p7
        (plug-in-mblur RUN-NONINTERACTIVE image layer
                       (cond
                         ((= $p0 1) 0 )
                         ((= $p1 1) 1 )
                         ((= $p2 1) 2 ) )
                       $p3 ; length
                       $p4 ; angle
                       $p5 ; center x
                       $p6 ; center y 
                       )
        (plug-in-mblur-inward
                       RUN-NONINTERACTIVE image layer
                       (cond
                         ((= $p0 1) 0 )
                         ((= $p1 1) 1 )
                         ((= $p2 1) 2 ) )
                       $p3 ; length
                       $p4 ; angle
                       $p5 ; center x
                       $p6 ; center y
                       ))
                     
      (rfx-save-frame image "$out") )

    }
  );