! dt4c.cmd
echo Create a double-tie circular mirroring of a tetrad with common pivot tone
echo Enter the 4 tetrad factors
input/factor
3
?
?
?
?
calculate/noout -%3
append $0
calculate/noout %3-%2
append $0
calculate/noout -$0
append $0
calculate/noout %1-%2
append $0
calculate/noout -$0
append $0
calculate/noout -%2
append $0
calculate/noout %3-%1
append $0
calculate/noout -$0
append $0
calculate/noout -%1
append $0
reduce 2/1
sort
append 2/1
show scale
