Prev: what does this code mean?
Next: Windows Media Active X Control
From: Mike Crisp on 27 Feb 2006 08:53
When controlling a quicktime movie.... does anyone have a good script for Step
forward and Step Backward a few frames at a time (as with its own built in
controls on the right hand side) all available examples only refer to fast
forward / backward.

Using directors in built controls I have adjusted the play to .5 and -.5 but
because this is a mousedown event it does not really work on a single click.
(changed to on mouse up but then plays continually).

I have also tried the following link from
http://www.mediamacros.com/item/item-942273858/ but its not really what I'm
after. Adjusting the frame rate does not have the exact result I'm after.

MpegAdvxtra was perfect but will not work with .mov files (unless the target
PCs have a complicated mix of codecs etc)

I cant believe no-one has ever needed to advance a quickTime movie in this way
before.

Any help gratefully received.

From: Rob Dillon *TMM* on 27 Feb 2006 11:18
to step forward on a mouseUp:

-----------
property thisSprite
property DVSprite
property thisJump
property thisDVDuration

on getPropertyDescriptionList
myPropList = [:]
myPropList.addProp(#DVSprite,[#comment:"enter the DV sprite channel
number:",#format:#integer,#default:""])
myPropList.addProp(#thisJump,[#comment:"number of frames to
move:",#format:#integer,#range:[#min:1,#max:10],#default:3])
return myPropList
end

on beginSprite me
thisSprite = me.spriteNum
thisDVDuration = sprite(DVSprite).member.duration
end

on mouseUp me
if (sprite(DVSprite).movieTime + thisJump) < thisDVDuration then
sprite(DVSprite).movieTime = sprite(DVSprite).movieTime + thisJump
end if
end
---------
this will bounce you forward by the number of frames that you select
on each mouseUp click.

if you want to have both a single step and a fast forward on the same
button:

-----------
property thisSprite
property DVSprite
property thisJump
property thisDVDuration
property animateMe

on getPropertyDescriptionList
myPropList = [:]
myPropList.addProp(#DVSprite,[#comment:"enter the DV sprite channel
number:",#format:#integer,#default:""])
myPropList.addProp(#thisJump,[#comment:"number of frames to
move:",#format:#integer,#range:[#min:1,#max:10],#default:3])
return myPropList
end

on beginSprite me
thisSprite = me.spriteNum
thisDVDuration = sprite(DVSprite).member.duration
animateMe = 0
end

on mouseDown me
animateMe = 1
end

on mouseUp me
animateMe = 0
end

on exitFrame me
if animateMe then
if (sprite(DVSprite).movieTime + thisJump) < thisDVDuration then
sprite(DVSprite).movieTime = sprite(DVSprite).movieTime + thisJump
end if
end if
end
---------

To move backward, subtract the value of thisJump.

--
Rob
_______
Rob Dillon
Team Macromedia
http://www.ddg-designs.com
412-243-9119

http://www.macromedia.com/software/trial/
From: Rob Dillon *TMM* on 27 Feb 2006 12:55
yes it is:

on mouseDown me
sprite(DVSprite).movieRate = 0
end

--
Rob
_______
Rob Dillon
Team Macromedia
http://www.ddg-designs.com
412-243-9119

http://www.macromedia.com/software/trial/
From: Mike Crisp on 27 Feb 2006 12:39
Rob

Thats great, the step controls work really well.

What can I add to to make the movie stop and step. At the moment I have to
click my Stop (Pause) button then use the step buttons. I would like the user
to be able to automatically click step forward which stops the DV and moves it
in one button rather than click pause first.

I bet its dead simple !!

Mike

From: Mike Crisp on 28 Feb 2006 03:35
Thanks Rob.

Works like a dream !

Best regards

Mike

 | 
Pages: 1
Prev: what does this code mean?
Next: Windows Media Active X Control