<!--

// CODE BY T. FORD, 2/2006, RELEASED UNDER GPL
// MODIFY, USE, ETC.  PLEASE KEEP THIS LINK BACK TO THE ORIGINAL.
// http://www.cattail.nu/newton/

function min(x, y, z)
{
  // TLF
  m = x;
  if (y < m) m = y;
  if (z < m) m = z;
  return m;
}

function max(x, y, z)
{
  // TLF
  m = x;
  if (y > m) m = y;
  if (z > m) m = z;
  return m;
}

// modified from http://javascript.about.com/library/blh2d.htm
var hD="0123456789ABCDEF";
function d2h(d) {
  var h = hD.substr(d&15,1);
  while(d>15) {d>>=4;h=hD.substr(d&15,1)+h;}
  if(h.length<2) h = "0"+h;
  return h;
}

function h2d(h) {return parseInt(h,16);}

var vHex = "000000";
var vDec = 0;
var vRedHex = "00";
var vRedDec = 0;
var vGreenHex = "00";
var vGreenDec = 0;
var vBlueHex = "00";
var vBlueDec = 0;
var vHueDec = 0;
var vSatDec = 0;
var vValDec = 0;
var vArtLight = 1;
var vLumAdj = 0;
var vHSLHueDec = 0;
var vHSLSatDec = 0;
var vHSLLumDec = 0;

var vComplement = 0;
var vTriad1 = 0;
var vTriad2 = 0;
var vAna1 = 0;
var vAna2 = 0;
var vAna3 = 0;
var vAna4 = 0;
var vAna5 = 0;
var vAna6 = 0;
var vTetra1 = 0;
var vTetra2 = 0;
var vTetra3 = 0;
var vSplit1 = 0;
var vSplit2 = 0;
var vVarVal1 = 0;
var vVarVal2 = 0;
var vVarVal3 = 0;
var vVarVal4 = 0;
var vVarVal5 = 0;
var vVarVal6 = 0;
var vVarSat1 = 0;
var vVarSat2 = 0;
var vVarSat3 = 0;
var vVarSat4 = 0;
var vVarSat5 = 0;
var vVarSat6 = 0;
var vChrome1 = 0;
var vChrome2 = 0;
var vChrome3 = 0;
var vChrome4 = 0;
var vChrome5 = 0;
var vFlame1 = 0;
var vFlame2 = 0;
var vFlame3 = 0;
var vFlame4 = 0;
var vFlame5 = 0;
var vFlame6 = 0;

function FillForm()
{
document.editor.Hex.value = vHex;
document.editor.Dec.value = vDec;
document.editor.RedHex.value = vRedHex;
document.editor.RedDec.value = vRedDec;
document.editor.GreenHex.value = vGreenHex;
document.editor.GreenDec.value = vGreenDec;
document.editor.BlueHex.value = vBlueHex;
document.editor.BlueDec.value = vBlueDec;
document.editor.HueDec.value = vHueDec;
document.editor.SatDec.value = vSatDec;
document.editor.ValDec.value = vValDec;
document.editor.HSLHueDec.value = vHSLHueDec;
document.editor.HSLSatDec.value = vHSLSatDec;
document.editor.HSLLumDec.value = vHSLLumDec;
}

var R = 0;
var G = 0;
var B = 0;
var H = 0;
var S = 0;
var V = 0;
var HSLH = 0;
var HSLS = 0;
var HSLL = 0;

// Modified from http://www.easyrgb.com/math.php?MATH=M20#text20

function rgb2hsv()
{
  var_R = ( R / 255 );                     //RGB values = 0 ÷ 255
  var_G = ( G / 255 );
  var_B = ( B / 255 );

  var_Min = min( var_R, var_G, var_B );    //Min. value of RGB
  var_Max = max( var_R, var_G, var_B );    //Max. value of RGB
  del_Max = var_Max - var_Min;             //Delta RGB value

  V = var_Max;

  if ( del_Max == 0 )                     //This is a gray, no chroma...
  {
    H = 0;                                //HSV results = 0 ÷ 1
    S = 0;
  }
  else                                    //Chromatic data...
  {
    S = del_Max / var_Max;
    // formula from wikipedia.
    if      ( var_R == var_Max ) H = 60 * (( var_G - var_B ) / del_Max );
    else if ( var_G == var_Max ) H = 60 * (( var_B - var_R ) / del_Max ) + 120;
    else if ( var_B == var_Max ) H = 60 * (( var_R - var_G ) / del_Max ) + 240;

    if (H < 0) H = H + 360;
    if (H > 360) H = H -360;
  }

  H = Math.round(H);
  S = Math.round(S * 100);
  V = Math.round(V * 100);
}

function hsv2rgb()
{
  S = S / 100;
  V = V / 100;

  if( S == 0 ) {
    // achromatic (grey)
    R = G = B = V*255;
    return;
  }
  H /= 60;      // sector 0 to 5
  i = Math.floor( H );
  f = H - i;      // factorial part of h
  p = V * ( 1 - S );
  q = V * ( 1 - S * f );
  t = V * ( 1 - S * ( 1 - f ) );

  switch( i ) {
    case 0:  R = V; G = t; B = p; break;
    case 1:  R = q; G = V; B = p; break;
    case 2:  R = p; G = V; B = t; break;
    case 3:  R = p; G = q; B = V; break;
    case 4:  R = t; G = p; B = V; break;
    default: R = V; G = p; B = q; break; // case 5:
  }

  R = Math.round(R*255);
  G = Math.round(G*255);
  B = Math.round(B*255);
}

function hue2rgb( v1, v2, vH )             //Function Hue_2_RGB
{
var vH2 = vH;
   if ( vH2 < 0 ) vH2 = vH + 1;
   if ( vH2 > 1 ) vH2 = vH - 1;
   if ( ( 6 * vH2 ) < 1 ) return ( v1 + (( v2 - v1 ) * 6 * vH2 ) );
   if ( ( 2 * vH2 ) < 1 ) return ( v2 );
   if ( ( 3 * vH2 ) < 2 ) return ( v1 + (( v2 - v1 ) * ( ( 2 / 3 ) - vH2 ) * 6 ) );
   return ( v1 );
}

function hsl2rgb()
{
  if ( HSLS == 0 )                       //HSL values = 0 ÷ 1
  {
    R = parseFloat(HSLL);                      //RGB results = 0 ÷ 255
    G = parseFloat(HSLL);
    B = parseFloat(HSLL);
  }
  else
  {
    var lum = parseFloat(HSLL) / 255;  // 0 to 1 %
    var sat = parseFloat(HSLS) / 255;
    var myh = parseFloat(HSLH) / 360;
    if ( lum <= 0.5 ) var_2 = lum * ( 1 + sat );
    else var_2 = ( lum + sat ) - ( sat * lum);

    var_1 = (2 * lum) - var_2;

    R = Math.round((hue2rgb( var_1, var_2, myh + ( 1 / 3 ))) * 255);
    G = Math.round((hue2rgb( var_1, var_2, myh)) *255);
    B = Math.round((hue2rgb( var_1, var_2, myh - ( 1 / 3 ) )) *255);
//alert(R + ":" + G + ":" + B)
  }

}


function rgb2hsl()
{
  var_R = ( R / 255 );
  var_G = ( G / 255 );
  var_B = ( B / 255 );

  var_Min = min( var_R, var_G, var_B );    //Min. value of RGB
  var_Max = max( var_R, var_G, var_B );    //Max. value of RGB
  del_Max = var_Max - var_Min;             //Delta RGB value

  HSLL = ( var_Max + var_Min ) / 2;

  if ( del_Max == 0 ) //This is a gray, no chroma...
  {
    HSLH = 0; //HSL results = 0 ÷ 1
    HSLS = 0;
  }
  else //Chromatic data...
  {
    if ( HSLL < 0.5 ) HSLS = del_Max / ( var_Max + var_Min );
    else           HSLS = del_Max / ( 2 - var_Max - var_Min );

    del_R = ( ( ( var_Max - var_R ) / 6 ) + ( del_Max / 2 ) ) / del_Max;
    del_G = ( ( ( var_Max - var_G ) / 6 ) + ( del_Max / 2 ) ) / del_Max;
    del_B = ( ( ( var_Max - var_B ) / 6 ) + ( del_Max / 2 ) ) / del_Max;

    if      ( var_R == var_Max ) HSLH = del_B - del_G;
    else if ( var_G == var_Max ) HSLH = ( 1 / 3 ) + del_R - del_B;
    else if ( var_B == var_Max ) HSLH = ( 2 / 3 ) + del_G - del_R;

    if ( HSLH < 0 ) HSLH += 1;
    if ( HSLH > 1 ) HSLH -= 1;
  }

  HSLH = Math.round(HSLH * 360);
  HSLS = Math.round(HSLS * 255);
  HSLL = Math.round(HSLL * 255);
}

function rgb2art()
{
  // adjusts hue from rgb wheel to art wheel
  //alert("rgb2art begin "+H);
    if (parseFloat(H) < 60)
      H = parseFloat(H) * 2;
    else if (parseFloat(H) < 120)
      H = parseFloat(H) + 60;
    else if (parseFloat(H) < 240)
      H = (parseFloat(H)/2)+120;
  //alert("rgb2art end "+H);
}

function art2rgb()
{
  // adjusts hue from art wheel to rgb wheel
  //alert("art2rgb begin " +H);
  if (parseFloat(H) < 120)
    H = parseFloat(H) / 2;
  else if (parseFloat(H) < 180)
    H = parseFloat(H) - 60;
  else if (parseFloat(H) < 240)
    H = 2*(parseFloat(H)-120);
  //alert("art2rgb end " +H);
}

function rgb2mun()
{
  // adjusts hue from rgb wheel to munsell wheel
//  alert("rgb2mun begin "+H);

  var oldHue = parseFloat(H);
  var lowRGB = 0;
  var highRGB = 0;
  var lowMun = 0;
  var highMun = 0;

  var RGBpercent = 0;
  var munSteps = 0;

  if (parseFloat(H) < 30) {
    lowRGB = 0;
    highRGB = 30;
    lowMun = 0;
    highMun = 36;
  }
  else if (parseFloat(H) < 60) {
    lowRGB = 30;
    highRGB = 60;
    lowMun = 36;
    highMun = 72;
  }
  else if (parseFloat(H) < 90) {
    lowRGB = 60;
    highRGB = 90;
    lowMun = 72;
    highMun = 108;
  }
  else if (parseFloat(H) < 120) {
    lowRGB = 90;
    highRGB = 120;
    lowMun = 108;
    highMun = 144;
  }
  else if (parseFloat(H) < 180) {
    lowRGB = 120;
    highRGB = 180;
    lowMun = 144;
    highMun = 180;
  }
  else if (parseFloat(H) < 240) {
    lowRGB = 180;
    highRGB = 240;
    lowMun = 180;
    highMun = 216;
  }
  else if (parseFloat(H) < 255) {
    lowRGB = 240;
    highRGB = 255;
    lowMun = 216;
    highMun = 252;
  }
  else if (parseFloat(H) < 270) {
    lowRGB = 255;
    highRGB = 270;
    lowMun = 252;
    highMun = 288;
  }
  else if (parseFloat(H) < 315) {
    lowRGB = 270;
    highRGB = 315;
    lowMun = 288;
    highMun = 324;
  }
  else if (parseFloat(H) < 360) {
    lowRGB = 315;
    highRGB = 359;
    lowMun = 324;
    highMun = 359;
  }

  RGBPercent = (oldHue - lowRGB) / (highRGB - lowRGB);
  munSteps = (RGBPercent * (highMun - lowMun));
  H = lowMun + munSteps;

  //alert("rgb2mun end "+H);
}

function mun2rgb()
{
  // adjusts hue from munsell wheel to rgb wheel
  //  alert("mun2rgb begin " +H);
  var oldHue = parseFloat(H);
  var lowRGB = 0;
  var highRGB = 0;
  var lowMun = 0;
  var highMun = 0;

  var munPercent = 0;
  var RGBSteps = 0;

  if (parseFloat(H) < 30) {
    lowRGB = 0;
    highRGB = 30;
    lowMun = 0;
    highMun = 36;
  }
  else if (parseFloat(H) < 60) {
    lowRGB = 30;
    highRGB = 60;
    lowMun = 36;
    highMun = 72;
  }
  else if (parseFloat(H) < 90) {
    lowRGB = 60;
    highRGB = 90;
    lowMun = 72;
    highMun = 108;
  }
  else if (parseFloat(H) < 120) {
    lowRGB = 90;
    highRGB = 120;
    lowMun = 108;
    highMun = 144;
  }
  else if (parseFloat(H) < 180) {
    lowRGB = 120;
    highRGB = 180;
    lowMun = 144;
    highMun = 180;
  }
  else if (parseFloat(H) < 240) {
    lowRGB = 180;
    highRGB = 240;
    lowMun = 180;
    highMun = 216;
  }
  else if (parseFloat(H) < 255) {
    lowRGB = 240;
    highRGB = 255;
    lowMun = 216;
    highMun = 252;
  }
  else if (parseFloat(H) < 270) {
    lowRGB = 255;
    highRGB = 270;
    lowMun = 252;
    highMun = 288;
  }
  else if (parseFloat(H) < 315) {
    lowRGB = 270;
    highRGB = 315;
    lowMun = 288;
    highMun = 324;
  }
  else if (parseFloat(H) < 360) {
    lowRGB = 315;
    highRGB = 359;
    lowMun = 324;
    highMun = 359;
  }

  munPercent = (oldHue - lowMun) / (highMun - lowMun);
  RGBSteps = (munPercent * (highRGB - lowRGB));
  H = lowRGB + RGBSteps;

  //alert("mun2rgb end " +H);
}


function MakeDec()
{
  vDec = h2d(vBlueHex + vGreenHex + vRedHex);
  vRedDec = h2d(vRedHex);
  vGreenDec = h2d(vGreenHex);
  vBlueDec = h2d(vBlueHex);
}

function MakeHSV()
{
  R = vRedDec;
  G = vGreenDec;
  B = vBlueDec;
  rgb2hsv();
  vHueDec = H;
  vSatDec = S;
  vValDec = V;
}

function MakeRGB()
{
  vRedHex = String(vHex).substring(0,2);
  vGreenHex = String(vHex).substring(2,4);
  vBlueHex = String(vHex).substring(4,6);
}

function MakeHSL()
{
  R = vRedDec;
  G = vGreenDec;
  B = vBlueDec;
  rgb2hsl();
  vHSLHueDec = HSLH;
  vHSLSatDec = HSLS;
  vHSLLumDec = HSLL;
}

function Process()
{
  MakeRGB();
  MakeDec();
  MakeHSV();
  MakeHSL();
  FillForm();
  SetColor();
}

function ocRGBd()
{
  vHex = d2h(document.editor.RedDec.value) + d2h(document.editor.GreenDec.value) + 

d2h(document.editor.BlueDec.value);
  Process();
}

function ocD()
{
  vHex = d2h(document.editor.Dec.value);
  // dec is blue green red, not red green blue
  if ( vHex.length == 6 )
    vHex = String(vHex).substring(4,6) + String(vHex).substring(2,4) + 

String(vHex).substring(0,2);
  else if ( vHex.length == 5 )
    vHex = String(vHex).substring(4,6) + String(vHex).substring(2,4) + "0" + 

String(vHex).substring(0,1);
  else if ( vHex.length == 4 )
    vHex = String(vHex).substring(4,6) + String(vHex).substring(2,4) +  "00";
  else if ( vHex.length == 3 )
    vHex = String(vHex).substring(4,6) +  + "0" + String(vHex).substring(2,3) + "00";
  else if ( vHex.length == 2 )
    vHex = vHex + "0000";
  else if ( vHex.length == 1 )
    vHex = "0" + vHex + "0000";
  Process();
}

function ocHex()
{
  vHex = document.editor.Hex.value;
  Process();
}

function ocHSV()
{
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  hsv2rgb();
  vHex = d2h(R) + d2h(G) + d2h(B);
  Process();
}

function ocHSL()
{
  HSLH = document.editor.HSLHueDec.value;
  HSLS = document.editor.HSLSatDec.value;
  HSLL = document.editor.HSLLumDec.value;
  hsl2rgb();
  vHex = d2h(R) + d2h(G) + d2h(B);
  Process();
}

function ocRGB()
{
  vHex = document.editor.RedHex.value + document.editor.GreenHex.value + document.editor.BlueHex.value;
  Process();
}

function ocArtLight()
{
  if (document.editor.ArtLight.value == "Light")
    vArtLight = 0;
  else if (document.editor.ArtLight.value == "Munsell")
    vArtLight = 2;
  else
    vArtLight = 1;
  Process();
}

function SetColor()
{
  var tmp = "000000";
  var tmp2 = "";
  var tetradic = 45; // modify this to change the tetradic angle
  var valsatadj = 15; // modify this to adjust the hue/sat/analogous variation distance
	var flamehueadj = 15;
	var flamevalueadj = 15;
	var flamesaturationadj = 15;

  vLumAdj = parseFloat(document.all.LumAdj.value);
  valsatadj = parseFloat(document.all.AVSStep.value);
	flamehueadj = parseFloat(document.all.FlameHue.value);
	flamevalueadj = parseFloat(document.all.FlameValue.value);
	flamesaturationadj = parseFloat(document.all.FlameSaturation.value);

  document.all.ColorCell.bgColor=vHex;
  document.all.tColorCell.innerHTML="#" + vHex;
  document.all.ColorCell2.bgColor=vHex;
  document.all.tColorCell2.innerHTML="#" + vHex;
  document.all.ColorCell3.bgColor=vHex;
  document.all.tColorCell3.innerHTML="#" + vHex;
  document.all.ColorCell4.bgColor=vHex;
  document.all.tColorCell4.innerHTML="#" + vHex;
  document.all.ColorCell5.bgColor=vHex;
  document.all.tColorCell5.innerHTML="#" + vHex;
  document.all.ColorCell6.bgColor=vHex;
  document.all.tColorCell6.innerHTML="#" + vHex;
  document.all.ColorCell7.bgColor=vHex;
  document.all.tColorCell7.innerHTML="#" + vHex;
  document.all.ColorCell8.bgColor=vHex;
  document.all.tColorCell8.innerHTML="#" + vHex;
  document.all.ColorCell9.bgColor=vHex;
  document.all.tColorCell9.innerHTML="#" + vHex;
  document.all.ColorCell10.bgColor=vHex;
  document.all.tColorCell10.innerHTML="#" + vHex;

  // complement
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 180;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Complement.bgColor=tmp;
  document.all.tComplement.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vComplement = h2d(d2h(B)+d2h(G)+d2h(R))

  // triad 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 120;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Triad1.bgColor=tmp;
  document.all.tTriad1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vTriad1 = h2d(d2h(B)+d2h(G)+d2h(R))
 
  //alert (tmp + " " + R + " " + G + " " + B + " : "+H + " " + S + " " + V);

  // triad 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 240;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Triad2.bgColor=tmp;
  document.all.tTriad2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vTriad2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) - (3 * valsatadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana1.bgColor=tmp;
  document.all.tAna1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna1 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) - (2 * valsatadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana2.bgColor=tmp;
  document.all.tAna2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) - valsatadj;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana3.bgColor=tmp;
  document.all.tAna3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna3 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 4
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + valsatadj;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana4.bgColor=tmp;
  document.all.tAna4.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna4 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 5
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (2 * valsatadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana5.bgColor=tmp;
  document.all.tAna5.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna5 = h2d(d2h(B)+d2h(G)+d2h(R))

  // analogous 6
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (3 * valsatadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Ana6.bgColor=tmp;
  document.all.tAna6.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vAna6 = h2d(d2h(B)+d2h(G)+d2h(R))

  // tetradic 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 180;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Tetra1.bgColor=tmp;
  document.all.tTetra1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vTetra1 = h2d(d2h(B)+d2h(G)+d2h(R))

  // tetradic 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + tetradic;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Tetra2.bgColor=tmp;
  document.all.tTetra2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vTetra2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // tetradic 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + tetradic + 180;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Tetra3.bgColor=tmp;
  document.all.tTetra3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vTetra3 = h2d(d2h(B)+d2h(G)+d2h(R))

  // split complement 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 150;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Split1.bgColor=tmp;
  document.all.tSplit1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vSplit1 = h2d(d2h(B)+d2h(G)+d2h(R))

  // split complement 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 210;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Split2.bgColor=tmp;
  document.all.tSplit2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vSplit2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // value variation 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) - (3*valsatadj);
  if (parseFloat(V)<0) V = 0;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal1.bgColor=tmp;
  document.all.tVarVal1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal1 = h2d(d2h(B)+d2h(G)+d2h(R))
  
  // value variation 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) - (2*valsatadj);
  if (parseFloat(V)<0) V = 0;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal2.bgColor=tmp;
  document.all.tVarVal2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // value variation 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) - valsatadj;
  if (parseFloat(V)<0) V = 0;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal3.bgColor=tmp;
  document.all.tVarVal3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal3 = h2d(d2h(B)+d2h(G)+d2h(R))

  // value variation 4
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) + valsatadj;
  if (parseFloat(V)>100) V = 100;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal4.bgColor=tmp;
  document.all.tVarVal4.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal4 = h2d(d2h(B)+d2h(G)+d2h(R))

  // value variation 5
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) + (2*valsatadj);
  if (parseFloat(V)>100) V = 100;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal5.bgColor=tmp;
  document.all.tVarVal5.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal5 = h2d(d2h(B)+d2h(G)+d2h(R))

  // value variation 6
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  V = parseFloat(V) + (3*valsatadj);
  if (parseFloat(V)>100) V = 100;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarVal6.bgColor=tmp;
  document.all.tVarVal6.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarVal6 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) - (3*valsatadj);
  if (parseFloat(S)<0) S = 0;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat1.bgColor=tmp;
  document.all.tVarSat1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat1 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) - (2*valsatadj);
  if (parseFloat(S)<0) S = 0;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat2.bgColor=tmp;
  document.all.tVarSat2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) - valsatadj;
  if (parseFloat(S)<0) S = 0;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat3.bgColor=tmp;
  document.all.tVarSat3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat3 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 4
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) + valsatadj;
  if (parseFloat(S)>100) S = 100;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat4.bgColor=tmp;
  document.all.tVarSat4.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat4 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 5
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) + (2*valsatadj);
  if (parseFloat(S)>100) S = 100;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat5.bgColor=tmp;
  document.all.tVarSat5.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat5 = h2d(d2h(B)+d2h(G)+d2h(R))

  // saturation variation 6
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  tmp2 = " : " + H + " " + S + " " + V;
  S = parseFloat(S) + (3*valsatadj);
  if (parseFloat(S)>100) S = 100;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.VarSat6.bgColor=tmp;
  document.all.tVarSat6.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vVarSat6 = h2d(d2h(B)+d2h(G)+d2h(R))

  // chromatic 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 60;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Chrome1.bgColor=tmp;
  document.all.tChrome1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vChrome1 = h2d(d2h(B)+d2h(G)+d2h(R))

  // chromatic 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 120;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Chrome2.bgColor=tmp;
  document.all.tChrome2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vChrome2 = h2d(d2h(B)+d2h(G)+d2h(R))

  // chromatic 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 180;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Chrome3.bgColor=tmp;
  document.all.tChrome3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vChrome3 = h2d(d2h(B)+d2h(G)+d2h(R))

  // chromatic 4
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 240;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Chrome4.bgColor=tmp;
  document.all.tChrome4.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vChrome4 = h2d(d2h(B)+d2h(G)+d2h(R))

  // chromatic 5
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + 300;
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  if(vLumAdj != 0)
  {
    rgb2hsl();
    HSLL += vLumAdj;
    if (HSLL > 255) HSLL = 255;
    if (HSLL < 0) HSLL = 0;
    hsl2rgb();
  }
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Chrome5.bgColor=tmp;
  document.all.tChrome5.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vChrome5 = h2d(d2h(B)+d2h(G)+d2h(R))

// ********************* flamehueadj flamevalueadj

	// flame 1
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) +(flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame1.bgColor=tmp;
  document.all.tFlame1.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame1 = h2d(d2h(B)+d2h(G)+d2h(R));

	// flame 2
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (2 * flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (2 * flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (2 * flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame2.bgColor=tmp;
  document.all.tFlame2.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame2 = h2d(d2h(B)+d2h(G)+d2h(R));

	// flame 3
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (3 * flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (3 * flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (3 * flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame3.bgColor=tmp;
  document.all.tFlame3.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame3 = h2d(d2h(B)+d2h(G)+d2h(R));

	// flame 4
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (4 * flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (4 * flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (4 * flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame4.bgColor=tmp;
  document.all.tFlame4.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame4 = h2d(d2h(B)+d2h(G)+d2h(R));

	// flame 5
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (5 * flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (5 * flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (5 * flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame5.bgColor=tmp;
  document.all.tFlame5.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame5 = h2d(d2h(B)+d2h(G)+d2h(R));

	// flame 6
  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  if (vArtLight == 1) rgb2art();
  else if (vArtLight == 2) rgb2mun();
  H = parseFloat(H) + (6 * flamehueadj);
  if (parseFloat(H) > 359) H = parseFloat(H) - 359;
	else if (parseFloat(H) < 0) H = parseFloat(H) + 360;
  V = parseFloat(V) - (6 * flamevalueadj);
  if (parseFloat(V)<0) V = 0;
	else if (parseFloat(V)>100) V = 100;
	S = parseFloat(S) + (6 * flamesaturationadj);
  if (parseFloat(S)<0) S = 0;
  else if (parseFloat(S)>100) S = 100;
  if (vArtLight == 1) art2rgb();
  else if (vArtLight == 2) mun2rgb();
  tmp2 = " : " + H + " " + S + " " + V;
  hsv2rgb();
  tmp = d2h(R) + d2h(G) + d2h(B);
  document.all.Flame6.bgColor=tmp;
  document.all.tFlame6.innerHTML='<a href="javascript:clickColor(\''+tmp+'\')">#'+tmp+'</a>';
  vFlame6 = h2d(d2h(B)+d2h(G)+d2h(R));


//**********************


  MakeGradient();
}

function clickColor(h)
{
  document.editor.Hex.value = h;
  vHex = h;
  Process();
}


var gradienttext;
var gradientpart;

function MakeGradient()
{
  var color;
  var colortext;
  var hex;
  var i;
  var a;
  var b;
  var s;
	var bw;
	var bw1;
	var bw2;
	var tog;
 
  if (document.editor.FStyle.value=="ASC") s = 1;
  else if (document.editor.FStyle.value=="DESC") s = 2;
  else s = 3;

  if (document.editor.SplitBy.value=="NONE") { bw1 = -1; bw2 = -1; }
  else if (document.editor.SplitBy.value=="BLACK") { bw1 = 0; bw2 = 0; }
  else if (document.editor.SplitBy.value=="WHITE") { bw1 = 16777215; bw2 = 16777215; }
	else if (document.editor.SplitBy.value=="BOTH") { bw1 = 0; bw2 = 16777215; }
	else if (document.editor.SplitBy.value=="GREY") { bw1 = 13158600; bw2 = 13158600; }
	else if (document.editor.SplitBy.value=="GREYWHITE") { bw1 = 13158600; bw2 = 16777215; }
	else if (document.editor.SplitBy.value=="GREYBLACK") { bw1 = 13158600; bw2 = 0; }	
  else { bw1 = 0; bw2 = 16777215; }
 	
  gradienttext = "";
  gradientpart = "";

  H = document.editor.HueDec.value;
  S = document.editor.SatDec.value;
  V = document.editor.ValDec.value;
  hsv2rgb();
  color = h2d(d2h(B)+d2h(G)+d2h(R));

  hex = document.editor.Hex.value;

  // iterations in range
  if (parseFloat(document.all.Iterations.value) > 399 || parseFloat(document.all.Iterations.value) < 1)
    document.all.Iterations.value = 10;
  i = Math.round(399/parseFloat(document.all.Iterations.value));
  
  colortext = parseFloat(document.editor.HueDec.value);
  if (colortext > 345 || colortext < 16) colortext = "Red";
  else if (colortext > 15 && colortext < 46) colortext = "Orange";
  else if (colortext > 45 && colortext < 76) colortext = "Yellow";
  else if (colortext > 75 && colortext < 106) colortext = "Yellow-Green";
  else if (colortext > 105 && colortext < 136) colortext = "Green";
  else if (colortext > 135 && colortext < 166) colortext = "Green-Cyan";
  else if (colortext > 165 && colortext < 196) colortext = "Cyan";
  else if (colortext > 195 && colortext < 226) colortext = "Cyan-Blue";
  else if (colortext > 225 && colortext < 256) colortext = "Blue";
  else if (colortext > 255 && colortext < 286) colortext = "Blue-Magenta";
  else if (colortext > 285 && colortext < 316) colortext = "Magenta";
  else if (colortext > 315 && colortext < 346) colortext = "Magenta-Red";

  wt("; Gradients by T. Ford's Newton's Wheel, 2006, http://www.cattail.nu/newton");
  wt('; '+colortext+' #'+hex+' using '+document.editor.ArtLight.value+" Wheel");
  wt('; Save this as:');
  wt('; \\Gradients\\'+colortext+'-'+hex+'.ugr');
  wt('');

  gradientpart = "";
  wt('Solid-'+hex+' {');
  wt('gradient:');
  wt('title="Solid-'+hex+'" linked=yes smooth=yes rotation=1 ');
  wt(' index=0 color='+color);
  wt('opacity: ');
  wt(' smooth=yes ');
  wt(' index=0 opacity=255');
  wt('}');
  wt('');
  document.copier.gradientsolid.value = gradientpart;

  gradientpart = "";
  wt('Complement-'+hex+' {');
  wt('gradient:');
  wt('title="Complement-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  bw = 0;
	tog = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      switch( b ) {
        case 0:   b=1; wt(' index='+a+' color='+color); break;
        default:  b=0; wt(' index='+a+' color='+vComplement); break;
		  }
		tog = 1;
		}
  }
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientcomplement.value = gradientpart;

  gradientpart = "";
  wt('Split-Complement-'+hex+' {');
  wt('gradient:');
  wt('title="Split-Complement-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+color); break;
          case 1:   b=2; wt(' index='+a+' color='+vSplit1); break;
          default:  b=0; wt(' index='+a+' color='+vSplit2); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vSplit2); break;
          case 1:   b=2; wt(' index='+a+' color='+vSplit1); break;
          default:  b=0; wt(' index='+a+' color='+color); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vSplit1); break;
          case 1:   b=2; wt(' index='+a+' color='+color); break;
          case 2:   b=3; wt(' index='+a+' color='+vSplit2); break;
          default:   b=0; wt(' index='+a+' color='+color); break; }
    }
  }
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientsplit.value = gradientpart;

  gradientpart = "";
  wt('Triad-'+hex+' {');
  wt('gradient:');
  wt('title="Triad-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+color); break;
          case 1:   b=2; wt(' index='+a+' color='+vTriad1); break;
          default:  b=0; wt(' index='+a+' color='+vTriad2); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vTriad2); break;
          case 1:   b=2; wt(' index='+a+' color='+vTriad1); break;
          default:  b=0; wt(' index='+a+' color='+color); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vTriad1); break;
          case 1:   b=2; wt(' index='+a+' color='+color); break;
          case 2:   b=3; wt(' index='+a+' color='+vTriad2); break;
          default:   b=0; wt(' index='+a+' color='+color); break; }
		}
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradienttriad.value = gradientpart;

  gradientpart = "";
  wt('Tetradic-'+hex+' {');
  wt('gradient:');
  wt('title="Tetradic-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+color); break;
          case 1:   b=2; wt(' index='+a+' color='+vTetra1); break;
          case 2:   b=3; wt(' index='+a+' color='+vTetra2); break;
          default:  b=0; wt(' index='+a+' color='+vTetra3); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vTetra3); break;
          case 1:   b=2; wt(' index='+a+' color='+vTetra2); break;
          case 2:   b=3; wt(' index='+a+' color='+vTetra1); break;
          default:  b=0; wt(' index='+a+' color='+color); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vTetra2); break;
          case 1:   b=2; wt(' index='+a+' color='+vTetra1); break;
          case 2:   b=3; wt(' index='+a+' color='+color); break;
          default:  b=0; wt(' index='+a+' color='+vTetra3); break; }
		}
  }  // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradienttetradic.value = gradientpart;

  gradientpart = "";
  wt('Analogous-'+hex+' {');
  wt('gradient:');
  wt('title="Analogous-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vAna1); break;
          case 1:   b=2; wt(' index='+a+' color='+vAna2); break;
          case 2:   b=3; wt(' index='+a+' color='+vAna3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vAna4); break;
          case 5:   b=6; wt(' index='+a+' color='+vAna5); break;
          default:  b=0; wt(' index='+a+' color='+vAna6); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vAna6); break;
          case 1:   b=2; wt(' index='+a+' color='+vAna5); break;
          case 2:   b=3; wt(' index='+a+' color='+vAna4); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vAna3); break;
          case 5:   b=6; wt(' index='+a+' color='+vAna2); break;
          default:  b=0; wt(' index='+a+' color='+vAna1); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vAna1); break;
          case 1:   b=2; wt(' index='+a+' color='+vAna2); break;
          case 2:   b=3; wt(' index='+a+' color='+vAna3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vAna4); break;
          case 5:   b=6; wt(' index='+a+' color='+vAna5); break;
          case 6:   b=7; wt(' index='+a+' color='+vAna6); break;
          case 7:   b=8; wt(' index='+a+' color='+vAna5); break;
          case 8:   b=9; wt(' index='+a+' color='+vAna4); break;
          case 9:  b=10; wt(' index='+a+' color='+color); break;
          case 10: b=11; wt(' index='+a+' color='+vAna3); break;
          default:  b=0; wt(' index='+a+' color='+vAna2); break; }
		}
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientanalogous.value = gradientpart;

  gradientpart = "";
  wt('Value-'+hex+' {');
  wt('gradient:');
  wt('title="Value-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarVal1); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarVal2); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarVal3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarVal4); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarVal5); break;
          default:  b=0; wt(' index='+a+' color='+vVarVal6); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarVal6); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarVal5); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarVal4); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarVal3); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarVal2); break;
          default:  b=0; wt(' index='+a+' color='+vVarVal1); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarVal1); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarVal2); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarVal3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarVal4); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarVal5); break;
          case 6:   b=7; wt(' index='+a+' color='+vVarVal6); break;
          case 7:   b=8; wt(' index='+a+' color='+vVarVal5); break;
          case 8:   b=9; wt(' index='+a+' color='+vVarVal4); break;
          case 9:  b=10; wt(' index='+a+' color='+color); break;
          case 10: b=11; wt(' index='+a+' color='+vVarVal3); break;
          default:  b=0; wt(' index='+a+' color='+vVarVal2); break; }
		}
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientvalue.value = gradientpart;

  gradientpart = "";
  wt('Saturation-'+hex+' {');
  wt('gradient:');
  wt('title="Saturation-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarSat1); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarSat2); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarSat3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarSat4); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarSat5); break;
          default:  b=0; wt(' index='+a+' color='+vVarSat6); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarSat6); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarSat5); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarSat4); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarSat3); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarSat2); break;
          default:  b=0; wt(' index='+a+' color='+vVarSat1); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vVarSat1); break;
          case 1:   b=2; wt(' index='+a+' color='+vVarSat2); break;
          case 2:   b=3; wt(' index='+a+' color='+vVarSat3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vVarSat4); break;
          case 5:   b=6; wt(' index='+a+' color='+vVarSat5); break;
          case 6:   b=7; wt(' index='+a+' color='+vVarSat6); break;
          case 7:   b=8; wt(' index='+a+' color='+vVarSat5); break;
          case 8:   b=9; wt(' index='+a+' color='+vVarSat4); break;
          case 9:  b=10; wt(' index='+a+' color='+color); break;
          case 10: b=11; wt(' index='+a+' color='+vVarSat3); break;
          default:  b=0; wt(' index='+a+' color='+vVarSat2); break; }
    }
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientsaturation.value = gradientpart;

  gradientpart = "";
  wt('Chromatic-'+hex+' {');
  wt('gradient:');
  wt('title="Chromatic-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vChrome1); break;
          case 1:   b=2; wt(' index='+a+' color='+vChrome2); break;
          case 2:   b=3; wt(' index='+a+' color='+vChrome3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vChrome4); break;
          default:  b=0; wt(' index='+a+' color='+vChrome5); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vChrome5); break;
          case 1:   b=2; wt(' index='+a+' color='+vChrome4); break;
          case 2:   b=3; wt(' index='+a+' color='+color); break;
          case 3:   b=4; wt(' index='+a+' color='+vChrome3); break;
          case 4:   b=5; wt(' index='+a+' color='+vChrome2); break;
          default:  b=0; wt(' index='+a+' color='+vChrome1); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vChrome1); break;
          case 1:   b=2; wt(' index='+a+' color='+vChrome2); break;
          case 2:   b=3; wt(' index='+a+' color='+vChrome3); break;
          case 3:   b=4; wt(' index='+a+' color='+color); break;
          case 4:   b=5; wt(' index='+a+' color='+vChrome4); break;
          case 5:   b=6; wt(' index='+a+' color='+vChrome5); break;
          case 7:   b=7; wt(' index='+a+' color='+vChrome4); break;
          case 8:   b=8; wt(' index='+a+' color='+color); break;
          case 9:   b=9; wt(' index='+a+' color='+vChrome3); break;
          default:  b=0; wt(' index='+a+' color='+vChrome2); break; }
    }
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientchrome.value = gradientpart;


  gradientpart = "";
  wt('Flame-'+hex+' {');
  wt('gradient:');
  wt('title="Flame-'+hex+'" linked=yes smooth=yes rotation=1 ');
  b = 0;
  for (a=0; a<=399; a+=i)
  {
    if ( bw1 != -1 && tog == 1)
		{
      switch( bw ) {
			  case 0: bw=1; wt(' index='+a+' color='+bw1); break;
				default: bw=0; wt(' index='+a+' color='+bw2); break;
			}
			tog = 0;
		}
		else
		{
      tog = 1;
      if (s==1)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+color); break;
          case 1:   b=2; wt(' index='+a+' color='+vFlame1); break;
          case 2:   b=3; wt(' index='+a+' color='+vFlame2); break;
          case 3:   b=4; wt(' index='+a+' color='+vFlame3); break;
          case 4:   b=5; wt(' index='+a+' color='+vFlame4); break;
          case 5:   b=6; wt(' index='+a+' color='+vFlame5); break;
          default:  b=0; wt(' index='+a+' color='+vFlame6); break; }
      else if (s==2)
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+vFlame6); break;
          case 1:   b=2; wt(' index='+a+' color='+vFlame5); break;
          case 2:   b=3; wt(' index='+a+' color='+vFlame4); break;
          case 3:   b=4; wt(' index='+a+' color='+vFlame3); break;
          case 4:   b=5; wt(' index='+a+' color='+vFlame2); break;
          case 5:   b=6; wt(' index='+a+' color='+vFlame1); break;
          default:  b=0; wt(' index='+a+' color='+color); break; }
      else
        switch( b ) {
          case 0:   b=1; wt(' index='+a+' color='+color); break;
          case 1:   b=2; wt(' index='+a+' color='+vFlame1); break;
          case 2:   b=3; wt(' index='+a+' color='+vFlame2); break;
          case 3:   b=4; wt(' index='+a+' color='+vFlame3); break;
          case 4:   b=5; wt(' index='+a+' color='+vFlame4); break;
          case 5:   b=6; wt(' index='+a+' color='+vFlame5); break;
          case 6:   b=7; wt(' index='+a+' color='+vFlame6); break;
          case 7:   b=8; wt(' index='+a+' color='+vFlame5); break;
          case 8:   b=9; wt(' index='+a+' color='+vFlame4); break;
          case 9:  b=10; wt(' index='+a+' color='+vFlame3); break;
          case 10: b=11; wt(' index='+a+' color='+vFlame2); break;
					case 11: b=12; wt(' index='+a+' color='+vFlame1); break;
          default:  b=0; wt(' index='+a+' color='+color); break; }
		}
  } // for loop
  wt('opacity: ');
  wt(' smooth=yes ');
  for (a=0; a<=399; a+=i)
    wt(' index='+a+' opacity=255');
  wt('}');
  wt('');
  document.copier.gradientflame.value = gradientpart;

  document.copier.gradient.value = gradienttext
}

function wt(txt)
{
  if(gradienttext=="") gradienttext=txt;
  else gradienttext = gradienttext + '\n'+ txt; 
  if(gradientpart=="") gradientpart=txt;
  else gradientpart = gradientpart + '\n'+ txt; 
}

function CopyGradient()
{
var txt;
document.copier.gradient.focus();
//document.copier.gradient.value = "test copy";
txt = document.copier.gradient.createTextRange();
txt.select();
txt.execCommand("Copy");
}


-->