神奇光照效果

神奇光照效果

<html>
<head>
<title>Untitled</title>
</head>

<body bgcolor="Black">

<div id="myLightObject" style="position: relative; height: 400px; width: 400px; top: 10px; left: 0px;
     color: White; filter: light">
<center>
黑夜给了我一双眼睛,<br>
而我却用它来寻找光明,<br>
园林晴昼春谁主<br>
暖律潜催，幽谷暄和，黄鹂翩翩，乍迁芳树
<p>
春花秋月何时了，往事知多少<br>
小楼昨夜又东风<br>
故国不堪回首月明中。<br>
雕栏玉砌应犹在，只是朱颜改。
</p>
<p>
问君能有几多愁，<br>
恰似一江春水向东流。<br>
CSS滤镜与VBScript结合运用的效果<br>
利用CSS的Light滤镜模拟移动的光锥<br>
</p>
用VBScript捕捉鼠标的移动,令光锥射向也跟着移动

</center>
</div>

<script language="VBScript">
Option Explicit
sub window_OnLoad()
  call myLightObject.filters.light(0).addambient(0,0,255,30)
call myLightObject.filters.light(0).addcone(400,400,200,100,100,200,204,200,80,10)
end sub

sub document_onMouseMove()
  call myLightObject.filters.light(0).MoveLight(1,window.event.x,window.event.y,0,1)
end sub

</script>

</body>
</html>