#### Mod 12
isym(c(0, 1, 5, 8))
isym(c(0, 2, 4, 8))
#### Continuous Values
qcm_fifth <- meantone_fifth()
qcm_dia <- sort(((0:6)*qcm_fifth)%%12)
just_dia <- j(dia)
isym(qcm_dia)
isym(just_dia)
#### Rounding matters:
isym(qcm_dia, rounder=15)
### Index and Degree
hexatonic_scale <- c(0, 1, 4, 5, 8, 9)
isym_index(hexatonic_scale) # Only returns one suitable index
isym_degree(hexatonic_scale)
Run the code above in your browser using DataLab