Object

QTEffectSequence Class

Builds a QuickTime movie from two pictures and a QuickTime effect. Use QTEffectSequence as a constructor to create a QTEffectSequence object.

Properties
Frame
Image

# Notes

result = New QTEffectSequence(effect,image1,image2,frames)

Part | Type | Description
--- | --- | ---
result | QTEffectSequence | QTEffectSequence object, created from the values of the passed parameters.
effect | QTEffect | QT effect used in creating the sequence.
image1 | Picture | Initial image in sequence.
image2 | Picture | Final image in sequence.
frames | Integer | Number of frames in the sequence.

Use GetQTSMPTEEffect or GetQTCrossFadeEffect to obtain the value of effect.

# Example

This example creates a QuickTime movie from two pictures, p1 and p2, using the cross-fade effect.

Dim sequence as QTEffectSequence
Dim theEffect as QTEffect
theEffect= GetQTCrossFadeEffect
sequence= New QTEffectSequence (theEffect,p1,p2,96)

This example creates a QuickTime movie from two pictures that are displayed in ImageWells, ImageWell1 and ImageWell2. The movie demonstrates either a cross-fade effect (as in the first example) or a user-selected SMPTE effect. All of the SMPTE effects are listed in a ListBox named EffectsList. To select an SMPTE effect, the user selects RadioButton2 and clicks on the desired SMPTE effect displayed in EffectsList.

This code is in the Action event of a PushButton. The user clicks it after choosing either the cross-fade effect or a particular SMPTE effect.

Dim sequence asQTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
f= GetFolderItem("Movie")
m=f.CreateMovie
if Radiobutton1.value then
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEEffect( Val(EffectsList.Cell(EffectsList.ListIndex,1)))
End if
sequence= New QTEffectSequence(theEffect,ImageWell1.Image, _
ImageWell2.Image,96)
track=m.NewVideoTrack(ImageWell1.Image.width, ImageWell1.Image.height, 32)
For i=1 to 96
sequence.frame=i
track.appendpicture sequence.image
progressBar1.value=i
Next
f.launch

# See Also

EditableMovie, QTEffect, QTEffectSequence, QTTrack classes; GetQTCrossFadeEffect, GetQTSMPTEEffect functions; MoviePlayer control.