fomus is a software application for formatting musical output written by David Psenicka (see: http://fomus.sourceforge.net).
This repository is a package derived from the common lisp port of fomus with some small modifications due to lilypond api changes and some enhancements for my personal use.
(c) of the modifications by Orm Finnendahl 2016, released under the LLGPL v2.0 (like the original code of David Psenicka), see file LICENSE, no warranties whatsoever.
- sbcl Common Lisp (http://www.sbcl.org/) installed.
- Quicklisp (https://www.quicklisp.org/beta/) installed.
- lilypond and evince (or any other pdf viewer) installed.
- Link the folder "fomus" into "~/quicklisp/local-projects/".
- Create a Text file with the name ".fomus" in your $HOME directory with the following contents (adapt to your needs and don't forget to set the correct path to the lilypond binary on your computer for :lilypond-exe):
:output '((:data) (:lilypond :view t))
:lilypond-exe "/path/to/lilypond"
:lilypond-opts '("--pdf")
:lilypond-out-ext "pdf"
:lilypond-view-exe "/usr/bin/evince"
:cmn-view-exe "/usr/bin/evince"
:verbose 1
:min-tuplet-dur 1
:max-tuplet 13
:caut-acc-ottavas t
- Load the project:
(ql:quickload "fomus")
- Generate a score (this score gets displayed using the command "/usr/bin/evince"; in case another viewer is used, change the relevant entry for :lilypond-view-exe in the ".fomus" file):
(in-package :fomus)
(fomus
;; :output '(:lilypond :view t)
:composer ""
:parts
(list
(make-part
:name "Klavier"
:instr :piano
:events
(loop
for off from 0 to 10 by 1/2
collect (make-note :off off
:dur (if (< off 10) 1/2 1)
:note (+ 48 (random 25)))))))