RFX-GIMP

Hex Artifact Content
Login

Artifact 1f06ce413fadd9740c815fb5137d87d3ea4e24f3:


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 20 20 28 6c 65 74 2a 20 28   qq{.    (let* (
0020: 28 69 6e 70 75 74 2d 66 69 6c 65 20 28 73 74 72  (input-file (str
0030: 69 6e 67 2d 61 70 70 65 6e 64 20 22 24 63 75 72  ing-append "$cur
0040: 74 6d 70 64 69 72 22 20 44 49 52 2d 53 45 50 41  tmpdir" DIR-SEPA
0050: 52 41 54 4f 52 20 22 24 69 6e 22 29 29 0a 20 20  RATOR "$in")).  
0060: 20 20 20 20 20 20 20 20 20 28 69 6d 61 67 65 20           (image 
0070: 28 63 61 72 20 28 67 69 6d 70 2d 66 69 6c 65 2d  (car (gimp-file-
0080: 6c 6f 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e 54 45  load RUN-NONINTE
0090: 52 41 43 54 49 56 45 20 69 6e 70 75 74 2d 66 69  RACTIVE input-fi
00a0: 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 29  le input-file)))
00b0: 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 79  .           (lay
00c0: 65 72 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d  er (car (gimp-im
00d0: 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d 6c  age-get-active-l
00e0: 61 79 65 72 20 69 6d 61 67 65 29 29 29 20 29 0a  ayer image))) ).
00f0: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6e 76 65        (gimp-inve
0100: 72 74 20 6c 61 79 65 72 29 0a 20 20 20 20 20 20  rt layer).      
0110: 28 72 66 78 2d 73 61 76 65 2d 66 72 61 6d 65 20  (rfx-save-frame 
0120: 69 6d 61 67 65 20 22 24 6f 75 74 22 29 20 29 0a  image "$out") ).
0130: 20 20 20 20 7d 0a 20 20 29 3b 0a 0a                  }.  );..