Teknologi 3D pada Halaman WEB: DIRECT ANIMATION WITH IMAGE 1

HAPUS KODE BR / pada script!

Copy kode di bawah ini pada notepad, dan paste pada notepad simpan dengan nama file (animasiA.html) atau (animasiA.hta) bila kita menggunakan ekstensi hta, kita dapat melihat letak kode error-nya.
Setelah disimpan, buka file (animasiA.htm) pada Internet Explorer 5.0 pada windows XP. atau double klik pada file (animasiA.hta). Kode ini membutuhkan gambar berformat jpg yaitu (water.jpg) lihat pada tag IMG.

<HTML>
 <HEAD>
 <TITLE>Picture Cube</TITLE>
 <STYLE>
 body{
 	font-family:"Georgia";
 	font-size:18px;
 	font-style:"italic";
 	color:black;
 	margin-top:30px;
 	margin-left:340px;
 	margin-right:30px
 }
 </STYLE>
 </HEAD>
 <BODY bgcolor=#F0A890 onload="go();">
 Loading...Please wait
 
 Dual use cube - can either display the same image on every face, or different images on each face.
 
 
 
 
 <img id=ctmimage src="water.jpg" style="display:none">
 
 <OBJECT classid=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D
 id=DAControl 
 style="height:280px;position:absolute;left:30;top:30;width:280px;">
 <PARAM NAME="OpaqueForHitDetect" VALUE="1">
 <PARAM NAME="UpdateInterval" VALUE="0.033">
 </OBJECT>
 <SCRIPT>
 //Dual use cube
 //Phil Richards Jan 2000
 //evolve@p-richards.demon.co.uk
 function go(){
 
 
 m = DAControl.MeterLibrary; 
 textureimg=m.ImportImage(ctmimage.src).MapToUnitSquare()
 
 //set SIXIMAGES to true for a different image on each face, or false for the same image
 SIXIMAGES=false
 p0=m.point3( 1, 1,-1)
 p1=m.point3(-1, 1,-1)
 p2=m.point3(-1, 1, 1)
 p3=m.point3( 1, 1, 1)
 p4=m.point3( 1,-1,-1)
 p5=m.point3(-1,-1,-1)
 p6=m.point3(-1,-1, 1)
 p7=m.point3( 1,-1, 1)
 
 n0=m.vector3( 0, 1, 0)
 n1=m.vector3( 0, 0,-1)
 n2=m.vector3(-1, 0, 0)
 n3=m.vector3( 0, 0, 1)
 n4=m.vector3( 1, 0, 0)
 n5=m.vector3( 0,-1, 0)
 
 pos=new Array(
 	p0, p1, p2,
 	p0, p2, p3,
 	p0, p4, p5,
 	p0, p5, p1,
 	p1, p5, p6,
 	p1, p6, p2,
 	p2, p6, p7,
 	p2, p7, p3,
 	p3, p7, p4,
 	p3, p4, p0,
 	p4, p7, p6,
 	p4, p6, p5
 )
 
 norm=new Array(
 	n0, n0, n0,
 	n0, n0, n0,
 	n1, n1, n1,
 	n1, n1, n1,
 	n2, n2, n2,
 	n2, n2, n2,
 	n3, n3, n3,
 	n3, n3, n3,
 	n4, n4, n4,
 	n4, n4, n4,
 	n5, n5, n5,
 	n5, n5, n5
 )
 
 if(SIXIMAGES==true){
 	u0 =m.point2(0.0, 0.0)
 	u1 =m.point2(0.5, 0.0)
 	u2 =m.point2(1.0, 0.0)
 	u3 =m.point2(0.0, 1/3)
 	u4 =m.point2(0.5, 1/3)
 	u5 =m.point2(1.0, 1/3)
 	u6 =m.point2(0.0, 2/3)
 	u7 =m.point2(0.5, 2/3)
 	u8 =m.point2(1.0, 2/3)
 	u9 =m.point2(0.0, 1.0)
 	u10=m.point2(0.5, 1.0)
 	u11=m.point2(1.0, 1.0)
 
 	surf=new Array(
 		u11, u10, u7,
 		u11, u7, u8,
 		u1, u4, u3,
 		u1, u3, u0,
 		u10, u9, u6,
 		u10, u6, u7,
 		u7, u4, u5,
 		u7, u5, u8,
 		u3, u4, u7,
 		u3, u7, u6,
 		u2, u5, u4,
 		u2, u4, u1
 	)
 }
 else{
 	u0=m.point2(0.0, 0.0)
 	u1=m.point2(1.0, 0.0)
 	u2=m.point2(0.0, 1.0)
 	u3=m.point2(1.0, 1.0)
 
 	surf=new Array(
 		u3, u2, u0,
 		u3, u0, u1,
 		u1, u3, u2,
 		u1, u2, u0,
 		u3, u2, u0,
 		u3, u0, u1,
 		u2, u0, u1,
 		u2, u1, u3,
 		u0, u1, u3,
 		u0, u3, u2,
 		u1, u3, u2,
 		u1, u2, u0
 	)
 }
 
 cube=m.TriMesh (12, pos, norm, surf, null);
 
 cube=cube.TextureImage(textureimg);
 cube=cube.Transform(
 	m.Compose3Array(
 		new Array(
 			m.Scale3Uniform(0.02),
 			m.Rotate3Rate(m.ZVector3, 0.1),
 			m.Rotate3Rate(m.XVector3, 0.2),
 			m.Rotate3Rate(m.YVector3, 0.3)
 		)
 	) 
 )
 
 light=m.DirectionalLight
 
 camera=m.PerspectiveCamera(.1,.09)
 scene=m.UnionGeometry(cube,light).Render(camera)
 DAControl.Image=scene 
 sm.style.visibility="hidden";
 
 DAControl.Start()
 }
 </SCRIPT>
 </BODY></HTML>

Teknologi 3D pada Halaman WEB

Sabtu, 06 Februari 2010

DIRECT ANIMATION WITH IMAGE 1

HAPUS KODE BR / pada script!

Tidak ada komentar:

Mengenai Saya