home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / jvscript116beta / JvScript / !JvScript / Resources / Scripts / Display / 1 next >
Encoding:
Text File  |  1999-08-24  |  1.2 KB  |  51 lines
  1. #newformat
  2. # © Geoff Youngs, 1999
  3. _title:Rainbow Function
  4. _description:Rainbow textual display engine
  5. _explanation:This is script writes the HTML code into the document for 'rainbow' style text
  6.  
  7. _insert-in:inhead
  8. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  9. <!-- 
  10. function MakeArray(n) {
  11.   this.length=n;
  12.   for(var i=1; i<=n; i++) this[i]=i-1;
  13.   return this;
  14. }
  15. hex=new MakeArray(16);
  16. hex[11]="A";
  17. hex[12]="B"; 
  18. hex[13]="C"; 
  19. hex[14]="D"; 
  20. hex[15]="E"; 
  21. hex[16]="F";
  22.  
  23. function ToHex(x) {
  24.   var high=x/16;
  25.   var s=high+"";
  26.   s=s.substring(0,2);  
  27.   high=parseInt(s,10);
  28.   var left=hex[high+1];
  29.   var low=x-high*16;
  30.   s=low+"";
  31.   s=s.substring(0,2);
  32.   low=parseInt(s,10);
  33.   var right=hex[low+1];
  34.   var string=left+""+right;
  35.   return string;
  36. }
  37. function rainbow(text) {
  38.   text=text.substring(0,text.length); 
  39.   color_d1=255;
  40.   mul=color_d1/text.length;
  41.   for(i=0;i < text.length;i++) {
  42.     color_d1=255*Math.sin(i/(text.length/3));
  43.     "255*Math.sin(i/(text.length/3))"
  44.      color_h1=ToHex(color_d1);
  45.      color_d2=mul*i;
  46.      color_h2=ToHex(color_d2);
  47.      document.write("<FONT COLOR='#FF"+color_h1+color_h2+"'>"+text.substring(i,i+1)+'</FONT>');
  48.    }
  49. }
  50. // --></SCRIPT>
  51. _end-insert: