Intel Web Design Effect 3

Buat tag HTML,HEAD dan SCRIPT
Copy dan paste rumus di bawah ini pada tag SCRIPT LANGUAGE=VBSCRIPT:

sub window_onload
screen.bufferDepth=-1
Call doThem()
Call doInit()
end sub

sub dodetach
theTetonImg.filters.item("IntelAdditive").enabled=false
end sub

sub doThem
theTetonImg.filters.item("IntelAdditive").enabled=true
theTetonImg.filters.item("IntelAdditive").GenerateSeed=3
end sub

sub doInit
theTetonImg.filters.item("IntelAdditive").NoiseScale=9
theTetonImg.filters.item("IntelAdditive").NoiseOffset=0
theTetonImg.filters.item("IntelAdditive").ScaleX=8
theTetonImg.filters.item("IntelAdditive").ScaleY=2
theTetonImg.filters.item("IntelAdditive").ScaleT=1
theTetonImg.filters.item("IntelAdditive").TimeY=0
theTetonImg.filters.item("IntelAdditive").TimeX=-1
theTetonImg.filters.item("IntelAdditive").Harmonics=4
theTetonImg.filters.item("IntelAdditive").ColorKey=16711680
theTetonImg.filters.item("IntelAdditive").Alpha=0
theTetonImg.filters.item("IntelAdditive").MaskMode=1
end sub

sub OnTetonPokeEffect
n=theTetonImg.filters.item("IntelAdditive").NoiseScale
theTetonImg.filters.item("IntelAdditive").NoiseScale=n
end sub

sub theTetonImg_OnFilterChange
Call SetTimeout("OnTetonPokeEffect",100)
end sub


Setelah itu buat tag BODY
Copy dan Paste kode di bawah ini pada tag IMG
src=awan.bmp width=500 height=140 id="theTetonImg" style="filter:IntelAdditive(enabled=false)"

Anda membutuhkan file awan.bmp supaya terlihat animasi, buat file gambar bmp di
Start, Accessories, Paint. Gunakan warna hijau pada gambar tersebut. Bila tidak ada animasi
ganti oleh warna merah.

Jalankan program di atas di Internet Explorer versi 5.0 pada windows XP.