RFX-GIMP

Hex Artifact Content
Login

Artifact 59a889c4407d1f21111e5c6bd3ac80c776218c35:


0000: 26 72 66 78 5f 73 65 6e 64 6d 73 67 28 20 71 71  &rfx_sendmsg( qq
0010: 7b 0a 20 20 28 62 65 67 69 6e 0a 20 20 20 20 28  {.  (begin.    (
0020: 6c 65 74 2a 20 28 28 62 61 73 65 6e 61 6d 65 20  let* ((basename 
0030: 28 63 61 72 20 28 73 74 72 62 72 65 61 6b 75 70  (car (strbreakup
0040: 20 28 63 61 72 20 28 6c 61 73 74 20 28 73 74 72   (car (last (str
0050: 62 72 65 61 6b 75 70 20 22 24 69 6e 22 20 44 49  breakup "$in" DI
0060: 52 2d 53 45 50 41 52 41 54 4f 52 29 29 29 20 22  R-SEPARATOR))) "
0070: 24 69 6d 67 5f 65 78 74 22 29 29 29 0a 20 20 20  $img_ext"))).   
0080: 20 20 20 20 20 20 20 20 28 69 6e 70 75 74 2d 66          (input-f
0090: 69 6c 65 20 28 73 74 72 69 6e 67 2d 61 70 70 65  ile (string-appe
00a0: 6e 64 20 22 24 63 75 72 74 6d 70 64 69 72 22 20  nd "$curtmpdir" 
00b0: 44 49 52 2d 53 45 50 41 52 41 54 4f 52 20 22 67  DIR-SEPARATOR "g
00c0: 61 70 2d 63 6c 69 70 22 20 44 49 52 2d 53 45 50  ap-clip" DIR-SEP
00d0: 41 52 41 54 4f 52 20 62 61 73 65 6e 61 6d 65 20  ARATOR basename 
00e0: 22 2e 78 63 66 22 29 29 0a 20 20 20 20 20 20 20  ".xcf")).       
00f0: 20 20 20 20 28 69 6d 61 67 65 20 28 63 61 72 20      (image (car 
0100: 28 67 69 6d 70 2d 66 69 6c 65 2d 6c 6f 61 64 20  (gimp-file-load 
0110: 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49  RUN-NONINTERACTI
0120: 56 45 20 69 6e 70 75 74 2d 66 69 6c 65 20 69 6e  VE input-file in
0130: 70 75 74 2d 66 69 6c 65 29 29 29 0a 20 20 20 20  put-file))).    
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0150: 6c 61 79 65 72 20 28 63 61 72 20 28 67 69 6d 70  layer (car (gimp
0160: 2d 69 6d 61 67 65 2d 67 65 74 2d 61 63 74 69 76  -image-get-activ
0170: 65 2d 6c 61 79 65 72 20 69 6d 61 67 65 29 29 29  e-layer image)))
0180: 20 29 0a 20 20 20 20 20 20 28 72 66 78 2d 73 61   ).      (rfx-sa
0190: 76 65 2d 66 72 61 6d 65 20 69 6d 61 67 65 20 22  ve-frame image "
01a0: 24 6f 75 74 22 29 20 0a 20 20 20 20 20 20 29 0a  $out") .      ).
01b0: 20 20 20 20 29 0a 20 20 20 20 7d 0a 20 20 29 3b      ).    }.  );
01c0: 0a 0a                                            ..