SWF Scout
SWF Scout ActiveX/NET library
Morphing shapes in flash movies generated by the SWF Scout library
Generated Flash movie:
VB source code:
' Morphing.vbs
W = 640
H = 480
Set
Movie = CreateObject("SWFScout.FlashMovie")
Movie.InitLibrary
"demo","demo"
' Movie
creating and setting parameters
Movie.BeginMovie
0,0,W,H,1,12,6
Movie.Compressed
= true
Movie.SetBackgroundColor
255,255,255
Font = Movie.AddFont(
"Arial",12,true,false,false,false,0)
FontBig = Movie.AddFont("Arial",40,true,false,false,false,DEFAULT_CHARSET)
'////////////////
' MORPHING
'//////////////////////
Text = Movie.AddText2
("Morphing",0,0,0,255,FontBig, W / 2, H / 2,2)
Movie.PlaceText
Text,Movie.CurrentMaxDepth '
place text
Movie.PLACE_FadeOut
0.5 ' fade out text
Movie.ShowFrame
10
Movie.PLACE_FadeIn
0.5 ' fade in
Text = Movie.AddText
("Morphing objects",0,0,0,255,Font, 0, 160, 350, 160)
Movie.PlaceText
Text,Movie.CurrentMaxDepth '
place text
Movie.PLACE_FadeOut
0.5 ' fade out text
Morph = Movie.AddMorphShape
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_SetBounds
0, 0, 50, 50
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_SetBounds
-50, -50, 40, 40
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_AddLineStyle
0,0,255,255,false,1
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_AddLineStyle
255,255,0,255,false,12
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_SetSolidColor
25,25,25,true,255
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_SetSolidColor
255,0,0,true,255
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_MoveDelta
-50,0
Movie.SHAPE_Ellipse
-70,-70,70,0
Movie.SHAPE_Mirror
true,false
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_Star
0, 0, 50, 30, 8, true
Movie.SHAPE_Mirror
true,false
j= Movie.CurrentMaxDepth
FOR
i=0 TO
20
Movie.PlaceShape Morph,j
Movie.PLACE_Ratio = i / 20 * 65535
IF
(i>0) THEN
Movie.PLACE_AutoRemoveDepth =
true
ELSE
Movie.PLACE_SetTranslate 100, 100
END IF
Movie.ShowFrame 1
NEXT
Movie.ShowFrame 2
Movie.RemoveObject j
Morph = Movie.AddMorphShape
Movie.SHAPE_EdgesType= 0 '
ssetBeginEdges = 0
Movie.SHAPE_SetBounds -80, -80, 80, 80
Movie.SHAPE_EdgesType= 1 '
ssetEndEdges = 1
Movie.SHAPE_SetBounds -3, -3, 103, 63
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_AddLineStyle
255,255,0,true,255,12
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_AddLineStyle
0,0,0,255,true,6
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_BeginLinearGradient
false
Movie.SHAPE_AddLinearGradientColor
255,0,0,255,0 ' red
Movie.SHAPE_AddLinearGradientColor
0,0,0,255,0 ' black
Movie.SHAPE_EndLinearGradient
90
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_BeginLinearGradient
false
Movie.SHAPE_AddLinearGradientColor
0,0,255,255,0 ' red
Movie.SHAPE_AddLinearGradientColor
0,0,0,255,0 ' black
Movie.SHAPE_EndLinearGradient
180
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_Star
0, 0, 50, 30, 8, true
Movie.SHAPE_Mirror
true,false
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_MoveDelta
-100, 0
Movie.SHAPE_LineDelta
20, 0
Movie.SHAPE_LineDelta
0, 30
Movie.SHAPE_LineDelta
50, 0
Movie.SHAPE_LineDelta
0, -30
Movie.SHAPE_LineDelta
30, 0
Movie.SHAPE_LineDelta
0, 60
Movie.SHAPE_LineDelta
-100, 0
Movie.SHAPE_LineDelta
0, -60
Movie.SHAPE_Mirror
true,false
j= Movie.CurrentMaxDepth
for
i = 0 to
20
Movie.PlaceShape Morph, j
Movie.PLACE_Ratio = Round (i / 20 * 65535)
if
(i>0) then
Movie.PLACE_AutoRemoveDepth =
true
else
Movie.PLACE_SetTranslate 100, 100
END IF
Movie.ShowFrame 1
NEXT
Movie.ShowFrame 2
Movie.RemoveObject j
Morph = Movie.AddMorphShape
Movie.SHAPE_EdgesType= 0 '
ssetBeginEdges = 0
Movie.SHAPE_SetBounds -3, -3, 103, 63
Movie.SHAPE_EdgesType= 1 '
ssetEndEdges = 1
Movie.SHAPE_SetBounds 0, 0, 50, 50
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_AddLineStyle
0,0,0,true,255,6
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_AddLineStyle
0,0,255,255,true,1
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_BeginRadialGradient
Movie.SHAPE_AddRadialGradientColor
0,0,0,255
Movie.SHAPE_AddRadialGradientColor
0,0,255,255
Movie.SHAPE_EndRadialGradient
50,70
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_BeginRadialGradient
Movie.SHAPE_AddRadialGradientColor
255,0,0,255
Movie.SHAPE_AddRadialGradientColor
215,125,125,255
Movie.SHAPE_EndRadialGradient
50,50
Movie.SHAPE_EdgesType=
0 ' ssetBeginEdges =
0
Movie.SHAPE_MoveDelta
-100, 0
Movie.SHAPE_LineDelta
20, 0
Movie.SHAPE_LineDelta
0, 30
Movie.SHAPE_LineDelta
50, 0
Movie.SHAPE_LineDelta
0, -30
Movie.SHAPE_LineDelta
30, 0
Movie.SHAPE_LineDelta
0, 60
Movie.SHAPE_LineDelta
-100, 0
Movie.SHAPE_LineDelta
0, -60
Movie.SHAPE_Mirror
true,
false
Movie.SHAPE_EdgesType=
1 ' ssetEndEdges = 1
Movie.SHAPE_MoveDelta
-50, 0
Movie.SHAPE_Ellipse
-50,0,50, 50
Movie.SHAPE_Mirror
true,
false
j= Movie.CurrentMaxDepth
for
i = 0 to
20
Movie.PlaceShape Morph, j
Movie.PLACE_Ratio = Round (i / 20 * 65535)
if
(i>0) then
Movie.PLACE_AutoRemoveDepth =
true
else
Movie.PLACE_SetTranslate 100, 100
END IF
Movie.ShowFrame 1
NEXT
Movie.ShowFrame
10
Movie.EndMovie
Movie.SaveToFile
"Morphing.swf"
Products
| Download
| Purchase
| Support
| Contacts
| Testimonials
| 
|
ByteScout, 2003-2008. All other company and product names may be
trademarks of their respective companies. Privacy
Statement