Intel Web Design Effect 2

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=2
theTetonImg.filters.item("IntelAdditive").ScaleY=8
theTetonImg.filters.item("IntelAdditive").ScaleT=3
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",400)
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.