|
|
Create Web Server Side Swf Flash Animation from ASP JScript
- Create-Polygon
Flash swf File Size: 859 Bytes
<% @LANGUAGE="JScript"
%>
<%
Response.Buffer = true
Response.CacheControl = "no-cache"
var Movie = Server.CreateObject("eMarkASF.Movie")
Movie.SetSize( 600,229)
Movie.SetBackgroundColor( 255,
200, 0)
var color = Server.CreateObject("eMarkASF.Color")
color.ColorString = "Red"
var obj = Server.CreateObject("eMarkASF.FlashObject")
obj.CreatePolygon( 0, 0)
obj.AddPolygonLine(
-120, 160)
obj.AddPolygonLine(
240, 0)
obj.AddPolygonLine(
-120, -160)
obj.SolidFillColor
= color
obj.MoveCenterTo(
60, 150)
Movie.AddObject(
obj)
obj.CreatePolygon(
0,0)
obj.AddPolygonCurve(
120,-75,120,75)
obj.AddPolygonLineTo(
120,160)
obj.AddPolygonLineTo(
0,0)
color.ColorString
= "#00B700"
obj.SolidFillColor
= color
obj.MoveCenterTo(
300, 175)
Movie.AddObject(
obj)
Response.contentType
= "application/x-shockwave-flash"
Response.BinaryWrite(
Movie.Content )
obj.Free()
Movie.Free()
Response.end
%> |
|
|
|
|
