 |
|
Animação 1
<![CDATA[
<script LANGUAGE="VBSCRIPT">
'Sets starting variables and oval positioning, as well as pie, note that this does not use the
sequencer
Sub Window_OnLoad
Call Oval1.Rotate(45,0,0)
Call Oval2.Rotate(90,0,0)
Call Oval3.Rotate(135,0,0)
Call Sg1.Rotate(180,0,0)
RotateAll
End sub
'sets speed of rotation of ovals and pie slices, creates loop
Sub RotateAll
Call Oval1.Rotate(-5,0,5)
Call Oval2.Rotate(5,0,5)
Call Oval3.Rotate(-5,0,5)
Call SG1.Rotate(-5,10,5)
AVAR = Window.SetTimeOut("Call RotateAll", 10, "VBScript")
End Sub
</script>
<object ID="SG1" STYLE="POSITION:ABSOLUTE; HEIGHT:350; WIDTH:350 ;LEFT:0 ;TOP:0" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" width="14" height="14">
<param name="Line0001" value="SetFillStyle(1)">
<param name="Line0002" value="SetFillColor(210,210,210)">
<param name="Line0003" value="Pie(-160,-160,320,320,0,10,0)">
<param name="Line0004" value="SetFillColor(0,0,100)">
<param name="Line0005" value="Pie(-160,-160,320,320,0,10,18)">
<param name="Line0006" value="SetFillColor(210,210,210)">
<param name="Line0007" value="Pie(-160,-160,320,320,0,10,36)">
<param name="Line0008" value="SetFillColor(0,0,100)">
<param name="Line0009" value="Pie(-160,-160,320,320,0,10,54)">
<param name="Line0010" value="SetFillColor(210,210,210)">
<param name="Line0011" value="Pie(-160,-160,320,320,0,10,72)">
<param name="Line0012" value="SetFillColor(0,0,100)">
<param name="Line0013" value="Pie(-160,-160,320,320,0,10,90)">
<param name="Line0014" value="SetFillColor(210,210,210">
<param name="Line0015" value="Pie(-160,-160,320,320,0,10,108)">
<param name="Line0016" value="SetFillColor(0,0,100)">
<param name="Line0017" value="Pie(-160,-160,320,320,0,10,126)">
<param name="Line0018" value="SetFillColor(210,210,210)">
<param name="Line0019" value="Pie(-160,-160,320,320,0,10,144)">
<param name="Line0020" value="SetFillColor(0,0,100)">
<param name="Line0021" value="Pie(-160,-160,320,320,0,10,162)">
<param name="Line0022" value="SetFillColor(210,210,210)">
<param name="Line0023" value="Pie(-160,-160,320,320,0,10,180)">
<param name="Line0024" value="SetFillColor(0,0,100)">
<param name="Line0025" value="Pie(-160,-160,320,320,0,10,198)">
<param name="Line0026" value="SetFillColor(210,210,210)">
<param name="Line0027" value="Pie(-160,-160,320,320,0,10,216)">
<param name="Line0028" value="SetFillColor(0,0,100)">
<param name="Line0029" value="Pie(-160,-160,320,320,0,10,234)">
<param name="Line0030" value="SetFillColor(210,210,210)">
<param name="Line0031" value="Pie(-160,-160,320,320,0,10,252)">
<param name="Line0032" value="SetFillColor(0,0,100)">
<param name="Line0033" value="Pie(-160,-160,320,320,0,10,270)">
<param name="Line0034" value="SetFillColor(210,210,210)">
<param name="Line0035" value="Pie(-160,-160,320,320,0,10,288)">
<param name="Line0036" value="SetFillColor(0,0,100)">
<param name="Line0037" value="Pie(-160,-160,320,320,0,10,306)">
<param name="Line0038" value="SetFillColor(210,210,210)">
<param name="Line0039" value="Pie(-160,-160,320,320,0,10,324)">
<param name="Line0040" value="SetFillColor(0,0,100)">
<param name="Line0041" value="Pie(-160,-160,320,320,0,10,342)">
<param name="Line0042" value="SetFillColor(210,210,210)">
<param name="Line0043" value="Pie(-160,-160,320,320,0,10,360)">
</object>
<object ID="OVAl1" STYLE="POSITION:ABSOLUTE;HEIGHT:350;WIDTH:
350;LEFT:0;TOP:0" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
width="14" height="14">
<param name="Line0001" value="SetFillStyle(0)">
<param name="Line0002" value="SetLineStyle(1)">
<param name="Line0003" value="SetLineColor(255,0,0)">
<param name="Line0004" value="SetFillColor(255,0,0)">
<param name="Line0005" value="OVAL(-160,-160,320,320,0)">
</object>
<object ID="OVAl2" STYLE="POSITION:ABSOLUTE;HEIGHT:350;
WIDTH:350;LEFT:0;TOP:0" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
width="14" height="14">
<param name="Line0001" value="SetFillStyle(0)">
<param name="Line0002" value="SetLineStyle(1)">
<param name="Line0003" value="SetLineColor(0,0,255)">
<param name="Line0004" value="SetFillColor(0,0,255)">
<param name="Line0005" value="OVAL(-160,-160,320,320,0)">
</object>
<object ID="OVAl3" STYLE="POSITION:ABSOLUTE;
HEIGHT:350;WIDTH:350;LEFT:0;TOP:0" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
width="14" height="14">
<param name="Line0001" value="SetFillStyle(0)">
<param name="Line0002" value="SetLineStyle(1)">
<param name="Line0003" value="SetLineColor(0,255,0)">
<param name="Line0004" value="SetFillColor(0,255,0)">
<param name="Line0005" value="OVAL(-160,-160,320,320,0)">
</object>
]]>
voltar para o menu anterior
|
