Behaviors

products:

ALSO SEE:


WHAT IS IT
FEATURES
UPDATE HISTORY
PRICING & LICENSING
SYSTEM REQUIREMENTS
ONLINE HELP
USER INTERFACE
TUTORIALS & SAMPLES
BEHAVIORS
DOWNLOAD

MPEG ADVANCE XTRA:

RATE SLIDER HANDLER


	Rate Slider Handler Used to create a slider handler to control the rate of playback of an Mpeg Advance Xtra sprite.

	-- Mpeg Advance Xtra Rate Slider Handler Behavior -- controls and monitors the playback rate of a target Mpeg Advance Xtra sprite -- based on the Video Time Slider from Director's behavior library version 1.1 -- You are free to use, modify and redistribute this code with your Director projects property pMaximumRate, pCurrentRate property pExtentSprite property pHiliteMember property pTracking property pNewLocH property pNewLocV property pMinScreen, pMaxScreen property pCurrentScreenVal property pExtentlength on beginSprite me me.pTracking = false me.pExtentSprite = 0 pMaximumRate = 2.0 pCurrentRate = 0 end on Mpeg_Advance_Slider_Properties me, sliderType, sliderRect, sliderSprite -- A base slider sprite has updated its properties -- We are only interested in the #rate slider base if sliderType=#rate then me.pExtentSprite = sliderSprite me.updateBaseSliderRect(sliderRect) end if end on updateBaseSliderRect me, sliderRect me.pMinScreen = sliderRect.left me.pMaxScreen = sliderRect.right me.pExtentlength = me.pMaxScreen - me.pMinScreen end on Mpeg_Advance_Broadcast_Properties me, paramList --The target Mpeg Advance Xtra sprite has broadcasted its current properties --We are only interested in the current playback rate pCurrentRate = paramList.rate end on prepareFrame me if me.pExtentSprite = 0 then --can not operate without a base slider sprite return end if if me.pTracking then --the handler sprite is being used to scrub the movie, calculate its current position based on the mouse location handle = me.spriteNum extent = me.pExtentSprite me.pNewLocH = the mouseH me.pNewLocV = sprite(extent).locV if me.pNewLocH < sprite(extent).left then me.pNewLocH = sprite(extent).left else if me.pNewLocH > sprite(extent).right then me.pNewLocH = sprite(extent).right end if me.pCurrentScreenVal = me.pNewLocH - me.pMinScreen sprite(handle).locV = me.pNewLocV sprite(handle).locH = me.pNewLocH --sends our current position information to another handler that will broadcast the message to the Mpeg Advance Xtra target sprite pCurrentRate = (float(me.pCurrentScreenVal) / float (me.pExtentlength)) * pMaximumRate SendAllSprites(#Mpeg_Advance_Command, #rate, pCurrentRate) else --handler is not pressed. Get the current values for duration and movietime broadcasted by the Mpeg Advance Xtra sprite, and use them to control the position of our handler, locked to the bounds of the extent sprite x = float(me.pCurrentRate) / float(me.pMaximumRate) handle = me.spriteNum extent = me.pExtentSprite screenX = sprite(extent).left + (x * (sprite(extent).right - sprite(extent).left)) me.pNewLocH = screenX me.pNewLocV = sprite(extent).locV if me.pNewLocH < sprite(extent).left then me.pNewLocH = sprite(extent).left else if me.pNewLocH > sprite(extent).right then me.pNewLocH = sprite(extent).right end if me.pCurrentScreenVal = me.pNewLocH - me.pMinScreen sprite(handle).locV = me.pNewLocV sprite(handle).locH = me.pNewLocH end if end on mouseDown me --change our sprite member to the highlighted state, and initiate tracking pTracking = true temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on mouseUp me --change our sprite member to the normal state, and finish tracking pTracking = false temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on mouseUpOutside me --change our sprite member to the normal state, and finish tracking pTracking = false temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on getPropertyDescriptionList if the currentspritenum = 0 then memdefault = 0 else memref = sprite(the currentspritenum).member memdefault = member (the membernum of member memref + 1) end if set description = [:] addprop description, #pHiliteMember, [#default: memdefault , #format:#graphic, #comment: "Hilite Member:"] return description end on getBehaviorDescription me return "Drag to slider 'handle' to enable control of video playback rate." & RETURN & "PARAMETER:" & RETURN & "• Hilite Member - Member to display while handle is being dragged." end
	DIRECTOR VERSIONS:		AUTHOR:		LAST UPDATED:
	8.5, MX, 2004, 11		Tabuleiro		March, 2008