// Original: Feng Yun Dance, from: http://www.lshdic.com/bbs
// Previously in VB is easy to use Aquimide drawing, this time is DHTML version, VB download
http://www.lshdic.com/download/lshdic/vb_xiaoguo.ra
VAR POS1 = 0, COS1 = 0, SIN1 = 0, Buchang = 1, LINE1, WID1, HEI1, Color1 // Define global variables to improve operational speed
WID1 = a.offsetsetwidth / 2
HEI1 = a.offsetheight / 2 // Pre-installed carrier and high, to improve operational speed
Function add1 () {
IF (POS1 == 0) {buchang = math.Round (math.random () * 5) 1; color1 = "RGB (" Math.Round (Math.Round () * 255) "," Math .Round (Math.random () * 255) " Math.Round (Math.random () * 255) ") "} // initialization, define a random step for a variety of effects
IF (POS1 <200) POS1 = Buchang; Else {POS1 = 0; A. InnerHtml = ""; line1 = NULL; WID1 = a.OffSetWidth / 2; hei1 = a.offsetHeight / 2} // Adding or initialization
Var line1 = Document.createElement ('v: line') // Create a new line segment
Line1.Style.Position = 'Absolute'
Line1.style.Left = WID1
Line1.style.top = HEI1
Line1.StrokeColor = Color1
LINE1.TO = POS1 * MATH.COS (POS1) "," POS1 * MATH.SIN (POS1) // Apply Aquimide algorithm to generate a line segment of the rule angle
A.AppendChild (line1); Document.title = POS1; // OK, increasing line segment
}
SetInterval ('add1 ();', 30) // 30 milliseconds increase, pay attention to more than 30 milliseconds, less than 30 milliseconds for the use of low CPU processor users
script>
Body>
Html>