RFX-GIMP

Hex Artifact Content
Login

Artifact b7f534063fd6d4fafe541729a2d00a789f42e5af:


0000: 53 63 72 69 70 74 20 66 69 6c 65 20 67 65 6e 65  Script file gene
0010: 72 61 74 65 64 20 66 72 6f 6d 20 4c 69 56 45 53  rated from LiVES
0020: 0a 0a 3c 64 65 66 69 6e 65 3e 0a 7c 31 2e 37 0a  ..<define>.|1.7.
0030: 3c 2f 64 65 66 69 6e 65 3e 0a 0a 3c 6e 61 6d 65  </define>..<name
0040: 3e 0a 67 61 70 2d 65 64 69 74 0a 3c 2f 6e 61 6d  >.gap-edit.</nam
0050: 65 3e 0a 0a 3c 76 65 72 73 69 6f 6e 3e 0a 31 0a  e>..<version>.1.
0060: 3c 2f 76 65 72 73 69 6f 6e 3e 0a 0a 3c 61 75 74  </version>..<aut
0070: 68 6f 72 3e 0a 73 61 75 6c 67 6f 6f 64 65 7c 0a  hor>.saulgoode|.
0080: 3c 2f 61 75 74 68 6f 72 3e 0a 0a 3c 64 65 73 63  </author>..<desc
0090: 72 69 70 74 69 6f 6e 3e 0a 45 64 69 74 20 69 6e  ription>.Edit in
00a0: 20 47 49 4d 50 2d 47 41 50 7c 49 6d 70 6f 72 74   GIMP-GAP|Import
00b0: 69 6e 67 20 66 72 6f 6d 20 47 41 50 7c 31 7c 31  ing from GAP|1|1
00c0: 7c 0a 3c 2f 64 65 73 63 72 69 70 74 69 6f 6e 3e  |.</description>
00d0: 0a 0a 3c 72 65 71 75 69 72 65 73 3e 0a 67 69 6d  ..<requires>.gim
00e0: 70 0a 3c 2f 72 65 71 75 69 72 65 73 3e 0a 0a 3c  p.</requires>..<
00f0: 70 61 72 61 6d 73 3e 0a 6d 65 73 73 61 67 65 7c  params>.message|
0100: 45 64 69 74 20 6e 6f 77 20 69 6e 20 47 41 50 2c  Edit now in GAP,
0110: 20 63 6c 69 63 6b 20 4f 4b 20 6f 6e 6c 79 20 61   click OK only a
0120: 66 74 65 72 20 79 6f 75 20 68 61 76 65 20 66 69  fter you have fi
0130: 6e 69 73 68 65 64 2e 7c 62 6f 6f 6c 7c 31 7c 0a  nished.|bool|1|.
0140: 3c 2f 70 61 72 61 6d 73 3e 0a 0a 3c 70 61 72 61  </params>..<para
0150: 6d 5f 77 69 6e 64 6f 77 3e 0a 3c 2f 70 61 72 61  m_window>.</para
0160: 6d 5f 77 69 6e 64 6f 77 3e 0a 0a 3c 70 72 6f 70  m_window>..<prop
0170: 65 72 74 69 65 73 3e 0a 30 78 30 30 30 31 0a 3c  erties>.0x0001.<
0180: 2f 70 72 6f 70 65 72 74 69 65 73 3e 0a 0a 3c 6c  /properties>..<l
0190: 61 6e 67 75 61 67 65 5f 63 6f 64 65 3e 0a 30 78  anguage_code>.0x
01a0: 46 30 0a 3c 2f 6c 61 6e 67 75 61 67 65 5f 63 6f  F0.</language_co
01b0: 64 65 3e 0a 0a 3c 70 72 65 3e 0a 23 20 72 65 63  de>..<pre>.# rec
01c0: 6f 6e 6e 65 63 74 20 74 6f 20 73 65 72 76 65 72  onnect to server
01d0: 0a 0a 75 73 65 20 49 4f 3a 3a 53 6f 63 6b 65 74  ..use IO::Socket
01e0: 3b 0a 75 73 65 20 54 65 78 74 3a 3a 42 61 6c 61  ;.use Text::Bala
01f0: 6e 63 65 64 3b 0a 0a 24 69 6d 67 5f 65 78 74 3d  nced;..$img_ext=
0200: 22 2e 70 6e 67 22 3b 20 23 20 74 68 69 73 20 69  ".png"; # this i
0210: 73 20 6e 6f 74 20 73 65 74 20 66 6f 72 20 74 72  s not set for tr
0220: 69 67 67 65 72 20 63 6f 64 65 2e 0a 0a 69 66 20  igger code...if 
0230: 28 24 45 4e 56 7b 27 52 46 58 47 49 4d 50 5f 50  ($ENV{'RFXGIMP_P
0240: 4f 52 54 27 7d 29 20 7b 0a 20 20 24 72 66 78 5f  ORT'}) {.  $rfx_
0250: 70 6f 72 74 20 3d 20 24 45 4e 56 7b 27 52 46 58  port = $ENV{'RFX
0260: 47 49 4d 50 5f 50 4f 52 54 27 7d 3b 0a 20 20 7d  GIMP_PORT'};.  }
0270: 0a 65 6c 73 65 20 7b 0a 20 20 24 72 66 78 5f 70  .else {.  $rfx_p
0280: 6f 72 74 20 3d 20 31 30 30 30 38 3b 0a 20 20 7d  ort = 10008;.  }
0290: 0a 0a 24 73 6f 63 6b 20 3d 20 6e 65 77 20 49 4f  ..$sock = new IO
02a0: 3a 3a 53 6f 63 6b 65 74 3a 3a 49 4e 45 54 20 28  ::Socket::INET (
02b0: 20 50 65 65 72 41 64 64 72 20 3d 3e 20 27 6c 6f   PeerAddr => 'lo
02c0: 63 61 6c 68 6f 73 74 27 2c 0a 20 20 20 20 20 20  calhost',.      
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02e0: 20 20 20 20 20 20 20 20 20 50 65 65 72 50 6f 72           PeerPor
02f0: 74 20 3d 3e 20 24 72 66 78 5f 70 6f 72 74 2c 0a  t => $rfx_port,.
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
0320: 72 6f 74 6f 20 3d 3e 20 27 74 63 70 27 0a 20 20  roto => 'tcp'.  
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 0a               );.
0350: 69 66 20 28 20 6e 6f 74 20 64 65 66 69 6e 65 64  if ( not defined
0360: 20 24 73 6f 63 6b 20 29 20 7b 0a 20 20 6d 79 20   $sock ) {.  my 
0370: 24 72 66 78 5f 70 69 64 20 3d 20 66 6f 72 6b 28  $rfx_pid = fork(
0380: 29 3b 0a 20 20 69 66 20 28 6e 6f 74 20 64 65 66  );.  if (not def
0390: 69 6e 65 64 20 24 72 66 78 5f 70 69 64 29 20 7b  ined $rfx_pid) {
03a0: 0a 20 20 20 20 26 73 69 67 5f 65 72 72 6f 72 28  .    &sig_error(
03b0: 22 55 4e 41 42 4c 45 20 54 4f 20 45 58 45 43 55  "UNABLE TO EXECU
03c0: 54 45 20 47 49 4d 50 3a 20 4e 6f 74 20 65 6e 6f  TE GIMP: Not eno
03d0: 75 67 68 20 72 65 73 6f 75 72 63 65 73 22 29 3b  ugh resources");
03e0: 0a 20 20 20 20 7d 0a 20 20 65 6c 73 69 66 20 28  .    }.  elsif (
03f0: 24 72 66 78 5f 70 69 64 20 3d 3d 20 30 29 20 7b  $rfx_pid == 0) {
0400: 0a 20 20 20 20 69 66 20 28 20 2d 66 20 24 74 6d  .    if ( -f $tm
0410: 70 64 69 72 20 2e 20 22 72 66 78 67 69 6d 70 2e  pdir . "rfxgimp.
0420: 70 69 64 22 29 20 7b 0a 20 20 20 20 20 20 6f 70  pid") {.      op
0430: 65 6e 28 50 49 44 46 49 4c 45 2c 20 24 74 6d 70  en(PIDFILE, $tmp
0440: 64 69 72 20 2e 20 22 72 66 78 67 69 6d 70 2e 70  dir . "rfxgimp.p
0450: 69 64 22 29 3b 0a 20 20 20 20 20 20 23 20 73 68  id");.      # sh
0460: 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 64 6f  ould probably do
0470: 20 73 6f 6d 65 20 73 61 6e 69 74 79 20 63 68 65   some sanity che
0480: 63 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6f 66  cking for the of
0490: 66 20 63 68 61 6e 63 65 20 74 68 61 74 0a 20 20  f chance that.  
04a0: 20 20 20 20 23 20 74 68 65 20 50 49 44 20 68 61      # the PID ha
04b0: 73 20 62 65 65 6e 20 72 65 63 79 63 6c 65 64 20  s been recycled 
04c0: 6f 72 20 74 68 65 20 73 79 73 74 65 6d 20 68 61  or the system ha
04d0: 73 20 72 65 62 6f 6f 74 65 64 20 28 65 2e 67 2c  s rebooted (e.g,
04e0: 20 63 68 65 63 6b 0a 20 20 20 20 20 20 23 20 69   check.      # i
04f0: 66 20 70 72 6f 63 65 73 73 20 77 61 73 20 65 78  f process was ex
0500: 65 63 75 74 65 64 20 77 69 74 68 20 2f 75 73 72  ecuted with /usr
0510: 2f 62 69 6e 2f 70 65 72 6c 2e 20 42 75 74 20 66  /bin/perl. But f
0520: 6f 72 20 6e 6f 77 2e 2e 2e 0a 20 20 20 20 20 20  or now....      
0530: 6b 69 6c 6c 28 31 35 2c 20 2d 3c 50 49 44 46 49  kill(15, -<PIDFI
0540: 4c 45 3e 29 3b 20 23 20 74 68 65 20 6e 65 67 61  LE>); # the nega
0550: 74 69 76 65 20 50 49 44 20 6d 65 61 6e 73 20 6b  tive PID means k
0560: 69 6c 6c 20 61 6c 6c 20 63 68 69 6c 64 72 65 6e  ill all children
0570: 2c 20 74 6f 6f 2e 0a 20 20 20 20 20 20 63 6c 6f  , too..      clo
0580: 73 65 28 50 49 44 46 49 4c 45 29 3b 0a 20 20 20  se(PIDFILE);.   
0590: 20 20 20 7d 0a 20 20 20 20 73 65 74 70 67 69 64     }.    setpgid
05a0: 28 24 24 2c 30 29 3b 20 23 20 63 68 61 6e 67 65  ($$,0); # change
05b0: 20 74 68 65 20 70 67 72 6f 75 70 20 74 6f 20 74   the pgroup to t
05c0: 68 69 73 20 66 6f 72 6b 65 64 20 70 72 6f 63 65  his forked proce
05d0: 73 73 2c 20 72 61 74 68 65 72 20 74 68 61 6e 0a  ss, rather than.
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05f0: 20 20 20 23 20 74 68 65 20 6f 72 69 67 69 6e 61     # the origina
0600: 6c 20 4c 69 56 45 53 20 28 73 6f 20 74 68 61 74  l LiVES (so that
0610: 20 77 65 20 64 6f 6e 27 74 20 6b 69 6c 6c 20 4c   we don't kill L
0620: 69 56 45 53 20 77 68 65 6e 0a 20 20 20 20 20 20  iVES when.      
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 74               # t
0640: 68 69 73 20 70 72 67 72 6f 75 70 20 69 73 20 6b  his prgroup is k
0650: 69 6c 6c 65 64 29 2e 0a 20 20 20 20 6f 70 65 6e  illed)..    open
0660: 28 50 49 44 46 49 4c 45 2c 20 22 3e 22 20 2e 20  (PIDFILE, ">" . 
0670: 24 74 6d 70 64 69 72 20 2e 20 22 72 66 78 67 69  $tmpdir . "rfxgi
0680: 6d 70 2e 70 69 64 22 29 3b 20 23 20 6f 76 65 72  mp.pid"); # over
0690: 77 72 69 74 65 20 6f 6c 64 20 66 69 6c 65 0a 20  write old file. 
06a0: 20 20 20 70 72 69 6e 74 20 50 49 44 46 49 4c 45     print PIDFILE
06b0: 20 24 24 3b 0a 20 20 20 20 63 6c 6f 73 65 28 50   $$;.    close(P
06c0: 49 44 46 49 4c 45 29 3b 0a 20 20 20 20 6d 79 20  IDFILE);.    my 
06d0: 24 73 74 61 72 74 5f 67 69 6d 70 20 3d 20 71 71  $start_gimp = qq
06e0: 7b 20 67 69 6d 70 20 2d 69 20 2d 62 20 22 28 70  { gimp -i -b "(p
06f0: 6c 75 67 2d 69 6e 2d 73 63 72 69 70 74 2d 66 75  lug-in-script-fu
0700: 2d 73 65 72 76 65 72 20 31 20 24 72 66 78 5f 70  -server 1 $rfx_p
0710: 6f 72 74 20 5c 5c 5c 22 5c 5c 5c 22 29 22 20 26  ort \\\"\\\")" &
0720: 20 7d 3b 0a 20 20 20 20 73 79 73 74 65 6d 20 28   };.    system (
0730: 20 24 73 74 61 72 74 5f 67 69 6d 70 20 29 3b 20   $start_gimp ); 
0740: 23 20 74 68 6f 75 67 68 20 73 74 61 72 74 65 64  # though started
0750: 20 61 73 20 73 65 70 61 72 61 74 65 20 70 72 6f   as separate pro
0760: 63 65 73 73 2c 20 47 49 4d 50 20 6e 6f 77 0a 20  cess, GIMP now. 
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0780: 20 20 20 20 20 20 20 20 20 20 20 23 20 69 73 20             # is 
0790: 70 61 72 74 20 6f 66 20 74 68 69 73 20 73 70 61  part of this spa
07a0: 77 6e 65 64 20 63 68 69 6c 64 27 73 20 70 67 72  wned child's pgr
07b0: 6f 75 70 2c 20 6e 6f 74 20 74 68 65 20 4c 69 56  oup, not the LiV
07c0: 45 53 20 70 67 72 6f 75 70 0a 20 20 20 20 73 6c  ES pgroup.    sl
07d0: 65 65 70 28 29 3b 20 23 20 64 6f 20 6e 6f 74 68  eep(); # do noth
07e0: 69 6e 67 2c 20 66 6f 72 65 76 65 72 0a 20 20 20  ing, forever.   
07f0: 20 26 73 69 67 5f 65 72 72 6f 72 28 22 47 49 4d   &sig_error("GIM
0800: 50 20 6b 69 6c 6c 65 64 20 62 79 20 65 78 74 65  P killed by exte
0810: 72 6e 61 6c 20 70 72 6f 63 65 73 73 5c 6e 22 29  rnal process\n")
0820: 3b 0a 20 20 20 20 7d 0a 20 20 65 6c 73 65 20 7b  ;.    }.  else {
0830: 0a 20 20 20 20 77 68 69 6c 65 20 28 6e 6f 74 20  .    while (not 
0840: 64 65 66 69 6e 65 64 20 24 73 6f 63 6b 29 20 7b  defined $sock) {
0850: 0a 20 20 20 20 20 20 73 6c 65 65 70 20 28 31 29  .      sleep (1)
0860: 3b 0a 20 20 20 20 20 20 24 73 6f 63 6b 20 3d 20  ;.      $sock = 
0870: 6e 65 77 20 49 4f 3a 3a 53 6f 63 6b 65 74 3a 3a  new IO::Socket::
0880: 49 4e 45 54 20 28 20 50 65 65 72 41 64 64 72 20  INET ( PeerAddr 
0890: 3d 3e 20 27 6c 6f 63 61 6c 68 6f 73 74 27 2c 0a  => 'localhost',.
08a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
08b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
08c0: 20 20 20 20 20 50 65 65 72 50 6f 72 74 20 3d 3e       PeerPort =>
08d0: 20 24 72 66 78 5f 70 6f 72 74 2c 0a 20 20 20 20   $rfx_port,.    
08e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
08f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0900: 20 50 72 6f 74 6f 20 3d 3e 20 27 74 63 70 27 0a   Proto => 'tcp'.
0910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0930: 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 7d 0a       );.      }.
0940: 20 20 20 20 7d 0a 20 20 7d 0a 3c 2f 70 72 65 3e      }.  }.</pre>
0950: 0a 0a 3c 6c 6f 6f 70 3e 0a 26 72 66 78 5f 73 65  ..<loop>.&rfx_se
0960: 6e 64 6d 73 67 28 20 71 71 7b 0a 20 20 28 62 65  ndmsg( qq{.  (be
0970: 67 69 6e 0a 20 20 20 20 28 6c 65 74 2a 20 28 28  gin.    (let* ((
0980: 62 61 73 65 6e 61 6d 65 20 28 63 61 72 20 28 73  basename (car (s
0990: 74 72 62 72 65 61 6b 75 70 20 28 63 61 72 20 28  trbreakup (car (
09a0: 6c 61 73 74 20 28 73 74 72 62 72 65 61 6b 75 70  last (strbreakup
09b0: 20 22 24 69 6e 22 20 44 49 52 2d 53 45 50 41 52   "$in" DIR-SEPAR
09c0: 41 54 4f 52 29 29 29 20 22 24 69 6d 67 5f 65 78  ATOR))) "$img_ex
09d0: 74 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20  t"))).          
09e0: 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 28 73 74   (input-file (st
09f0: 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 24 63 75  ring-append "$cu
0a00: 72 74 6d 70 64 69 72 22 20 22 2f 67 61 70 2d 63  rtmpdir" "/gap-c
0a10: 6c 69 70 22 20 44 49 52 2d 53 45 50 41 52 41 54  lip" DIR-SEPARAT
0a20: 4f 52 20 62 61 73 65 6e 61 6d 65 20 22 2e 78 63  OR basename ".xc
0a30: 66 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20  f")).           
0a40: 28 69 6d 61 67 65 20 28 63 61 72 20 28 67 69 6d  (image (car (gim
0a50: 70 2d 66 69 6c 65 2d 6c 6f 61 64 20 52 55 4e 2d  p-file-load RUN-
0a60: 4e 4f 4e 49 4e 54 45 52 41 43 54 49 56 45 20 69  NONINTERACTIVE i
0a70: 6e 70 75 74 2d 66 69 6c 65 20 69 6e 70 75 74 2d  nput-file input-
0a80: 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20  file))).        
0a90: 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 79 65             (laye
0aa0: 72 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d 61  r (car (gimp-ima
0ab0: 67 65 2d 67 65 74 2d 61 63 74 69 76 65 2d 6c 61  ge-get-active-la
0ac0: 79 65 72 20 69 6d 61 67 65 29 29 29 20 29 0a 20  yer image))) ). 
0ad0: 20 20 20 20 20 28 72 66 78 2d 73 61 76 65 2d 66       (rfx-save-f
0ae0: 72 61 6d 65 20 69 6d 61 67 65 20 22 24 6f 75 74  rame image "$out
0af0: 22 29 20 0a 20 20 20 20 20 20 29 0a 20 20 20 20  ") .      ).    
0b00: 29 0a 20 20 20 20 7d 0a 20 20 29 3b 0a 0a 3c 2f  ).    }.  );..</
0b10: 6c 6f 6f 70 3e 0a 0a 3c 70 6f 73 74 3e 0a 75 73  loop>..<post>.us
0b20: 65 20 46 69 6c 65 3a 3a 50 61 74 68 3b 0a 6d 79  e File::Path;.my
0b30: 20 24 72 66 78 5f 67 61 70 5f 64 69 72 20 3d 20   $rfx_gap_dir = 
0b40: 22 2e 2f 67 61 70 2d 63 6c 69 70 22 3b 0a 23 2d  "./gap-clip";.#-
0b50: 2d 20 72 65 6d 6f 76 65 20 74 68 65 20 47 41 50  - remove the GAP
0b60: 20 64 69 72 65 63 74 6f 72 79 0a 69 66 20 28 2d   directory.if (-
0b70: 64 20 24 72 66 78 5f 67 61 70 5f 64 69 72 29 20  d $rfx_gap_dir) 
0b80: 7b 0a 20 20 72 6d 74 72 65 65 28 24 72 66 78 5f  {.  rmtree($rfx_
0b90: 67 61 70 5f 64 69 72 29 3b 0a 20 20 7d 3b 0a 3c  gap_dir);.  };.<
0ba0: 2f 70 6f 73 74 3e 0a 0a 3c 6f 6e 63 68 61 6e 67  /post>..<onchang
0bb0: 65 3e 0a 69 6e 69 74 7c 23 20 54 68 69 73 20 70  e>.init|# This p
0bc0: 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73  rogram is free s
0bd0: 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e  oftware; you can
0be0: 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74   redistribute it
0bf0: 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 69   and/or modify.i
0c00: 6e 69 74 7c 23 20 69 74 20 75 6e 64 65 72 20 74  nit|# it under t
0c10: 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20  he terms of the 
0c20: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c  GNU General Publ
0c30: 69 63 20 4c 69 63 65 6e 73 65 20 76 65 72 73 69  ic License versi
0c40: 6f 6e 20 33 20 6f 72 20 68 69 67 68 65 72 0a 69  on 3 or higher.i
0c50: 6e 69 74 7c 23 20 61 73 20 70 75 62 6c 69 73 68  nit|# as publish
0c60: 65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53  ed by the Free S
0c70: 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69  oftware Foundati
0c80: 6f 6e 2e 0a 69 6e 69 74 7c 0a 69 6e 69 74 7c 23  on..init|.init|#
0c90: 20 46 6f 72 20 67 61 70 2d 65 64 69 74 20 6d 75   For gap-edit mu
0ca0: 63 68 20 6f 66 20 74 68 65 20 73 65 74 75 70 20  ch of the setup 
0cb0: 74 68 61 74 20 69 73 20 74 79 70 69 63 61 6c 6c  that is typicall
0cc0: 79 20 70 65 72 66 6f 72 6d 65 64 0a 69 6e 69 74  y performed.init
0cd0: 7c 23 20 69 6e 20 70 72 65 6c 6f 6f 70 20 69 73  |# in preloop is
0ce0: 20 64 6f 6e 65 20 69 6e 20 69 6e 69 74 2e 20 54   done in init. T
0cf0: 68 69 73 20 69 73 20 73 6f 20 74 68 61 74 20 63  his is so that c
0d00: 6c 6f 73 69 6e 67 20 6f 66 20 74 68 65 0a 69 6e  losing of the.in
0d10: 69 74 7c 23 20 64 69 61 6c 6f 67 20 63 61 6e 20  it|# dialog can 
0d20: 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 69  be used as the i
0d30: 6e 64 69 63 61 74 6f 72 20 74 68 61 74 20 74 68  ndicator that th
0d40: 65 20 75 73 65 72 20 68 61 73 0a 69 6e 69 74 7c  e user has.init|
0d50: 23 20 63 6f 6d 70 6c 65 74 65 64 20 68 69 73 20  # completed his 
0d60: 65 64 69 74 69 6e 67 20 69 6e 20 47 41 50 2e 0a  editing in GAP..
0d70: 69 6e 69 74 7c 23 0a 69 6e 69 74 7c 23 20 53 74  init|#.init|# St
0d80: 65 70 73 20 69 6e 20 6f 76 65 72 61 6c 6c 20 70  eps in overall p
0d90: 72 6f 63 65 73 73 3a 0a 69 6e 69 74 7c 23 20 20  rocess:.init|#  
0da0: 69 6e 69 74 3a 20 65 6e 73 75 72 65 20 52 46 58  init: ensure RFX
0db0: 2d 47 49 4d 50 20 64 61 65 6d 6f 6e 20 69 73 20  -GIMP daemon is 
0dc0: 72 75 6e 6e 69 6e 67 20 61 73 20 70 65 72 20 75  running as per u
0dd0: 73 75 61 6c 0a 69 6e 69 74 7c 23 20 20 20 20 20  sual.init|#     
0de0: 20 20 20 6d 61 6b 65 20 6f 72 20 63 6c 65 61 6e     make or clean
0df0: 20 6f 75 74 20 64 69 72 65 63 74 6f 72 79 20 24   out directory $
0e00: 63 75 72 74 6d 70 64 69 72 2f 67 61 70 2d 63 6c  curtmpdir/gap-cl
0e10: 69 70 0a 69 6e 69 74 7c 23 20 20 20 20 20 20 20  ip.init|#       
0e20: 20 26 6d 6b 6e 61 6d 65 20 61 6c 6c 20 66 72 61   &mkname all fra
0e30: 6d 65 73 20 69 6e 20 73 65 6c 65 63 74 69 6f 6e  mes in selection
0e40: 20 28 67 75 61 72 61 6e 74 65 65 20 74 68 65 79   (guarantee they
0e50: 20 65 78 69 73 74 29 0a 69 6e 69 74 7c 23 20 20   exist).init|#  
0e60: 20 20 20 20 20 20 63 6f 70 79 20 28 75 73 69 6e        copy (usin
0e70: 67 20 72 66 78 2d 67 69 6d 70 20 73 65 72 76 65  g rfx-gimp serve
0e80: 72 29 20 73 65 6c 65 63 74 69 6f 6e 20 61 73 20  r) selection as 
0e90: 58 43 46 20 74 6f 20 67 61 70 2d 63 6c 69 70 0a  XCF to gap-clip.
0ea0: 69 6e 69 74 7c 23 20 20 20 20 20 20 20 20 72 75  init|#        ru
0eb0: 6e 20 67 69 6d 70 20 24 66 69 72 73 74 0a 69 6e  n gimp $first.in
0ec0: 69 74 7c 23 20 20 20 20 20 20 20 20 64 69 73 70  it|#        disp
0ed0: 6c 61 79 20 70 61 72 61 6d 20 77 69 6e 64 6f 77  lay param window
0ee0: 20 28 6d 65 73 73 61 67 65 20 74 6f 20 70 72 65   (message to pre
0ef0: 73 73 20 4f 4b 20 77 68 65 6e 20 64 6f 6e 65 20  ss OK when done 
0f00: 65 64 69 74 69 6e 67 29 0a 69 6e 69 74 7c 23 20  editing).init|# 
0f10: 20 70 72 65 3a 20 20 6e 6f 20 6f 70 0a 69 6e 69   pre:  no op.ini
0f20: 74 7c 23 20 20 6c 6f 6f 70 3a 20 6e 6f 20 6f 70  t|#  loop: no op
0f30: 0a 69 6e 69 74 7c 23 20 20 70 6f 73 74 3a 20 62  .init|#  post: b
0f40: 61 63 6b 75 70 20 61 6c 6c 20 73 6f 75 72 63 65  ackup all source
0f50: 20 66 72 61 6d 65 73 20 28 66 6f 72 20 55 4e 44   frames (for UND
0f60: 4f 29 0a 69 6e 69 74 7c 23 20 20 20 20 20 20 20  O).init|#       
0f70: 20 63 6f 6e 76 65 72 74 20 28 75 73 69 6e 67 20   convert (using 
0f80: 72 66 78 2d 67 69 6d 70 20 73 65 72 76 65 72 29  rfx-gimp server)
0f90: 20 58 43 46 20 66 72 61 6d 65 73 20 74 6f 20 24   XCF frames to $
0fa0: 69 6d 67 5f 65 78 74 20 69 6e 20 24 69 6e 0a 69  img_ext in $in.i
0fb0: 6e 69 74 7c 23 20 20 20 20 20 20 20 20 64 65 6c  nit|#        del
0fc0: 65 74 65 20 58 43 46 20 66 72 61 6d 65 73 0a 69  ete XCF frames.i
0fd0: 6e 69 74 7c 0a 69 6e 69 74 7c 75 73 65 20 49 4f  nit|.init|use IO
0fe0: 3a 3a 53 6f 63 6b 65 74 3b 0a 69 6e 69 74 7c 75  ::Socket;.init|u
0ff0: 73 65 20 54 65 78 74 3a 3a 42 61 6c 61 6e 63 65  se Text::Balance
1000: 64 3b 0a 69 6e 69 74 7c 0a 69 6e 69 74 7c 24 69  d;.init|.init|$i
1010: 6d 67 5f 65 78 74 3d 22 2e 70 6e 67 22 3b 20 23  mg_ext=".png"; #
1020: 20 74 68 69 73 20 69 73 20 6e 6f 74 20 73 65 74   this is not set
1030: 20 66 6f 72 20 74 72 69 67 67 65 72 20 63 6f 64   for trigger cod
1040: 65 2e 0a 69 6e 69 74 7c 0a 69 6e 69 74 7c 69 66  e..init|.init|if
1050: 20 28 24 45 4e 56 7b 27 52 46 58 47 49 4d 50 5f   ($ENV{'RFXGIMP_
1060: 50 4f 52 54 27 7d 29 20 7b 0a 69 6e 69 74 7c 20  PORT'}) {.init| 
1070: 20 24 72 66 78 5f 70 6f 72 74 20 3d 20 24 45 4e   $rfx_port = $EN
1080: 56 7b 27 52 46 58 47 49 4d 50 5f 50 4f 52 54 27  V{'RFXGIMP_PORT'
1090: 7d 3b 0a 69 6e 69 74 7c 20 20 7d 0a 69 6e 69 74  };.init|  }.init
10a0: 7c 65 6c 73 65 20 7b 0a 69 6e 69 74 7c 20 20 24  |else {.init|  $
10b0: 72 66 78 5f 70 6f 72 74 20 3d 20 31 30 30 30 38  rfx_port = 10008
10c0: 3b 0a 69 6e 69 74 7c 20 20 7d 0a 69 6e 69 74 7c  ;.init|  }.init|
10d0: 0a 69 6e 69 74 7c 24 73 6f 63 6b 20 3d 20 6e 65  .init|$sock = ne
10e0: 77 20 49 4f 3a 3a 53 6f 63 6b 65 74 3a 3a 49 4e  w IO::Socket::IN
10f0: 45 54 20 28 20 50 65 65 72 41 64 64 72 20 3d 3e  ET ( PeerAddr =>
1100: 20 27 6c 6f 63 61 6c 68 6f 73 74 27 2c 0a 69 6e   'localhost',.in
1110: 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20  it|             
1120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1130: 20 20 50 65 65 72 50 6f 72 74 20 3d 3e 20 24 72    PeerPort => $r
1140: 66 78 5f 70 6f 72 74 2c 0a 69 6e 69 74 7c 20 20  fx_port,.init|  
1150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1160: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f               Pro
1170: 74 6f 20 3d 3e 20 27 74 63 70 27 0a 69 6e 69 74  to => 'tcp'.init
1180: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
1190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11a0: 29 3b 0a 69 6e 69 74 7c 69 66 20 28 20 6e 6f 74  );.init|if ( not
11b0: 20 64 65 66 69 6e 65 64 20 24 73 6f 63 6b 20 29   defined $sock )
11c0: 20 7b 0a 69 6e 69 74 7c 20 20 6d 79 20 24 72 66   {.init|  my $rf
11d0: 78 5f 70 69 64 20 3d 20 66 6f 72 6b 28 29 3b 0a  x_pid = fork();.
11e0: 69 6e 69 74 7c 20 20 69 66 20 28 6e 6f 74 20 64  init|  if (not d
11f0: 65 66 69 6e 65 64 20 24 72 66 78 5f 70 69 64 29  efined $rfx_pid)
1200: 20 7b 0a 69 6e 69 74 7c 20 20 20 20 26 73 69 67   {.init|    &sig
1210: 5f 65 72 72 6f 72 28 22 55 4e 41 42 4c 45 20 54  _error("UNABLE T
1220: 4f 20 45 58 45 43 55 54 45 20 47 49 4d 50 3a 20  O EXECUTE GIMP: 
1230: 4e 6f 74 20 65 6e 6f 75 67 68 20 72 65 73 6f 75  Not enough resou
1240: 72 63 65 73 22 29 3b 0a 69 6e 69 74 7c 20 20 20  rces");.init|   
1250: 20 7d 0a 69 6e 69 74 7c 20 20 65 6c 73 69 66 20   }.init|  elsif 
1260: 28 24 72 66 78 5f 70 69 64 20 3d 3d 20 30 29 20  ($rfx_pid == 0) 
1270: 7b 0a 69 6e 69 74 7c 20 20 20 20 69 66 20 28 20  {.init|    if ( 
1280: 2d 66 20 24 74 6d 70 64 69 72 20 2e 20 22 72 66  -f $tmpdir . "rf
1290: 78 67 69 6d 70 2e 70 69 64 22 29 20 7b 0a 69 6e  xgimp.pid") {.in
12a0: 69 74 7c 20 20 20 20 20 20 6f 70 65 6e 28 50 49  it|      open(PI
12b0: 44 46 49 4c 45 2c 20 24 74 6d 70 64 69 72 20 2e  DFILE, $tmpdir .
12c0: 20 22 72 66 78 67 69 6d 70 2e 70 69 64 22 29 3b   "rfxgimp.pid");
12d0: 0a 69 6e 69 74 7c 20 20 20 20 20 20 23 20 73 68  .init|      # sh
12e0: 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 64 6f  ould probably do
12f0: 20 73 6f 6d 65 20 73 61 6e 69 74 79 20 63 68 65   some sanity che
1300: 63 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6f 66  cking for the of
1310: 66 20 63 68 61 6e 63 65 20 74 68 61 74 0a 69 6e  f chance that.in
1320: 69 74 7c 20 20 20 20 20 20 23 20 74 68 65 20 50  it|      # the P
1330: 49 44 20 68 61 73 20 62 65 65 6e 20 72 65 63 79  ID has been recy
1340: 63 6c 65 64 20 6f 72 20 74 68 65 20 73 79 73 74  cled or the syst
1350: 65 6d 20 68 61 73 20 72 65 62 6f 6f 74 65 64 20  em has rebooted 
1360: 28 65 2e 67 2c 20 63 68 65 63 6b 0a 69 6e 69 74  (e.g, check.init
1370: 7c 20 20 20 20 20 20 23 20 69 66 20 70 72 6f 63  |      # if proc
1380: 65 73 73 20 77 61 73 20 65 78 65 63 75 74 65 64  ess was executed
1390: 20 77 69 74 68 20 2f 75 73 72 2f 62 69 6e 2f 70   with /usr/bin/p
13a0: 65 72 6c 2e 20 42 75 74 20 66 6f 72 20 6e 6f 77  erl. But for now
13b0: 2e 2e 2e 0a 69 6e 69 74 7c 20 20 20 20 20 20 6b  ....init|      k
13c0: 69 6c 6c 28 31 35 2c 20 2d 3c 50 49 44 46 49 4c  ill(15, -<PIDFIL
13d0: 45 3e 29 3b 20 23 20 74 68 65 20 6e 65 67 61 74  E>); # the negat
13e0: 69 76 65 20 50 49 44 20 6d 65 61 6e 73 20 6b 69  ive PID means ki
13f0: 6c 6c 20 61 6c 6c 20 63 68 69 6c 64 72 65 6e 2c  ll all children,
1400: 20 74 6f 6f 2e 0a 69 6e 69 74 7c 20 20 20 20 20   too..init|     
1410: 20 63 6c 6f 73 65 28 50 49 44 46 49 4c 45 29 3b   close(PIDFILE);
1420: 0a 69 6e 69 74 7c 20 20 20 20 20 20 7d 0a 69 6e  .init|      }.in
1430: 69 74 7c 20 20 20 20 73 65 74 70 67 69 64 28 24  it|    setpgid($
1440: 24 2c 30 29 3b 20 23 20 63 68 61 6e 67 65 20 74  $,0); # change t
1450: 68 65 20 70 67 72 6f 75 70 20 74 6f 20 74 68 69  he pgroup to thi
1460: 73 20 66 6f 72 6b 65 64 20 70 72 6f 63 65 73 73  s forked process
1470: 2c 20 72 61 74 68 65 72 20 74 68 61 6e 0a 69 6e  , rather than.in
1480: 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20  it|             
1490: 20 20 20 20 20 20 23 20 74 68 65 20 6f 72 69 67        # the orig
14a0: 69 6e 61 6c 20 4c 69 56 45 53 20 28 73 6f 20 74  inal LiVES (so t
14b0: 68 61 74 20 77 65 20 64 6f 6e 27 74 20 6b 69 6c  hat we don't kil
14c0: 6c 20 4c 69 56 45 53 20 77 68 65 6e 0a 69 6e 69  l LiVES when.ini
14d0: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
14e0: 20 20 20 20 20 23 20 74 68 69 73 20 70 72 67 72       # this prgr
14f0: 6f 75 70 20 69 73 20 6b 69 6c 6c 65 64 29 2e 0a  oup is killed)..
1500: 69 6e 69 74 7c 20 20 20 20 6f 70 65 6e 28 50 49  init|    open(PI
1510: 44 46 49 4c 45 2c 20 22 3e 22 20 2e 20 24 74 6d  DFILE, ">" . $tm
1520: 70 64 69 72 20 2e 20 22 72 66 78 67 69 6d 70 2e  pdir . "rfxgimp.
1530: 70 69 64 22 29 3b 20 23 20 6f 76 65 72 77 72 69  pid"); # overwri
1540: 74 65 20 6f 6c 64 20 66 69 6c 65 0a 69 6e 69 74  te old file.init
1550: 7c 20 20 20 20 70 72 69 6e 74 20 50 49 44 46 49  |    print PIDFI
1560: 4c 45 20 24 24 3b 0a 69 6e 69 74 7c 20 20 20 20  LE $$;.init|    
1570: 63 6c 6f 73 65 28 50 49 44 46 49 4c 45 29 3b 0a  close(PIDFILE);.
1580: 69 6e 69 74 7c 20 20 20 20 6d 79 20 24 73 74 61  init|    my $sta
1590: 72 74 5f 67 69 6d 70 20 3d 20 71 71 7b 20 67 69  rt_gimp = qq{ gi
15a0: 6d 70 20 2d 69 20 2d 62 20 22 28 70 6c 75 67 2d  mp -i -b "(plug-
15b0: 69 6e 2d 73 63 72 69 70 74 2d 66 75 2d 73 65 72  in-script-fu-ser
15c0: 76 65 72 20 31 20 24 72 66 78 5f 70 6f 72 74 20  ver 1 $rfx_port 
15d0: 5c 5c 5c 22 5c 5c 5c 22 29 22 20 26 20 7d 3b 0a  \\\"\\\")" & };.
15e0: 69 6e 69 74 7c 20 20 20 20 73 79 73 74 65 6d 20  init|    system 
15f0: 28 20 24 73 74 61 72 74 5f 67 69 6d 70 20 29 3b  ( $start_gimp );
1600: 20 23 20 74 68 6f 75 67 68 20 73 74 61 72 74 65   # though starte
1610: 64 20 61 73 20 73 65 70 61 72 61 74 65 20 70 72  d as separate pr
1620: 6f 63 65 73 73 2c 20 47 49 4d 50 20 6e 6f 77 0a  ocess, GIMP now.
1630: 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20  init|           
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1650: 20 23 20 69 73 20 70 61 72 74 20 6f 66 20 74 68   # is part of th
1660: 69 73 20 73 70 61 77 6e 65 64 20 63 68 69 6c 64  is spawned child
1670: 27 73 20 70 67 72 6f 75 70 2c 20 6e 6f 74 20 74  's pgroup, not t
1680: 68 65 20 4c 69 56 45 53 20 70 67 72 6f 75 70 0a  he LiVES pgroup.
1690: 69 6e 69 74 7c 20 20 20 20 73 6c 65 65 70 28 29  init|    sleep()
16a0: 3b 20 23 20 64 6f 20 6e 6f 74 68 69 6e 67 2c 20  ; # do nothing, 
16b0: 66 6f 72 65 76 65 72 0a 69 6e 69 74 7c 20 20 20  forever.init|   
16c0: 20 26 73 69 67 5f 65 72 72 6f 72 28 22 47 49 4d   &sig_error("GIM
16d0: 50 20 6b 69 6c 6c 65 64 20 62 79 20 65 78 74 65  P killed by exte
16e0: 72 6e 61 6c 20 70 72 6f 63 65 73 73 5c 6e 22 29  rnal process\n")
16f0: 3b 0a 69 6e 69 74 7c 20 20 20 20 7d 0a 69 6e 69  ;.init|    }.ini
1700: 74 7c 20 20 65 6c 73 65 20 7b 0a 69 6e 69 74 7c  t|  else {.init|
1710: 20 20 20 20 77 68 69 6c 65 20 28 6e 6f 74 20 64      while (not d
1720: 65 66 69 6e 65 64 20 24 73 6f 63 6b 29 20 7b 0a  efined $sock) {.
1730: 69 6e 69 74 7c 20 20 20 20 20 20 73 6c 65 65 70  init|      sleep
1740: 20 28 31 29 3b 0a 69 6e 69 74 7c 20 20 20 20 20   (1);.init|     
1750: 20 24 73 6f 63 6b 20 3d 20 6e 65 77 20 49 4f 3a   $sock = new IO:
1760: 3a 53 6f 63 6b 65 74 3a 3a 49 4e 45 54 20 28 20  :Socket::INET ( 
1770: 50 65 65 72 41 64 64 72 20 3d 3e 20 27 6c 6f 63  PeerAddr => 'loc
1780: 61 6c 68 6f 73 74 27 2c 0a 69 6e 69 74 7c 20 20  alhost',.init|  
1790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
17a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
17b0: 20 20 20 50 65 65 72 50 6f 72 74 20 3d 3e 20 24     PeerPort => $
17c0: 72 66 78 5f 70 6f 72 74 2c 0a 69 6e 69 74 7c 20  rfx_port,.init| 
17d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
17e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
17f0: 20 20 20 20 50 72 6f 74 6f 20 3d 3e 20 27 74 63      Proto => 'tc
1800: 70 27 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  p'.init|        
1810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1820: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 0a               );.
1830: 69 6e 69 74 7c 20 20 20 20 20 20 7d 0a 69 6e 69  init|      }.ini
1840: 74 7c 20 20 20 20 7d 0a 69 6e 69 74 7c 20 20 7d  t|    }.init|  }
1850: 0a 69 6e 69 74 7c 0a 69 6e 69 74 7c 23 20 44 65  .init|.init|# De
1860: 66 69 6e 65 20 61 20 50 65 72 6c 20 73 75 62 72  fine a Perl subr
1870: 6f 75 74 69 6e 65 20 66 6f 72 20 73 65 6e 64 69  outine for sendi
1880: 6e 67 20 6d 65 73 73 61 67 65 73 20 74 6f 20 74  ng messages to t
1890: 68 65 20 53 46 20 73 65 72 76 65 72 20 61 6e 64  he SF server and
18a0: 20 77 61 69 74 69 6e 67 0a 69 6e 69 74 7c 23 20   waiting.init|# 
18b0: 66 6f 72 20 61 20 72 65 73 70 6f 6e 73 65 2e 0a  for a response..
18c0: 69 6e 69 74 7c 23 0a 69 6e 69 74 7c 73 75 62 20  init|#.init|sub 
18d0: 72 66 78 5f 73 65 6e 64 6d 73 67 20 7b 0a 69 6e  rfx_sendmsg {.in
18e0: 69 74 7c 20 20 6d 79 20 24 6d 65 73 73 61 67 65  it|  my $message
18f0: 20 3d 20 24 5f 5b 30 5d 3b 0a 69 6e 69 74 7c 20   = $_[0];.init| 
1900: 20 6d 79 20 24 6c 65 6e 20 3d 20 6c 65 6e 67 74   my $len = lengt
1910: 68 20 28 24 6d 65 73 73 61 67 65 29 3b 0a 69 6e  h ($message);.in
1920: 69 74 7c 20 20 69 66 20 28 24 6c 65 6e 20 3e 20  it|  if ($len > 
1930: 36 35 35 33 35 29 20 7b 0a 69 6e 69 74 7c 20 20  65535) {.init|  
1940: 20 20 26 73 69 67 5f 65 72 72 6f 72 28 22 45 52    &sig_error("ER
1950: 52 4f 52 3a 20 73 63 72 69 70 74 20 69 73 20 74  ROR: script is t
1960: 6f 6f 20 6c 6f 6e 67 20 66 6f 72 20 6f 6e 65 20  oo long for one 
1970: 73 65 72 76 65 72 20 72 65 71 75 65 73 74 3a 20  server request: 
1980: 24 6c 65 6e 20 3e 20 36 35 35 33 35 22 29 3b 0a  $len > 65535");.
1990: 69 6e 69 74 7c 20 20 20 20 7d 3b 0a 69 6e 69 74  init|    };.init
19a0: 7c 20 20 23 20 73 65 6e 64 20 73 63 72 69 70 74  |  # send script
19b0: 20 74 6f 20 47 49 4d 50 0a 69 6e 69 74 7c 20 20   to GIMP.init|  
19c0: 6d 79 20 24 68 65 61 64 65 72 20 3d 20 70 61 63  my $header = pac
19d0: 6b 28 20 27 61 6e 27 2c 20 27 47 27 2c 20 24 6c  k( 'an', 'G', $l
19e0: 65 6e 29 3b 0a 69 6e 69 74 7c 20 20 73 79 73 77  en);.init|  sysw
19f0: 72 69 74 65 28 20 24 73 6f 63 6b 2c 20 24 5f 20  rite( $sock, $_ 
1a00: 29 20 66 6f 72 20 28 24 68 65 61 64 65 72 2c 20  ) for ($header, 
1a10: 24 6d 65 73 73 61 67 65 29 3b 0a 69 6e 69 74 7c  $message);.init|
1a20: 20 20 23 20 77 61 69 74 20 66 6f 72 20 72 65 73    # wait for res
1a30: 70 6f 6e 73 65 0a 69 6e 69 74 7c 20 20 6d 79 20  ponse.init|  my 
1a40: 24 72 69 6e 20 3d 20 27 27 3b 0a 69 6e 69 74 7c  $rin = '';.init|
1a50: 20 20 76 65 63 28 20 24 72 69 6e 2c 20 66 69 6c    vec( $rin, fil
1a60: 65 6e 6f 28 24 73 6f 63 6b 29 2c 20 31 20 29 20  eno($sock), 1 ) 
1a70: 3d 20 31 3b 0a 69 6e 69 74 7c 20 20 73 65 6c 65  = 1;.init|  sele
1a80: 63 74 28 20 24 72 69 6e 2c 20 20 75 6e 64 65 66  ct( $rin,  undef
1a90: 2c 20 75 6e 64 65 66 2c 20 75 6e 64 65 66 20 29  , undef, undef )
1aa0: 3b 20 20 20 20 23 20 77 61 69 74 20 28 66 6f 72  ;    # wait (for
1ab0: 65 76 65 72 29 20 66 6f 72 20 72 65 73 70 6f 6e  ever) for respon
1ac0: 73 65 20 73 74 61 72 74 0a 69 6e 69 74 7c 20 20  se start.init|  
1ad0: 73 65 6c 65 63 74 28 20 75 6e 64 65 66 2c 20 75  select( undef, u
1ae0: 6e 64 65 66 2c 20 75 6e 64 65 66 2c 20 2e 31 20  ndef, undef, .1 
1af0: 29 3b 20 20 20 20 20 20 20 23 20 77 61 69 74 20  );       # wait 
1b00: 61 20 62 69 74 20 66 6f 72 20 72 65 73 70 6f 6e  a bit for respon
1b10: 73 65 20 74 6f 20 66 69 6e 69 73 68 0a 69 6e 69  se to finish.ini
1b20: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20               #  
1b50: 69 6e 63 72 65 61 73 65 20 77 61 69 74 20 69 66  increase wait if
1b60: 20 49 4e 56 41 4c 49 44 2f 49 4e 43 4f 4d 50 4c   INVALID/INCOMPL
1b70: 45 54 45 20 52 45 53 50 4f 4e 53 45 20 6f 63 63  ETE RESPONSE occ
1b80: 75 72 73 0a 69 6e 69 74 7c 20 20 23 20 72 65 73  urs.init|  # res
1b90: 70 6f 6e 73 65 0a 69 6e 69 74 7c 20 20 24 6c 65  ponse.init|  $le
1ba0: 6e 20 3d 20 73 79 73 72 65 61 64 28 20 24 73 6f  n = sysread( $so
1bb0: 63 6b 2c 20 24 68 65 61 64 65 72 2c 20 34 20 29  ck, $header, 4 )
1bc0: 20 6f 72 20 26 73 69 67 5f 65 72 72 6f 72 28 22   or &sig_error("
1bd0: 49 4e 56 41 4c 49 44 20 52 45 53 50 4f 4e 53 45  INVALID RESPONSE
1be0: 3a 20 65 6d 70 74 79 20 72 65 73 70 6f 6e 73 65  : empty response
1bf0: 22 29 3b 0a 69 6e 69 74 7c 20 20 28 20 24 6c 65  ");.init|  ( $le
1c00: 6e 20 3d 3d 20 34 20 61 6e 64 20 24 68 65 61 64  n == 4 and $head
1c10: 65 72 20 3d 7e 20 2f 5e 47 2f 20 29 20 6f 72 20  er =~ /^G/ ) or 
1c20: 26 73 69 67 5f 65 72 72 6f 72 28 22 49 4e 56 41  &sig_error("INVA
1c30: 4c 49 44 20 52 45 53 50 4f 4e 53 45 3a 20 62 61  LID RESPONSE: ba
1c40: 64 20 68 65 61 64 65 72 22 29 3b 0a 69 6e 69 74  d header");.init
1c50: 7c 20 20 6d 79 20 24 73 74 61 74 75 73 3b 0a 69  |  my $status;.i
1c60: 6e 69 74 7c 20 20 28 24 73 74 61 74 75 73 2c 20  nit|  ($status, 
1c70: 24 6c 65 6e 29 20 3d 20 75 6e 70 61 63 6b 28 20  $len) = unpack( 
1c80: 27 78 43 6e 27 2c 20 24 68 65 61 64 65 72 20 29  'xCn', $header )
1c90: 3b 0a 69 6e 69 74 7c 20 20 6d 79 20 24 72 65 73  ;.init|  my $res
1ca0: 70 6f 6e 73 65 3b 0a 69 6e 69 74 7c 20 20 28 20  ponse;.init|  ( 
1cb0: 73 79 73 72 65 61 64 28 20 24 73 6f 63 6b 2c 20  sysread( $sock, 
1cc0: 24 72 65 73 70 6f 6e 73 65 2c 20 24 6c 65 6e 20  $response, $len 
1cd0: 29 20 3d 3d 20 24 6c 65 6e 20 29 20 6f 72 20 26  ) == $len ) or &
1ce0: 73 69 67 5f 65 72 72 6f 72 28 22 49 4e 43 4f 4d  sig_error("INCOM
1cf0: 50 4c 45 54 45 20 52 45 53 50 4f 4e 53 45 3a 20  PLETE RESPONSE: 
1d00: 24 72 65 73 70 6f 6e 73 65 22 29 3b 0a 69 6e 69  $response");.ini
1d10: 74 7c 20 20 23 20 65 78 69 74 20 69 66 20 72 65  t|  # exit if re
1d20: 73 70 6f 6e 73 65 20 69 73 20 6e 6f 74 20 22 53  sponse is not "S
1d30: 75 63 63 65 73 73 22 0a 69 6e 69 74 7c 20 20 69  uccess".init|  i
1d40: 66 20 28 20 24 73 74 61 74 75 73 20 61 6e 64 20  f ( $status and 
1d50: 24 72 65 73 70 6f 6e 73 65 20 3d 7e 20 2f 5e 45  $response =~ /^E
1d60: 72 72 6f 72 3a 20 53 75 63 63 65 73 73 5c 6e 2f  rror: Success\n/
1d70: 69 20 29 20 7b 0a 69 6e 69 74 7c 20 20 20 20 26  i ) {.init|    &
1d80: 73 69 67 5f 65 72 72 6f 72 28 22 55 4e 53 55 43  sig_error("UNSUC
1d90: 43 45 53 53 46 55 4c 20 45 58 45 43 55 54 49 4f  CESSFUL EXECUTIO
1da0: 4e 3a 20 53 63 72 69 70 74 2d 66 75 20 65 72 72  N: Script-fu err
1db0: 6f 72 22 29 3b 0a 69 6e 69 74 7c 20 20 20 20 7d  or");.init|    }
1dc0: 0a 69 6e 69 74 7c 20 20 24 73 74 61 74 75 73 3b  .init|  $status;
1dd0: 0a 69 6e 69 74 7c 20 20 7d 0a 69 6e 69 74 7c 0a  .init|  }.init|.
1de0: 69 6e 69 74 7c 23 20 64 65 66 69 6e 65 20 61 20  init|# define a 
1df0: 53 63 72 69 70 74 2d 66 75 20 75 74 69 6c 69 74  Script-fu utilit
1e00: 79 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 73 61  y function to sa
1e10: 76 65 20 66 72 61 6d 65 73 20 75 73 69 6e 67 20  ve frames using 
1e20: 74 68 65 20 50 4e 47 20 6f 72 20 4a 50 47 0a 69  the PNG or JPG.i
1e30: 6e 69 74 7c 23 20 63 6f 6d 70 72 65 73 73 69 6f  nit|# compressio
1e40: 6e 20 6c 65 76 65 6c 73 20 73 70 65 63 69 66 69  n levels specifi
1e50: 65 64 20 69 6e 20 27 67 69 6d 70 72 63 27 2e 0a  ed in 'gimprc'..
1e60: 69 6e 69 74 7c 23 20 54 6f 20 73 70 65 63 69 66  init|# To specif
1e70: 79 20 61 20 50 4e 47 20 63 6f 6d 70 72 65 73 73  y a PNG compress
1e80: 69 6f 6e 20 6c 65 76 65 6c 20 6f 66 20 35 2c 20  ion level of 5, 
1e90: 69 6e 63 6c 75 64 65 20 74 68 65 20 66 6f 6c 6c  include the foll
1ea0: 6f 77 69 6e 67 20 6c 69 6e 65 0a 69 6e 69 74 7c  owing line.init|
1eb0: 23 20 69 6e 20 67 69 6d 70 72 63 3a 0a 69 6e 69  # in gimprc:.ini
1ec0: 74 7c 23 20 20 20 28 72 66 78 2d 70 6e 67 2d 63  t|#   (rfx-png-c
1ed0: 6f 6d 70 72 65 73 73 69 6f 6e 20 22 35 22 29 0a  ompression "5").
1ee0: 69 6e 69 74 7c 23 20 49 66 20 6e 6f 74 20 73 70  init|# If not sp
1ef0: 65 63 69 66 69 65 64 20 74 68 65 6e 20 61 20 64  ecified then a d
1f00: 65 66 61 75 6c 74 20 6c 65 76 65 6c 20 6f 66 20  efault level of 
1f10: 22 33 22 20 69 73 20 61 73 73 75 6d 65 64 2e 0a  "3" is assumed..
1f20: 69 6e 69 74 7c 23 20 22 33 22 20 69 73 20 61 20  init|# "3" is a 
1f30: 67 6f 6f 64 20 63 68 6f 69 63 65 20 66 6f 72 20  good choice for 
1f40: 50 4e 47 73 20 62 65 63 61 75 73 65 20 68 69 67  PNGs because hig
1f50: 68 65 72 20 6c 65 76 65 6c 73 20 64 6f 75 62 6c  her levels doubl
1f60: 65 20 74 68 65 20 77 72 69 74 65 0a 69 6e 69 74  e the write.init
1f70: 7c 23 20 74 69 6d 65 73 20 77 68 69 6c 65 20 6f  |# times while o
1f80: 6e 6c 79 20 6f 66 66 65 72 69 6e 67 20 61 62 6f  nly offering abo
1f90: 75 74 20 31 35 25 20 72 65 64 75 63 74 69 6f 6e  ut 15% reduction
1fa0: 20 69 6e 20 66 69 6c 65 20 73 69 7a 65 2e 0a 69   in file size..i
1fb0: 6e 69 74 7c 23 20 54 6f 20 73 70 65 63 69 66 79  nit|# To specify
1fc0: 20 61 20 4a 50 47 20 63 6f 6d 70 72 65 73 73 69   a JPG compressi
1fd0: 6f 6e 20 6c 65 76 65 6c 20 6f 66 20 38 35 2c 20  on level of 85, 
1fe0: 69 6e 63 6c 75 64 65 20 74 68 65 20 66 6f 6c 6c  include the foll
1ff0: 6f 77 69 6e 67 20 6c 69 6e 65 0a 69 6e 69 74 7c  owing line.init|
2000: 23 20 69 6e 20 67 69 6d 70 72 63 3a 0a 69 6e 69  # in gimprc:.ini
2010: 74 7c 23 20 20 20 28 72 66 78 2d 6a 70 67 2d 63  t|#   (rfx-jpg-c
2020: 6f 6d 70 72 65 73 73 69 6f 6e 20 22 38 35 22 29  ompression "85")
2030: 0a 69 6e 69 74 7c 23 20 49 66 20 6e 6f 74 20 73  .init|# If not s
2040: 70 65 63 69 66 69 65 64 20 74 68 65 6e 20 61 20  pecified then a 
2050: 64 65 66 61 75 6c 74 20 6c 65 76 65 6c 20 6f 66  default level of
2060: 20 22 39 33 22 20 69 73 20 61 73 73 75 6d 65 64   "93" is assumed
2070: 2e 0a 69 6e 69 74 7c 0a 69 6e 69 74 7c 23 20 4e  ..init|.init|# N
2080: 4f 54 45 3a 20 27 72 66 78 2d 73 61 76 65 2d 66  OTE: 'rfx-save-f
2090: 72 61 6d 65 27 20 44 45 4c 45 54 45 53 20 74 68  rame' DELETES th
20a0: 65 20 69 6d 61 67 65 2e 0a 69 6e 69 74 7c 26 72  e image..init|&r
20b0: 66 78 5f 73 65 6e 64 6d 73 67 28 20 71 71 7b 0a  fx_sendmsg( qq{.
20c0: 69 6e 69 74 7c 20 20 28 62 65 67 69 6e 0a 69 6e  init|  (begin.in
20d0: 69 74 7c 20 20 20 20 28 64 65 66 69 6e 65 20 72  it|    (define r
20e0: 66 78 2d 63 75 72 74 6d 70 64 69 72 20 22 24 63  fx-curtmpdir "$c
20f0: 75 72 74 6d 70 64 69 72 22 29 0a 69 6e 69 74 7c  urtmpdir").init|
2100: 20 20 20 20 28 64 65 66 69 6e 65 20 72 66 78 2d      (define rfx-
2110: 69 6d 67 65 78 74 20 22 24 69 6d 67 5f 65 78 74  imgext "$img_ext
2120: 22 29 0a 69 6e 69 74 7c 20 20 20 20 28 75 6e 6c  ").init|    (unl
2130: 65 73 73 20 28 64 65 66 69 6e 65 64 3f 20 27 72  ess (defined? 'r
2140: 66 78 2d 73 61 76 65 2d 66 72 61 6d 65 29 0a 69  fx-save-frame).i
2150: 6e 69 74 7c 20 20 20 20 20 20 28 64 65 66 69 6e  nit|      (defin
2160: 65 20 72 66 78 2d 70 6e 67 2d 63 6f 6d 70 72 65  e rfx-png-compre
2170: 73 73 69 6f 6e 20 28 63 61 74 63 68 20 23 66 20  ssion (catch #f 
2180: 28 67 69 6d 70 2d 67 69 6d 70 72 63 2d 71 75 65  (gimp-gimprc-que
2190: 72 79 20 22 72 66 78 2d 70 6e 67 2d 63 6f 6d 70  ry "rfx-png-comp
21a0: 72 65 73 73 69 6f 6e 22 29 29 29 0a 69 6e 69 74  ression"))).init
21b0: 7c 20 20 20 20 20 20 28 73 65 74 21 20 72 66 78  |      (set! rfx
21c0: 2d 70 6e 67 2d 63 6f 6d 70 72 65 73 73 69 6f 6e  -png-compression
21d0: 20 28 69 66 20 72 66 78 2d 70 6e 67 2d 63 6f 6d   (if rfx-png-com
21e0: 70 72 65 73 73 69 6f 6e 0a 69 6e 69 74 7c 20 20  pression.init|  
21f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2210: 28 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20  (string->number 
2220: 28 63 61 72 20 72 66 78 2d 70 6e 67 2d 63 6f 6d  (car rfx-png-com
2230: 70 72 65 73 73 69 6f 6e 29 29 0a 69 6e 69 74 7c  pression)).init|
2240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2260: 20 20 33 20 29 29 0a 69 6e 69 74 7c 20 20 20 20    3 )).init|    
2270: 20 20 28 64 65 66 69 6e 65 20 72 66 78 2d 6a 70    (define rfx-jp
2280: 67 2d 63 6f 6d 70 72 65 73 73 69 6f 6e 20 28 63  g-compression (c
2290: 61 74 63 68 20 23 66 20 28 67 69 6d 70 2d 67 69  atch #f (gimp-gi
22a0: 6d 70 72 63 2d 71 75 65 72 79 20 22 72 66 78 2d  mprc-query "rfx-
22b0: 6a 70 67 2d 63 6f 6d 70 72 65 73 73 69 6f 6e 22  jpg-compression"
22c0: 29 29 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 28  ))).init|      (
22d0: 73 65 74 21 20 72 66 78 2d 6a 70 67 2d 63 6f 6d  set! rfx-jpg-com
22e0: 70 72 65 73 73 69 6f 6e 20 28 69 66 20 72 66 78  pression (if rfx
22f0: 2d 6a 70 67 2d 63 6f 6d 70 72 65 73 73 69 6f 6e  -jpg-compression
2300: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
2310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2320: 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d          (string-
2330: 3e 6e 75 6d 62 65 72 20 28 63 61 72 20 72 66 78  >number (car rfx
2340: 2d 6a 70 67 2d 63 6f 6d 70 72 65 73 73 69 6f 6e  -jpg-compression
2350: 29 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  )).init|        
2360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2370: 20 20 20 20 20 20 20 20 20 20 39 33 20 29 29 0a            93 )).
2380: 69 6e 69 74 7c 20 20 20 20 20 20 28 64 65 66 69  init|      (defi
2390: 6e 65 20 28 72 66 78 2d 73 61 76 65 2d 66 72 61  ne (rfx-save-fra
23a0: 6d 65 20 69 6d 61 67 65 20 62 61 73 65 6e 61 6d  me image basenam
23b0: 65 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  e).init|        
23c0: 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20  (let ((filename 
23d0: 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 72  (string-append r
23e0: 66 78 2d 63 75 72 74 6d 70 64 69 72 20 44 49 52  fx-curtmpdir DIR
23f0: 2d 53 45 50 41 52 41 54 4f 52 20 62 61 73 65 6e  -SEPARATOR basen
2400: 61 6d 65 29 29 0a 69 6e 69 74 7c 20 20 20 20 20  ame)).init|     
2410: 20 20 20 20 20 20 20 20 20 28 6c 61 79 65 72 20           (layer 
2420: 28 63 61 72 20 28 67 69 6d 70 2d 69 6d 61 67 65  (car (gimp-image
2430: 2d 67 65 74 2d 61 63 74 69 76 65 2d 6c 61 79 65  -get-active-laye
2440: 72 20 69 6d 61 67 65 29 29 29 20 29 0a 69 6e 69  r image))) ).ini
2450: 74 7c 20 20 20 20 20 20 20 20 20 20 28 69 66 20  t|          (if 
2460: 28 73 74 72 69 6e 67 2d 63 69 3d 3f 20 72 66 78  (string-ci=? rfx
2470: 2d 69 6d 67 65 78 74 20 22 2e 6a 70 67 22 29 0a  -imgext ".jpg").
2480: 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20  init|           
2490: 20 28 62 65 67 69 6e 0a 69 6e 69 74 7c 20 20 20   (begin.init|   
24a0: 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d 70             (gimp
24b0: 2d 63 6f 6e 74 65 78 74 2d 70 75 73 68 29 0a 69  -context-push).i
24c0: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20  nit|            
24d0: 20 20 28 67 69 6d 70 2d 63 6f 6e 74 65 78 74 2d    (gimp-context-
24e0: 73 65 74 2d 62 61 63 6b 67 72 6f 75 6e 64 20 27  set-background '
24f0: 28 36 20 36 20 36 29 29 0a 69 6e 69 74 7c 20 20  (6 6 6)).init|  
2500: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74              (let
2510: 20 6c 6f 6f 70 20 28 28 6c 61 79 65 72 73 20 28   loop ((layers (
2520: 76 65 63 74 6f 72 2d 3e 6c 69 73 74 20 28 63 61  vector->list (ca
2530: 64 72 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d 67  dr (gimp-image-g
2540: 65 74 2d 6c 61 79 65 72 73 20 69 6d 61 67 65 29  et-layers image)
2550: 29 29 29 29 0a 69 6e 69 74 7c 20 20 20 20 20 20  )))).init|      
2560: 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73            (unles
2570: 73 20 28 6e 75 6c 6c 3f 20 6c 61 79 65 72 73 29  s (null? layers)
2580: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
2590: 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 28          (if (= (
25a0: 63 61 72 20 6c 61 79 65 72 73 29 20 6c 61 79 65  car layers) laye
25b0: 72 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  r).init|        
25c0: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
25d0: 70 2d 64 72 61 77 61 62 6c 65 2d 73 65 74 2d 76  p-drawable-set-v
25e0: 69 73 69 62 6c 65 20 6c 61 79 65 72 20 54 52 55  isible layer TRU
25f0: 45 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  E).init|        
2600: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
2610: 70 2d 64 72 61 77 61 62 6c 65 2d 73 65 74 2d 76  p-drawable-set-v
2620: 69 73 69 62 6c 65 20 28 63 61 72 20 6c 61 79 65  isible (car laye
2630: 72 73 29 20 46 41 4c 53 45 29 20 29 0a 69 6e 69  rs) FALSE) ).ini
2640: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
2650: 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20 6c      (loop (cdr l
2660: 61 79 65 72 73 29 29 20 29 29 0a 69 6e 69 74 7c  ayers)) )).init|
2670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73                (s
2680: 65 74 21 20 6c 61 79 65 72 20 28 63 61 72 20 28  et! layer (car (
2690: 67 69 6d 70 2d 69 6d 61 67 65 2d 66 6c 61 74 74  gimp-image-flatt
26a0: 65 6e 20 69 6d 61 67 65 29 29 29 0a 69 6e 69 74  en image))).init
26b0: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28  |              (
26c0: 66 69 6c 65 2d 6a 70 65 67 2d 73 61 76 65 20 52  file-jpeg-save R
26d0: 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49 56  UN-NONINTERACTIV
26e0: 45 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  E.init|         
26f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2700: 20 20 20 20 20 69 6d 61 67 65 0a 69 6e 69 74 7c       image.init|
2710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61                la
2730: 79 65 72 0a 69 6e 69 74 7c 20 20 20 20 20 20 20  yer.init|       
2740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2750: 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 0a         filename.
2760: 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20  init|           
2770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2780: 20 20 20 66 69 6c 65 6e 61 6d 65 0a 69 6e 69 74     filename.init
2790: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
27a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
27b0: 2f 20 72 66 78 2d 6a 70 67 2d 63 6f 6d 70 72 65  / rfx-jpg-compre
27c0: 73 73 69 6f 6e 20 31 30 30 29 0a 69 6e 69 74 7c  ssion 100).init|
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
27e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20                0 
27f0: 3b 20 73 6d 6f 6f 74 68 69 6e 67 0a 69 6e 69 74  ; smoothing.init
2800: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
2810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31                 1
2820: 20 3b 20 6f 70 74 69 6d 69 7a 65 0a 69 6e 69 74   ; optimize.init
2830: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
2840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31                 1
2850: 20 3b 20 70 72 6f 67 72 65 73 73 69 76 65 0a 69   ; progressive.i
2860: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20  nit|            
2870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2880: 20 20 22 22 20 3b 20 63 6f 6d 6d 65 6e 74 0a 69    "" ; comment.i
2890: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20  nit|            
28a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28b0: 20 20 30 20 3b 20 73 75 62 73 6d 70 20 28 30 2d    0 ; subsmp (0-
28c0: 34 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  4).init|        
28d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28e0: 20 20 20 20 20 20 31 20 3b 20 62 61 73 65 6c 69        1 ; baseli
28f0: 6e 65 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  ne.init|        
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2910: 20 20 20 20 20 20 30 20 3b 20 72 65 73 74 61 72        0 ; restar
2920: 74 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  t.init|         
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2940: 20 20 20 20 20 30 20 3b 64 63 74 0a 69 6e 69 74       0 ;dct.init
2950: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
2960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                 )
2970: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
2980: 20 20 20 20 28 67 69 6d 70 2d 63 6f 6e 74 65 78      (gimp-contex
2990: 74 2d 70 6f 70 29 20 29 0a 69 6e 69 74 7c 20 20  t-pop) ).init|  
29a0: 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e            (begin
29b0: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
29c0: 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72      (unless (zer
29d0: 6f 3f 20 28 63 61 72 20 28 67 69 6d 70 2d 69 6d  o? (car (gimp-im
29e0: 61 67 65 2d 62 61 73 65 2d 74 79 70 65 20 69 6d  age-base-type im
29f0: 61 67 65 29 29 29 0a 69 6e 69 74 7c 20 20 20 20  age))).init|    
2a00: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
2a10: 70 2d 69 6d 61 67 65 2d 63 6f 6e 76 65 72 74 2d  p-image-convert-
2a20: 72 67 62 20 69 6d 61 67 65 29 20 29 0a 69 6e 69  rgb image) ).ini
2a30: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
2a40: 28 66 69 6c 65 2d 70 6e 67 2d 73 61 76 65 32 20  (file-png-save2 
2a50: 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49  RUN-NONINTERACTI
2a60: 56 45 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  VE.init|        
2a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a80: 20 20 20 20 20 20 69 6d 61 67 65 0a 69 6e 69 74        image.init
2a90: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  |               
2aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c                 l
2ab0: 61 79 65 72 0a 69 6e 69 74 7c 20 20 20 20 20 20  ayer.init|      
2ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ad0: 20 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65          filename
2ae0: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
2af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b00: 20 20 20 20 66 69 6c 65 6e 61 6d 65 0a 69 6e 69      filename.ini
2b10: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
2b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b30: 46 41 4c 53 45 20 3b 20 69 6e 74 65 72 6c 61 63  FALSE ; interlac
2b40: 65 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  e.init|         
2b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b60: 20 20 20 20 20 72 66 78 2d 70 6e 67 2d 63 6f 6d       rfx-png-com
2b70: 70 72 65 73 73 69 6f 6e 0a 69 6e 69 74 7c 20 20  pression.init|  
2b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b90: 20 20 20 20 20 20 20 20 20 20 20 20 46 41 4c 53              FALS
2ba0: 45 20 3b 20 62 6b 67 64 0a 69 6e 69 74 7c 20 20  E ; bkgd.init|  
2bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2bc0: 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72              (car
2bd0: 20 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d   (gimp-drawable-
2be0: 68 61 73 2d 61 6c 70 68 61 20 6c 61 79 65 72 29  has-alpha layer)
2bf0: 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  ).init|         
2c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c10: 20 20 20 20 20 46 41 4c 53 45 20 3b 20 6f 66 66       FALSE ; off
2c20: 73 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  s.init|         
2c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c40: 20 20 20 20 20 46 41 4c 53 45 20 3b 20 70 68 79       FALSE ; phy
2c50: 73 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  s.init|         
2c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c70: 20 20 20 20 20 46 41 4c 53 45 20 3b 20 74 69 6d       FALSE ; tim
2c80: 65 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  e.init|         
2c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ca0: 20 20 20 20 20 54 52 55 45 20 20 3b 20 63 6f 6d       TRUE  ; com
2cb0: 6d 65 6e 74 0a 69 6e 69 74 7c 20 20 20 20 20 20  ment.init|      
2cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2cd0: 20 20 20 20 20 20 20 20 46 41 4c 53 45 20 3b 20          FALSE ; 
2ce0: 73 76 74 72 61 6e 73 0a 69 6e 69 74 7c 20 20 20  svtrans.init|   
2cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d00: 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 69             ))).i
2d10: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 28 67  nit|          (g
2d20: 69 6d 70 2d 69 6d 61 67 65 2d 64 65 6c 65 74 65  imp-image-delete
2d30: 20 69 6d 61 67 65 29 20 29 29 29 0a 69 6e 69 74   image) ))).init
2d40: 7c 20 20 20 20 28 64 65 66 69 6e 65 20 28 6d 61  |    (define (ma
2d50: 6b 65 2d 70 72 6f 67 72 65 73 73 6f 72 20 73 74  ke-progressor st
2d60: 61 72 74 20 64 65 6c 74 61 20 2e 20 70 65 72 69  art delta . peri
2d70: 6f 64 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 28  od).init|      (
2d80: 6c 65 74 20 28 28 73 74 61 72 74 20 73 74 61 72  let ((start star
2d90: 74 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  t).init|        
2da0: 20 20 20 20 28 76 61 6c 75 65 20 73 74 61 72 74      (value start
2db0: 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20  ).init|         
2dc0: 20 20 20 28 64 65 6c 74 61 20 64 65 6c 74 61 29     (delta delta)
2dd0: 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20  .init|          
2de0: 20 20 28 70 65 72 69 6f 64 20 28 69 66 20 28 6e    (period (if (n
2df0: 75 6c 6c 3f 20 70 65 72 69 6f 64 29 0a 69 6e 69  ull? period).ini
2e00: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
2e10: 20 20 20 20 20 20 20 20 20 20 23 66 0a 69 6e 69            #f.ini
2e20: 74 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t|              
2e30: 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 70            (car p
2e40: 65 72 69 6f 64 29 29 20 29 29 0a 69 6e 69 74 7c  eriod)) )).init|
2e50: 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20          (lambda 
2e60: 28 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  ().init|        
2e70: 20 20 28 6c 65 74 20 28 28 74 65 6d 70 20 76 61    (let ((temp va
2e80: 6c 75 65 29 29 0a 69 6e 69 74 7c 20 20 20 20 20  lue)).init|     
2e90: 20 20 20 20 20 20 20 28 73 65 74 21 20 76 61 6c         (set! val
2ea0: 75 65 20 28 69 66 20 28 61 6e 64 20 70 65 72 69  ue (if (and peri
2eb0: 6f 64 20 28 3e 3d 20 28 2b 20 76 61 6c 75 65 20  od (>= (+ value 
2ec0: 64 65 6c 74 61 29 20 28 2b 20 73 74 61 72 74 20  delta) (+ start 
2ed0: 70 65 72 69 6f 64 29 29 29 0a 69 6e 69 74 7c 20  period))).init| 
2ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ef0: 20 20 20 20 20 20 20 20 20 28 2d 20 28 2b 20 76           (- (+ v
2f00: 61 6c 75 65 20 64 65 6c 74 61 29 20 70 65 72 69  alue delta) peri
2f10: 6f 64 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20  od).init|       
2f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2f30: 20 20 20 28 2b 20 76 61 6c 75 65 20 64 65 6c 74     (+ value delt
2f40: 61 29 20 29 29 0a 69 6e 69 74 7c 20 20 20 20 20  a) )).init|     
2f50: 20 20 20 20 20 20 20 74 65 6d 70 20 29 29 29 29         temp ))))
2f60: 0a 69 6e 69 74 7c 20 20 20 20 29 0a 69 6e 69 74  .init|    ).init
2f70: 7c 20 20 7d 0a 69 6e 69 74 7c 20 20 29 3b 0a 69  |  }.init|  );.i
2f80: 6e 69 74 7c 0a 69 6e 69 74 7c 24 72 66 78 5f 67  nit|.init|$rfx_g
2f90: 61 70 5f 64 69 72 20 3d 20 24 63 75 72 74 6d 70  ap_dir = $curtmp
2fa0: 64 69 72 20 2e 20 22 2f 67 61 70 2d 63 6c 69 70  dir . "/gap-clip
2fb0: 22 3b 0a 69 6e 69 74 7c 69 66 20 28 2d 64 20 24  ";.init|if (-d $
2fc0: 72 66 78 5f 67 61 70 5f 64 69 72 29 20 7b 0a 69  rfx_gap_dir) {.i
2fd0: 6e 69 74 7c 20 20 26 73 69 67 5f 65 72 72 6f 72  nit|  &sig_error
2fe0: 28 22 43 6c 69 70 20 62 75 66 66 65 72 20 61 6c  ("Clip buffer al
2ff0: 72 65 61 64 79 20 65 78 69 73 74 73 22 2c 0a 69  ready exists",.i
3000: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20  nit|            
3010: 20 22 50 65 72 68 61 70 73 20 63 6c 69 70 20 69   "Perhaps clip i
3020: 73 20 69 6e 20 75 73 65 3f 22 2c 0a 69 6e 69 74  s in use?",.init
3030: 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 22 52  |             "R
3040: 75 6e 20 47 41 50 20 43 6c 65 61 6e 75 70 20 75  un GAP Cleanup u
3050: 74 69 6c 69 74 79 20 62 65 66 6f 72 65 20 63 6f  tility before co
3060: 6e 74 69 6e 75 69 6e 67 22 29 3b 0a 69 6e 69 74  ntinuing");.init
3070: 7c 20 20 7d 0a 69 6e 69 74 7c 65 6c 73 65 20 7b  |  }.init|else {
3080: 0a 69 6e 69 74 7c 20 20 6d 6b 64 69 72 20 24 72  .init|  mkdir $r
3090: 66 78 5f 67 61 70 5f 64 69 72 20 6f 72 20 26 73  fx_gap_dir or &s
30a0: 69 67 5f 65 72 72 6f 72 28 22 43 6f 75 6c 64 20  ig_error("Could 
30b0: 6e 6f 74 20 63 72 65 61 74 65 20 64 69 72 65 63  not create direc
30c0: 74 6f 72 79 22 2c 20 24 72 66 78 5f 67 61 70 5f  tory", $rfx_gap_
30d0: 64 69 72 29 3b 0a 69 6e 69 74 7c 20 20 7d 3b 0a  dir);.init|  };.
30e0: 69 6e 69 74 7c 66 6f 72 20 28 24 69 20 3d 20 24  init|for ($i = $
30f0: 73 74 61 72 74 3b 20 24 69 20 3c 3d 20 24 65 6e  start; $i <= $en
3100: 64 3b 20 24 69 2b 2b 29 20 7b 0a 69 6e 69 74 7c  d; $i++) {.init|
3110: 20 20 24 67 61 70 5f 66 72 61 6d 65 3d 26 6d 6b    $gap_frame=&mk
3120: 6e 61 6d 65 28 24 69 29 3b 0a 69 6e 69 74 7c 20  name($i);.init| 
3130: 20 26 72 66 78 5f 73 65 6e 64 6d 73 67 28 20 71   &rfx_sendmsg( q
3140: 71 7b 0a 69 6e 69 74 7c 20 20 20 20 28 62 65 67  q{.init|    (beg
3150: 69 6e 0a 69 6e 69 74 7c 20 20 20 20 20 20 28 6c  in.init|      (l
3160: 65 74 2a 20 28 28 69 6e 70 75 74 2d 66 69 6c 65  et* ((input-file
3170: 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20   (string-append 
3180: 22 24 63 75 72 74 6d 70 64 69 72 22 20 44 49 52  "$curtmpdir" DIR
3190: 2d 53 45 50 41 52 41 54 4f 52 20 22 24 67 61 70  -SEPARATOR "$gap
31a0: 5f 66 72 61 6d 65 22 20 22 24 69 6d 67 5f 65 78  _frame" "$img_ex
31b0: 74 22 29 29 0a 69 6e 69 74 7c 20 20 20 20 20 20  t")).init|      
31c0: 20 20 20 20 20 20 20 28 69 6d 61 67 65 20 28 63         (image (c
31d0: 61 72 20 28 67 69 6d 70 2d 66 69 6c 65 2d 6c 6f  ar (gimp-file-lo
31e0: 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41  ad RUN-NONINTERA
31f0: 43 54 49 56 45 20 69 6e 70 75 74 2d 66 69 6c 65  CTIVE input-file
3200: 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 29 0a 69   input-file))).i
3210: 6e 69 74 7c 20 20 20 20 20 20 20 20 20 20 20 20  nit|            
3220: 20 28 6c 61 79 65 72 20 28 63 61 72 20 28 67 69   (layer (car (gi
3230: 6d 70 2d 69 6d 61 67 65 2d 67 65 74 2d 61 63 74  mp-image-get-act
3240: 69 76 65 2d 6c 61 79 65 72 20 69 6d 61 67 65 29  ive-layer image)
3250: 29 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20  )).init|        
3260: 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28       (filename (
3270: 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 24  string-append "$
3280: 72 66 78 5f 67 61 70 5f 64 69 72 22 20 44 49 52  rfx_gap_dir" DIR
3290: 2d 53 45 50 41 52 41 54 4f 52 20 22 24 67 61 70  -SEPARATOR "$gap
32a0: 5f 66 72 61 6d 65 22 20 22 2e 78 63 66 22 29 29  _frame" ".xcf"))
32b0: 20 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20   ).init|        
32c0: 28 67 69 6d 70 2d 66 69 6c 65 2d 73 61 76 65 20  (gimp-file-save 
32d0: 52 55 4e 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49  RUN-NONINTERACTI
32e0: 56 45 20 69 6d 61 67 65 20 6c 61 79 65 72 20 66  VE image layer f
32f0: 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65  ilename filename
3300: 29 0a 69 6e 69 74 7c 20 20 20 20 20 20 20 20 28  ).init|        (
3310: 67 69 6d 70 2d 69 6d 61 67 65 2d 64 65 6c 65 74  gimp-image-delet
3320: 65 20 69 6d 61 67 65 29 0a 69 6e 69 74 7c 20 20  e image).init|  
3330: 20 20 20 20 20 20 29 0a 69 6e 69 74 7c 20 20 20        ).init|   
3340: 20 20 20 29 0a 69 6e 69 74 7c 20 20 20 20 7d 0a     ).init|    }.
3350: 69 6e 69 74 7c 20 20 20 20 29 3b 0a 69 6e 69 74  init|    );.init
3360: 7c 20 20 7d 3b 0a 69 6e 69 74 7c 0a 69 6e 69 74  |  };.init|.init
3370: 7c 73 79 73 74 65 6d 20 28 22 67 69 6d 70 20 22  |system ("gimp "
3380: 20 2e 20 24 72 66 78 5f 67 61 70 5f 64 69 72 20   . $rfx_gap_dir 
3390: 2e 20 22 2f 22 20 2e 20 26 6d 6b 6e 61 6d 65 28  . "/" . &mkname(
33a0: 24 73 74 61 72 74 29 20 2e 20 22 2e 78 63 66 20  $start) . ".xcf 
33b0: 26 22 29 3b 0a 69 6e 69 74 7c 0a 3c 2f 6f 6e 63  &");.init|.</onc
33c0: 68 61 6e 67 65 3e 0a 0a                          hange>..