major_64 <- c(0, 5, 9)
primary_hue(major_64)
primary_hue(major_64, type="modes")
viennese_trichord <- c(0, 6, 11)
# Same primary color as major_64:
apply(cbind(major_64, viennese_trichord), 2, primary_signvector)
# But a different primary hue:
primary_hue(viennese_trichord)
# Only works with representative_signvectors loaded:
primary_colornum(major_64) == primary_colornum(viennese_trichord)
primary_color(major_64)
primary_color(viennese_trichord)
Run the code above in your browser using DataLab