home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / HTML / AceHTML / AceHTML4Free.exe / %MAINDIR% / EScripts / jscript / flash.scr < prev    next >
Encoding:
Text File  |  2001-09-06  |  902 b   |  35 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. function makearray(n) {
  4.   this.length = n;
  5.   for(var i = 1; i <= n; i++)
  6.     this[i] = 0;
  7.   return this;
  8. }
  9. hexa = new makearray(16);
  10. function fade(sr, sg, sb, er, eg, eb, step) {
  11.   for(var i = 0; i < 10; i++)
  12.     hexa[i] = i;
  13.   hexa[10]="a"; hexa[11]="b"; hexa[12]="c";
  14.   hexa[13]="d"; hexa[14]="e"; hexa[15]="f";
  15.   for(var i = 0; i <= step; i++) {
  16.     setbgColor(
  17.     Math.floor(sr * ((step-i)/step) + er * (i/step)),
  18.     Math.floor(sg * ((step-i)/step) + eg * (i/step)),
  19.     Math.floor(sb * ((step-i)/step) + eb * (i/step)));
  20.   }
  21. }
  22. function hex(i) {
  23.   if (i < 0)
  24.     return "00";
  25.   else if (i > 255)
  26.     return "ff";
  27.   else return "" + hexa[Math.floor(i/16)] + hexa[i%16];
  28. }
  29. function setbgColor(r, g, b) {
  30.   var hr = hex(r), hg = hex(g), hb = hex(b);
  31.   document.bgColor = "#"+hr+hg+hb;
  32. }
  33. //  end script -->
  34. </SCRIPT>
  35.