Intel Web Design Effect 1

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=4
theTetonImg.filters.item("IntelAdditive").ScaleY=2
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