Schriftanimation mit VB-Script


HTML-Kurs Johannisthal
STYLE="WIDTH:0;HEIGHT:0"

<SCRIPT LANGUAGE="VBScript">
<!--
Dim Istrength
Dim Direction

Sub window_onload
istrength=1
Direction=1
call seq("FilterIt").play
End Sub
Sub Seq_OnInit
call seq("FilterIt").at(0.100, "GlowMo", -1, 0.150, 1)
End Sub
sub GlowMo
if (iStrength < 1) or (istrength > 32) Then
direction=-direction
end if
iStrength=iStrength - direction
TempString="Mask(Color=#FF0000, enabled=1) Glow(Strength="&iStrength&", Color=#0000FF, Enabled=1) Chroma(Color=#FF0000, enabled=1)"
titletxt.style.filter=TempString
end sub
-->
</SCRIPT>

<CENTER>
<DIV id="titletxt" STYLE="WIDTH:50%;HEIGHT:50%;font-size: 50pt; font-family:
IMPACT; font-weight: bold; font-style: italic; color: Black">
<CENTER>
LaserDisc
</CENTER>
</DIV>
</CENTER>
<OBJECT ID="Seq"
      CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
      STYLE="WIDTH:0;HEIGHT:0"
</OBJECT>