#macro hex2dec(Hex)
  #local Hex = strlwr(Hex);
  #local I = 1;
  #local L = strlen(Hex);
  #local Dec = 0;
  #while (I <= L)
    #local Dec = Dec * 16;
    #local AscVal = asc(substr(Hex, I, 1));
    #if (AscVal >= asc("0"))
      #if (AscVal >= asc("a"))
        #if (AscVal <= asc("f")) // a - f
          #local Dec = Dec + AscVal - asc("a") + 10;
        #end
      #else // 0 - 9
        #local Dec = Dec + AscVal - asc("0");
      #end
    #end
    #local I = I + 1;
  #end // while
  Dec
#end


#macro html_color(HexString)
  #if (strcmp(substr(HexString, 1, 1), "#") = 0)
    #local HexString = substr(HexString, 2, 6);
  #end
  concat(
    "color rgb<",
    str(hex2dec(substr(HexString, 1, 2)) / 255, 1, -1),
    ", "
    str(hex2dec(substr(HexString, 3, 2)) / 255, 1, -1),
    ", "
    str(hex2dec(substr(HexString, 5, 2)) / 255, 1, -1),
    ">"
  )
#end