Mots d'art & Scénarios

Poésie, littérature, pensées,
scripts d'art,
oeuvres de Ginette Villeneuve
 
AccueilAccueil  RechercherRechercher  S'enregistrerS'enregistrer  ConnexionConnexion  

Partagez | 
 

 Scripts d'Evolve

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Scripts d'Evolve   Mer 22 Déc - 3:28

Ici des scripts nettoyés autant que possible avec le nom de l'auteur du moteur.





VML




Code:
<html xmlns:v = "urn:schemas-microsoft-com:vml">

<head>
  <title>evolve - vml squirals</title>

  <style>
  v\:* {
    behavior: url(#default#VML);
    antialias: true;
    position: absolute;
    coordsize: 21600,21600;
  }
  </style>

</head>
<body bgcolor=#000000 onload="init();">


<div class="ev_squiral" style="position:absolute;overflow:hidden;left:50px;top:50px;width:280px;
height:80px;border:2px #ffffff ridge;"
params="baselen:25;zoomspeed:0.12;starthue:25;endhue:29;stephue:2;
startsat:0.6;endsat:0.8;stepsat:0.01;startval:0.4;endval:0.8;stepval:0.02;">
</div>

<div class="ev_squiral" style="position:absolute;overflow:hidden;left:150px;top:150px;width:100px;
height:100px;border:2px #ffffff ridge;"
params="numsquares:15;baselen:25;zoomspeed:0.12;starthue:0;endhue:360;
stephue:75;startsat:0.6;endsat:0.8;stepsat:0.01;startval:0.4;endval:0.8;
stepval:0.02;">
</div>

<div class="ev_squiral" style="position:absolute;overflow:hidden;left:350px;top:350px;width:280px;
height:180px;border:2px #ffffff ridge;"
params="theta:0.16362461737446839783659600954581;baselen:25;
zoomspeed:0.2;starthue:25;endhue:25;stephue:0;startsat:0.1;endsat:0.8;
stepsat:0.1;startval:0.4;endval:0.4;stepval:0;">
</div>


<script>
/////////////////////////////////////
//  VML Squirals                  //
//  evolve November 2000          //
//  http://www.mgifos.demon.co.uk  //
//  last evolved 26/06/2004        //
/////////////////////////////////////

var ob=new Array();

function init(){
  var i;
  var docall=document.getElementsByTagName("*");
  for (i in docall)if(docall[i].className=="ev_squiral")ob.push(new squiral(docall[i]));

  setInterval("anim();",50);
}

function anim(){
  var i;
  for(i in ob)ob[i].anim();
}

//squiral//////////////////////////////////////////////////////////////////////
function squiral(ctnr){
  var i,p,f,side,vrect,vstroke,vfill;
  if(ctnr.params)p=ctnr.params.split(";");
  //default values
  this.baselen=25;
  this.zoomspeed=0.1;
  this.starthue=0;
  this.endhue=360;
  this.stephue=1;
  this.startsat=0.2;
  this.endsat=0.8;
  this.stepsat=0.01;
  this.startval=0.4;
  this.endval=0.9;
  this.stepval=0.05;
  this.angle=0;
  //replace with any parameter values entered in the html
  for(i in p)if(p[i].indexOf(":")!=-1)eval("this."+p[i].replace(":","=").toLowerCase());

  this.cx=parseInt(ctnr.style.width)/2;
  this.cy=parseInt(ctnr.style.height)/2;

  //optional values with calculated defaults
  if(this.numsquares){
    if(!this.theta)this.theta=2*Math.PI/(this.numsquares);
  }
  else{
    if(!this.theta)this.theta=Math.PI/6;
    this.f=Math.cos(this.theta)+Math.sin(this.theta);
    this.numsquares=Math.ceil(1+Math.log(2*Math.sqrt(this.cx*this.cx+this.cy*this.cy)/this.baselen)/Math.log(this.f));
  }


  this.f=Math.cos(this.theta)+Math.sin(this.theta);
  this.hue=this.starthue;
  this.sat=this.startsat;
  this.val=this.startval;
  this.col=new colour(this.hue,this.sat,this.val);
  this.lenmult=1;
  this.noffset=0//this.numsquares-1;
  this.rs=new Array();
  this.cl=new Array();

  for(i=0;i<this.numsquares;i++){
    side=this.baselen*Math.pow(this.f,i);
    vrect=document.createElement("<v:rect style='top:"+(this.cy-side/2)+";left:"+(this.cx-side/2)+";width:"+(side)+";height:"+(side)+";rotation:"+((this.angle+i*this.theta)*180/Math.PI)+";'></v:rect>");
    vstroke=document.createElement("<v:stroke on='false'/>");
    vfill=document.createElement("<v:fill type='Solid' Color='RGB(0,0,0)'/>");
    vrect.appendChild(vstroke);
    vrect.appendChild(vfill);
    ctnr.appendChild(vrect);
    this.rs[i]=vrect.style;
    this.cl[i]=vfill;
  }

  this.changecolour=function(){
    with(this){
      col.h=hue;
      col.s=sat;
      col.v=val;
      col.hsv2rgb();
      hue=(hue+stephue)%360;
      if(starthue!=endhue){
        if(hue>endhue || hue<starthue){
          stephue*=-1;
          hue+=2*stephue;
        }
      }
      if(startsat!=endsat){
        sat+=stepsat;
        if(sat>endsat || sat<startsat){
          stepsat*=-1;
          sat+=2*stepsat;
        }
      }
      if(startval!=endval){
        val+=stepval;
        if(val>endval || val<startval){
          stepval*=-1;
          val+=2*stepval;
        }
      }
    }
  }

  this.anim=function(){
    var side,ss,i;
    with(this){
      lenmult+=zoomspeed;
      if(lenmult>f){
        lenmult/=f;
        noffset=(numsquares+noffset-1)%numsquares;
        this.changecolour();
        cl[noffset].Color="'"+col.rgb+"'";
        angle+=theta;
        rs[noffset].rotation=angle*180/Math.PI;
      }
      for(i=0;i<numsquares;i++){
        j=(i+noffset)%numsquares;
        side=baselen*lenmult*Math.pow(f,i);
        s=rs[j];
        s.width=side;
        s.height=side;
        s.left=cx-side/2;
        s.top=cy-side/2;
        s.zIndex=-i;
      }
    }
  }
}


//colour///////////////////////////////////////////////////////////////////////

function colour(h,s,v){
  this.colr=new Array(2,1,0,0,3,2);
  this.colg=new Array(3,2,2,1,0,0);
  this.colb=new Array(0,0,3,2,2,1);
  this.h=h%360;
  this.s=s;
  this.v=v;
  this.r=0;
  this.g=0;
  this.b=0;
  this.rgb="";
  //method to calculate rgb values from hsv values
  this.hsv2rgb=function(){
    var colp=new Array(4);
    var nh,ic,fc,ts;
    with(this){
      if(s==0){
        r=Math.floor(255*v);
        g=r;
        b=r;
        return;
      }
      h=h%360;
      nh=h/60;
      ic=Math.floor(nh);
      fc=nh-ic;
      colp[2]=255*v;
      colp[0]=colp[2]*(1-s)
      colp[1]=colp[2]*(1-s*fc)
      colp[3]=colp[2]*(1-s*(1-fc))
      r=Math.floor(colp[this.colr[ic]]);
      g=Math.floor(colp[this.colg[ic]]);
      b=Math.floor(colp[this.colb[ic]]);
      ts="000000"+(65536*r+256*g+b).toString(16);
      rgb="#"+ts.substring(ts.length-6, ts.length);
    }
  }
  //convert on construction
  this.hsv2rgb();
}


</script>
<script language=Javascript>
<!--
ScrollSpeed = 250;  // milliseconds between scrolls
ScrollChars = 4;    // chars scrolled per time period

function SetupTicker() {
  // add space to the left of the message
  msg = " Ginette Villeneuve : http://www.liensutiles.org/gvilleneuve.htm
            ";
  RunTicker();}

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

<!-- end -->
</script>


</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par Gi le Sam 22 Aoû - 23:37, édité 3 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: wordwaves4.htm   Sam 9 Avr - 2:36

Code:
<HTML>
<HEAD>
<TITLE></TITLE>
<STYLE TYPE="text/css">
<!--
BODY{
   font-family:"Georgia, Times New Roman, Times, serif";
   font-size:24px;
   color:deeppink;
}
.default{
   font-size:48px;
   font-style:italic;
}
-->
</STYLE>
</HEAD>
<BODY>
<DIV>
<SCRIPT>
//things to play with
str=" It works a treat!";   //the message
maxD=11;         //number of elements
cr=238;            //trail colour red value
cg=130;            //trail colour blue value
cb=177;            //trail colour green value
cx=200;            //centre of rotation from left
cy=100;            //centre of rotation from top
rx=0;            //rotation ellipse half width
ry=8;            //rotation ellipse half height
dp=2;            //depth of the black text
k=2.5;            //depth of still text
dphi=0.3;         //angle between each element
dtheta=0.1;         //change in rotation angle per frame
theta=Math.PI/2;
phi=theta;
newDiv="";
for(i=0;i<maxD;i++){
   f=i/maxD;
   r=(i==dp)?0:cr+f*(255-cr);
   g=(i==dp)?0:cg+f*(255-cg);
   b=(i==dp)?0:cb+f*(255-cb);
   newDiv += "<DIV ID='D" + i + "' NOWRAP=1 CLASS='default' ";
   newDiv += "STYLE='position:absolute;left:"+(cx+(i-k)*rx*Math.cos(phi))+";top:"+(cy-(i-k)*ry*Math.sin(phi))+";z-index:"+(maxD-i)+";"
   newDiv += "font-size:"+(48-3*i)+";color:RGB("+r+","+g+","+b+");'>"+str+"</DIV>";
   phi+=dphi;
}
document.write(newDiv);
window.setInterval("frame();",32);

function frame(){
   theta-=dtheta;
   if(theta<-(Math.PI))theta+=2*Math.PI;
   phi=theta;
   for(i=0;i<maxD;i++){
      f=(i+dp);
      if(f>maxD)f-=maxD;
      f=(1+Math.sin(1*Math.PI*f/maxD))/2;
      r=cr+f*(255-cr);
      g=cg+f*(255-cg);
      b=cb+f*(255-cb);
      D=document.all["D"+i].style;
      D.left=cx+(i-k)*rx*Math.cos(phi);
      D.top=cy-(i-k)*ry*Math.sin(phi);
      D.color="RGB("+r+","+g+","+b+")";
      phi+=dphi;
   }
   dp+=0.5;
   if(dp>maxD)dp=0;
}

</SCRIPT>
</DIV>
</BODY>
</HTML>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:39, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Wavy Edge   Sam 9 Avr - 2:53

Code:
<HEAD>
<TITLE>Wavy Edge</TITLE>
<style>
body{
   color:#B17328;
   font-family:"Georgia, Times New Roman, Times, serif";
   font-size:18px;
   font-style:italic;
}
</style>
</HEAD>
<BODY bgcolor=#000000>
Played a bit more<br><br>
Phil
<bgsound balance=0 loop=-1 src="../midi/CURE__Lullaby.mid" volume=0>

<!--Place your border image here, and you must put the image size in the script further down-->
<img id=twirlimg src="../images/squares2.gif" style="position:absolute;left:-10000">

<script>
//wavey edge
//phil 20/4/00
//http://www.mgifos.demon.co.uk

//effect controls the 'look' of the border. Use simple ratios for best results e.g. 1/2, 5/2
effect=2/3
//amount of swing - play with this for different effects
overlap=0.5
//speed of wiggle
speed=1

//you MUST fill these in for image width and height
imwidth=83
imheight=314


wphase=0
numimgs=0
dy=0
imwidth=imwidth*2
imheight=Math.floor(imheight/2)
init()
window.setInterval("wave();",25)

function init(){
   scrheight=screen.height
   numimgs=Math.ceil(scrheight/imheight)
   divheight=numimgs*imheight
   wfreq=(effect*divheight)-1
   wstrength=overlap*imwidth
   D="<div id=wavimage style='position:absolute;left:0;top:0;width:"+(imwidth)+";height:"+(divheight)+";filter:wave(enabled=true,add=0,freq="+(wfreq)+",strength="+(wstrength)+",lightstrength=80,phase=0)'>"
   for(i=0;i<numimgs;i++){
      D+="<img id='wi"+(i)+"' src='"+twirlimg.src+"' style='position:absolute;left:0;top:"+(i*imheight)+";"
      if(i%2==0)D+="filter:flipv;"
      D+="'>"
   }
   D+="</div>"
   document.body.insertAdjacentHTML("AfterBegin",D)
   document.body.style.marginLeft=imwidth+30
   document.body.style.marginRight=30
   document.body.style.marginTop=30
}

function wave(){
   dy=(dy+1)%imheight
   for(i=0;i<numimgs;i++){
      if(i%2==0){
         document.images["wi"+i].style.clip="rect("+(dy)+" "+(imwidth)+" "+(imheight+dy)+" 0)"
         document.images["wi"+i].style.top=imheight*i-dy
      }
      else{
         document.images["wi"+i].style.clip="rect("+(imheight-dy)+" "+(imwidth)+" "+(2*imheight-dy)+" 0)"
         document.images["wi"+i].style.top=imheight*i+dy-imheight      
      }
   }
   wphase=(wphase+speed)%100
   wavimage.filters(0).phase=wphase
}
</script>

</BODY></HTML>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:39, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Sam 9 Avr - 2:54

Code:
<html>
<head>
<title></title>
</head>
<style>
body{
   font-family:"Georgia";
   font-size:18px;
   font-style:"italic";
   color:white;
   margin-top:50px;
   margin-left:340px;
   margin-right:30px
}
.letter{
   font-family:"webdings, verdana";
   font-size:38px;
   font-style:"normal";
   color:white;
   position:absolute;
}
</style>

<body bgcolor=black onload=init()>
<bgsound balance=0 loop=-1 src="../midi/TORI_AMOS__Winter.mid" volume=0>
<script>
//Wobbly bed of characters
//Phil 2000
//http://www.mgifos.demon.co.uk
nx=8
ny=8
nn=nx*ny
dots=new Array()
startx=100
starty=200

function init(){
   for(i=0;i<nn;i++){
      document.body.insertAdjacentHTML("AfterBegin","<div class=letter >n</div>")      
   }
   letter = document.all.tags("div")
   for(i=0;i<nn;i++)dots[i]=new dot(i,letter[i])
}

function bounce(){
   with(this){
      dy=8*Math.sin(t+xi)+8*Math.sin(t+yi)
      ldiv.top=Math.floor(y+dy)
      t+=0.4
   }
}

function dot(n,ldiv){
var xi,yi,x,y
   yi=Math.floor(n/nx)
   xi=n-(yi*nx)
   x=startx+yi*28+xi*30
   y=starty+yi*8-xi*10
   this.n=n
   this.ldiv=ldiv.style
   this.x=x
   this.y=y
   this.xi=xi
   this.yi=yi
   this.t=0
   xi=xi-((nx-1)/2)
   yi=yi-((ny-1)/2)
   this.bounce=bounce
   this.ldiv.left=x
   this.ldiv.top=y
   this.ldiv.zIndex=y-10000
   this.ldiv.color="RGB("+(160)+","+(70+xi*8)+","+(50+yi*15)+")";
   setInterval("dots["+n+"].bounce()",40)
}
</script>
</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:38, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mar 12 Avr - 14:06

Code:
<HTML xmlns:v = "urn:schemas-microsoft-com:vml"><HEAD>
<TITLE>VML Animation - Gears within Gears</TITLE>
<OBJECT classid=CLSID:10072CEC-8CC1-11D1-986E-00A0C955B42E
id=VMLRender></OBJECT>
<STYLE>v\:* {
   BEHAVIOR: url(#VMLRender)
}
</STYLE>

</HEAD>
<BODY bgColor=#000000 onresize=resize() scroll=no>
<div id=op></div>

<script>

//globals for HSV to RGB conversion
irpnt=new Array(2,1,0,0,3,2);
igpnt=new Array(3,2,2,1,0,0);
ibpnt=new Array(0,0,3,2,2,1);

//constants for gears
GB=200;
GD=60;
GA=40;

w=0;
h=0;
kx=0;
ky=0;
scol=new colour(57,.71,.89);
ss=new Array(500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500);
vs="<DIV id=kal style='position:absolute;left:"+kx+";top:"+ky+";'>";
for(j=0;j<ss.length;j++){
   np=30-2*j;
   sp=makegearpath(np);
   hue=j*4;
   dhue=8;
   dr=(j+1)/2;
   //if(j%2==0)dr=-dr;
   vx=rnd(10)-4;if(vx==0)vx=-5;
   vy=rnd(10)-4;if(vy==0)vy=-5;
   vs+="<v:shape id='V"+j+"' np="+np+" hue="+hue+" dhue="+dhue+" dr="+dr+" vx="+vx+" vy="+vy+" style='position:absolute;left:"+((500-ss[j])/2)+"px;top:"+((500-ss[j])/2)+"px;height:"+ss[j]+";width:"+ss[j]+";rotation:0;' fill='true' stroke='true' coordsize='2500,2500' coordorigin '-1250,-1250' fillcolor='#fdf9ae' strokecolor='#000000' path='"+sp+"'></v:shape>"
}
vs+="</div>"
document.write(vs);
resize();

window.setInterval("frame();",20);

function frame(){
   for(j=0;j<ss.length;j++){
      S=document.all["V"+j];
      //animate colour
      hue=parseInt(S.hue);
      dhue=parseInt(S.dhue);
      hue+=dhue;
      if(hue>=360)hue-=360;
      S.hue=hue;
      scol.h=hue;
      scol.hsv2rgb();
      S.fillcolor=scol.rgb;
      S.strokecolor=scol.rgb;
      //animate rotation
      r=parseFloat(S.style.rotation);
      dr=parseFloat(S.dr);
      r+=dr;if(r>=360)r-=360;if(r<0)r+=360;
      S.style.rotation=r;
   }
}

//n=number of points
//r1=outer diameter
//r2=inner diameter
//assumes coordsize='2000,2000' coordorigin '0,0'
function makegearpath(n){
var r1,r2,l1,l2
var theta,phi,alpha,beta

   s="";
   theta=2*Math.PI/n;
   theta2=theta/2
   r2=(GB*n)/(2*Math.PI);
   r1=r2+GD;
   l1=Math.sqrt((r1*r1+GA*GA));
   l2=Math.sqrt((r2*r2+GA*GA));
   alpha=Math.atan(GA/r1);
   beta=Math.atan(GA/r2);
   phi=Math.PI/2-theta2-beta;
   s="m "+(1250+Math.round(l2*Math.cos(phi)))+","+(1250+Math.round(l2*Math.sin(phi)))+"l";
   for (i=0;i<n;i++){
      phi=i*theta+Math.PI/2;
      if(i>0)s+=",";
      s+=(1250+Math.round(l2*Math.cos(phi-theta2+beta)))+","+(1250+Math.round(l2*Math.sin(phi-theta2+beta)))+",";
      s+=(1250+Math.round(l1*Math.cos(phi-alpha)))+    ","+(1250+Math.round(l1*Math.sin(phi-alpha)))+",";
      s+=(1250+Math.round(l1*Math.cos(phi+alpha)))+    ","+(1250+Math.round(l1*Math.sin(phi+alpha)))+",";
      s+=(1250+Math.round(l2*Math.cos(phi+theta2-beta)))+","+(1250+Math.round(l2*Math.sin(phi+theta2-beta)));
   }
   s+="x e"
   return(s);
}

function rnd(n){
   return(Math.floor((n+1)*Math.random()));
}

function resize(){
   w=document.body.clientWidth;
   h=document.body.clientHeight;
//   bg.style.width=w;
//   bg.style.height=h;
   kx=w/2-250;
   ky=h/2-250;
   kal.style.left=kx;
   kal.style.top=ky;
}

//utility object for HSV to RGB conversion
function hsv2rgb(){
   pqvt=new Array(4);
   with(this){
      if(s==0){
         r=Math.floor(255*v);
         g=r;
         b=r;
         return;
      }
      if(h>=360)h=0;
      nh=h/60;
      i=Math.floor(nh);
      f=nh-i;
      pqvt[2]=255*v;
      pqvt[0]=pqvt[2]*(1-s)
      pqvt[1]=pqvt[2]*(1-s*f)
      pqvt[3]=pqvt[2]*(1-s*(1-f))
      r=Math.floor(pqvt[irpnt[i]]);
      g=Math.floor(pqvt[igpnt[i]]);
      b=Math.floor(pqvt[ibpnt[i]]);
      rgb="#"+(65536*r+256*g+b).toString(16);
   }
}

function colour(h,s,v){
   this.h=h;   //0-359
   this.s=s;   //0-1
   this.v=v;   //0-1
   this.r=0;   //0-255
   this.g=0;   //0-255
   this.b=0;   //0-255
   this.rgb="";
   this.hsv2rgb=hsv2rgb;
   //convert on construction
   this.hsv2rgb();
}

</script>

</BODY></HTML>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:37, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mar 12 Avr - 14:09

une multitude de photos dans des positions hétéroclites

Code:
<html>
<head>
<title>fampix2</title>
</head>
<body bgcolor="#000000" text="#FF4400" link="#000000" vlink="#E0C000">
<DIV ALIGN=CENTER>
<font face="Courier New Baltic">
<hr size="3" noshade color="#800000">
<p>
<font size="7">
<strong>
My Lot
</strong>
</font>
<br><br>
<p>
These are some of my favourite pictures, mostly of my family
<br><br><br>
</p>
<MAP NAME="PicturePile">
<AREA SHAPE=RECT COORDS="20,8,87,110" href="../images/lg02.jpg">
<AREA SHAPE=RECT COORDS="89,12,136,105" href="../images/lg01.jpg">
<AREA SHAPE=RECT COORDS="139,20,190,104" href="../images/lg03.jpg">
<AREA SHAPE=RECT COORDS="192,10,235,105" href="../images/lg04.jpg">
<AREA SHAPE=RECT COORDS="237,15,283,102" href="../images/lg05.jpg">
<AREA SHAPE=RECT COORDS="285,16,327,101" href="../images/lg06.jpg">
<AREA SHAPE=RECT COORDS="330,7,382,102" href="../images/lg07.jpg">
<AREA SHAPE=RECT COORDS="384,15,428,106" href="../images/lg08.jpg">
<AREA SHAPE=RECT COORDS="430,14,480,109" href="../images/lg09.jpg">
<AREA SHAPE=RECT COORDS="483,15,552,110" href="../images/lg10.jpg">
<AREA SHAPE=RECT COORDS="9,113,97,182" href="../images/lg11.jpg">
<AREA SHAPE=RECT COORDS="99,107,155,180" href="../images/lg12.jpg">
<AREA SHAPE=RECT COORDS="157,107,196,186" href="../images/lg13.jpg">
<AREA SHAPE=RECT COORDS="198,107,245,183" href="../images/lg14.jpg">
<AREA SHAPE=RECT COORDS="247,104,302,184" href="../images/lh18.jpg">
<AREA SHAPE=RECT COORDS="305,104,352,187" href="../images/lh19.jpg">
<AREA SHAPE=RECT COORDS="354,106,410,192" href="../images/lh20.jpg">
<AREA SHAPE=RECT COORDS="413,109,466,186" href="../images/lh21.jpg">
<AREA SHAPE=RECT COORDS="468,112,520,194" href="../images/lh22.jpg">
<AREA SHAPE=RECT COORDS="523,111,590,204" href="../images/lh23.jpg">
<AREA SHAPE=RECT COORDS="35,185,103,274" href="../images/lh24.jpg">
<AREA SHAPE=RECT COORDS="105,185,164,272" href="../images/lh25.jpg">
<AREA SHAPE=RECT COORDS="167,189,210,274" href="../images/ll12.jpg">
<AREA SHAPE=RECT COORDS="213,186,253,269" href="../images/ll13.jpg">
<AREA SHAPE=RECT COORDS="255,190,301,279" href="../images/ll14.jpg">
<AREA SHAPE=RECT COORDS="303,190,352,274" href="../images/ll15.jpg">
<AREA SHAPE=RECT COORDS="355,196,397,275" href="../images/lm01.jpg">
<AREA SHAPE=RECT COORDS="401,189,450,269" href="../images/lm02.jpg">
<AREA SHAPE=RECT COORDS="453,193,495,277" href="../images/lm03.jpg">
<AREA SHAPE=RECT COORDS="497,206,564,277" href="../images/lm04.jpg">
<AREA SHAPE=RECT COORDS="29,281,90,357" href="../images/lm05.jpg">
<AREA SHAPE=RECT COORDS="94,281,136,360" href="../images/lm06.jpg">
<AREA SHAPE=RECT COORDS="138,277,185,355" href="../images/lp01.jpg">
<AREA SHAPE=RECT COORDS="189,274,241,354" href="../images/lp02.jpg">
<AREA SHAPE=RECT COORDS="244,281,288,353" href="../images/lt01.jpg">
<AREA SHAPE=RECT COORDS="290,276,336,348" href="../images/lt02.jpg">
<AREA SHAPE=RECT COORDS="338,276,381,356" href="../images/lt03.jpg">
<AREA SHAPE=RECT COORDS="384,278,434,362" href="../images/lt04.jpg">
<AREA SHAPE=RECT COORDS="437,277,483,367" href="../images/lt05.jpg">
<AREA SHAPE=RECT COORDS="485,280,563,371" href="../images/lt06.jpg">
<AREA SHAPE=RECT COORDS="23,365,98,453" href="../images/lt07.jpg">
<AREA SHAPE=RECT COORDS="101,364,154,454" href="../images/lt08.jpg">
<AREA SHAPE=RECT COORDS="158,360,204,449" href="../images/lt09.jpg">
<AREA SHAPE=RECT COORDS="206,358,249,453" href="../images/pg15.jpg">
<AREA SHAPE=RECT COORDS="252,359,301,450" href="../images/pg16.jpg">
<AREA SHAPE=RECT COORDS="303,352,349,449" href="../images/pg17.jpg">
<AREA SHAPE=RECT COORDS="352,362,391,448" href="../images/pg18.jpg">
<AREA SHAPE=RECT COORDS="395,368,448,444" href="../images/pg19.jpg">
<AREA SHAPE=RECT COORDS="452,372,503,454" href="../images/ph01.jpg">
<AREA SHAPE=RECT COORDS="506,373,577,459" href="../images/ph02.jpg">
<AREA SHAPE=RECT COORDS="4,455,76,543" href="../images/ph03.jpg">
<AREA SHAPE=RECT COORDS="79,457,134,540" href="../images/ph04.jpg">
<AREA SHAPE=RECT COORDS="137,456,187,539" href="../images/ph05.jpg">
<AREA SHAPE=RECT COORDS="189,458,254,535" href="../images/ph06.jpg">
<AREA SHAPE=RECT COORDS="256,454,300,538" href="../images/ph07.jpg">
<AREA SHAPE=RECT COORDS="302,452,367,538" href="../images/ph08.jpg">
<AREA SHAPE=RECT COORDS="371,451,420,543" href="../images/ph09.jpg">
<AREA SHAPE=RECT COORDS="422,456,475,542" href="../images/ph10.jpg">
<AREA SHAPE=RECT COORDS="477,462,520,545" href="../images/ph11.jpg">
<AREA SHAPE=RECT COORDS="524,465,593,550" href="../images/ph12.jpg">
<AREA SHAPE=RECT COORDS="16,546,85,627" href="../images/ph13.jpg">
<AREA SHAPE=RECT COORDS="87,543,142,630" href="../images/ph14.jpg">
<AREA SHAPE=RECT COORDS="144,541,197,632" href="../images/ph15.jpg">
<AREA SHAPE=RECT COORDS="200,542,249,632" href="../images/ph16.jpg">
<AREA SHAPE=RECT COORDS="251,541,298,632" href="../images/ph17.jpg">
<AREA SHAPE=RECT COORDS="302,542,336,632" href="../images/pl01.jpg">
<AREA SHAPE=RECT COORDS="338,546,384,631" href="../images/pl02.jpg">
<AREA SHAPE=RECT COORDS="387,547,446,632" href="../images/pl03.jpg">
<AREA SHAPE=RECT COORDS="448,548,497,632" href="../images/pl04.jpg">
<AREA SHAPE=RECT COORDS="499,553,578,645" href="../images/pl05.jpg">
<AREA SHAPE=RECT COORDS="3,630,71,709" href="../images/pl06.jpg">
<AREA SHAPE=RECT COORDS="73,630,128,713" href="../images/pl07.jpg">
<AREA SHAPE=RECT COORDS="130,633,185,710" href="../images/pl08.jpg">
<AREA SHAPE=RECT COORDS="187,633,241,709" href="../images/pl09.jpg">
<AREA SHAPE=RECT COORDS="243,635,300,708" href="../images/pl10.jpg">
<AREA SHAPE=RECT COORDS="304,635,352,714" href="../images/pl11.jpg">
<AREA SHAPE=RECT COORDS="354,634,403,711" href="../images/pm07.jpg">
<AREA SHAPE=RECT COORDS="405,635,454,713" href="../images/pm08.jpg">
<AREA SHAPE=RECT COORDS="456,635,497,709" href="../images/pm09.jpg">
<AREA SHAPE=RECT COORDS="499,648,570,716" href="../images/pm10.jpg">
<AREA SHAPE=RECT COORDS="4,712,63,799" href="../images/pm11.jpg">
<AREA SHAPE=RECT COORDS="65,712,110,795" href="../images/pm12.jpg">
<AREA SHAPE=RECT COORDS="112,714,168,797" href="../images/pm13.jpg">
<AREA SHAPE=RECT COORDS="171,711,223,797" href="../images/pp01.jpg">
<AREA SHAPE=RECT COORDS="225,711,280,800" href="../images/ps01.jpg">
<AREA SHAPE=RECT COORDS="282,715,337,802" href="../images/ps02.jpg">
<AREA SHAPE=RECT COORDS="339,716,385,793" href="../images/pt10.jpg">
<AREA SHAPE=RECT COORDS="387,716,442,795" href="../images/pt11.jpg">
<AREA SHAPE=RECT COORDS="445,715,496,797" href="../images/pt12.jpg">
<AREA SHAPE=RECT COORDS="500,720,578,803" href="../images/pt13.jpg">
<AREA SHAPE=RECT COORDS="3,800,62,904" href="../images/pt14.jpg">
<AREA SHAPE=RECT COORDS="65,798,126,905" href="../images/pt15.jpg">
<AREA SHAPE=RECT COORDS="128,800,184,905" href="../images/pt16.jpg">
<AREA SHAPE=RECT COORDS="187,801,241,906" href="../images/pt17.jpg">
<AREA SHAPE=RECT COORDS="243,803,305,908" href="../images/pt18.jpg">
<AREA SHAPE=RECT COORDS="309,804,361,905" href="../images/pt19.jpg">
<AREA SHAPE=RECT COORDS="363,798,415,901" href="../images/pt20.jpg">
<AREA SHAPE=RECT COORDS="419,800,478,904" href="../images/pt21.jpg">
<AREA SHAPE=RECT COORDS="482,805,532,910" href="../images/pt22.jpg">
<AREA SHAPE=RECT COORDS="533,807,594,907" href="../images/pt23.jpg">
<AREA SHAPE=default href="../images/pixmapimg.jpg">
</MAP>
<IMG USEMAP="#PicturePile" src="../images/pixmapimg.jpg">
<br><br><br>
<body link="FF0000">
<br><br><br>
</DIV>
<br><br><br><br>
<p align="center">
</p>
</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:37, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mar 12 Avr - 14:11

Code:
<html>
<head>
<title></title>
<style>
body{
   font-family:"Georgia";
   font-style:"italic";
   font-size:20px;
   margin-left:460;
   margin-top:30;
   margin-right:30;
   color:#ffffff;
}
</style>
</head>

<body bgColor=#190500 scroll=yes>
<bgsound balance=0 loop=-1 src="../midi/dune.mid" volume=0>

<OBJECT classid=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D
id=DAControl
style="position:absolute;top:30;left:30;height:800;width:800;">
<PARAM NAME="OpaqueForHitDetect" VALUE="1">
<PARAM NAME="UpdateInterval" VALUE="0.033">
</OBJECT>

<img id=ttimage src="../images/bfwing.jpg" style="display:none">

<script>
// snake-like objects with calculated trimesh elements
// evolve Jan 2000
// http://www.mgifos.demon.co.uk


m = DAControl.MeterLibrary;     

da0=m.DANumber(0)
da1=m.DANumber(1)

textureimg=m.ImportImage(ttimage.src).MapToUnitSquare()

//*******************************************************
//***        Object definition data                  ***
//*******************************************************

//number of points in each ring
ringpoints=19

//radii of each ring (first & last always 0)
rrad=new Array(
   da0,
   sdan(0.20,0.25,3.0,0.00),
   sdan(0.25,0.35,3.0,0.10),
   sdan(0.30,0.45,3.0,0.20),
   sdan(0.35,0.55,3.0,0.30),
   sdan(0.40,0.65,3.0,0.40),
   sdan(0.45,0.75,3.0,0.50),
   sdan(0.50,0.80,3.0,0.60),
   sdan(0.55,0.85,3.0,0.70),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.60,0.90,3.0,0.80),
   sdan(0.55,0.85,3.0,0.90),
   sdan(0.50,0.80,3.0,1.10),
   sdan(0.45,0.75,3.0,1.20),
   sdan(0.40,0.60,3.0,1.30),
   sdan(0.35,0.55,3.0,1.40),
   sdan(0.30,0.45,3.0,1.50),
   sdan(0.25,0.35,3.0,1.60),
   sdan(0.20,0.25,3.0,1.70),
   da0
)

//rdist describes the separation of each ring from the last one
rdist=new Array(
   da0,
   da0,
   sdan(0.4,0.5,0.3,0.00),
   sdan(0.4,0.5,0.3,0.01),
   sdan(0.4,0.5,0.3,0.02),
   sdan(0.4,0.5,0.3,0.03),
   sdan(0.4,0.5,0.3,0.04),
   sdan(0.4,0.5,0.3,0.05),
   sdan(0.4,0.5,0.3,0.06),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.07),
   sdan(0.4,0.5,0.3,0.08),
   sdan(0.4,0.5,0.3,0.09),
   sdan(0.4,0.5,0.3,0.10),
   sdan(0.4,0.5,0.3,0.11),
   sdan(0.4,0.5,0.3,0.12),
   sdan(0.4,0.5,0.3,0.13),
   sdan(0.4,0.5,0.3,0.14),
   sdan(0.4,0.5,0.3,0.15),
   sdan(0.4,0.5,0.3,0.16),
   da0
)

//rtheta,rphi are the angles turned in two planes for each ring
rtheta=new Array(
   da0,
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.1),
   sdan(-0.31,0.31,0.3,0.2),
   sdan(-0.31,0.31,0.3,0.3),
   sdan(-0.31,0.31,0.3,0.4),
   sdan(-0.31,0.31,0.3,0.5),
   sdan(-0.31,0.31,0.3,0.6),
   sdan(-0.31,0.31,0.3,0.7),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
  sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.1),
   sdan(-0.31,0.31,0.3,0.2),
   sdan(-0.31,0.31,0.3,0.3),
   sdan(-0.31,0.31,0.3,0.4),
   sdan(-0.31,0.31,0.3,0.5),
   sdan(-0.31,0.31,0.3,0.6),
   sdan(-0.31,0.31,0.3,0.7),
   sdan(-0.31,0.31,0.3,0.8)
)
rphi=new Array(
   da0,
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.1),
   sdan(-0.31,0.31,0.3,0.2),
   sdan(-0.31,0.31,0.3,0.3),
   sdan(-0.31,0.31,0.3,0.4),
   sdan(-0.31,0.31,0.3,0.5),
   sdan(-0.31,0.31,0.3,0.6),
   sdan(-0.31,0.31,0.3,0.7),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.8),
   sdan(-0.31,0.31,0.3,0.9),
   sdan(-0.31,0.31,0.3,0.0),
   sdan(-0.31,0.31,0.3,0.1),
   sdan(-0.31,0.31,0.3,0.2),
   sdan(-0.31,0.31,0.3,0.3),
   sdan(-0.31,0.31,0.3,0.4),
   sdan(-0.31,0.31,0.3,0.5),
   sdan(-0.31,0.31,0.3,0.6),
   sdan(-0.31,0.31,0.3,0.7),
   sdan(-0.31,0.31,0.3,0.8)
)

//cp is array of Point3Anim defining the centre point of each ring
cp=new Array()
cumtheta=new Array()
cumphi=new Array()

lastcp=m.Point3Anim(da0,da0,da0)
cumtheta[0]=da0
cumphi[0]=da0
for(i=0;i<rrad.length;i++){
   if(i>0){
      cumtheta[i]=m.Add(cumtheta[i-1],rtheta[i])
      cumphi[i]=m.Add(cumphi[i-1],rphi[i])
   }
   vec=m.Vector3Anim(da0,da0,rdist[i]).Transform(
      m.Compose3(
         m.Rotate3Anim(m.YVector3,cumtheta[i]),
         m.Rotate3Anim(m.XVector3,cumphi[i])
      )
   )
   cp[i]=lastcp.Transform(m.Translate3Vector(vec))
   lastcp=cp[i]
}


//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
k=2*Math.PI/ringpoints
for(i=0;i<rrad.length;i++){
   if(i>0 && i<rrad.length-1){
      for(j=0;j<ringpoints;j++){
         a=j*k
         x=m.Mul(rrad[i],m.DANumber(Math.cos(a)))
         y=m.Mul(rrad[i],m.DANumber(Math.sin(a)))
         u[n]=m.Point2(i/(rrad.length-1),j/(ringpoints))
         p[n++]=m.Point3Anim(x,y,da0).Transform(
            m.Compose3Array(
               new Array(
                  m.Translate3Point(cp[i]),
                  m.Rotate3Anim(m.YVector3,cumtheta[i]),
                  m.Rotate3Anim(m.XVector3,cumphi[i])
               )
            )
         )
      }
   }
   else{
      u[n]=m.Point2(i/(rrad.length-1),0.5)
      p[n++]=m.Point3Anim(da0,da0,da0).Transform(
         m.Compose3Array(
            new Array(
               m.Translate3Point(cp[i]),
               m.Rotate3Anim(m.YVector3,cumtheta[i]),
               m.Rotate3Anim(m.XVector3,cumphi[i])
            )
         )
      )      
   }
}


//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
sc=0   //start point index of current ring
sn=1   //start point index of next ring

//start
for(j=0;j<ringpoints;j++){
   surf[n]=u[sn+j]
   pos[n++]=p[sn+j]
   surf[n]=u[sc]
   pos[n++]=p[sc]
   if(j==ringpoints-1){
      surf[n]=m.Point2(1/(rrad.length-1),1.0);
      pos[n++]=p[sn];
   }
   else{
      surf[n]=u[sn+j+1];
      pos[n++]=p[sn+j+1];
   }
}

//mid rings
for(i=1;i<rrad.length-2;i++){
   sc=sn
   sn+=ringpoints
   for(j=0;j<ringpoints;j++){
      surf[n]=u[sn+j]
      pos[n++]=p[sn+j]
      surf[n]=u[sc+j]
      pos[n++]=p[sc+j]
      if(j==ringpoints-1){
         surf[n]=m.Point2((i+1)/(rrad.length-1),1.0);
         pos[n++]=p[sn]
         surf[n]=m.Point2((i+1)/(rrad.length-1),1.0);
         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==ringpoints-1){
         surf[n]=m.Point2(i/(rrad.length-1),1.0);
         pos[n++]=p[sc]
      }
      else{
         surf[n]=u[sc+j+1]
         pos[n++]=p[sc+j+1]
      }
   }
}

//end
sc=sn
sn+=ringpoints
for(j=0;j<ringpoints;j++){
   surf[n]=u[sn]
   pos[n++]=p[sn]
   surf[n]=u[sc+j]
   pos[n++]=p[sc+j]
   if(j==ringpoints-1){
      surf[n]=m.Point2(i/(rrad.length-1),1.0);
      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+=3){
   va=m.Vector3Anim(pos[i].X,pos[i].Y,pos[i].Z)
   vb=m.Vector3Anim(pos[i+1].X,pos[i+1].Y,pos[i+1].Z)
   vc=m.Vector3Anim(pos[i+2].X,pos[i+2].Y,pos[i+2].Z)
   v=m.CrossVector3(m.SubVector3(vb,va),m.SubVector3(vc,va))
   norm[i]=v
   norm[i+1]=v
   norm[i+2]=v
}

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

ggeo=ggeo.TextureImage(textureimg);
ggeo=ggeo.Transform(
   m.Compose3Array(
      new Array(
         m.Scale3Uniform(0.3),
         m.Rotate3Rate(m.ZVector3, 0.025),
         m.Rotate3Rate(m.XVector3, 0.05),
         m.Rotate3Rate(m.YVector3, 0.1),
         m.Translate3Anim(m.Neg(cp[10].X),m.Neg(cp[10].Y),m.Neg(cp[10].Z))
      )
   )             
)

amblight=m.AmbientLight.LightColor(m.colorRgb(1,1,1))
light1=m.DirectionalLight
light2=m.PointLight.Transform(m.Translate3(0,0,-3))
lights=m.UnionGeometry(light1,light2)
//lights=light1

camera=m.PerspectiveCamera(.2,0).Transform(m.Translate3(0,0,5))

scene=m.UnionGeometry(ggeo,lights).Render(camera)

DAControl.Image=scene   
DAControl.Start()

//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))))))
}

</script>
</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:36, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mar 12 Avr - 14:15

Code:
<html>
<head>
<title></title>
<style>
BODY {
 COLOR: #FFE820;
 FONT-FAMILY: "Georgia";
 FONT-SIZE: 16px;
 FONT-STYLE: italic;
 MARGIN-LEFT: 400px;
 MARGIN-RIGHT: 20px;
 MARGIN-TOP: 50px
}
.img{
   position:absolute;
}
</style>
</head>
<body bgcolor="black" onload=init() scroll=no>
Blurring the boundaries...
<img id="image1" style="display:none;" src="../images/spinball3.gif">
<bgsound balance=0 loop=-1 src="../midi/Oxygene6.mid" volume=0>

<script>
//3D Blurred Spiral Balls
//evolve October 2000
//http://www.mgifos.demon.co.uk

nb=10;  //Number of balls:
c=2;    //Number of coils:
r=80;  //Radius of ball:
s=1;    //# balls on straight section

//just for speed
pi=Math.PI;
pic=pi*c;
pic2=2*pi*c;
prf=8/r;
csx=0;
csy=0;
ob=new Array()

function init(){
  document.body.insertAdjacentHTML("AfterBegin", "<span id='frm' style='position:absolute;overflow:hidden;left:50;top:50;width:400;
height:350;border:#ffffff 2px ridge;'></span>");
  csx=frm.clientWidth/2-31;
  csy=frm.clientHeight/2-31;
  for(i=0;i<nb;i++){
    ob[i]=new ball(i,image1.src);
  }
  setInterval("for(i in ob)ob[i].anim();",5)
//  setInterval("for(i in ob)ob[i].anim();",5)
}

function ball_anim(){
  with(this){
    t+=0.03;
    if(t>(s+pic2))t-=(s+pic2);
    if(t<pic2){
      y=r*(t/pic-1);
      r1=Math.sqrt(r*r-y*y);
      x=r1*Math.cos(t);
      z=r1*Math.sin(t);
    }
    else{
      y=r-2*r*(t-pic2)/s;
      x=0;
      z=0;
    }
    //perspective effect - smaller numbers give wild effects
    pf=500/(300-z)
    if(pf<0)x=-10000;
    is.posTop=csy+pf*y;
    is.posLeft=csx+pf*x;
    is.posWidth=pf*31;
    is.posHeight=pf*31;
    is.zIndex=z;
    pr=Math.max(0,z*prf)
    if(pr>1){
      ib.enabled="true";
      ib.PixelRadius=pr;
    }
    else{
      ib.enabled="false"
    }
  }
}

function ball(n,img1){
  this.t=n*(s+pic2)/nb;
  frm.insertAdjacentHTML("AfterBegin","<img class=img src='"+img1+"' style='filter:progid:DXImageTransform.Microsoft.Blur(pixelradius=4, enabled="+'"true"'+"')'>")
  obj=frm.all.tags("img")[0];
  this.is=obj.style;
  this.ib=obj.filters.item('DXImageTransform.Microsoft.Blur');
  this.anim=ball_anim;
}

</script>
</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:35, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mar 12 Avr - 14:19

Code:
<HTML><HEAD><TITLE>DirectAnimation: Shattered</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>
<STYLE>BODY {
   COLOR: white; FONT-FAMILY: Georgia, Times New Roman, Times, serif; FONT-SIZE: 18px; MARGIN-LEFT: 460px; MARGIN-RIGHT: 35px; MARGIN-TOP: 35px
}
A {
   COLOR: white; FONT-SIZE: 12px; TEXT-DECORATION: none
}
.hidimg {
   DISPLAY: none; LEFT: 0px; POSITION: absolute; TOP: 0px
}
</STYLE>

</HEAD>
<BODY bgColor=#003152>
<DIV>
<IMG class=hidimg id=irisimg src="../images/iris4.gif">
<IMG class=hidimg id=glowimg src="../images/glow.jpg"></DIV>
<OBJECT ID="DAControl_shatter" STYLE="left:35;top:35;width:400; height:300; z-index:-1; position:absolute"
 CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">
</OBJECT>
<div>
message ici<br><br>

</div>
<SCRIPT language=JScript>
m = DAControl_shatter.MeterLibrary;

swGeo = m.ModifiableBehavior(m.EmptyGeometry);
swImg = m.ModifiableBehavior(m.EmptyImage);

rawImg1 = m.ImportImage(irisimg.src);
bgimg=m.ImportImage(glowimg.src);
xf =new ActiveXObject("DX3DTransform.Microsoft.CrShatter");
holdTime = m.DANumber(0).Duration(3);
forward = m.Interpolate(0, 1, 3);
back = m.Interpolate(1, 0, 3);
evaluator = m.Sequence(holdTime, m.Sequence(forward, back)).RepeatForever();

result = m.ApplyDXTransform(xf, new Array(rawImg1), evaluator);
realGeo = result.OutputBvr;

realTransScale = m.Scale3Uniform(0.020);
realTransRotY = m.Rotate3Rate( m.YVector3 ,2);
realTransF = m.Compose3Array(new Array( realTransScale, realTransRotY));

realGeo = realGeo.Transform(realTransF);

swGeo.SwitchTo(realGeo);

camera = m.PerspectiveCamera(0.06, 0.033);
light = m.UnionGeometry(m.AmbientLight, m.DirectionalLight.Transform(m.Rotate3Degrees(m.XVector3,-90)));
lightAndGeo = m.UnionGeometry(swGeo, light);

swImg.SwitchTo(lightAndGeo.render(camera));

DAControl_shatter.Image = m.Overlay(swImg,bgimg);
DAControl_shatter.Start();

</SCRIPT>
</BODY>
</HTML>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/


Dernière édition par le Lun 13 Juin - 15:33, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Mer 18 Mai - 0:05

Code:
<html>

<head>
<title>evolve - 3D Happy Clock</title>
</head>
<body bgcolor="#000000">

<object classid=CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D
id="DAControl"
style="position:absolute;top:0px;left:0px;height:80%;width:80%;">
<param name="OpaqueForHitDetect" value="1">
<param name="UpdateInterval" value="0.033">
</object>


<script>
////////////////////////////////////
// 3D Happy Clock OE              //
// evolve 19th January 2000      //
// http://www.mgifos.demon.co.uk  //
// last evolved 24/07/04          //
////////////////////////////////////

now=new Date()
osec=now.getSeconds()+now.getMinutes()*60+now.getHours()*3600

m = DAControl.MeterLibrary;

da0=m.DANumber(0)
da1=m.DANumber(1)
da2=m.DANumber(2)
da3=m.DANumber(3)
da60=m.DANumber(60)

secangle=m.Mul(m.DANumber(-Math.PI/30),m.Localtime)
minangle=m.Mul(m.DANumber(-Math.PI/30),m.Div(m.Localtime,da60))
hrsangle=m.Mul(m.DANumber(-Math.PI/6),m.Div(m.Localtime,m.DANumber(3600)))

rn=new Array("XII","I","II","III","IV","V","VI","VII","VIII","IX","X","XI" )

//hand1
t=new ActiveXObject("DX3DTransform.Microsoft.Text3D")
t.String="¯"
t.FontFace="Symbol"
t.XAlign="center"
t.YAlign="top"
t.ZAlign="center"
result=m.ApplyDXTransform(t, null, null);
g=result.OutputBvr;
g=g.Transform(m.Scale3(0.01,0.027,0.03));
g=g.Transform(m.Rotate3(m.Vector3(0,0,1),Math.PI))
minhand=g.DiffuseColor(m.Yellow)
hrhand=minhand.Transform(m.Scale3(1,0.6,1))
sfr=0.007
minhand=minhand.Transform(m.Translate3(0,sfr,0))
hrhand=hrhand.Transform(m.Translate3(0,sfr,0))

//hand2
t=new ActiveXObject("DX3DTransform.Microsoft.Text3D")
t.String="½"
t.FontFace="Symbol"
t.YAlign="top"
result=m.ApplyDXTransform(t, null, null);
g=result.OutputBvr;
g=g.Transform(m.Scale3(0.01,0.027,0.03));
g=g.Transform(m.Rotate3(m.Vector3(0,0,1),Math.PI))
g=g.Transform(m.Translate3(0,sfr,0))
sechand=g.DiffuseColor(m.Yellow)

//centre
t=new ActiveXObject("DX3DTransform.Microsoft.Text3D")
t.String="J"
t.FontFace="Wingdings"
t.XAlign="center"
t.YAlign="center"
http://t.ZAlign="center"
result=m.ApplyDXTransform(t, null, null);
g=result.OutputBvr;
g=g.Transform(m.Scale3(0.02,0.02,0.03));
dot=g.DiffuseColor(m.Yellow)


//hour digits
hd=new Array()
hdt=new Array()
for(i=0;i<12;i++){
   theta=i*Math.PI/6
   t=new ActiveXObject("DX3DTransform.Microsoft.Text3D")
//choose one only of the next two lines for roman or arabic numerals
//   t.String=rn[i]
   if(i==0)t.String=(12).toString();else t.String=(i).toString()
   t.FontFace="Georgia"
   t.YAlign="center"
   result=m.ApplyDXTransform(t,null,null);
   g=result.OutputBvr;
   hdt[1]=m.Scale3(0.008,0.008,0.07)
   rnr=0.041
   hdt[0]=m.Translate3(rnr*Math.sin(theta),rnr*Math.cos(theta),0)
   hd[i]=g.Transform(m.Compose3Array(hdt)).DiffuseColor(m.Yellow)
}
rngeo=m.UnionGeometryArray(hd)


//ring
t=new ActiveXObject("DX3DTransform.Microsoft.Text3D")
t.String="¡"
t.FontFace="WingDings"
t.XAlign="center"
t.YAlign="center"
t.ZAlign="center"
t.ExtrusionType="FlatBevel"
t.Quality=0.5
result=m.ApplyDXTransform(t,null,null)
g=result.OutputBvr;
g=g.Transform(m.Scale3(0.14,0.14,0.06))
ringgeo=g.DiffuseColor(m.ColorRgb255(236,120,0)).SpecularColor(m.White).SpecularExponent(100)

//numbered rings
ring12geo=m.UnionGeometry(ringgeo,rngeo)

hands=new Array()
hands[0]=hrhand.Transform(m.Rotate3Anim(m.Vector3(0,0,1),hrsangle))
hands[1]=minhand.Transform(m.Rotate3Anim(m.Vector3(0,0,1),minangle))
hands[2]=sechand.Transform(m.Rotate3Anim(m.Vector3(0,0,1),secangle))
hands[3]=dot
handgeo=m.UnionGeometryArray(hands)

//offset so that clock shows the right time
clock=m.UnionGeometry(ring12geo,handgeo).SubstituteTime(m.Add(m.DANumber(osec),m.LocalTime))

ca=m.Interpolate(-Math.PI/2,Math.PI/2,15).RepeatForever()
//comment out the next line to stop the clock rotating
clock=clock.Transform(m.Rotate3Anim(m.Vector3(0,1,0),ca))

camera=m.PerspectiveCamera(1,0.5)
light=m.PointLight.Transform(m.Translate3(0,0.5,0.8));
lightAndGeo = m.UnionGeometry(clock,light)
geoimg=lightAndGeo.render(camera)

DAControl.Image=geoimg   
DAControl.Start()

</script>


</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


Nombre de messages : 13130
Localisation : Terrebonne, Québec, Canada
Date d'inscription : 18/12/2004

MessageSujet: Re: Scripts d'Evolve   Jeu 16 Juin - 20:24

Pluie qui tombe dans la fenêtre

Code:
<html>
<head>
<title>oe - symmetry 48</title>
<style>
body {
font: 12pt/16pt verdana, sans-serif;
color: #ffffff;
background: #000000;
border: 0px;
}
.hidimg{
position:absolute;
left:-10000px;
top:0px;
}
</style>
</head>
<body unselectable="on">

<img id="ballimg0" src=".\images\blueball1b.gif" class="hidimg">
<img id="ballimg1" src=".\images\blueball1d.gif" class="hidimg">

<div id="container" style="position:absolute;left:50px;top:50px;width:500px;height:500px;">
</div>

<script>
/////////////////////////////////////
// symmetry 48 balls //
// ***Interactive*** //
// November 2001 //
// (last evolved 30/05/04) //
// http://www.mgifos.demon.co.uk //
/////////////////////////////////////

//Things to play with====================================
var persp=350; //degree of perspective
var size=0.8; //image scale
//=======================================================

var ob=new Array(); //leave this line here

//create as many or as few shells of balls as you like
//Parameters
// min radius of shell
// max radius of shell
// speed of radius change
// rate of shape change 1
// rate of shape change 2
// html container of shell
// image to use
var d1=new ball(30,190,rnd(30,80),rnd(0,0.05),rnd(0,0.001),container,ballimg0);
var d2=new ball(20,150,rnd(30,80),rnd(0,0.05),rnd(0,0.001),container,ballimg1);


//=======================================================
var xyz=new Array(3);

var sai=[0,1,2,0,1,2];
var sbi=[1,0,0,2,2,1];
var sci=[2,2,1,1,0,0];

var cosa,sina,cosb,sinb;

var ta=0;
var tb=0;
var t=0;

var dragging=false;
var dragx=0;
var dragy=0;
var dragstartx, dragstarty;
var dragstarta, dragstartb;

var cw2=parseInt(container.style.width)/2;
var ch2=parseInt(container.style.height)/2;

document.body.onmousedown=omd;
document.body.onmouseup=omu;
setInterval("anim();",25);

function anim(){
var i;
sina=Math.sin(ta);
cosa=Math.cos(ta);
sinb=Math.sin(tb);
cosb=Math.cos(tb);
for(i in ob){
ob[i].anim();
}
if(dragging==true){
ta=dragstarta+dragx*0.02;
tb=dragstartb-dragy*0.02;
}
else{
ta+=0.02;
tb+=0.013;
t++;
}
}

function rotball3_2(){
var s,x,y,z,r,ct,cp,ik,i,a,b,c,nx,ny,k,n,dw,dh,theta,phi;

s=this.ss;

r=this.rad+this.drad*Math.sin(t/this.df);
theta=t*this.dtheta;
phi=t*this.dphi;
ct=Math.cos(theta);
cp=Math.cos(phi);
xyz[0]=r*ct*cp;
xyz[1]=r*Math.sin(theta)*cp;
xyz[2]=r*ct*Math.sin(phi);

ik=0
for(i=0;i<6;i++){
a=xyz[sai[i]];
b=xyz[sbi[i]];
c=xyz[sci[i]];
for(nx=0;nx<2;nx++){
for(ny=0;ny<2;ny++){
x=a*cosa+c*sina;
y=b*cosb+c*cosa*sinb-a*sina*sinb;
z=c*cosa*cosb-a*sina*cosb-b*sinb;
k=persp/(persp-z)
n=s[ik++];
dw=size*k*this.w;
dh=size*k*this.h
n.zIndex=z;
n.pixelLeft=cw2+k*x-dw/2;
n.pixelTop=ch2+k*y-dh/2;
n.pixelWidth=dw;
n.pixelHeight=dh;

k=persp/(persp+z)
n=s[ik++];
dw=size*k*this.w;
dh=size*k*this.h
n.zIndex=-z;
n.pixelLeft=cw2+-k*x-dw/2;
n.pixelTop=ch2+-k*y-dh/2;
n.pixelWidth=dw;
n.pixelHeight=dh;
b*=-1;
}
a*=-1;
}
}
}

function ball(minrad, maxrad, dr, dtheta, dphi, container, srcimg){
var i;
var img=new Array();

this.ss=new Array();
this.rad=(maxrad+minrad)/2;
this.drad=(maxrad-minrad)/2;
this.df=dr;
this.dtheta=dtheta;
this.dphi=dphi;
this.w=srcimg.width;
this.h=srcimg.height;
for(i=0;i<48;i++){
img[i]=document.createElement("img");
img[i].setAttribute("src",srcimg.src);
img[i].setAttribute("unselectable","on");
img[i].style.setAttribute("position","absolute");
container.appendChild(img[i]);
this.ss[i]=img[i].style;
}
this.anim=rotball3_2;
ob.push(this);
}

function omd(){
document.body.onmousemove=omm;
dragging=true;
dragstartx=window.event.clientX+document.body.scrollLeft;
dragstarty=window.event.clientY+document.body.scrollTop;
dragstarta=ta;
dragstartb=tb;
dragx=0;
dragy=0;
}

function omu(){
document.body.onmousemove="";
dragging=false;
}

function omm(){
dragx=window.event.clientX+document.body.scrollLeft-dragstartx;
dragy=window.event.clientY+document.body.scrollTop-dragstarty;
var m=window.event.button;
if((m & 1)==0)omu();
}

function rnd(min, max){
return(min+Math.random()*(max-min));
}

</script>


</body>
</html>

_________________
...


http://www.liensutiles.org/gvilleneuve.htm
ou ici :
http://ginette-villeneuve.qc.ca/
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Contenu sponsorisé




MessageSujet: Re: Scripts d'Evolve   

Revenir en haut Aller en bas
 
Scripts d'Evolve
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Tutos, scripts et plugins pour Photoshop
» Scripts PhotoShop CS3
» Utiliser les scripts Photoshop dans Lightroom.
» Automator :: scripts Python
» Scripts avec Gimp

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Mots d'art & Scénarios :: Scripts & Flash d'art :: DE TOUT POUR LES scripts d'art & autres animations par Gi-
Sauter vers: