RFX-GIMP

Hex Artifact Content
Login

Artifact 14604f2ada3d3018ad9d4bf349db6ecddee1442e:


0000: 23 20 24 70 30 20 2d 20 58 20 63 65 6e 74 65 72  # $p0 - X center
0010: 0a 23 20 24 70 31 20 2d 20 59 20 63 65 6e 74 65  .# $p1 - Y cente
0020: 72 0a 23 20 24 70 32 20 2d 20 64 69 72 65 63 74  r.# $p2 - direct
0030: 69 6f 6e 20 28 30 20 43 57 2c 20 31 20 43 43 57  ion (0 CW, 1 CCW
0040: 29 0a 23 20 24 70 33 20 2d 20 77 69 70 65 20 74  ).# $p3 - wipe t
0050: 6f 20 63 6f 6c 6f 72 0a 23 20 24 70 34 5f 72 65  o color.# $p4_re
0060: 64 0a 23 20 24 70 34 5f 67 72 65 65 6e 0a 23 20  d.# $p4_green.# 
0070: 24 70 34 5f 62 6c 75 65 0a 0a 26 72 66 78 5f 73  $p4_blue..&rfx_s
0080: 65 6e 64 6d 73 67 20 28 0a 20 20 71 71 7b 0a 20  endmsg (.  qq{. 
0090: 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20     (begin.      
00a0: 28 77 68 65 6e 20 28 3d 20 24 66 72 61 6d 65 20  (when (= $frame 
00b0: 24 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20  $start).        
00c0: 28 64 65 66 69 6e 65 20 6e 65 78 74 2d 61 6e 67  (define next-ang
00d0: 6c 65 20 28 6d 61 6b 65 2d 70 72 6f 67 72 65 73  le (make-progres
00e0: 73 6f 72 20 28 2f 20 2a 70 69 2a 20 32 29 20 0a  sor (/ *pi* 2) .
00f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0110: 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20              (if 
0120: 28 3c 20 28 2d 20 24 65 6e 64 20 24 73 74 61 72  (< (- $end $star
0130: 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20  t) 0).          
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20      0.          
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0190: 20 20 20 20 28 2a 20 32 20 2a 70 69 2a 20 28 2f      (* 2 *pi* (/
01a0: 20 28 73 75 63 63 20 28 2d 20 24 65 6e 64 20 24   (succ (- $end $
01b0: 73 74 61 72 74 29 29 29 29 20 29 0a 20 20 20 20  start)))) ).    
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01e0: 20 20 20 20 20 20 20 20 28 2a 20 2a 70 69 2a 20          (* *pi* 
01f0: 32 29 20 29 29 0a 20 20 20 20 20 20 20 20 28 64  2) )).        (d
0200: 65 66 69 6e 65 20 6c 61 73 74 2d 61 6e 67 6c 65  efine last-angle
0210: 20 28 2f 20 2a 70 69 2a 20 32 29 29 20 29 0a 20   (/ *pi* 2)) ). 
0220: 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 70       (let* ((inp
0230: 75 74 2d 66 69 6c 65 20 28 73 74 72 69 6e 67 2d  ut-file (string-
0240: 61 70 70 65 6e 64 20 22 24 63 75 72 74 6d 70 64  append "$curtmpd
0250: 69 72 22 20 44 49 52 2d 53 45 50 41 52 41 54 4f  ir" DIR-SEPARATO
0260: 52 20 22 24 69 6e 22 29 29 0a 20 20 20 20 20 20  R "$in")).      
0270: 20 20 20 20 20 20 20 28 69 6d 61 67 65 20 28 63         (image (c
0280: 61 72 20 28 67 69 6d 70 2d 66 69 6c 65 2d 6c 6f  ar (gimp-file-lo
0290: 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41  ad RUN-NONINTERA
02a0: 43 54 49 56 45 20 69 6e 70 75 74 2d 66 69 6c 65  CTIVE input-file
02b0: 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 29 0a 20   input-file))). 
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 79              (lay
02d0: 65 72 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d  er (car (gimp-im
02e0: 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d 6c  age-get-active-l
02f0: 61 79 65 72 20 69 6d 61 67 65 29 29 29 0a 20 20  ayer image))).  
0300: 20 20 20 20 20 20 20 20 20 20 20 28 62 2d 6c 61             (b-la
0310: 79 65 72 20 30 29 20 29 0a 20 20 20 20 20 20 20  yer 0) ).       
0320: 20 28 69 66 20 28 7a 65 72 6f 3f 20 24 70 33 29   (if (zero? $p3)
0330: 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a  .          (let*
0340: 20 28 28 69 6e 70 75 74 2d 66 69 6c 65 32 20 28   ((input-file2 (
0350: 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 24  string-append "$
0360: 69 6e 32 22 29 29 0a 20 20 20 20 20 20 20 20 20  in2")).         
0370: 20 20 20 20 20 20 20 20 28 69 6d 61 67 65 32 20          (image2 
0380: 28 63 61 72 20 28 67 69 6d 70 2d 66 69 6c 65 2d  (car (gimp-file-
0390: 6c 6f 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e 54 45  load RUN-NONINTE
03a0: 52 41 43 54 49 56 45 20 69 6e 70 75 74 2d 66 69  RACTIVE input-fi
03b0: 6c 65 32 20 69 6e 70 75 74 2d 66 69 6c 65 32 29  le2 input-file2)
03c0: 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20  )) ).           
03d0: 20 28 73 65 74 21 20 62 2d 6c 61 79 65 72 20 28   (set! b-layer (
03e0: 63 61 72 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d  car (gimp-layer-
03f0: 6e 65 77 2d 66 72 6f 6d 2d 64 72 61 77 61 62 6c  new-from-drawabl
0400: 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  e .             
0410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0420: 20 20 20 20 28 63 61 72 20 28 67 69 6d 70 2d 69      (car (gimp-i
0430: 6d 61 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d  mage-get-active-
0440: 6c 61 79 65 72 20 69 6d 61 67 65 32 29 29 20 0a  layer image2)) .
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0470: 20 69 6d 61 67 65 20 29 29 29 0a 20 20 20 20 20   image ))).     
0480: 20 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61         (gimp-ima
0490: 67 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d 61  ge-add-layer ima
04a0: 67 65 20 62 2d 6c 61 79 65 72 20 31 29 0a 20 20  ge b-layer 1).  
04b0: 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d            (gimp-
04c0: 69 6d 61 67 65 2d 64 65 6c 65 74 65 20 69 6d 61  image-delete ima
04d0: 67 65 32 29 20 29 0a 20 20 20 20 20 20 20 20 20  ge2) ).         
04e0: 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20   (begin.        
04f0: 20 20 20 20 28 73 65 74 21 20 62 2d 6c 61 79 65      (set! b-laye
0500: 72 20 28 63 61 72 20 28 67 69 6d 70 2d 6c 61 79  r (car (gimp-lay
0510: 65 72 2d 6e 65 77 20 69 6d 61 67 65 20 24 77 69  er-new image $wi
0520: 64 74 68 20 24 68 65 69 67 68 74 20 0a 20 20 20  dth $height .   
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0550: 20 20 20 20 20 20 20 20 20 20 20 20 52 47 42 41              RGBA
0560: 2d 49 4d 41 47 45 20 22 62 2d 6c 61 79 65 72 22  -IMAGE "b-layer"
0570: 20 31 30 30 20 4e 4f 52 4d 41 4c 2d 4d 4f 44 45   100 NORMAL-MODE
0580: 20 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20   ))).           
0590: 20 28 67 69 6d 70 2d 63 6f 6e 74 65 78 74 2d 73   (gimp-context-s
05a0: 65 74 2d 66 6f 72 65 67 72 6f 75 6e 64 20 28 6c  et-foreground (l
05b0: 69 73 74 20 24 70 34 5f 72 65 64 20 24 70 34 5f  ist $p4_red $p4_
05c0: 67 72 65 65 6e 20 24 70 34 5f 62 6c 75 65 29 29  green $p4_blue))
05d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69  .            (gi
05e0: 6d 70 2d 64 72 61 77 61 62 6c 65 2d 66 69 6c 6c  mp-drawable-fill
05f0: 20 62 2d 6c 61 79 65 72 20 46 4f 52 45 47 52 4f   b-layer FOREGRO
0600: 55 4e 44 2d 46 49 4c 4c 29 0a 20 20 20 20 20 20  UND-FILL).      
0610: 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d 61 67        (gimp-imag
0620: 65 2d 61 64 64 2d 6c 61 79 65 72 20 69 6d 61 67  e-add-layer imag
0630: 65 20 62 2d 6c 61 79 65 72 20 31 29 20 29 29 0a  e b-layer 1) )).
0640: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 69 6d          (gimp-im
0650: 61 67 65 2d 75 6e 64 6f 2d 64 69 73 61 62 6c 65  age-undo-disable
0660: 20 69 6d 61 67 65 29 0a 20 20 20 20 20 20 20 20   image).        
0670: 28 6c 65 74 20 28 28 61 6e 67 6c 65 20 28 6e 65  (let ((angle (ne
0680: 78 74 2d 61 6e 67 6c 65 29 29 0a 20 20 20 20 20  xt-angle)).     
0690: 20 20 20 20 20 20 20 20 20 28 6d 61 73 6b 20 28           (mask (
06a0: 63 61 72 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d  car (gimp-layer-
06b0: 63 72 65 61 74 65 2d 6d 61 73 6b 20 6c 61 79 65  create-mask laye
06c0: 72 20 41 44 44 2d 57 48 49 54 45 2d 4d 41 53 4b  r ADD-WHITE-MASK
06d0: 29 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20  ))) ).          
06e0: 28 67 69 6d 70 2d 6c 61 79 65 72 2d 61 64 64 2d  (gimp-layer-add-
06f0: 6d 61 73 6b 20 6c 61 79 65 72 20 6d 61 73 6b 29  mask layer mask)
0700: 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20  .          (let 
0710: 28 28 70 30 78 20 24 70 30 29 0a 20 20 20 20 20  ((p0x $p0).     
0720: 20 20 20 20 20 20 20 20 20 20 20 28 70 30 79 20             (p0y 
0730: 28 2d 20 28 2a 20 32 20 24 68 65 69 67 68 74 29  (- (* 2 $height)
0740: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0750: 20 20 20 28 70 31 78 20 28 2b 20 24 70 30 20 28     (p1x (+ $p0 (
0760: 2a 20 32 20 28 63 6f 73 20 61 6e 67 6c 65 29 20  * 2 (cos angle) 
0770: 24 77 69 64 74 68 29 29 29 0a 20 20 20 20 20 20  $width))).      
0780: 20 20 20 20 20 20 20 20 20 20 28 70 31 79 20 28            (p1y (
0790: 2d 20 24 70 31 20 28 2a 20 32 20 28 73 69 6e 20  - $p1 (* 2 (sin 
07a0: 61 6e 67 6c 65 29 20 24 68 65 69 67 68 74 29 29  angle) $height))
07b0: 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) ).            
07c0: 28 67 69 6d 70 2d 63 6f 6e 74 65 78 74 2d 73 65  (gimp-context-se
07d0: 74 2d 66 6f 72 65 67 72 6f 75 6e 64 20 27 28 30  t-foreground '(0
07e0: 20 30 20 30 29 29 0a 20 20 20 20 20 20 20 20 20   0 0)).         
07f0: 20 20 20 28 75 6e 6c 65 73 73 20 28 3c 20 61 6e     (unless (< an
0800: 67 6c 65 20 2a 70 69 2a 29 0a 20 20 20 20 20 20  gle *pi*).      
0810: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 72 65          (gimp-re
0820: 63 74 2d 73 65 6c 65 63 74 20 69 6d 61 67 65 20  ct-select image 
0830: 30 20 30 20 24 70 30 20 24 70 31 20 43 48 41 4e  0 0 $p0 $p1 CHAN
0840: 4e 45 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20 46  NEL-OP-REPLACE F
0850: 41 4c 53 45 20 30 29 0a 20 20 20 20 20 20 20 20  ALSE 0).        
0860: 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a        (unless (z
0870: 65 72 6f 3f 20 28 63 61 72 20 28 67 69 6d 70 2d  ero? (car (gimp-
0880: 73 65 6c 65 63 74 69 6f 6e 2d 62 6f 75 6e 64 73  selection-bounds
0890: 20 69 6d 61 67 65 29 29 29 0a 20 20 20 20 20 20   image))).      
08a0: 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d            (gimp-
08b0: 65 64 69 74 2d 66 69 6c 6c 20 6d 61 73 6b 20 46  edit-fill mask F
08c0: 4f 52 45 47 52 4f 55 4e 44 2d 46 49 4c 4c 29 20  OREGROUND-FILL) 
08d0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
08e0: 28 73 65 74 21 20 70 30 78 20 28 2d 20 28 2a 20  (set! p0x (- (* 
08f0: 32 20 24 77 69 64 74 68 29 29 29 0a 20 20 20 20  2 $width))).    
0900: 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20            (set! 
0910: 70 30 79 20 24 70 31 29 20 29 0a 20 20 20 20 20  p0y $p1) ).     
0920: 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28         (unless (
0930: 3c 20 61 6e 67 6c 65 20 28 2a 20 28 2f 20 2a 70  < angle (* (/ *p
0940: 69 2a 20 32 29 20 33 29 29 0a 20 20 20 20 20 20  i* 2) 3)).      
0950: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 72 65          (gimp-re
0960: 63 74 2d 73 65 6c 65 63 74 20 69 6d 61 67 65 20  ct-select image 
0970: 30 20 24 70 31 20 24 70 30 20 28 2d 20 24 68 65  0 $p1 $p0 (- $he
0980: 69 67 68 74 20 24 70 31 29 20 43 48 41 4e 4e 45  ight $p1) CHANNE
0990: 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20 46 41 4c  L-OP-REPLACE FAL
09a0: 53 45 20 30 29 0a 20 20 20 20 20 20 20 20 20 20  SE 0).          
09b0: 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72      (unless (zer
09c0: 6f 3f 20 28 63 61 72 20 28 67 69 6d 70 2d 73 65  o? (car (gimp-se
09d0: 6c 65 63 74 69 6f 6e 2d 62 6f 75 6e 64 73 20 69  lection-bounds i
09e0: 6d 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20  mage))).        
09f0: 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d 65 64          (gimp-ed
0a00: 69 74 2d 66 69 6c 6c 20 6d 61 73 6b 20 46 4f 52  it-fill mask FOR
0a10: 45 47 52 4f 55 4e 44 2d 46 49 4c 4c 29 20 29 0a  EGROUND-FILL) ).
0a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73                (s
0a30: 65 74 21 20 70 30 78 20 24 70 30 29 0a 20 20 20  et! p0x $p0).   
0a40: 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21             (set!
0a50: 20 70 30 79 20 28 2a 20 32 20 24 68 65 69 67 68   p0y (* 2 $heigh
0a60: 74 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20  t)) ).          
0a70: 20 20 28 75 6e 6c 65 73 73 20 28 3c 20 61 6e 67    (unless (< ang
0a80: 6c 65 20 28 2a 20 2a 70 69 2a 20 32 29 29 0a 20  le (* *pi* 2)). 
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69               (gi
0aa0: 6d 70 2d 72 65 63 74 2d 73 65 6c 65 63 74 20 69  mp-rect-select i
0ab0: 6d 61 67 65 20 24 70 30 20 24 70 31 20 28 2d 20  mage $p0 $p1 (- 
0ac0: 24 77 69 64 74 68 20 24 70 30 29 20 28 2d 20 24  $width $p0) (- $
0ad0: 68 65 69 67 68 74 20 24 70 31 29 20 43 48 41 4e  height $p1) CHAN
0ae0: 4e 45 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20 46  NEL-OP-REPLACE F
0af0: 41 4c 53 45 20 30 29 0a 20 20 20 20 20 20 20 20  ALSE 0).        
0b00: 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a        (unless (z
0b10: 65 72 6f 3f 20 28 63 61 72 20 28 67 69 6d 70 2d  ero? (car (gimp-
0b20: 73 65 6c 65 63 74 69 6f 6e 2d 62 6f 75 6e 64 73  selection-bounds
0b30: 20 69 6d 61 67 65 29 29 29 0a 20 20 20 20 20 20   image))).      
0b40: 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70 2d            (gimp-
0b50: 65 64 69 74 2d 66 69 6c 6c 20 6d 61 73 6b 20 46  edit-fill mask F
0b60: 4f 52 45 47 52 4f 55 4e 44 2d 46 49 4c 4c 29 20  OREGROUND-FILL) 
0b70: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
0b80: 28 73 65 74 21 20 70 30 78 20 28 2a 20 32 20 24  (set! p0x (* 2 $
0b90: 77 69 64 74 68 29 29 0a 20 20 20 20 20 20 20 20  width)).        
0ba0: 20 20 20 20 20 20 28 73 65 74 21 20 70 30 79 20        (set! p0y 
0bb0: 24 70 31 29 20 29 0a 20 20 20 20 20 20 20 20 20  $p1) ).         
0bc0: 20 20 20 28 67 69 6d 70 2d 66 72 65 65 2d 73 65     (gimp-free-se
0bd0: 6c 65 63 74 20 69 6d 61 67 65 20 36 20 28 76 65  lect image 6 (ve
0be0: 63 74 6f 72 20 70 30 78 20 70 30 79 20 24 70 30  ctor p0x p0y $p0
0bf0: 20 24 70 31 20 70 31 78 20 70 31 79 29 0a 20 20   $p1 p1x p1y).  
0c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c10: 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41 4e              CHAN
0c20: 4e 45 4c 2d 4f 50 2d 52 45 50 4c 41 43 45 20 54  NEL-OP-REPLACE T
0c30: 52 55 45 20 46 41 4c 53 45 20 30 20 29 0a 20 20  RUE FALSE 0 ).  
0c40: 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73            (unles
0c50: 73 20 28 7a 65 72 6f 3f 20 28 63 61 72 20 28 67  s (zero? (car (g
0c60: 69 6d 70 2d 73 65 6c 65 63 74 69 6f 6e 2d 62 6f  imp-selection-bo
0c70: 75 6e 64 73 20 69 6d 61 67 65 29 29 29 0a 20 20  unds image))).  
0c80: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
0c90: 70 2d 65 64 69 74 2d 66 69 6c 6c 20 6d 61 73 6b  p-edit-fill mask
0ca0: 20 46 4f 52 45 47 52 4f 55 4e 44 2d 46 49 4c 4c   FOREGROUND-FILL
0cb0: 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) ).            
0cc0: 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 69 6d  ).          (gim
0cd0: 70 2d 73 65 6c 65 63 74 69 6f 6e 2d 6e 6f 6e 65  p-selection-none
0ce0: 20 69 6d 61 67 65 29 0a 20 20 20 20 20 20 20 20   image).        
0cf0: 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 3f 20 24    (when (zero? $
0d00: 70 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  p2).            
0d10: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 74  (gimp-drawable-t
0d20: 72 61 6e 73 66 6f 72 6d 2d 66 6c 69 70 2d 73 69  ransform-flip-si
0d30: 6d 70 6c 65 20 6d 61 73 6b 20 0a 20 20 20 20 20  mple mask .     
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d60: 20 20 20 20 20 20 20 20 20 20 20 20 4f 52 49 45              ORIE
0d70: 4e 54 41 54 49 4f 4e 2d 48 4f 52 49 5a 4f 4e 54  NTATION-HORIZONT
0d80: 41 4c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20  AL .            
0d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0db0: 20 20 20 20 20 46 41 4c 53 45 20 0a 20 20 20 20       FALSE .    
0dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 70 30               $p0
0df0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
0e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e20: 20 20 20 54 52 55 45 20 29 29 0a 20 20 20 20 20     TRUE )).     
0e30: 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 28       ).        (
0e40: 67 69 6d 70 2d 69 6d 61 67 65 2d 6d 65 72 67 65  gimp-image-merge
0e50: 2d 76 69 73 69 62 6c 65 2d 6c 61 79 65 72 73 20  -visible-layers 
0e60: 69 6d 61 67 65 20 43 4c 49 50 2d 54 4f 2d 49 4d  image CLIP-TO-IM
0e70: 41 47 45 29 0a 20 20 20 20 20 20 20 20 28 72 66  AGE).        (rf
0e80: 78 2d 73 61 76 65 2d 66 72 61 6d 65 20 69 6d 61  x-save-frame ima
0e90: 67 65 20 22 24 6f 75 74 22 29 20 0a 20 20 20 20  ge "$out") .    
0ea0: 20 20 20 20 29 0a 20 20 20 20 20 20 29 0a 20 20      ).      ).  
0eb0: 20 20 7d 0a 20 20 29 3b 0a                         }.  );.