RFX-GIMP

Hex Artifact Content
Login

Artifact 2d9c43c74a5661c9c683cb5b4d1a2bb26c53c71c:


0000: 23 20 70 30 20 2d 20 67 61 6d 6d 61 20 30 2e 31  # p0 - gamma 0.1
0010: 20 74 6f 20 31 30 20 28 31 2e 35 29 0a 23 20 70   to 10 (1.5).# p
0020: 31 20 2d 20 72 61 64 69 75 73 20 30 20 74 6f 20  1 - radius 0 to 
0030: 24 77 69 64 74 68 20 28 31 35 29 0a 23 20 70 32  $width (15).# p2
0040: 20 2d 20 69 6e 74 65 6e 73 69 74 79 20 30 20 74   - intensity 0 t
0050: 6f 20 31 30 30 20 28 32 35 29 0a 23 20 70 33 20  o 100 (25).# p3 
0060: 2d 20 6e 65 67 61 74 65 20 28 46 41 4c 53 45 29  - negate (FALSE)
0070: 0a 0a 26 72 66 78 5f 73 65 6e 64 6d 73 67 20 28  ..&rfx_sendmsg (
0080: 0a 20 20 71 71 7b 0a 20 20 20 20 28 6c 65 74 2a  .  qq{.    (let*
0090: 20 28 28 69 6e 70 75 74 2d 66 69 6c 65 20 28 73   ((input-file (s
00a0: 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 24 63  tring-append "$c
00b0: 75 72 74 6d 70 64 69 72 22 20 44 49 52 2d 53 45  urtmpdir" DIR-SE
00c0: 50 41 52 41 54 4f 52 20 22 24 69 6e 22 29 29 0a  PARATOR "$in")).
00d0: 20 20 20 20 20 20 20 20 20 20 20 28 69 6d 61 67             (imag
00e0: 65 20 28 63 61 72 20 28 67 69 6d 70 2d 66 69 6c  e (car (gimp-fil
00f0: 65 2d 6c 6f 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e  e-load RUN-NONIN
0100: 54 45 52 41 43 54 49 56 45 20 69 6e 70 75 74 2d  TERACTIVE input-
0110: 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 29  file input-file)
0120: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c  )).           (l
0130: 61 79 65 72 20 28 63 61 72 20 28 67 69 6d 70 2d  ayer (car (gimp-
0140: 69 6d 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65  image-get-active
0150: 2d 6c 61 79 65 72 20 69 6d 61 67 65 29 29 29 0a  -layer image))).
0160: 20 20 20 20 20 20 20 20 20 20 20 28 62 6c 75 72             (blur
0170: 2d 6c 61 79 65 72 20 28 63 61 72 20 28 67 69 6d  -layer (car (gim
0180: 70 2d 6c 61 79 65 72 2d 63 6f 70 79 20 6c 61 79  p-layer-copy lay
0190: 65 72 20 54 52 55 45 29 29 29 0a 20 20 20 20 20  er TRUE))).     
01a0: 20 20 20 20 20 20 28 69 6e 74 65 6e 73 69 74 79        (intensity
01b0: 2d 6c 61 79 65 72 20 28 63 61 72 20 28 67 69 6d  -layer (car (gim
01c0: 70 2d 6c 61 79 65 72 2d 63 6f 70 79 20 6c 61 79  p-layer-copy lay
01d0: 65 72 20 54 52 55 45 29 29 29 0a 20 20 20 20 20  er TRUE))).     
01e0: 20 20 20 20 20 20 28 6d 61 73 6b 20 30 29 0a 20        (mask 0). 
01f0: 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20            ).    
0200: 20 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 75 6e    (gimp-image-un
0210: 64 6f 2d 64 69 73 61 62 6c 65 20 69 6d 61 67 65  do-disable image
0220: 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d  ).      (gimp-im
0230: 61 67 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d  age-add-layer im
0240: 61 67 65 20 62 6c 75 72 2d 6c 61 79 65 72 20 31  age blur-layer 1
0250: 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d  ).      (gimp-im
0260: 61 67 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d  age-add-layer im
0270: 61 67 65 20 69 6e 74 65 6e 73 69 74 79 2d 6c 61  age intensity-la
0280: 79 65 72 20 30 29 0a 20 20 20 20 20 20 28 73 65  yer 0).      (se
0290: 74 21 20 6d 61 73 6b 20 28 63 61 72 20 28 67 69  t! mask (car (gi
02a0: 6d 70 2d 6c 61 79 65 72 2d 63 72 65 61 74 65 2d  mp-layer-create-
02b0: 6d 61 73 6b 20 69 6e 74 65 6e 73 69 74 79 2d 6c  mask intensity-l
02c0: 61 79 65 72 20 41 44 44 2d 57 48 49 54 45 2d 4d  ayer ADD-WHITE-M
02d0: 41 53 4b 29 29 29 0a 20 20 20 20 20 20 28 67 69  ASK))).      (gi
02e0: 6d 70 2d 6c 61 79 65 72 2d 61 64 64 2d 6d 61 73  mp-layer-add-mas
02f0: 6b 20 69 6e 74 65 6e 73 69 74 79 2d 6c 61 79 65  k intensity-laye
0300: 72 20 6d 61 73 6b 29 0a 20 20 20 20 20 20 28 67  r mask).      (g
0310: 69 6d 70 2d 63 6f 6e 74 65 78 74 2d 73 65 74 2d  imp-context-set-
0320: 66 6f 72 65 67 72 6f 75 6e 64 20 28 6d 61 6b 65  foreground (make
0330: 2d 6c 69 73 74 20 33 20 28 2f 20 28 2a 20 28 61  -list 3 (/ (* (a
0340: 62 73 20 28 2d 20 31 30 30 20 24 70 32 29 29 20  bs (- 100 $p2)) 
0350: 32 35 35 29 20 31 30 30 29 29 29 0a 20 20 20 20  255) 100))).    
0360: 20 20 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65    (gimp-drawable
0370: 2d 66 69 6c 6c 20 6d 61 73 6b 20 46 4f 52 45 47  -fill mask FOREG
0380: 52 4f 55 4e 44 2d 46 49 4c 4c 29 0a 20 20 20 20  ROUND-FILL).    
0390: 20 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d 73 65    (gimp-layer-se
03a0: 74 2d 6d 6f 64 65 20 6c 61 79 65 72 20 28 69 66  t-mode layer (if
03b0: 20 28 7a 65 72 6f 3f 20 24 70 33 29 20 0a 20 20   (zero? $p3) .  
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03e0: 20 20 20 20 20 20 4f 56 45 52 4c 41 59 2d 4d 4f        OVERLAY-MO
03f0: 44 45 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  DE .            
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0410: 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54              MULT
0420: 49 50 4c 59 2d 4d 4f 44 45 20 29 29 0a 20 20 20  IPLY-MODE )).   
0430: 20 20 20 28 70 6c 75 67 2d 69 6e 2d 67 61 75 73     (plug-in-gaus
0440: 73 2d 69 69 72 32 20 52 55 4e 2d 4e 4f 4e 49 4e  s-iir2 RUN-NONIN
0450: 54 45 52 41 43 54 49 56 45 20 69 6d 61 67 65 20  TERACTIVE image 
0460: 62 6c 75 72 2d 6c 61 79 65 72 20 24 70 31 20 24  blur-layer $p1 $
0470: 70 31 29 0a 20 20 20 20 20 20 28 67 69 6d 70 2d  p1).      (gimp-
0480: 6c 65 76 65 6c 73 20 6c 61 79 65 72 20 30 20 30  levels layer 0 0
0490: 20 32 35 35 20 24 70 30 20 30 20 32 35 35 29 0a   255 $p0 0 255).
04a0: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67        (gimp-imag
04b0: 65 2d 6d 65 72 67 65 2d 76 69 73 69 62 6c 65 2d  e-merge-visible-
04c0: 6c 61 79 65 72 73 20 69 6d 61 67 65 20 43 4c 49  layers image CLI
04d0: 50 2d 54 4f 2d 49 4d 41 47 45 29 0a 20 20 20 20  P-TO-IMAGE).    
04e0: 20 20 0a 20 20 20 20 20 20 28 72 66 78 2d 73 61    .      (rfx-sa
04f0: 76 65 2d 66 72 61 6d 65 20 69 6d 61 67 65 20 22  ve-frame image "
0500: 24 6f 75 74 22 29 20 29 0a 20 20 20 20 7d 0a 20  $out") ).    }. 
0510: 20 29 3b 0a 0a                                    );..