RFX-GIMP

Hex Artifact Content
Login

Artifact a912832b94375a9cbab0cc14abaf1ff13c47ed7c:


0000: 23 20 24 70 30 20 3b 20 70 65 72 69 6f 64 20 28  # $p0 ; period (
0010: 69 6e 20 70 69 78 65 6c 73 29 0a 23 20 24 70 31  in pixels).# $p1
0020: 20 3b 20 61 6d 70 6c 69 74 75 64 65 0a 23 20 24   ; amplitude.# $
0030: 70 32 20 3b 20 61 6d 70 6c 69 74 75 64 65 20 6d  p2 ; amplitude m
0040: 6f 64 75 6c 61 74 69 6f 6e 20 63 79 63 6c 65 73  odulation cycles
0050: 20 28 30 3d 6e 6f 6e 65 2c 20 6e 75 6d 62 65 72   (0=none, number
0060: 20 63 79 63 6c 65 73 20 64 75 72 69 6e 67 20 66   cycles during f
0070: 72 61 6d 65 20 73 65 71 75 65 6e 63 65 29 0a 23  rame sequence).#
0080: 20 24 70 33 20 3b 20 6d 6f 64 75 6c 61 74 69 6f   $p3 ; modulatio
0090: 6e 20 74 79 70 65 20 6c 69 6e 65 61 72 2f 73 69  n type linear/si
00a0: 6e 75 73 6f 69 64 61 6c 20 28 64 72 6f 70 64 6f  nusoidal (dropdo
00b0: 77 6e 29 0a 23 20 24 70 34 20 3b 20 64 69 72 65  wn).# $p4 ; dire
00c0: 63 74 69 6f 6e 20 28 62 6f 6f 6c 3a 20 68 6f 72  ction (bool: hor
00d0: 69 7a 3d 30 20 76 65 72 74 3d 31 29 0a 23 20 24  iz=0 vert=1).# $
00e0: 70 35 20 3b 20 65 64 67 65 20 74 79 70 65 20 28  p5 ; edge type (
00f0: 64 72 6f 70 64 6f 77 6e 3a 20 73 6d 65 61 72 2c  dropdown: smear,
0100: 20 77 72 61 70 2c 20 62 6c 61 6e 6b 29 0a 23 20   wrap, blank).# 
0110: 24 70 36 20 3b 20 73 69 6e 65 20 77 61 76 65 20  $p6 ; sine wave 
0120: 20 28 72 61 64 69 6f 20 67 72 6f 75 70 20 31 29   (radio group 1)
0130: 0a 23 20 24 70 37 20 3b 20 74 72 69 61 6e 67 6c  .# $p7 ; triangl
0140: 65 20 20 20 28 72 61 64 69 6f 20 67 72 6f 75 70  e   (radio group
0150: 20 31 29 0a 23 20 24 70 38 20 3b 20 76 65 6c 6f   1).# $p8 ; velo
0160: 63 69 74 79 20 28 30 3d 63 6f 6e 73 74 61 6e 74  city (0=constant
0170: 2c 20 65 6c 73 65 20 6e 75 6d 62 65 72 20 6f 66  , else number of
0180: 20 70 69 78 65 6c 73 20 73 68 69 66 74 65 64 20   pixels shifted 
0190: 65 61 63 68 20 66 72 61 6d 65 29 0a 0a 23 20 4e  each frame)..# N
01a0: 6f 74 65 3a 20 47 49 4d 50 27 73 20 52 69 70 70  ote: GIMP's Ripp
01b0: 6c 65 20 70 6c 75 67 2d 69 6e 20 64 6f 65 73 20  le plug-in does 
01c0: 6e 6f 74 20 64 69 72 65 63 74 6c 79 20 73 75 70  not directly sup
01d0: 70 6f 72 74 20 65 69 74 68 65 72 20 70 68 61 73  port either phas
01e0: 65 20 73 68 69 66 74 69 6e 67 0a 23 20 20 20 20  e shifting.#    
01f0: 20 20 20 6f 72 20 6e 65 67 61 74 69 76 65 20 61     or negative a
0200: 6d 70 6c 69 74 75 64 65 73 2e 20 54 6f 20 69 6d  mplitudes. To im
0210: 70 6c 65 6d 65 6e 74 20 70 68 61 73 65 20 73 68  plement phase sh
0220: 69 66 74 69 6e 67 2c 20 69 74 20 69 73 20 74 68  ifting, it is th
0230: 65 72 65 66 6f 72 65 0a 23 20 20 20 20 20 20 20  erefore.#       
0240: 6e 65 63 65 73 73 61 72 79 20 74 6f 20 72 65 73  necessary to res
0250: 69 7a 65 20 74 68 65 20 64 72 61 77 61 62 6c 65  ize the drawable
0260: 20 62 79 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f   by the amount o
0270: 66 20 74 68 65 20 73 68 69 66 74 2e 20 54 6f 0a  f the shift. To.
0280: 23 20 20 20 20 20 20 20 61 63 63 6f 6d 6d 6f 64  #       accommod
0290: 61 74 65 20 6e 65 67 61 74 69 76 65 20 61 6d 70  ate negative amp
02a0: 6c 69 74 75 64 65 73 2c 20 74 68 65 20 65 66 66  litudes, the eff
02b0: 65 63 74 20 69 73 20 61 6c 73 6f 20 70 68 61 73  ect is also phas
02c0: 65 20 73 68 69 66 74 65 64 0a 23 20 20 20 20 20  e shifted.#     
02d0: 20 20 62 79 20 68 61 6c 66 20 74 68 65 20 70 65    by half the pe
02e0: 72 69 6f 64 2e 0a 23 0a 23 20 20 20 20 20 20 20  riod..#.#       
02f0: 6e 65 78 74 2d 6d 6f 64 75 6c 61 74 69 6f 6e 20  next-modulation 
0300: 61 6e 64 20 72 66 78 2d 72 69 70 70 6c 65 2d 70  and rfx-ripple-p
0310: 68 61 73 65 20 61 72 65 20 65 61 63 68 20 61 20  hase are each a 
0320: 70 61 69 72 20 63 6f 6e 74 61 69 6e 69 6e 67 0a  pair containing.
0330: 23 20 20 20 20 20 20 20 74 68 65 20 63 75 72 72  #       the curr
0340: 65 6e 74 20 76 61 6c 75 65 20 61 6e 64 20 74 68  ent value and th
0350: 65 20 69 6e 63 72 65 6d 65 6e 74 20 61 6d 6f 75  e increment amou
0360: 6e 74 2e 20 42 6f 74 68 20 6e 65 65 64 20 74 6f  nt. Both need to
0370: 20 62 65 20 64 65 66 69 6e 65 64 0a 23 20 20 20   be defined.#   
0380: 20 20 20 20 67 6c 6f 62 61 6c 6c 79 20 61 6e 64      globally and
0390: 20 74 68 65 72 65 66 6f 72 65 20 63 61 6e 20 6e   therefore can n
03a0: 6f 74 20 62 65 20 64 65 66 69 6e 65 64 20 77 69  ot be defined wi
03b0: 74 68 69 6e 20 61 20 6c 61 6d 62 64 61 2f 6c 65  thin a lambda/le
03c0: 74 2e 0a 23 0a 23 20 20 20 20 20 20 20 49 6e 20  t..#.#       In 
03d0: 74 68 65 20 63 61 73 65 20 6f 66 20 72 66 78 2d  the case of rfx-
03e0: 72 69 70 70 6c 65 2d 70 68 61 73 65 2c 20 74 68  ripple-phase, th
03f0: 65 20 76 61 6c 75 65 20 69 73 20 61 6e 20 6f 66  e value is an of
0400: 66 73 65 74 20 69 6e 20 74 68 65 20 0a 23 20 20  fset in the .#  
0410: 20 20 20 20 20 72 61 6e 67 65 20 30 20 3c 3d 20       range 0 <= 
0420: 58 20 3c 20 70 65 72 69 6f 64 20 28 70 65 72 69  X < period (peri
0430: 6f 64 20 69 73 20 69 6e 20 70 69 78 65 6c 73 29  od is in pixels)
0440: 2e 20 0a 23 0a 23 20 20 20 20 20 20 20 49 6e 20  . .#.#       In 
0450: 74 68 65 20 63 61 73 65 20 6f 66 20 72 66 78 2d  the case of rfx-
0460: 6d 6f 64 75 6c 61 74 69 6f 6e 2c 20 74 68 65 20  modulation, the 
0470: 76 61 6c 75 65 20 69 73 20 61 6e 20 6f 66 66 73  value is an offs
0480: 65 74 20 74 68 61 74 20 69 73 20 69 6e 20 74 68  et that is in th
0490: 65 0a 23 20 20 20 20 20 20 20 72 61 6e 67 65 20  e.#       range 
04a0: 30 20 3c 3d 20 58 20 3c 20 31 2e 20 54 68 65 20  0 <= X < 1. The 
04b0: 73 63 72 69 70 74 20 74 68 65 6e 20 64 65 74 65  script then dete
04c0: 72 6d 69 6e 65 73 20 74 68 65 20 73 63 61 6c 69  rmines the scali
04d0: 6e 67 20 6f 66 20 0a 23 20 20 20 20 20 20 20 74  ng of .#       t
04e0: 68 65 20 61 63 74 75 61 6c 20 72 69 70 70 6c 65  he actual ripple
04f0: 20 61 6d 70 6c 69 74 75 64 65 20 62 61 73 65 64   amplitude based
0500: 20 75 70 6f 6e 20 74 68 65 20 65 76 61 6c 75 61   upon the evalua
0510: 74 69 6f 6e 20 6f 66 20 65 69 74 68 65 72 0a 23  tion of either.#
0520: 20 20 20 20 20 20 20 74 68 65 20 74 72 69 61 6e         the trian
0530: 67 6c 65 20 6f 72 20 73 69 6e 75 73 6f 69 64 61  gle or sinusoida
0540: 6c 2e 0a 23 0a 26 72 66 78 5f 73 65 6e 64 6d 73  l..#.&rfx_sendms
0550: 67 20 28 0a 20 20 71 71 7b 0a 20 20 20 20 28 62  g (.  qq{.    (b
0560: 65 67 69 6e 0a 20 20 20 20 20 20 28 69 66 20 28  egin.      (if (
0570: 3d 20 24 66 72 61 6d 65 20 24 73 74 61 72 74 29  = $frame $start)
0580: 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65  .        (define
0590: 20 6e 65 78 74 2d 6d 6f 64 75 6c 61 74 69 6f 6e   next-modulation
05a0: 20 28 6d 61 6b 65 2d 70 72 6f 67 72 65 73 73 6f   (make-progresso
05b0: 72 20 30 20 28 2a 20 24 70 32 20 28 2f 20 28 73  r 0 (* $p2 (/ (s
05c0: 75 63 63 20 28 2d 20 24 65 6e 64 20 24 73 74 61  ucc (- $end $sta
05d0: 72 74 29 29 29 29 20 31 2e 30 29 29 20 29 0a 20  rt)))) 1.0)) ). 
05e0: 20 20 20 20 20 28 69 66 20 28 3d 20 24 66 72 61       (if (= $fra
05f0: 6d 65 20 24 73 74 61 72 74 29 0a 20 20 20 20 20  me $start).     
0600: 20 20 20 28 64 65 66 69 6e 65 20 6e 65 78 74 2d     (define next-
0610: 70 68 61 73 65 20 28 6d 61 6b 65 2d 70 72 6f 67  phase (make-prog
0620: 72 65 73 73 6f 72 20 30 20 0a 20 20 20 20 20 20  ressor 0 .      
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0650: 20 20 20 20 20 20 28 69 66 20 28 3e 20 24 70 38        (if (> $p8
0660: 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20   0).            
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0690: 20 20 28 2d 20 24 70 30 20 24 70 38 29 20 0a 20    (- $p0 $p8) . 
06a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20               (- 
06d0: 24 70 38 29 20 29 0a 20 20 20 20 20 20 20 20 20  $p8) ).         
06e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0700: 20 20 20 24 70 30 20 29 29 20 29 0a 20 20 20 20     $p0 )) ).    
0710: 20 20 28 6c 65 74 20 28 28 70 65 72 69 6f 64 20    (let ((period 
0720: 24 70 30 29 0a 20 20 20 20 20 20 20 20 20 20 20  $p0).           
0730: 20 28 61 6d 70 6c 69 74 75 64 65 20 24 70 31 29   (amplitude $p1)
0740: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f  .            (mo
0750: 64 2d 63 79 63 6c 65 73 20 24 70 32 29 0a 20 20  d-cycles $p2).  
0760: 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 2d 6c            (mod-l
0770: 69 6e 65 61 72 20 24 70 33 29 0a 20 20 20 20 20  inear $p3).     
0780: 20 20 20 20 20 20 20 28 64 69 72 65 63 74 69 6f         (directio
0790: 6e 20 24 70 34 29 0a 20 20 20 20 20 20 20 20 20  n $p4).         
07a0: 20 20 20 28 65 64 67 65 20 24 70 35 29 0a 20 20     (edge $p5).  
07b0: 20 20 20 20 20 20 20 20 20 20 28 73 69 6e 65 20            (sine 
07c0: 24 70 36 29 0a 20 20 20 20 20 20 20 20 20 20 20  $p6).           
07d0: 20 28 74 72 69 61 6e 67 6c 65 20 24 70 37 29 0a   (triangle $p7).
07e0: 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 6c              (vel
07f0: 6f 63 69 74 79 20 28 2d 20 24 70 38 29 29 0a 20  ocity (- $p8)). 
0800: 20 20 20 20 20 20 20 20 20 20 20 28 70 68 61 73             (phas
0810: 65 2d 6f 66 66 73 65 74 20 28 6e 65 78 74 2d 70  e-offset (next-p
0820: 68 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20  hase)).         
0830: 20 20 20 28 63 75 72 72 2d 6d 6f 64 75 6c 61 74     (curr-modulat
0840: 69 6f 6e 20 28 6e 65 78 74 2d 6d 6f 64 75 6c 61  ion (next-modula
0850: 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20  tion)).         
0860: 20 20 20 29 0a 20 20 20 20 20 20 20 20 28 6c 65     ).        (le
0870: 74 2a 20 28 28 69 6e 70 75 74 2d 66 69 6c 65 20  t* ((input-file 
0880: 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22  (string-append "
0890: 24 63 75 72 74 6d 70 64 69 72 22 20 44 49 52 2d  $curtmpdir" DIR-
08a0: 53 45 50 41 52 41 54 4f 52 20 22 24 69 6e 22 29  SEPARATOR "$in")
08b0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
08c0: 20 28 69 6d 61 67 65 20 28 63 61 72 20 28 67 69   (image (car (gi
08d0: 6d 70 2d 66 69 6c 65 2d 6c 6f 61 64 20 52 55 4e  mp-file-load RUN
08e0: 2d 4e 4f 4e 49 4e 54 45 52 41 43 54 49 56 45 20  -NONINTERACTIVE 
08f0: 69 6e 70 75 74 2d 66 69 6c 65 20 69 6e 70 75 74  input-file input
0900: 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20  -file))).       
0910: 20 20 20 20 20 20 20 20 28 6c 61 79 65 72 20 28          (layer (
0920: 63 61 72 20 28 67 69 6d 70 2d 69 6d 61 67 65 2d  car (gimp-image-
0930: 67 65 74 2d 61 63 74 69 76 65 2d 6c 61 79 65 72  get-active-layer
0940: 20 69 6d 61 67 65 29 29 29 20 29 0a 20 20 20 20   image))) ).    
0950: 20 20 20 20 20 20 3b 20 63 61 6c 63 75 6c 61 74        ; calculat
0960: 65 20 6c 61 79 65 72 20 6f 66 66 66 73 65 74 20  e layer offfset 
0970: 6f 77 69 6e 67 20 74 6f 20 61 6e 69 6d 61 74 65  owing to animate
0980: 64 20 70 68 61 73 65 0a 20 20 20 20 20 20 20 20  d phase.        
0990: 20 20 28 73 65 74 21 20 61 6d 70 6c 69 74 75 64    (set! amplitud
09a0: 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28  e .            (
09b0: 2a 20 61 6d 70 6c 69 74 75 64 65 0a 20 20 20 20  * amplitude.    
09c0: 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 7a            (if (z
09d0: 65 72 6f 3f 20 6d 6f 64 2d 63 79 63 6c 65 73 29  ero? mod-cycles)
09e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
09f0: 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   1.             
0a00: 20 20 20 28 6c 65 74 20 28 28 66 72 61 63 74 20     (let ((fract 
0a10: 28 2d 20 63 75 72 72 2d 6d 6f 64 75 6c 61 74 69  (- curr-modulati
0a20: 6f 6e 20 28 74 72 75 6e 63 61 74 65 20 63 75 72  on (truncate cur
0a30: 72 2d 6d 6f 64 75 6c 61 74 69 6f 6e 29 29 29 29  r-modulation))))
0a40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0a50: 20 20 20 28 69 66 20 6d 6f 64 2d 6c 69 6e 65 61     (if mod-linea
0a60: 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r.              
0a70: 20 20 20 20 20 20 28 63 6f 6e 64 20 0a 20 20 20        (cond .   
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 20 20 28 28 3c 20 66 72 61 63 74 20 30 2e 32     ((< fract 0.2
0aa0: 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  5).             
0ab0: 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 61 6d             (* am
0ac0: 70 6c 69 74 75 64 65 20 66 72 61 63 74 20 34 29  plitude fract 4)
0ad0: 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   ).             
0ae0: 20 20 20 20 20 20 20 20 20 28 28 3c 20 66 72 61           ((< fra
0af0: 63 74 20 30 2e 35 30 29 0a 20 20 20 20 20 20 20  ct 0.50).       
0b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b10: 20 28 2a 20 61 6d 70 6c 69 74 75 64 65 20 28 2d   (* amplitude (-
0b20: 20 31 20 28 2a 20 28 2d 20 66 72 61 63 74 20 30   1 (* (- fract 0
0b30: 2e 32 35 29 20 34 29 29 29 20 29 0a 20 20 20 20  .25) 4))) ).    
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b50: 20 20 28 28 3c 20 66 72 61 63 74 20 30 2e 37 35    ((< fract 0.75
0b60: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ).              
0b70: 20 20 20 20 20 20 20 20 20 20 28 2a 20 61 6d 70            (* amp
0b80: 6c 69 74 75 64 65 20 28 2d 20 28 2a 20 61 6d 70  litude (- (* amp
0b90: 6c 69 74 75 64 65 20 28 2d 20 66 72 61 63 74 20  litude (- fract 
0ba0: 30 2e 35 29 20 34 29 29 29 20 29 0a 20 20 20 20  0.5) 4))) ).    
0bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0bc0: 20 20 28 65 6c 73 65 0a 20 20 20 20 20 20 20 20    (else.        
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0be0: 28 2d 20 28 2a 20 61 6d 70 6c 69 74 75 64 65 20  (- (* amplitude 
0bf0: 28 2d 20 66 72 61 63 74 20 30 2e 37 35 29 20 34  (- fract 0.75) 4
0c00: 29 20 31 29 20 29 29 29 0a 20 20 20 20 20 20 20  ) 1) ))).       
0c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69               (si
0c20: 6e 20 28 2a 20 32 20 2a 70 69 2a 20 66 72 61 63  n (* 2 *pi* frac
0c30: 74 29 29 20 29 29 29 29 0a 20 20 20 20 20 20 20  t)) )))).       
0c40: 20 20 20 28 77 68 65 6e 20 28 3c 20 61 6d 70 6c     (when (< ampl
0c50: 69 74 75 64 65 20 30 29 0a 20 20 20 20 20 20 20  itude 0).       
0c60: 20 20 20 20 20 28 73 65 74 21 20 70 68 61 73 65       (set! phase
0c70: 2d 6f 66 66 73 65 74 20 28 2b 20 70 68 61 73 65  -offset (+ phase
0c80: 2d 6f 66 66 73 65 74 20 28 2f 20 70 65 72 69 6f  -offset (/ perio
0c90: 64 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 20  d 2))).         
0ca0: 20 20 20 28 69 66 20 28 3e 3d 20 70 68 61 73 65     (if (>= phase
0cb0: 2d 6f 66 66 73 65 74 20 70 65 72 69 6f 64 29 0a  -offset period).
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73                (s
0cd0: 65 74 21 20 70 68 61 73 65 2d 6f 66 66 73 65 74  et! phase-offset
0ce0: 20 28 2d 20 70 68 61 73 65 2d 6f 66 66 73 65 74   (- phase-offset
0cf0: 20 70 65 72 69 6f 64 29 29 20 29 29 0a 20 20 20   period)) )).   
0d00: 20 20 20 20 20 20 20 28 73 65 74 21 20 61 6d 70         (set! amp
0d10: 6c 69 74 75 64 65 20 28 61 62 73 20 61 6d 70 6c  litude (abs ampl
0d20: 69 74 75 64 65 29 29 0a 20 20 20 20 20 20 20 20  itude)).        
0d30: 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72 6f 3f    (unless (zero?
0d40: 20 70 68 61 73 65 2d 6f 66 66 73 65 74 29 0a 20   phase-offset). 
0d50: 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28             (if (
0d60: 7a 65 72 6f 3f 20 64 69 72 65 63 74 69 6f 6e 29  zero? direction)
0d70: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   .              
0d80: 28 67 69 6d 70 2d 6c 61 79 65 72 2d 72 65 73 69  (gimp-layer-resi
0d90: 7a 65 20 6c 61 79 65 72 0a 20 20 20 20 20 20 20  ze layer.       
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0db0: 20 20 20 20 20 20 20 20 20 20 24 77 69 64 74 68            $width
0dc0: 0a 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 28 2b 20 70 68 61 73 65 2d 6f 66 66 73 65    (+ phase-offse
0df0: 74 20 24 68 65 69 67 68 74 29 0a 20 20 20 20 20  t $height).     
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 30 0a 20 20              0.  
0e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
0e40: 68 61 73 65 2d 6f 66 66 73 65 74 20 29 0a 20 20  hase-offset ).  
0e50: 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 6d              (gim
0e60: 70 2d 6c 61 79 65 72 2d 72 65 73 69 7a 65 20 6c  p-layer-resize l
0e70: 61 79 65 72 0a 20 20 20 20 20 20 20 20 20 20 20  ayer.           
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e90: 20 20 20 20 20 20 28 2b 20 70 68 61 73 65 2d 6f        (+ phase-o
0ea0: 66 66 73 65 74 20 24 77 69 64 74 68 29 0a 20 20  ffset $width).  
0eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24                 $
0ed0: 68 65 69 67 68 74 0a 20 20 20 20 20 20 20 20 20  height.         
0ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ef0: 20 20 20 20 20 20 20 20 70 68 61 73 65 2d 6f 66          phase-of
0f00: 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20  fset.           
0f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f20: 20 20 20 20 20 20 30 20 29 29 29 0a 20 20 20 20        0 ))).    
0f30: 20 20 20 20 20 20 28 70 6c 75 67 2d 69 6e 2d 72        (plug-in-r
0f40: 69 70 70 6c 65 20 52 55 4e 2d 4e 4f 4e 49 4e 54  ipple RUN-NONINT
0f50: 45 52 41 43 54 49 56 45 20 69 6d 61 67 65 20 6c  ERACTIVE image l
0f60: 61 79 65 72 0a 20 20 20 20 20 20 20 20 20 20 20  ayer.           
0f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
0f80: 65 72 69 6f 64 0a 20 20 20 20 20 20 20 20 20 20  eriod.          
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fa0: 61 6d 70 6c 69 74 75 64 65 0a 20 20 20 20 20 20  amplitude.      
0fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fc0: 20 20 20 20 64 69 72 65 63 74 69 6f 6e 0a 20 20      direction.  
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0fe0: 20 20 20 20 20 20 20 20 65 64 67 65 0a 20 20 20          edge.   
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1000: 20 20 20 20 20 20 20 73 69 6e 65 0a 20 20 20 20         sine.    
1010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1020: 20 20 20 20 20 20 54 52 55 45 20 20 3b 20 61 6c        TRUE  ; al
1030: 77 61 79 73 20 75 73 65 20 61 6e 74 69 61 6c 69  ways use antiali
1040: 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  as.             
1050: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 41 4c               FAL
1060: 53 45 20 3b 20 77 65 20 64 6f 6e 27 74 20 6e 65  SE ; we don't ne
1070: 65 64 20 74 69 6c 61 62 69 6c 69 74 79 0a 20 20  ed tilability.  
1080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1090: 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20          ).      
10a0: 20 20 20 20 28 67 69 6d 70 2d 6c 61 79 65 72 2d      (gimp-layer-
10b0: 72 65 73 69 7a 65 2d 74 6f 2d 69 6d 61 67 65 2d  resize-to-image-
10c0: 73 69 7a 65 20 6c 61 79 65 72 29 0a 20 20 20 20  size layer).    
10d0: 20 20 20 20 20 20 28 72 66 78 2d 73 61 76 65 2d        (rfx-save-
10e0: 66 72 61 6d 65 20 69 6d 61 67 65 20 22 24 6f 75  frame image "$ou
10f0: 74 22 29 20 0a 20 20 20 20 20 20 20 20 20 20 29  t") .          )
1100: 0a 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20  .        ).     
1110: 20 29 0a 20 20 20 20 7d 0a 20 20 29 3b 0a 0a      ).    }.  );..