major_triad <- c(0, 4, 7)
# Let's find where the major triad's hue first intersects a Rothenberg hyperplane:
move_to_hyperplane(3, set=major_triad, ineqmat="roth")
same_hue(major_triad, c(0, 4, 6))
strictly_proper(major_triad)
strictly_proper(c(0, 4, 6))
# But the major triad's hue intersects every MCT hyperplane at the center of the space:
move_to_hyperplane(3, set=major_triad, ineqmat="mct")
# Let's move away from the major triad in other directions than its hue:
lower_third <- c(0, -1, 0)
move_to_hyperplane(1, point=major_triad, direction=lower_third)
move_to_hyperplane(2, point=major_triad, direction=lower_third)
move_to_hyperplane(3, point=major_triad, direction=lower_third)
Run the code above in your browser using DataLab