RFX-GIMP

Hex Artifact Content
Login

Artifact d2c5c19321d1eafcb7e31d61deb0d01324b4777a:


0000: 26 72 66 78 5f 73 65 6e 64 6d 73 67 20 28 0a 20  &rfx_sendmsg (. 
0010: 20 71 71 7b 0a 20 20 0a 20 20 20 20 28 6c 65 74   qq{.  .    (let
0020: 2a 20 28 28 69 6e 70 75 74 2d 66 69 6c 65 20 28  * ((input-file (
0030: 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 24  string-append "$
0040: 63 75 72 74 6d 70 64 69 72 22 20 44 49 52 2d 53  curtmpdir" DIR-S
0050: 45 50 41 52 41 54 4f 52 20 22 24 69 6e 22 29 29  EPARATOR "$in"))
0060: 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6d 61  .           (ima
0070: 67 65 20 28 63 61 72 20 28 67 69 6d 70 2d 66 69  ge (car (gimp-fi
0080: 6c 65 2d 6c 6f 61 64 20 52 55 4e 2d 4e 4f 4e 49  le-load RUN-NONI
0090: 4e 54 45 52 41 43 54 49 56 45 20 69 6e 70 75 74  NTERACTIVE input
00a0: 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65  -file input-file
00b0: 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28  ))).           (
00c0: 6c 61 79 65 72 20 28 63 61 72 20 28 67 69 6d 70  layer (car (gimp
00d0: 2d 69 6d 61 67 65 2d 67 65 74 2d 61 63 74 69 76  -image-get-activ
00e0: 65 2d 6c 61 79 65 72 20 69 6d 61 67 65 29 29 29  e-layer image)))
00f0: 20 29 0a 20 20 20 20 20 20 28 70 6c 75 67 2d 69   ).      (plug-i
0100: 6e 2d 75 6e 73 68 61 72 70 2d 6d 61 73 6b 20 52  n-unsharp-mask R
0110: 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49 56  UN-NONINTERACTIV
0120: 45 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  E.              
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6d                im
0140: 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20  age.            
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 6c 61 79 65 72 0a 20 20 20 20 20 20 20 20 20 20  layer.          
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0180: 20 20 28 6c 65 6e 67 74 68 20 28 6d 65 6d 62 65    (length (membe
0190: 72 20 31 20 28 6c 69 73 74 20 24 70 38 20 24 70  r 1 (list $p8 $p
01a0: 37 20 24 70 36 20 24 70 35 20 24 70 34 20 0a 20  7 $p6 $p5 $p4 . 
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01e0: 20 20 20 24 70 33 20 24 70 32 20 24 70 31 20 24     $p3 $p2 $p1 $
01f0: 70 30 20 29 29 29 0a 20 20 20 20 20 20 20 20 20  p0 ))).         
0200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0210: 20 20 20 24 70 39 20 3b 20 61 64 64 69 74 69 76     $p9 ; additiv
0220: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e.              
0230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 70                $p
0240: 31 30 20 3b 20 72 6f 74 61 74 65 64 0a 20 20 20  10 ; rotated.   
0250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0260: 20 20 20 20 20 20 20 20 20 29 20 0a 20 20 20 20           ) .    
0270: 20 20 28 72 66 78 2d 73 61 76 65 2d 66 72 61 6d    (rfx-save-fram
0280: 65 20 69 6d 61 67 65 20 22 24 6f 75 74 22 29 20  e image "$out") 
0290: 29 0a 0a 20 20 20 20 7d 0a 20 20 29 3b 0a 0a     )..    }.  );..