"Compreenda-me"
contribuição de Paulo Baddini
Credits:
° image: "Compreendo"
- pastel on paper by Guacira Sampaio Rocha
° background image: "Wall" by Guacira
° mid: "Unchaenged_brasil" (found for free in the net)
° script author: Phil
Richards
° prepared, commented and posted (as it
is in this page) by: Paulo Baddini
1) Substitua
o código de sua página pelo código abaixo:
"<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252"
pab>
<STYLE></STYLE>
<META content="MSHTML 5.50.4616.200" name=GENERATOR></HEAD>
<BODY id=controlDiv bgColor=defina
aqui o código hex da cor do background>
<DIV align=justify>
<OBJECT id=DAControl
style="WIDTH: 90%; POSITION: absolute; TOP: 5%; HEIGHT: 90%;
center: 300px"
classid=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D>
<PARAM NAME="OpaqueForHitDetect" VALUE="1"><PARAM
NAME="UpdateInterval" VALUE="0.033"></OBJECT>
<STRONG>defina
aqui o seu texto</STRONG>
</FONT></STRONG><BR><IMG id=pic
style="Z-INDEX: 50; VISIBILITY: hidden; HEIGHT: 100%; WIDHT:
100%"
src="defina
aqui o caminho da imagem">
<!-########
#########->
<SCRIPT autor=" Phil
Richards Jan 2000 ">
m = DAControl.MeterLibrary
starpts = new Array()
n = 5 //7
r1 = 1 //1
r2 = 1 //0.5
PA1 = 1 //2
pa = PA1*Math.PI/n;
SS01 = 1 //3
ss1 = Math.PI/SS01;
SS02 = 1 //3
ss2 = ss1 + pa/SS02;
for (i = 0; i <= n; i++)
{ s1 = ss1 + i*pa;
s2 = ss2 + i*pa;
starpts[2*i] = m.Point2PolarAnim(m.DANumber(s1),m.DANumber(r1))
DANN = 1 //0.5
starpts[2*i+1]=m.Point2PolarAnim
(m.DANumber(s2),m.Mul(m.DANumber(r2),m.Sin(m.Mul(m.DANumber
(DANN),m.LocalTime))))
}
path=m.Polyline(starpts)
DAN = 3 //3.094
path = path.Transform(m.Rotate2Anim(m.Div(m.LocalTime,m.DANumber(DAN))))
//Import the background image.
head = m.ImportImage(pic.src)
maxx = head.BoundingBox.Max.X
maxy = head.BoundingBox.Max.Y
//Scale the background image.
DAN2 = 0.5 //0.05
xf = m.Scale2Anim(m.Div(m.DANumber(DAN2),maxx),m.Div(m.DANumber(1),maxy))
head = head.Transform(xf)
LARG = 0.05 //0.03
ls = m.DefaultLineStyle.Width(LARG).Color(m.black)
lineImg = path.Fill(ls,head)
lineImg = lineImg.Transform(xf.Inverse())
//Change the opacity of the final image by abs(sin(time*0.333)).
//
DAN3 = 0.7 //0.333
model = lineImg.OpacityAnim(m.Abs(m.Sin(m.Mul(m.LocalTime,m.DANumber(DAN3)))))
//model = lineImg
//Display the image.
DAControl.Image = model
//Start the animation
DAControl.Start()
-->
</SCRIPT>
</DIV>
<DIV style="LEFT: 10px; WIDTH: 250px; POSITION: absolute;
HEIGHT: 10px"></DIV>
<DIV><STRONG><FONT face=Verdana><FONT
size=2></FONT></FONT></STRONG> </DIV></BODY></HTML>"
Atenção: não
esqueça de desprezar todas as aspas que não estejam
na cor branca.
Esse script pode perfeitamente
ser copiado dentro da aba Origem de seu Outlook Express,
e ser enviado, com fundo musical, como mensagem aos seus amigos.
O texto em vermelho identifica o autor original do script.