Jump to content

opmo

Administrators
  • Posts

    2,516
  • Joined

  • Last visited

Everything posted by opmo

  1. Example: (ps 'vsl :sq (list v1 v2 v3 v4) :tempo tempo :time-signature '(2 4) :flexible-clef nil)
  2. The code can be found here: Perlin noise - Rosetta Code ROSETTACODE.ORG
  3. I can't help without the score, file or expression which produces the error. Please note, you need to download the software for the specific macOS.
  4. In composition (OM) error is not an option. Many functions in OM taking care (if possible) of given values which do not satisfy the constrain.
  5. This most me a Cubase problem. All fine an all other sequences as far as I know. Save the midi file of your score and open it in Cubase and see if it works.
  6. 2.2.26897 – Additions: COUNTERPOINT - new keyword :sequence – Documentation: Update to number of documents (def-score aw-variation (:title "aw-variation" :composer nil :copyright nil :key-signature 'chromatic :layout '(:brace (:treble rh) (:bass lh) :name "Piano" :abbr "Pno.") :rewrite-lengths 't :time-signature '(2 4) :tempo '(56)) (rh :omn '(#|1|# (-3e cs4 pp a4 bb4 c4 cs4b3 -e e4d4 s c4bb4 - eb4cs4 cs4b3 3e e4d4 c4bb4 - eb4cs4 bb4 c4) #|2|# (3e eb4d5 pp e4eb5 fs4f5 p - g4fs5 d5 -s eb5 b4 c5 - f4 f cs4 pp d4 -3e e4 p b3cs5 d4e5 bb4c5 cs4eb5) #|3|# (e c6 f - -s cs6 a5 bb5 f> 5q f4e5 mf e4eb5 f> g4fs5 mf - gs4g5 p 3e gs5 g5 b5 bb5 f - b4) #|4|# (3e c4fs4b4 pp cs4g4c5 eb4d5 f eb4a4d5 e4eb5 - s e4eb5 - e4bb4eb5 e4eb5 - f4e5 f4e5 p fs4f5 pp -e g4fs5) #|5|# (e g4gs4 mp - s gs4a4 mf bb4b4 f bb4c5 - 3e b3c5 p - b3cs5 f c4fs4b4 mf cs4eb5 p cs4 mp 5q cs4g4c5 f - d4e5 d4 eb4d5) #|6|# (5q gs4 f a4 b4 p - c5 mp cs4g4c5 e4bb4eb5 f eb4a4d5 - c4fs4b4 - b5 g5 bb5 gs5 mf 3e gs4g5 mp f4e5 - g4fs5 f e4eb5 e4eb5 p) #|7|# (s gs5 p - g5 mf bb5 b5 - e4eb5 f4e5 g4fs5 f gs4g5 cs4 p - - a4 c4 bb4) #|8|# (3e gs5 p g5 bb5 b5 e4eb5 - f4e5 g4fs5 - gs4g5 cs4 a4 c4 bb4 fs4 - d4 eb4 f4 b3 gs4 c4 - a4) #|9|# (e bb5 p - -3e a5 mf a5 gs5 g5eb5 mp g5 - fs5d5 p fs5 fs5 f5 e5c5 mf 5q eb5b4 b4gs4 bb4g4 mp bb4g4 -) #|10|# (-e bb4 p -3e c4 cs4 a4 pp b3 bb4 p s d4 cs4 p> - fs4d4 pp 3e f4cs4 p gs4e4 a4f4 a4 pp - fs4) #|11|# (-e)) :channel 1 :sound 'gm :program 0 :volume 90 :pan 64) (lh :omn '(#|1|# (3e a2 pp gs2 cs3c2 d3cs2 - g3fs2 3q b3bb2 - gs1 - a1 b1 3e c2 b3bb2 g3fs2 a2 - gs2) #|2|# (3q g1gs2 pp - b1c3 e2f3 p - a2 -3e fs3 a3 bb3 g3 pp bb2 3q f2fs3 - b1c3 p) #|3|# (3e a2 f bb2 f2fs3 e2f3 b1c3 mp - g1gs2 bb3 a3 g3 p - fs3 g1gs2 b1c3 f a2 bb2 f2fs3 - e2f3 mp b1c3 g1gs2 bb3 - a3 p) #|4|# (3q bb1 p cs2 pp - e d2 - -3e f2fs3 fs2f3 gs2a3 bb2e3a3 c4 3q eb3 c3 p -) #|5|# (e eb3 pp - 3e c4 a3gs2 a3e3bb2 fs3f2 - fs3cs3g2 s f3fs2 - e3f2 cs3d2 cs3d2 c3 - bb2) #|6|# (3e bb1 pp cs2 - d2 f2fs3 fs2f3 s gs2a3 bb2e3a3 c4 - 3e eb3 c3 bb2 g2cs3fs3 f2e3 - d2cs3 d2cs3 - b1 bb1 cs2) #|7|# (3e c3 pp b2cs3 a3 gs1g2 - bb2 b1 e3 f3 f1e2 - bb2e3a3 e2eb3 g2fs3 gs2g3 bb1 - eb2d3 s fs3 - a2gs3 eb3) #|8|# (s bb2e3a3 pp - g2cs3fs3 bb1 e b1 - -3e eb2d3 f2e3 bb2 cs3 f1e2 - gs1g2 gs2g3 a2gs3 a3 fs3) #|9|# (3e eb3cs3 p a3 mp - gs3a2 f fs3g2 fs3cs3g2 mp -3q e3 eb3e2 p -e d3eb2 3e c3 g2gs1 p> - b1 p bb1 mp e2f1 f) #|10|# (3e eb3 p> bb3 pp f3fs2 cs3d2 - cs3bb2 p -e a2 3e g2 - d2 cs2 pp c2 d2 p> s g2gs1 pp gs2a1 - bb2) #|11|# (s d3f3 pp bb2cs3)) :channel 1 :sound 'gm :program 0 :volume 90 :pan 64)) (setf v1 (pitch-demix 1 (collect-score-instruments 'aw-variation 1))) (setf v2 (pitch-demix 2 (collect-score-instruments 'aw-variation 2))) (setf v3 (pitch-demix 1 (collect-score-instruments 'aw-variation 1))) (setf v4 (pitch-demix 2 (collect-score-instruments 'aw-variation 1))) (setf dictum '(((1 1 1 1) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 64) ((2 2 2 2) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 56) ((3 3 3 3) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 34) ((* 4 * 4) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 44) ((5 5 5 5) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 34) ((6 6 6 6) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 64) ((* 7 * 7) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 56) ((8 8 8 8) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 44) ((* 9 * 9) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 56) ((10 10 10 10) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 64) ((11 11 11 11) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 56) ((1 - 3 4) :sequence (4 1 3 1) :span 2/4 :methods ? :tempo 56) ((3 3 - 3) :sequence (2 2 3 1) :span 2/4 :methods ? :tempo 34) ((4 1 - *) :sequence (2 2 3 1) :span 2/4 :methods ? :tempo 44) ((5 - 5 5) :sequence (1 4 4 3) :span 2/4 :methods ? :tempo 34) ((6 * 6 6) :sequence (1 2 3 4) :span 2/4 :methods ? :tempo 64) ((7 - 7 1) :sequence (4 3 3 4) :span 2/4 :methods ? :tempo 56) ((7 3 - 1) :sequence (1 2 4 3) :span 2/4 :methods ? :tempo 44) ((- * 9 6) :sequence (4 2 3 1) :span 2/4 :methods ? :tempo 56) ((- 5 * 10) :sequence (4 3 2 3) :span 2/4 :methods ? :tempo 64) )) (counterpoint (list v1 v2 v3 v4) dictum :global-methods '(fl ob (t-12 bcl) mar) :index 'in) (ps 'vsl :fl (list in1) :ob (list in2) :bcl (list in3) :mar (list in4) :octave-shift t :tempo in-tempo) Best wishes, Janusz
  7. Still waiting for CCL but we are talking to LispWorks as well.
  8. Requirements: macOS 10.9 - 12.2 (Intel)
  9. (defun comb-to-sum (n) (let ((nums (gen-integer 1 n)) (x 0)) (find-unique (sort-asc (flatten-sublist (loop repeat n for i = (combination2 (incf x) nums) collect (loop for c in i if (= (sum c) n) collect c))))))) (comb-to-sum 3) => ((3) (1 2) (1 1 1)) (comb-to-sum 5) => ((5) (1 4) (2 3) (1 1 3) (1 2 2) (1 1 1 2) (1 1 1 1 1)) If you need the function in the OM system I could add it with the next update. In what context you are using this combination?
  10. 2.2.26891 – New Functions: PITCH-PROGRESSION RND-BEAT-ORDER RECONSTRUCT-OMN – Fixed: RND-ORDER init seed bug Downloads
  11. (setf exile-chorale (pitch-transpose -3 '(h c4eb4g4 c4d4f4ab4 w bb3d4f4g4 h g3c4eb4 ab3c4d4f4 w g3bb3d4f4 h c4eb4g4c5 d4f4ab4c5 d4g4ab4c5 w d4g4ab4c5 ))) (setf exile-chords (gen-repeat 10 (omn :pitch exile-chorale))) (setf vector-exile-chorale (list-plot (vector-smooth 0.1 (flatten (vector-round 0.01 1.00 (pitch-to-integer (pitch-demix 1 exile-chords))))) :join-points t :point-radius 2)) (setf inv-num (gen-trim (length exile-chords) '(1))) (setf exile-chords-i (chord-inversion inv-num exile-chords :variant '? :omit '(i ri))) (setf pitches (vector-map (pitch-melodize exile-chords-i) vector-exile-chorale)) (setf rh (pitch-transpose 0 (make-omn :length '(e) :pitch pitches :velocity '(p) :span :pitch))) (setf count (get-count pitches)) (setf att (gen-repeat (length count) '(leg))) (setf leg-series (mclist att count)) (attribute-series leg-series rh)
  12. (mclist '(0 1 2 3) '(a b c d)) => ((0 a) (1 b) (2 c) (3 d))
  13. Code possibly with next update.
  14. Short variation for piano. Best wishes, Janusz Vienna Variations.mp3
  15. Possibly something to do with your midi setup. The SCORE-PLAYER is no an official OM function, it was written for Andre with all the limitations - pure hack
  16. get-beats is the function you are looking for.
  17. Midi Export is working as it should.
  18. Example with def-score and score-player only: (setf pattern (gen-repeat 50 (list '(s e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5)))) (setf tempo (mclist (gen-integer 110 60) (gen-repeat 50 1))) (def-score score1 ( :key-signature 'chromatic :time-signature '(3 4) :tempo tempo ) (inst1 :omn pattern :sound 'gm :channel 1 :program 0 :pan 27)) (def-score score2 ( :key-signature 'chromatic :time-signature '(3 4) :tempo (reverse tempo) ) (inst1 :omn pattern :sound 'gm :channel 2 :program 0 :pan 100)) (progn (score-player 'score1) (score-player 'score2) ) The score-player plays midi-files and scores. (score-player "~/Opusmodus/Media/MIDI/Bach/Chorals/036500b_.mid")
  19. I did the SCORE-PLAYER for Andre. I will make a documentation for it soon.
  20. list is missing :trumpet (list p1)
  21. Piano needs two voices For example: (ps 'group1 :trumpet (list p1) :piano (list (gen-retrograde p1) (pitch-variant p1 :variant 'i)) :tempo '((88 1) (89 1) (100 1)) :time-signature '(1 4 10))
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy