weird spinny thing

<head><TITLE>weird spinny thing</TITLE>

<STYLE>BODY {
	MARGIN-TOP: 30px; 
	FONT-SIZE: 18px; 
	MARGIN-LEFT: 300px; 
	COLOR: #ef8082; 
	MARGIN-RIGHT: 30px; 
	FONT-FAMILY: "Harrington"
}
</STYLE>

</HEAD>

<SCRIPT>
// weird spinny thing
// Phil March 2000
// evolve@p-richards.demon.co.uk
m = DAControl.MeterLibrary;      
da0=m.DANumber(0)
da1=m.DANumber(1)
//circtext=m.ImportImage(ttimage.src).Transform(m.Rotate2Rate(2)).MapToUnitSquare()
//.Clip(m.FillMatte(m.Oval(1,1).Transform(m.Translate2(0.5,0.5))))
circtext=m.ImportImage(ttimage.src).MapToUnitSquare().Transform(
	m.Compose2Array(
		new Array(
			m.Translate2(0.5,0.5),
			m.Rotate2Rate(-.2),
			m.Translate2(-0.5,-0.5)
		)
	)
).Clip(m.FillMatte(m.Oval(1,1).Transform(m.Translate2(0.5,0.5))))
//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
)
fc=m.TriMesh (4, pos, norm, surf, null)
fc=fc.TextureImage(circtext)
face1=new Array()
face2=new Array()
nf1=0
nf2=0
nn=3
for(i=0;i<nn;i++){
	face1[nf1++]=fc.Transform(m.Rotate3(m.YVector3,i/nn*Math.PI))
	}
for(i=0;i<nn;i++){
	face2[nf2++]=fc.Transform(m.Rotate3(m.YVector3,i/nn*Math.PI))
	}
faces1=m.UnionGeometryArray(face1)
faces2=m.UnionGeometryArray(face2)
ggeo1=faces1.Transform(
	m.Compose3Array(
		new Array(
			m.Scale3Uniform(0.03),
			m.Rotate3Rate(m.ZVector3, 0),
			m.Rotate3Rate(m.XVector3, 0.2),
			m.Rotate3Rate(m.YVector3, 0.3)
		)
	)               
)
ggeo2=faces2.Transform(
	m.Compose3Array(
		new Array(
			m.Scale3Uniform(0.03),
			m.Rotate3Rate(m.ZVector3, 0),
			m.Rotate3Rate(m.XVector3, 0.5),
			m.Rotate3Rate(m.YVector3, 0.4)
		)
	)               
)
amblight=m.AmbientLight.LightColor(m.colorRgb(.3,.3,.6))
light=m.DirectionalLight
lights=m.UnionGeometry(light,amblight)
camera=m.PerspectiveCamera(.3,.029)
scene=m.UnionGeometryArray(new Array(ggeo1,ggeo2,lights)).Render(camera)
DAControl.Image=scene    
DAControl.Start()
</SCRIPT>

<SCRIPT language=JavaScript>
<!--
ScrollSpeed = 500; // milliseconds between scrolls
ScrollChars = 4; // chars scrolled per time period

function SetupTicker() {
// add space to the left of the message
msg = " Your name here";
RunTicker();}

function RunTicker() {
window.setTimeout('RunTicker()',ScrollSpeed);
window.status = msg;
msg = msg.substring(ScrollChars) + msg.substring(0,ScrollChars);}
SetupTicker();

</SCRIPT>
 
</p>
<p> </p>
<p> </p>
<p align="center"><font color="#FF00FF"><a href="scripts1.htm">TERUG</a></font></p>
 
</BODY>

</HTML>