RFX-GIMP

Hex Artifact Content
Login

Artifact a620afe8b5f211cfdc4f209d1801978f4b141242:


0000: 26 72 66 78 5f 73 65 6e 64 6d 73 67 20 28 0a 20  &rfx_sendmsg (. 
0010: 20 71 71 7b 20 20 20 20 20 20 20 20 0a 20 20 20   qq{        .   
0020: 20 28 6c 65 74 2a 20 28 28 69 6e 70 75 74 2d 66   (let* ((input-f
0030: 69 6c 65 20 28 73 74 72 69 6e 67 2d 61 70 70 65  ile (string-appe
0040: 6e 64 20 22 24 63 75 72 74 6d 70 64 69 72 22 20  nd "$curtmpdir" 
0050: 44 49 52 2d 53 45 50 41 52 41 54 4f 52 20 22 24  DIR-SEPARATOR "$
0060: 69 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20  in")).          
0070: 20 28 69 6d 61 67 65 20 28 63 61 72 20 28 67 69   (image (car (gi
0080: 6d 70 2d 66 69 6c 65 2d 6c 6f 61 64 20 52 55 4e  mp-file-load RUN
0090: 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49 56 45 20  -NONINTERACTIVE 
00a0: 69 6e 70 75 74 2d 66 69 6c 65 20 69 6e 70 75 74  input-file input
00b0: 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20  -file))).       
00c0: 20 20 20 20 28 6c 61 79 65 72 20 28 63 61 72 20      (layer (car 
00d0: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 67 65 74 2d  (gimp-image-get-
00e0: 61 63 74 69 76 65 2d 6c 61 79 65 72 20 69 6d 61  active-layer ima
00f0: 67 65 29 29 29 20 29 0a 20 20 20 20 20 20 28 67  ge))) ).      (g
0100: 69 6d 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d 64  imp-image-undo-d
0110: 69 73 61 62 6c 65 20 69 6d 61 67 65 29 0a 20 20  isable image).  
0120: 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 65      (let ((proce
0130: 73 73 65 64 2d 6c 61 79 65 72 20 28 63 61 72 20  ssed-layer (car 
0140: 28 67 69 6d 70 2d 6c 61 79 65 72 2d 63 6f 70 79  (gimp-layer-copy
0150: 20 6c 61 79 65 72 20 54 52 55 45 29 29 29 0a 20   layer TRUE))). 
0160: 20 20 20 20 20 20 20 20 20 20 20 28 79 65 6c 6c             (yell
0170: 6f 77 2d 6c 61 79 65 72 20 30 29 20 29 0a 20 20  ow-layer 0) ).  
0180: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67        (gimp-imag
0190: 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d 61 67  e-add-layer imag
01a0: 65 20 70 72 6f 63 65 73 73 65 64 2d 6c 61 79 65  e processed-laye
01b0: 72 20 30 29 20 20 20 0a 20 20 20 20 20 20 20 20  r 0)   .        
01c0: 28 67 69 6d 70 2d 63 75 72 76 65 73 2d 73 70 6c  (gimp-curves-spl
01d0: 69 6e 65 20 70 72 6f 63 65 73 73 65 64 2d 6c 61  ine processed-la
01e0: 79 65 72 20 48 49 53 54 4f 47 52 41 4d 2d 52 45  yer HISTOGRAM-RE
01f0: 44 20 31 30 20 23 28 30 20 30 20 38 30 20 34 30  D 10 #(0 0 80 40
0200: 20 31 39 30 20 31 39 30 20 32 33 35 20 32 35 35   190 190 235 255
0210: 20 32 35 35 20 32 35 35 29 29 0a 20 20 20 20 20   255 255)).     
0220: 20 20 20 28 67 69 6d 70 2d 63 75 72 76 65 73 2d     (gimp-curves-
0230: 73 70 6c 69 6e 65 20 70 72 6f 63 65 73 73 65 64  spline processed
0240: 2d 6c 61 79 65 72 20 48 49 53 54 4f 47 52 41 4d  -layer HISTOGRAM
0250: 2d 47 52 45 45 4e 20 38 20 23 28 30 20 30 20 37  -GREEN 8 #(0 0 7
0260: 30 20 36 30 20 31 39 30 20 32 31 30 20 20 32 35  0 60 190 210  25
0270: 35 20 32 35 35 29 29 0a 20 20 20 20 20 20 20 20  5 255)).        
0280: 28 67 69 6d 70 2d 63 75 72 76 65 73 2d 73 70 6c  (gimp-curves-spl
0290: 69 6e 65 20 70 72 6f 63 65 73 73 65 64 2d 6c 61  ine processed-la
02a0: 79 65 72 20 48 49 53 54 4f 47 52 41 4d 2d 42 4c  yer HISTOGRAM-BL
02b0: 55 45 20 34 20 23 28 30 20 32 33 20 32 35 35 20  UE 4 #(0 23 255 
02c0: 32 32 38 29 29 0a 20 20 20 20 20 20 20 20 28 67  228)).        (g
02d0: 69 6d 70 2d 6c 61 79 65 72 2d 73 65 74 2d 6d 6f  imp-layer-set-mo
02e0: 64 65 20 70 72 6f 63 65 73 73 65 64 2d 6c 61 79  de processed-lay
02f0: 65 72 20 43 4f 4c 4f 52 2d 4d 4f 44 45 29 0a 20  er COLOR-MODE). 
0300: 20 20 20 20 20 20 20 28 73 65 74 21 20 79 65 6c         (set! yel
0310: 6c 6f 77 2d 6c 61 79 65 72 20 28 63 61 72 20 28  low-layer (car (
0320: 67 69 6d 70 2d 6c 61 79 65 72 2d 6e 65 77 20 69  gimp-layer-new i
0330: 6d 61 67 65 20 24 77 69 64 74 68 20 24 68 65 69  mage $width $hei
0340: 67 68 74 20 52 47 42 2d 49 4d 41 47 45 20 22 63  ght RGB-IMAGE "c
0350: 6f 6c 6f 72 22 20 38 20 4e 4f 52 4d 41 4c 2d 4d  olor" 8 NORMAL-M
0360: 4f 44 45 29 29 29 0a 20 20 20 20 20 20 20 20 28  ODE))).        (
0370: 67 69 6d 70 2d 69 6d 61 67 65 2d 61 64 64 2d 6c  gimp-image-add-l
0380: 61 79 65 72 20 69 6d 61 67 65 20 79 65 6c 6c 6f  ayer image yello
0390: 77 2d 6c 61 79 65 72 20 30 29 0a 20 20 20 20 20  w-layer 0).     
03a0: 20 20 20 28 67 69 6d 70 2d 63 6f 6e 74 65 78 74     (gimp-context
03b0: 2d 73 65 74 2d 66 6f 72 65 67 72 6f 75 6e 64 20  -set-foreground 
03c0: 27 28 32 32 35 20 32 35 35 20 30 29 29 0a 20 20  '(225 255 0)).  
03d0: 20 20 20 20 20 20 28 67 69 6d 70 2d 64 72 61 77        (gimp-draw
03e0: 61 62 6c 65 2d 66 69 6c 6c 20 79 65 6c 6c 6f 77  able-fill yellow
03f0: 2d 6c 61 79 65 72 20 46 4f 52 45 47 52 4f 55 4e  -layer FOREGROUN
0400: 44 2d 46 49 4c 4c 29 0a 20 20 20 20 20 20 20 20  D-FILL).        
0410: 28 67 69 6d 70 2d 69 6d 61 67 65 2d 6d 65 72 67  (gimp-image-merg
0420: 65 2d 76 69 73 69 62 6c 65 2d 6c 61 79 65 72 73  e-visible-layers
0430: 20 69 6d 61 67 65 20 43 4c 49 50 2d 54 4f 2d 49   image CLIP-TO-I
0440: 4d 41 47 45 29 0a 20 20 20 20 20 20 20 20 29 0a  MAGE).        ).
0450: 20 20 20 20 20 20 28 72 66 78 2d 73 61 76 65 2d        (rfx-save-
0460: 66 72 61 6d 65 20 69 6d 61 67 65 20 22 24 6f 75  frame image "$ou
0470: 74 22 29 20 0a 20 20 20 20 20 20 29 0a 20 20 20  t") .      ).   
0480: 20 7d 0a 20 20 29 3b 0a                           }.  );.