<HTML> 
<HEAD>
<TITLE>DirectAnimation SDK, VBScript sample</TITLE><SCRIPT LANGUAGE="JScript">
<!--
if (window.top.frames.length!=0 && window.top.frames[0].ShowNoButtons!=null)
    window.top.frames[0].ShowNoButtons();
//-->
</SCRIPT>
</HEAD>	 

<BODY BGCOLOR=WHITE TOPMARGIN=15 LEFTMARGIN=20>
<FONT FACE="Verdana, Arial, Helvetica" SIZE=2> 
<CENTER>
<H1>Drawing a Rotating Oval With the Drawing Surface</H1>
</CENTER>

<OBJECT ID="DAControl"
  STYLE="position:absolute; left:30%; top:100;width:300;height:300" 
  CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
  '* the DirectAnimation core library
  Set m = DAControl.MeterLibrary
  '* the DirectAnimation Drawing Surface library
  Set ds = m.NewDrawingSurface()

  '* set fill color, style, and transform
  ds.FillColor m.Green
  ds.FillStyle 1
  ds.Transform m.Rotate3RateDegrees(m.Vector3(1,1,1), 45).ParallelTransform2()

  '* draw an oval using the above setting
  ds.Oval -.02,-.02,.05,.05

  '* set the model to be the resulting image
  DAControl.Image = ds.Image
  '* set the background in case of a non-windowless browser (such as IE3)
  DAControl.BackgroundImage = m.SolidColorImage(m.Blue)

  '* initiate the animation
  DAControl.Start
-->
</SCRIPT>
</FONT>
</BODY>
</HTML>
