RFX-GIMP

Check-in [cc8a371e9b]
Login

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

Overview
Comment:Fixed when pieces appear (previously they appeared one frame too late).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:cc8a371e9bb61997e8035872c1433e5cc8a464df
User & Date: saul 2012-06-09 13:20:36
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
08:35
Fixed so both start and end of transition are fully exposed frames. check-in: 4754a5b716 user: saul tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to transitions/jigsaw.loop.

80
81
82
83
84
85
86




87
88
89
90
91
92
93
..
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
            (gimp-layer-set-offsets b-layer 0 0) ))
        
        (gimp-image-delete image2)

        (gimp-layer-add-alpha layer)
        (gimp-selection-none image)





        (let loop ((number-of-keyframes (length rfx-jigsaw-keyframes))
                   (pieces rfx-jigsaw-pieces) )
          (unless (zero? number-of-keyframes)
            (let ((path (vector-ref (cadr (gimp-vectors-import-from-string image 
                                                              (car pieces)
                                                              -1
                                                              TRUE
................................................................................
                                    0 )))
              (gimp-vectors-to-selection path CHANNEL-OP-ADD TRUE FALSE 0 0)
              (loop (pred number-of-keyframes)
                    (cdr pieces) ))))
        (gimp-selection-grow image 1)
        (if (pair? rfx-jigsaw-keyframes)
          (gimp-edit-clear layer) )
        (when (and (pair? rfx-jigsaw-keyframes)
                   (>= $frame (car rfx-jigsaw-keyframes)) )
          (set! rfx-jigsaw-keyframes (cdr rfx-jigsaw-keyframes)) )

        (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
        (rfx-save-frame image "$out") 
        )
      )
    }
  );







>
>
>
>







 







<
<
<
<






80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
..
99
100
101
102
103
104
105




106
107
108
109
110
111
            (gimp-layer-set-offsets b-layer 0 0) ))
        
        (gimp-image-delete image2)

        (gimp-layer-add-alpha layer)
        (gimp-selection-none image)

        (when (and (pair? rfx-jigsaw-keyframes)
                   (>= $frame (car rfx-jigsaw-keyframes)) )
          (set! rfx-jigsaw-keyframes (cdr rfx-jigsaw-keyframes)) )

        (let loop ((number-of-keyframes (length rfx-jigsaw-keyframes))
                   (pieces rfx-jigsaw-pieces) )
          (unless (zero? number-of-keyframes)
            (let ((path (vector-ref (cadr (gimp-vectors-import-from-string image 
                                                              (car pieces)
                                                              -1
                                                              TRUE
................................................................................
                                    0 )))
              (gimp-vectors-to-selection path CHANNEL-OP-ADD TRUE FALSE 0 0)
              (loop (pred number-of-keyframes)
                    (cdr pieces) ))))
        (gimp-selection-grow image 1)
        (if (pair? rfx-jigsaw-keyframes)
          (gimp-edit-clear layer) )




        (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
        (rfx-save-frame image "$out") 
        )
      )
    }
  );