|
Script
Textos Dançantes
O
código deve ser colado dentro da tag <body>.......</body>
Substitua
a palavra TEXTO
pelo texto desejado.
<SCRIPT language=JScript><!--
{
var c=1;
var L=new Array();
// Replace Text1, Text2 and so on by your own text.
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
L[c++]="TEXTO";
var o="<OBJECT ID='DAControl' STYLE='position:absolute; left:0; top:0;width:100%;height:100%;z-index: -2;'"+"CLASSID=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D></OBJECT>"
document.write(o);
var m=DAControl.MeterLibrary;
var sp=m.Div(m.LocalTime,m.DANumber(2.5));
var offX=m.Mul(m.DANumber(.05),m.Sin(sp));
var offY=m.Mul(m.DANumber(.04),m.Sin(sp));
var rotX=m.Mul(sp,m.DANumber(2));
var rotY=rotX;
var rotZ=rotY;
var lrotX=m.Mul(m.DANumber(.02),sp);
var lrotY=lrotX;
var lrotZ=lrotX;
var scl=m.DANumber(2.4);
var hlf=m.DANumber(1.9);
var hue=m.Abs(m.Sin(m.Div(sp,m.DANumber(1))));
var clr=m.colorHslAnim(hue,hlf,hlf);
var xfID=m.IdentityTransform2;
var xfsc=m.Scale2UniformAnim(scl);
var xflr=m.Compose3(m.Compose3(m.Rotate3Anim(m.xVector3,lrotX), m.Rotate3Anim(m.yVector3,lrotY)),m.Rotate3Anim(m.zVector3,lrotZ)).ParallelTransform2();
var xfwt=m.Compose3(m.Compose3(m.Rotate3Anim(m.xVector3,rotX), m.Rotate3Anim(m.yVector3,rotY)),m.Rotate3Anim(m.zVector3,rotZ)).ParallelTransform2();
var xflt=m.Translate2Anim(offX,offY);
var xf=m.Compose2(xfwt,m.Compose2(xflt,m.Compose2(xflr,xfsc)));
var fnt=m.Font("Century Gothic",15,clr);
var txtIm;
var fIm=m.EmptyImage;
var del;
for(var i=1; i<=c; i++){
del=xfID.Duration(i*.4);
txtIm=m.textImage(L[i],fnt);
nIm=txtIm.Transform(m.Sequence(del,xf));
fIm=m.Overlay(nIm,fIm);
}
DAControl.Image=fIm;
DAControl.Start();
}
function profilepage(){location.href="profile.htm";}
file://--></SCRIPT</BODY></HTML>
</SCRIPT>
|
