RFX-GIMP

Hex Artifact Content
Login

Artifact eb3066ad659681e07d53e1bb9d4b0ae6c23776f4:


0000: 23 20 24 70 30 20 3b 20 61 6d 70 6c 69 74 75 64  # $p0 ; amplitud
0010: 65 0a 23 20 24 70 31 20 3b 20 77 61 76 65 6c 65  e.# $p1 ; wavele
0020: 6e 67 74 68 20 28 69 6e 20 70 69 78 65 6c 73 29  ngth (in pixels)
0030: 0a 23 20 24 70 32 20 3b 20 76 65 6c 6f 63 69 74  .# $p2 ; velocit
0040: 79 20 0a 23 20 24 70 33 20 3b 20 6f 75 74 77 61  y .# $p3 ; outwa
0050: 72 64 20 28 54 52 55 45 29 0a 0a 26 72 66 78 5f  rd (TRUE)..&rfx_
0060: 73 65 6e 64 6d 73 67 20 28 0a 20 20 71 71 7b 0a  sendmsg (.  qq{.
0070: 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20      (begin.     
0080: 20 28 69 66 20 28 3d 20 24 66 72 61 6d 65 20 24   (if (= $frame $
0090: 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28  start).        (
00a0: 64 65 66 69 6e 65 20 6e 65 78 74 2d 70 68 61 73  define next-phas
00b0: 65 20 28 6d 61 6b 65 2d 70 72 6f 67 72 65 73 73  e (make-progress
00c0: 6f 72 20 30 0a 20 20 20 20 20 20 20 20 20 20 20  or 0.           
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00f0: 20 28 69 66 20 28 7a 65 72 6f 3f 20 24 70 33 29   (if (zero? $p3)
0100: 20 0a 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 20 20 20 20                  
0120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0130: 28 2a 20 24 70 32 20 28 2f 20 33 36 30 20 28 2d  (* $p2 (/ 360 (-
0140: 20 24 65 6e 64 20 24 73 74 61 72 74 29 29 29 0a   $end $start))).
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a                (*
0180: 20 24 70 32 20 28 2f 20 33 36 30 20 28 2d 20 24   $p2 (/ 360 (- $
0190: 73 74 61 72 74 20 24 65 6e 64 29 29 29 20 29 29  start $end))) ))
01a0: 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28  )).      (let* (
01b0: 28 69 6e 70 75 74 2d 66 69 6c 65 20 28 73 74 72  (input-file (str
01c0: 69 6e 67 2d 61 70 70 65 6e 64 20 22 24 63 75 72  ing-append "$cur
01d0: 74 6d 70 64 69 72 22 20 44 49 52 2d 53 45 50 41  tmpdir" DIR-SEPA
01e0: 52 41 54 4f 52 20 22 24 69 6e 22 29 29 0a 20 20  RATOR "$in")).  
01f0: 20 20 20 20 20 20 20 20 20 20 20 28 69 6d 61 67             (imag
0200: 65 20 28 63 61 72 20 28 67 69 6d 70 2d 66 69 6c  e (car (gimp-fil
0210: 65 2d 6c 6f 61 64 20 52 55 4e 2d 4e 4f 4e 49 4e  e-load RUN-NONIN
0220: 54 45 52 41 43 54 49 56 45 20 69 6e 70 75 74 2d  TERACTIVE input-
0230: 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 29  file input-file)
0240: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0250: 28 6c 61 79 65 72 20 28 63 61 72 20 28 67 69 6d  (layer (car (gim
0260: 70 2d 69 6d 61 67 65 2d 67 65 74 2d 61 63 74 69  p-image-get-acti
0270: 76 65 2d 6c 61 79 65 72 20 69 6d 61 67 65 29 29  ve-layer image))
0280: 29 20 29 0a 20 20 20 20 20 20 20 20 28 70 6c 75  ) ).        (plu
0290: 67 2d 69 6e 2d 77 61 76 65 73 20 52 55 4e 2d 4e  g-in-waves RUN-N
02a0: 4f 4e 49 4e 54 45 52 41 43 54 49 56 45 0a 20 20  ONINTERACTIVE.  
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02c0: 20 20 20 20 20 69 6d 61 67 65 0a 20 20 20 20 20       image.     
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02e0: 20 20 6c 61 79 65 72 0a 20 20 20 20 20 20 20 20    layer.        
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24                 $
0300: 70 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  p0.             
0310: 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d            (next-
0320: 70 68 61 73 65 29 0a 20 20 20 20 20 20 20 20 20  phase).         
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 70                $p
0340: 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  1.              
0350: 20 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20           0.     
0360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0370: 20 20 46 41 4c 53 45 29 0a 20 20 20 20 20 20 20    FALSE).       
0380: 20 28 72 66 78 2d 73 61 76 65 2d 66 72 61 6d 65   (rfx-save-frame
0390: 20 69 6d 61 67 65 20 22 24 6f 75 74 22 29 20 0a   image "$out") .
03a0: 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20          ).      
03b0: 29 0a 20 20 20 20 7d 0a 20 20 29 3b 0a 0a        ).    }.  );..