persistable asclass AbstractHasHi15Color {
  // Color in 15 bit
  settable short hi15color;
  
  Color color() {
    ret main hi15color(hi15color);
  }
  
  selfType color(Color color) {
    ret hi15color(colorToHi15(color));
  }
  
  S colorToString() {
    ret lower(colorToHex(color()));
  }
}

Began life as a copy of #1035708