Previous: Score Layout (SAL), Up: SAL Examples

8.15 Microtonal Notation

8.15.1 Quartertones

To make it possible for FOMUS to output quartertones, set quartertones to ‘#t’. 

process myproc ()
  repeat 21
  fms:note(dur: #?(elapsed() < 10, 1/2, 1),
           pitch: 70 + (random(4) / 2))
  wait 1/2
end

begin
  with parts = {{:id "apart" :inst "piano"}},
       sets = {:quartertones #t}
  sprout(myproc(), *filename*, parts: parts, sets: sets)
end

sal003.png

Figure 8.71: Quartertone Melody

process myproc (note, beat, harm1, harm2, pname)
  for harm from harm1 to harm2
  for knum = key(hz(note) * harm)
  fms:note(dur: rhythm(beat), pitch: knum, part: pname)
  wait rhythm(beat)
end

loop with procs = {} , parts = {},
     sets = {:quartertones #t :tuplets 11}
  for ph in {2 3 5 7 11}
  for pn in {"c2" "c3" "c5" "c7" "c11"}
  set procs &= myproc("c1", 1 / ph, ph, ph * 4, pn) ,
      parts &= concat(:id, pn, {:inst "cello"})
  finally
  sprout(procs, *filename*, parts: parts, sets: sets)
end

sal014.png

Figure 8.72: Spectral