RFX-GIMP

Check-in [0a9ba702a3]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Renamed 'make-progressor' to 'gen-progressor' so as to indicate result is a lambda.
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:0a9ba702a39eb7525d4d534048ce8dcaaeca2d57
User & Date: saul 2012-06-10 21:52:12
Context
2012-06-10
21:52
Renamed 'make-progressor' to 'gen-progressor' so as to indicate result is a lambda. Leaf check-in: 0a9ba702a3 user: saul tags: trunk
2012-06-09
13:20
Fixed when pieces appear (previously they appeared one frame too late). check-in: cc8a371e9b user: saul tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to effects/default.preloop.

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()







|







157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()

Changes to effects/gap-edit.init.

177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()







|







177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()

Changes to effects/ripple.loop.

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#       by half the period.
#
#
&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-modulation (make-progressor 0 (* $p2 (/ (succ (- $end $start)))) 1.0)) )
      (if (= $frame $start)
        (define next-phase (make-progressor 0 
                                            (if (> $p8 0)
                                              (- $p0 $p8) 
                                              (- $p8) )
                                            $p0 )) )
      (let ((period $p0)
            (amplitude $p1)
            (mod-cycles $p2)







|

|







15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#       by half the period.
#
#
&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-modulation (gen-progressor 0 (* $p2 (/ (succ (- $end $start)))) 1.0)) )
      (if (= $frame $start)
        (define next-phase (gen-progressor 0 
                                            (if (> $p8 0)
                                              (- $p0 $p8) 
                                              (- $p8) )
                                            $p0 )) )
      (let ((period $p0)
            (amplitude $p1)
            (mod-cycles $p2)

Changes to effects/waves.loop.

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# $p2 ; velocity 
# $p3 ; outward (TRUE)

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-phase (make-progressor 0
                                            (if (zero? $p3) 
                                              (* $p2 (/ 360 (- $end $start)))
                                              (* $p2 (/ 360 (- $start $end))) ))))
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image))) )
        (plug-in-waves RUN-NONINTERACTIVE







|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# $p2 ; velocity 
# $p3 ; outward (TRUE)

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-phase (gen-progressor 0
                                            (if (zero? $p3) 
                                              (* $p2 (/ 360 (- $end $start)))
                                              (* $p2 (/ 360 (- $start $end))) ))))
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image))) )
        (plug-in-waves RUN-NONINTERACTIVE

Changes to scripts/clockwipe.script.

207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
...
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
# $p4_green
# $p4_blue

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-angle (make-progressor (/ *pi* 2) 
                                            (if (< (- $end $start) 0)
                                              0
                                              (* 2 *pi* (/ (succ (- $end $start)))) )
                                            (* *pi* 2) ))
        (define last-angle (next-angle)) )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))







|







 







|







207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
...
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
# $p4_green
# $p4_blue

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-angle (gen-progressor (/ *pi* 2) 
                                            (if (< (- $end $start) 0)
                                              0
                                              (* 2 *pi* (/ (succ (- $end $start)))) )
                                            (* *pi* 2) ))
        (define last-angle (next-angle)) )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))

Changes to scripts/color-match.script.

199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()







|







199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()

Changes to scripts/diffuse.script.

202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()







|







202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()

Changes to scripts/gap-edit.script.

300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
init|                              FALSE ; offs
init|                              FALSE ; phys
init|                              FALSE ; time
init|                              TRUE  ; comment
init|                              FALSE ; svtrans
init|                              )))
init|          (gimp-image-delete image) )))
init|    (define (make-progressor start delta . period)
init|      (let ((start start)
init|            (value start)
init|            (delta delta)
init|            (period (if (null? period)
init|                        #f
init|                        (car period)) ))
init|        (lambda ()







|







300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
init|                              FALSE ; offs
init|                              FALSE ; phys
init|                              FALSE ; time
init|                              TRUE  ; comment
init|                              FALSE ; svtrans
init|                              )))
init|          (gimp-image-delete image) )))
init|    (define (gen-progressor start delta . period)
init|      (let ((start start)
init|            (value start)
init|            (delta delta)
init|            (period (if (null? period)
init|                        #f
init|                        (car period)) ))
init|        (lambda ()

Changes to scripts/jigsaw.script.

206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
...
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
                           (k number-of-pieces) )
                  (if (zero? k)
                    lis
                    (let ((index (random number-of-pieces)))
                      (loop (append (list-tail lis index)
                                    (list-tail (reverse lis) (- (length lis)  index)) )
                            (pred k) ))))))
        (let ((next-keyframe (make-progressor $start (/ (- $end $start) (succ (* $p0 $p1))))))
          (next-keyframe) ; start with fully shown clipboard
          (set! rfx-jigsaw-keyframes (map next-keyframe rfx-jigsaw-pieces))
          )
        )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image)))







|







 







|







206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
...
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
                           (k number-of-pieces) )
                  (if (zero? k)
                    lis
                    (let ((index (random number-of-pieces)))
                      (loop (append (list-tail lis index)
                                    (list-tail (reverse lis) (- (length lis)  index)) )
                            (pred k) ))))))
        (let ((next-keyframe (gen-progressor $start (/ (- $end $start) (succ (* $p0 $p1))))))
          (next-keyframe) ; start with fully shown clipboard
          (set! rfx-jigsaw-keyframes (map next-keyframe rfx-jigsaw-pieces))
          )
        )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image)))

Changes to scripts/ripple.script.

207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
...
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
#       the actual ripple amplitude based upon the evaluation of either
#       the triangle or sinusoidal.
#
&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-modulation (make-progressor 0 (* $p2 (/ (succ (- $end $start)))) 1.0)) )
      (if (= $frame $start)
        (define next-phase (make-progressor 0 
                                            (if (> $p8 0)
                                              (- $p0 $p8) 
                                              (- $p8) )
                                            $p0 )) )
      (let ((period $p0)
            (amplitude $p1)
            (mod-cycles $p2)







|







 







|

|







207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
...
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
#       the actual ripple amplitude based upon the evaluation of either
#       the triangle or sinusoidal.
#
&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-modulation (gen-progressor 0 (* $p2 (/ (succ (- $end $start)))) 1.0)) )
      (if (= $frame $start)
        (define next-phase (gen-progressor 0 
                                            (if (> $p8 0)
                                              (- $p0 $p8) 
                                              (- $p8) )
                                            $p0 )) )
      (let ((period $p0)
            (amplitude $p1)
            (mod-cycles $p2)

Changes to scripts/waves.script.

202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
...
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (make-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
# $p2 ; velocity 
# $p3 ; outward (TRUE)

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-phase (make-progressor 0
                                            (if (zero? $p3) 
                                              (* $p2 (/ 360 (- $end $start)))
                                              (* $p2 (/ 360 (- $start $end))) ))))
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image))) )
        (plug-in-waves RUN-NONINTERACTIVE







|







 







|







202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
...
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
                              FALSE ; offs
                              FALSE ; phys
                              FALSE ; time
                              TRUE  ; comment
                              FALSE ; svtrans
                              )))
          (gimp-image-delete image) )))
    (define (gen-progressor start delta . period)
      (let ((start start)
            (value start)
            (delta delta)
            (period (if (null? period)
                        #f
                        (car period)) ))
        (lambda ()
................................................................................
# $p2 ; velocity 
# $p3 ; outward (TRUE)

&rfx_sendmsg (
  qq{
    (begin
      (if (= $frame $start)
        (define next-phase (gen-progressor 0
                                            (if (zero? $p3) 
                                              (* $p2 (/ 360 (- $end $start)))
                                              (* $p2 (/ 360 (- $start $end))) ))))
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image))) )
        (plug-in-waves RUN-NONINTERACTIVE

Changes to transitions/clock-wipe.loop.

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# $p4_green
# $p4_blue

&rfx_sendmsg (
  qq{
    (begin
      (when (= $frame $start)
        (define next-angle (make-progressor (/ *pi* 2) 
                                            (if (< (- $end $start) 0)
                                              0
                                              (* 2 *pi* (/ (succ (- $end $start)))) )
                                            (* *pi* 2) ))
        (define last-angle (/ *pi* 2)) )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))







|







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# $p4_green
# $p4_blue

&rfx_sendmsg (
  qq{
    (begin
      (when (= $frame $start)
        (define next-angle (gen-progressor (/ *pi* 2) 
                                            (if (< (- $end $start) 0)
                                              0
                                              (* 2 *pi* (/ (succ (- $end $start)))) )
                                            (* *pi* 2) ))
        (define last-angle (/ *pi* 2)) )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))

Changes to transitions/jigsaw.loop.

51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
                           (k number-of-pieces) )
                  (if (zero? k)
                    lis
                    (let ((index (random number-of-pieces)))
                      (loop (append (list-tail lis index)
                                    (list-tail (reverse lis) (- (length lis)  index)) )
                            (pred k) ))))))
        (let ((next-keyframe (make-progressor $start (/ (- $end $start) (succ (* $p0 $p1))))))
          (next-keyframe) ; start with fully shown clipboard
          (set! rfx-jigsaw-keyframes (map next-keyframe rfx-jigsaw-pieces))
          )
        )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image)))







|







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
                           (k number-of-pieces) )
                  (if (zero? k)
                    lis
                    (let ((index (random number-of-pieces)))
                      (loop (append (list-tail lis index)
                                    (list-tail (reverse lis) (- (length lis)  index)) )
                            (pred k) ))))))
        (let ((next-keyframe (gen-progressor $start (/ (- $end $start) (succ (* $p0 $p1))))))
          (next-keyframe) ; start with fully shown clipboard
          (set! rfx-jigsaw-keyframes (map next-keyframe rfx-jigsaw-pieces))
          )
        )
      (let* ((input-file (string-append "$curtmpdir" DIR-SEPARATOR "$in"))
             (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
             (layer (car (gimp-image-get-active-layer image)))