星球内部的变化

下面为效果显示

Loading...Please wait

脚本说明:
第一步：把如下代码加入<body>区域中
<STYLE>
body{
	font-family:"Georgia";
	font-size:16px;
	font-style:"italic";
	color:white;
	margin-top:330px;
	margin-left:30px;
	margin-right:30px
}
</STYLE>
<span id="sm" style="position:absolute;width:200;left:0;top:0;color:white;font-size:12;font-family:verdana;font-style:normal;">Loading...Please wait</span>

<SCRIPT>
//Spinning the sphere in the changing box
//An original idea by Jilly September 2000
//Cobbled from some of my old scripts
//Phil Richards evolve@p-richards.demon.co.uk
function go(){

m = DAControl.MeterLibrary;

//Alter the cube and sphere sizes here:
sphereSize=0.022;
//cubeSize=0.013;
cubeSize=0.023;

//number of rings - control the number of elements in the sphere here
nr=9;

//This controls the maximum opacity of the cube - reduce it to make the cube always have some transparency
maxOpacity=0.8;

//Images for cube
//numberOfImages must be set to the correct value
numberOfImages=6;
holdTime=3;
changeTime=5;

//make sure there is one line here for each image:
t1img=m.ImportImage(t1image.src).MapToUnitSquare();
t2img=m.ImportImage(t2image.src).MapToUnitSquare();
t3img=m.ImportImage(t3image.src).MapToUnitSquare();
t4img=m.ImportImage(t4image.src).MapToUnitSquare();
t5img=m.ImportImage(t5image.src).MapToUnitSquare();
t6img=m.ImportImage(t6image.src).MapToUnitSquare();

//make sure there is one entry for each image in this line:
picsa=new Array(t1img,t2img,t3img,t4img,t5img,t6img);
pics=m.Array(picsa);

//texture for sphere
sphereTexture=m.ImportImage(sphereTextureImage.src).MapToUnitSquare()

//this next line causes the texture size to vary in time
//comment out the whole line for a static texture
sphereTexture=sphereTexture.Transform(m.Scale2UniformAnim(sdan(1,2,1,0)));

ind1=m.Mod(m.Add(m.Floor(m.Div(m.Localtime,da(holdTime+changeTime))),da(0)),da(numberOfImages));
ind2=m.Mod(m.Add(m.Floor(m.Div(m.Localtime,da(holdTime+changeTime))),da(1)),da(numberOfImages));

pics1=pics.NthAnim(ind1);
pics2=pics.NthAnim(ind2);

//=========================================================================
//Perforated sphere geo====================================================
//=========================================================================

//number of points in each ring
np=2*(nr-1);

//Generate point positions
//array to hold each unique Point3 for geometry
p=new Array();
//array to hold each unique Point2 for texture coordinates
u=new Array();

//create points
n=0;
for(i=0;i<nr;i++)
	{
	theta=(i*Math.PI)/(nr-1);
	z=Math.cos(theta);
	r=Math.sin(theta);
	for(j=0;j<np;j++)
		{
		a=j*2*Math.PI/np;
		x=r*Math.cos(a);
		y=r*Math.sin(a);
		u[n]=m.Point2(j/np,i/(nr-1));
		p[n++]=m.Point3(x,y,z);
	}
}

//create face definitions and texture coords
//array to hold the Point3 triples for each face
pos=new Array();
//array to hold the texture coordinates
surf=new Array();

n=0;
for(i=0;i<nr-1;i++)
	{
	sc=i*np;
	sn=sc+np;
	for(j=0;j<np;j++)
	{
		surf[n]=u[sc+j];
		pos[n++]=p[sc+j];
		surf[n]=u[sn+j];
		pos[n++]=p[sn+j];
		if(j==np-1)
			{
			surf[n]=m.Point2(1.0,i/(nr-1));
			pos[n++]=p[sn];
			surf[n]=m.Point2(1.0,i/(nr-1));
			pos[n++]=p[sn];
			}
		else
			{
			surf[n]=u[sn+j+1];
			pos[n++]=p[sn+j+1];
			surf[n]=u[sn+j+1];
			pos[n++]=p[sn+j+1];
		}
		surf[n]=u[sc+j];
		pos[n++]=p[sc+j];
		if(j==np-1)
			{
			surf[n]=m.Point2(1.0,i/(nr-1));
			pos[n++]=p[sc];
			}
		else
			{
			surf[n]=u[sc+j+1];
			pos[n++]=p[sc+j+1];
			}
		}
	}

//create face normals
norm=new Array()
for(i=0;i<pos.length;i++)
	{
	v=m.Vector3(pos[i].X.Extract(),pos[i].Y.Extract(),pos[i].Z.Extract());
	norm[i]=v;
	}

//indices are null since we are using Point3, Vector3 definitions rather than doubles
sphereGeo=m.TriMesh(pos.length/3,pos,norm,surf,null);

//opacity value can be altered 0 to 1 
sphereGeo=sphereGeo.TextureImage(sphereTexture).Opacity(0.5);

//these control the size of the sphere and the speed of rotation
sphereGeo=sphereGeo.Transform(
	m.Compose3Array(
		new Array(
			m.Scale3Uniform(sphereSize),
			m.Rotate3Rate(m.XVector3, 0.4),
			m.Rotate3Rate(m.YVector3, 0.22),
			m.Rotate3Rate(m.ZVector3, 0.51)
		)
	)               
);

//=========================================================================
// Cube geo ===============================================================
//=========================================================================

//Define a double-sided plane that behaves like a Shapes transform sheet
p0=m.point3( 1, 1,0);
p1=m.point3(-1, 1,0);
p2=m.point3(-1,-1,0);
p3=m.point3( 1,-1,0);

n0=m.vector3(0,0,1);
n1=m.vector3(0,0,-1);

u0 =m.point2(1.0, 1.0);
u1 =m.point2(0.0, 1.0);
u2 =m.point2(0.0, 0.0);
u3 =m.point2(1.0, 0.0);

pos=new Array(
	p0,p1,p2,
	p0,p2,p3,
	p0,p2,p1,
	p0,p3,p2
);

norm=new Array(
	n0,n0,n0,
	n0,n0,n0,
	n1,n1,n1,
	n1,n1,n1
);

surf=new Array(
	u0, u1, u2,
	u0, u2, u3,
	u0, u2, u1,
	u0, u3, u2
);

faceRad=m.SequenceArray(
	new Array(
		da(5).Duration(holdTime),
		m.SlowInSlowOut(5,1,changeTime,12)
	)
).RepeatForever();

faceOpac1=m.SequenceArray(
	new Array(
		da(maxOpacity).Duration(holdTime),
		m.SlowInSlowOut(maxOpacity,0,changeTime,12)
	)
).RepeatForever();

faceOpac2=m.SequenceArray(
	new Array(
		da(0).Duration(holdTime),
		m.SlowInSlowOut(0,maxOpacity,changeTime,12)
	)
).RepeatForever();

fc=m.TriMesh (4, pos, norm, surf, null);
fc1=fc.TextureImage(pics1);
fc2=fc.TextureImage(pics2);

cube1=cubey(fc1,da(1)).OpacityAnim(faceOpac1);
cube2=cubey(fc2,faceRad).OpacityAnim(faceOpac2);

//=========================================================================
// Lights, camera, action =================================================
//=========================================================================

light = m.UnionGeometry(
		m.AmbientLight.LightColor(m.colorRgb(.5,.5,.5)),
		m.PointLight.Transform(m.Translate3(0,0.3,0.3))
)
light1=m.AmbientLight;

camera=m.PerspectiveCamera(.2,.19);
scene=m.UnionGeometryArray(new Array(cube1,cube2,sphereGeo,light)).Render(camera);
DAControl.Image=scene;
sm.style.visibility="hidden";

DAControl.Start();
}
//=========================================================================
// Support functions ======================================================
//=========================================================================

//returns a cube sans top & bottom, rotating, and with bouncing faces
function cubey(face,frad)
{
	facef=face.Transform(m.Translate3Anim(da(0),da(0),frad));
	facefb=m.UnionGeometryArray(
		new Array(
			facef,
			facef.Transform(m.Rotate3(m.YVector3, Math.PI))
		)
	);

facelr=facefb.Transform(m.Rotate3(m.YVector3,Math.PI/2));
	cube=m.UnionGeometryArray(new Array(facefb,facelr));

cube=cube.Transform(
		m.Compose3Array(
			new Array(
				m.Scale3Uniform(cubeSize),
				m.Rotate3(m.XVector3, 0.2),
				m.Rotate3Rate(m.YVector3, 0.5)
			)
		)
	);

return(cube);
}

//returns a DANumber that varies between min and max rate times per second.
function sdan(min,max,rate,phase)
{
	a=(max-min)/2;
	b=a+min;
	return(m.Add(m.DANumber(b),m.Mul(m.DANumber(a),m.Sin(m.Mul(m.Add(m.Localtime,m.DANumber(phase)),m.DANumber(rate))))));
}

function da(n)
{
	return(m.DANumber(n));
}

</SCRIPT>

第二步：把<body>中的代码改为：
<body  onload="go();">