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