⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 flow.htm

📁 一个有意思的小程序,点击后会有花开的效果
💻 HTM
字号:
<html>
<OBJECT ID="DAControl_1" STYLE="width:300; height:300; z-index:-1" 
 CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">
</OBJECT>
<SCRIPT language=JScript>
<!--
function SAMP1(){
  // The DirectAnimation library
  m = DAControl_1.MeterLibrary;

  content = new ActiveXObject("DirectAnimation.DAImage");

  flower = CreateFlower();

  sky = CreateSky();

  grass = m.Rect(0.15,0.04).Fill(m.emptyLineStyle,m.SolidColorImage(m.colorRgb(0,0.5,0.3)));
  grass = grass.Transform(m.Translate2(0,-0.02));
  
  pickFg = grass.Pickable();
  pickEvent = m.AndEvent(m.LeftButtonDown, pickFg.PickEvent);
  mouseCoords = m.UntilEx(m.MousePosition, m.always.Snapshot(m.MousePosition));
  content.Init(
 m.Until(m.EmptyImage, pickEvent,
 m.Overlay(flower.Transform(m.Translate2Anim(mouseCoords.X,mouseCoords.Y)),content))
  ); 

  DAControl_1.Image = m.OverlayArray( new Array(content, pickFg.Image, sky));
  DAControl_1.Start();
}
  function CreateSky()
  {
 pointsArray = new Array(
  m.Point2(-0.06,0.03), 
  m.Point2(0.06,0.03),
  m.Point2(0.06,-0.01),
  m.Point2(-0.06,-0.01)
  );

 colorsArray = new Array( 
  m.ColorRgb(0.7,0.7,0.95),
  m.ColorRgb(0.7,0.7,0.95),
  m.ColorRgb(0.5,0.5,0.6),
  m.ColorRgb(0.5,0.5,0.6)
  );

 return m.GradientPolygon(pointsArray,colorsArray);
  }

  function CreateFlower()
  {
 stemGrowthTime = 3;

  p1 = m.Point2(0,0);
  p2Y = m.Interpolate(0.001,0.02,stemGrowthTime);
  p2 = m.Point2Anim(m.DANumber(0),p2Y);

  stem = m.Line(p1,p2).Draw(m.defaultLineStyle.Width(2).Color(m.colorRgb(0,0.8,0.2)));

 scalex = m.Interpolate(1,4,8);

 petal = m.Oval(0.001,0.0005).Fill(m.EmptyLineStyle,m.SolidColorImage(m.Red));
 petal1 = petal.Transform(m.Translate2(0.0005,0));
 petal2 = petal.Transform(m.Rotate2Degrees(45)).Transform(m.Translate2(0.0005,0.0005));
 petal3 = petal.Transform(m.Rotate2Degrees(90)).Transform(m.Translate2(0,0.0005));
 petal4 = petal.Transform(m.Rotate2Degrees(135)).Transform(m.Translate2(-0.0005,0.0005));
 petal5 = petal.Transform(m.Rotate2Degrees(180)).Transform(m.Translate2(-0.0005,0));
 petal6 = petal.Transform(m.Rotate2Degrees(225)).Transform(m.Translate2(-0.0005,-0.0005));
 petal7 = petal.Transform(m.Rotate2Degrees(270)).Transform(m.Translate2(0,-0.0005));
 petal8 = petal.Transform(m.Rotate2Degrees(315)).Transform(m.Translate2(0.0005,-0.0005));

 petals = m.OverlayArray( new Array(
  petal1,petal2,petal3,petal4,petal5,petal6,petal7,petal8));
 petals = petals.Transform(m.Scale2UniformAnim(scalex));

  radius = m.interpolate(0.001,0.003,8);
  ovalImg = m.OvalAnim(radius,radius).Fill(m.emptyLineStyle,m.SolidColorImage(m.Yellow));

 flowerCenter = m.OverlayArray( new Array(ovalImg, petals)).transform(m.translate2Anim(m.DANumber(0),p2Y));

 flowerCenter = m.Overlay(flowerCenter, stem.SubstituteTime(m.DANumber(3)));

  return m.Sequence(stem.Duration(stemGrowthTime), flowerCenter);
  }

SAMP1();
-->
</SCRIPT>
</html> 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -