RFX-GIMP

Hex Artifact Content
Login

Artifact 840b9e76e158bfa20f3fb83ff3209529d70fadab:


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 24 70 30 20 3b 20 72 61 64 69 75 73 0a 20    $p0 ; radius. 
0190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01a0: 20 20 20 20 20 20 20 20 20 20 20 24 70 31 20 3b             $p1 ;
01b0: 20 61 6d 6f 75 6e 74 0a 20 20 20 20 20 20 20 20   amount.        
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01d0: 20 20 20 20 24 70 32 20 3b 20 74 68 72 65 73 68      $p2 ; thresh
01e0: 6f 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20  old.            
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0200: 29 20 0a 20 20 20 20 20 20 28 72 66 78 2d 73 61  ) .      (rfx-sa
0210: 76 65 2d 66 72 61 6d 65 20 69 6d 61 67 65 20 22  ve-frame image "
0220: 24 6f 75 74 22 29 20 29 0a 0a 20 20 20 20 7d 0a  $out") )..    }.
0230: 20 20 29 3b 0a 0a                                  );..