home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / TemaCD / Stones / webwri2e.exe / fade.js_ / fade.js
Text File  |  1997-10-14  |  1KB  |  57 lines
  1. <!--
  2. /*************************************************************
  3.  * fade script ver0.1 by Kouichirou@Eto.com 1996/02/20
  4.  * Copyright (c) 1996 Kouichirou Eto. All Rights Reserved.
  5.  * You can freely copy, use, modify this script,
  6.  * if the credit is given in the source.
  7.  */
  8.  
  9. function makearray(n) {
  10.     this.length = n;
  11.     for(var i = 1; i <= n; i++)
  12.         this[i] = 0;
  13.     return this;
  14. }
  15.  
  16. hexa = new makearray(16);
  17. for(var i = 0; i < 10; i++)
  18.     hexa[i] = i;
  19. hexa[10]="a"; hexa[11]="b"; hexa[12]="c";
  20. hexa[13]="d"; hexa[14]="e"; hexa[15]="f";
  21.  
  22. function hex(i) {
  23.     if (i < 0)
  24.         return "00";
  25.     else if (i > 255)
  26.         return "ff";
  27.     else
  28.         return "" + hexa[Math.floor(i/16)] + hexa[i%16];
  29. }
  30.  
  31. function setbgColor(r, g, b) {
  32.     var hr = hex(r); var hg = hex(g); var hb = hex(b);
  33.     document.bgColor = "#"+hr+hg+hb;
  34. }
  35.  
  36. function fade(sr, sg, sb, er, eg, eb, step) {
  37.     for(var i = 0; i <= step; i++) {
  38.         setbgColor(
  39.         Math.floor(sr * ((step-i)/step) + er * (i/step)),
  40.         Math.floor(sg * ((step-i)/step) + eg * (i/step)),
  41.         Math.floor(sb * ((step-i)/step) + eb * (i/step)));
  42.     }
  43. }
  44.  
  45. function fadein() {
  46.     /* HOMESITE */
  47. }
  48.  
  49. /* do fadein */
  50. fadein();
  51.  
  52. /***** end fade script *****/
  53. /************************************************************/
  54.  
  55.  
  56. //-->
  57.