; OM File Header - Saved 2022/09/07 14:42:31 ; (7.0 :patc (om-make-point 24 24) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil "2022/09/07 14:42:31") ; End File Header (in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "fratres piano" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 482 55) (quote "LISTA output : voice 1: (9 7 10 9) - (9 7 6 11 10 9) - (9 7 6 5 12 11 10 9)$ voice 2: (3 0 6 3) - (3 0 0 6 6 3) - (3 0 0 0 11 6 6 3)$ voice 3: (6 5 7 6) - (6 5 4 9 7 6) - (6 5 4 3 10 9 7 6)") nil (om-make-point 248 149) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 463 56) (quote "lista imput: C C# D E F G A Bb C C# D E F G $ $ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 ") nil (om-make-point 243 49) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) nil 7.0))