RFX-GIMP

Hex Artifact Content
Login

Artifact 4886f44c0ad84c78fefd534474446755dcde75e9:


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 69 66 20 24 70 37   ).      (if $p7
0100: 0a 20 20 20 20 20 20 20 20 28 70 6c 75 67 2d 69  .        (plug-i
0110: 6e 2d 6d 62 6c 75 72 20 52 55 4e 2d 4e 4f 4e 49  n-mblur RUN-NONI
0120: 4e 54 45 52 41 43 54 49 56 45 20 69 6d 61 67 65  NTERACTIVE image
0130: 20 6c 61 79 65 72 0a 20 20 20 20 20 20 20 20 20   layer.         
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
0150: 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20  ond.            
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d               ((=
0170: 20 24 70 30 20 31 29 20 30 20 29 0a 20 20 20 20   $p0 1) 0 ).    
0180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0190: 20 20 20 20 20 28 28 3d 20 24 70 31 20 31 29 20       ((= $p1 1) 
01a0: 31 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  1 ).            
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d               ((=
01c0: 20 24 70 32 20 31 29 20 32 20 29 20 29 0a 20 20   $p2 1) 2 ) ).  
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01e0: 20 20 20 20 20 24 70 33 20 3b 20 6c 65 6e 67 74       $p3 ; lengt
01f0: 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  h.              
0200: 20 20 20 20 20 20 20 20 20 24 70 34 20 3b 20 61           $p4 ; a
0210: 6e 67 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20  ngle.           
0220: 20 20 20 20 20 20 20 20 20 20 20 20 24 70 35 20              $p5 
0230: 3b 20 63 65 6e 74 65 72 20 78 0a 20 20 20 20 20  ; center x.     
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0250: 20 20 24 70 36 20 3b 20 63 65 6e 74 65 72 20 79    $p6 ; center y
0260: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
0270: 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20           ).     
0280: 20 20 20 28 70 6c 75 67 2d 69 6e 2d 6d 62 6c 75     (plug-in-mblu
0290: 72 2d 69 6e 77 61 72 64 0a 20 20 20 20 20 20 20  r-inward.       
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02b0: 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49  RUN-NONINTERACTI
02c0: 56 45 20 69 6d 61 67 65 20 6c 61 79 65 72 0a 20  VE image layer. 
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02e0: 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20        (cond.    
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0300: 20 20 20 20 20 28 28 3d 20 24 70 30 20 31 29 20       ((= $p0 1) 
0310: 30 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  0 ).            
0320: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d               ((=
0330: 20 24 70 31 20 31 29 20 31 20 29 0a 20 20 20 20   $p1 1) 1 ).    
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0350: 20 20 20 20 20 28 28 3d 20 24 70 32 20 31 29 20       ((= $p2 1) 
0360: 32 20 29 20 29 0a 20 20 20 20 20 20 20 20 20 20  2 ) ).          
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 70 33               $p3
0380: 20 3b 20 6c 65 6e 67 74 68 0a 20 20 20 20 20 20   ; length.      
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03a0: 20 24 70 34 20 3b 20 61 6e 67 6c 65 0a 20 20 20   $p4 ; angle.   
03b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03c0: 20 20 20 20 24 70 35 20 3b 20 63 65 6e 74 65 72      $p5 ; center
03d0: 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   x.             
03e0: 20 20 20 20 20 20 20 20 20 20 24 70 36 20 3b 20            $p6 ; 
03f0: 63 65 6e 74 65 72 20 79 0a 20 20 20 20 20 20 20  center y.       
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0410: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0420: 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 28          .      (
0430: 72 66 78 2d 73 61 76 65 2d 66 72 61 6d 65 20 69  rfx-save-frame i
0440: 6d 61 67 65 20 22 24 6f 75 74 22 29 20 29 0a 0a  mage "$out") )..
0450: 20 20 20 20 7d 0a 20 20 29 3b 0a 0a                  }.  );..