Active Server pages with VBScript -- text figures

Figure 1 HTML, VBScript for Flame Effect


 <HTML>
 
 <HEAD>
 <TITLE>Procedural Effects Template</TITLE>
 </HEAD>
 
 <script language=vbscript>
 
 sub window_onload 
 screen.bufferDepth = -1
 theImg.filters.item("IntelAdditive").BitmapSeed = "template.bmp"
 end sub
 
 sub OnPokeEffect
 n = theImg.filters.item("IntelAdditive").NoiseScale
 theImg.filters.item("IntelAdditive").NoiseScale = n
 end sub
 
 sub theImg_OnFilterChange
 call SetTimeout( "OnPokeEffect", 15 )
 end sub
 
 </script>
 
 <IMG ID=theImg 
 src=template.bmp
 style="filter:IntelAdditive(Harmonics=6, 
                             NoiseScale=11, 
                             NoiseOffset=-13,
                             ScaleX=2, 
                             ScaleY=1, 
                             TimeX=-1, 
                             TimeY=0,
                             enabled=1); 
 position:absolute; left=250; top=90;">
 
 </HTML>

Figure 4 HTML and Script for Distortion


 <HTML>
 <TITLE> Intel Distortion Filter Example </TITLE>
 <BODY BGCOLOR=darkblue >
 
 <script language=vbscript>
 
 sub window_onload
         screen.bufferDepth = -1
         OnPokeEffect
 end sub
 
 sub OnPokeEffect
     n= theImg.filters.item("IntelDistortion").Harmonics
     theImg.filters.item("IntelDistortion").Harmonics = n
 end sub
 
 sub theImg_OnFilterChange
     call SetTimeout( "OnPokeEffect", 100 )
 end sub
 
 </script>
 
 <IMG ID=theImg 
 src=Distort-Temp.bmp 
 style="filter:IntelDistortion(enabled=1,NoiseScaleU=6,NoiseScaleV=6,ScaleUX=3,
 ScaleVX=1, ScaleUY=3, ScaleVY=1, ScaleUT=3, ScaleVT=1, Harmonics=3); 
 position:absolute; left=250; top=90;">
 
 </BODY>
 
 </HTML>