Jump to content

opmo

Janusz Podrazik
  • Content count

    1,502
  • Joined

  • Last visited

  • Days Won

    221

opmo last won the day on June 13

opmo had the most liked content!

3 Followers

About opmo

  • Rank
    Admin

Contact Methods

  • Website URL
    https://opusmodus.com
  • Skype
    opusmodus

Profile Information

  • Gender
    Male

Recent Profile Visitors

4,764 profile views
  1. Please go to the Opusmodus Extension folder and remove the function 'double' form the 'Source Code.opmo'. This should fix the problem. If you get massage like: > Error: The function double is predefined by Opusmodus. it means you are using a function name (your own) which is already part of the Opusmodus System.
  2. opmo

    Opusmodus 1.2.23428

    Any value - an integer, by not a lists.
  3. Implemented in v. 1.2.23418
  4. With the next release. I wonder if the result should remove the repeats of single notes: (filter-repeat 1 '(a4 gs4 a4 gs4 a4 fs4 gs4 g5 bb5 g5 g5 g5 gs4 a4 gs4) :seq 2) => (a4 gs4 a4 fs4 gs4 g5 bb5 g5 gs4 a4 gs4)
  5. Filter with sequence option: (filter-repeat 1 '(a4 gs4 a4 gs4 a4 fs4 gs4 g5 bb5 g5 g5 g5 gs4 a4 gs4) :seq 2) => (a4 gs4 a4 fs4 gs4 g5 bb5 g5 g5 g5 gs4 a4 gs4) (filter-repeat 1 '(a4 gs4 a4 gs4 a4 fs4 gs4 g5 bb5 g5 g5 g5 gs4 a4 gs4)) => (a4 gs4 a4 gs4 a4 fs4 gs4 g5 bb5 g5 gs4 a4 gs4) Is this what you are looking for ?
  6. opmo

    Opusmodus 1.2.23428

    View File Opusmodus 1.2.23428 New: vector-to-envelope sum-to-size snippet - Audition default parameters. Function name change: vector-shift -> vector-envelope2 L-System addition: Allows functions inside a rule. New keyword :seq in filter-repeat sum-to-size This function returns a list of numbers in a given size of equal numbers (plus/minus 1) which add up to a total. Examples: (sum-to-size 45 8) => (5 5 5 6 6 6 6 6) (sum-to-size 25 7) => (3 3 3 4 4 4 4) (sum-to-size 25 3) => (8 8 9) (sum-to-size 25 11) => (2 2 2 2 2 2 2 2 3 3 3) (sum-to-count 104 8) => (13 13 13 13 13 13 13 13) Snippet Audition default parameters: (defparameter *audition-tempo* 120) (defparameter *audition-length* 1/4) (defparameter *audition-pitch* 'c4) (defparameter *audition-velocity* 'mf) (defparameter *audition-ignore-ports* t) (defparameter *audition-sound* 'gm) (defparameter *audition-channel* 1) (defparameter *audition-program* 0) (defparameter *audition-volume* 92) (defparameter *audition-port* 0) The default ‘Audition’ parameters will allow you to make changes to the ‘Preferences/Audition’ parameters without the need to open the window each time you make a change to port, channel, sound or program. Using the ‘Audition’ parameters as a part of the code will help you in your work flow. This possibility is useful for demonstrations and presentations. Examples: 1. (progn ;;; Cello (defparameter *audition-tempo* 72) (defparameter *audition-velocity* 'f) (defparameter *audition-sound* 'gm) (defparameter *audition-channel* 7) (defparameter *audition-program* 'cello) (defparameter *audition-volume* 100) ) ;(J. S. Bach, Sechs Suiten Sonaten fuer Violoncello solo, Suite I, Preludium, 1722) '(((leg s g2 mf e3 b3 a3 b3 g3 fs3 g3) (leg e3 g3 dig2 fs3 g3 b2 > dig1 d3 > cs3 > b2 >)) ((leg s cs3 p dig3 g3 dig2 a3 sul g3 dig2 a3 g3 a3 g3) (leg cs3 g3 a3 g3 a3 g3 a3 g3)) ((leg s fs3 p< dig1 a3 < sul d4 < cs4 d4 mf a3 dig4 g3 a3 fs3) (leg a3 g3 a3 d3 > sul fs3 > dig3 e3 > d3 >)) ((leg s e2 p dig1 b2 g3 fs3 g3 b2 g3 b2) (leg e2 b2 g3 fs3 g3 b2 g3 b2))) 2. (progn ;;; Piano (defparameter *audition-tempo* 98) (defparameter *audition-velocity* 'f) (defparameter *audition-sound* 'gm) (defparameter *audition-channel* 1) (defparameter *audition-program* 'Acoustic-Grand-Piano) (defparameter *audition-volume* 100) ) ;(F. Chopin, Etudes, Op. 10, No. 5, 1833) '((3e gb6 bb6 db6 gb6 eb6 gb6 db6 gb6 bb5 db6 gb5 bb5) (3e gb5 bb5 db5 gb5 eb5 gb5 db5 gb5 bb4 db5 gb4 bb4) (3e db4 db5 ab4 db5 ab4 ab5 ab4 ab5 eb5 ab5 eb5 eb6) (3e eb5 eb6 ab5 eb6 ab5 ab6 ab5 ab6 db6 ab6 db6 db7)) To send the snippet to a port you need to set the *audition-ignore-ports* to nil and set the *audition-port* to a number of your virtual instrument port: 3. (progn ;;; Violin (defparameter *audition-tempo* 120) (defparameter *audition-velocity* 'mf) (defparameter *audition-ignore-ports* nil) (defparameter *audition-sound* 'vsl-violin) (defparameter *audition-channel* 1) (defparameter *audition-program* 0) (defparameter *audition-volume* 100) (defparameter *audition-port* 1) ) vector-to-envelope This function applies ‘ambitus series’ derived from a envelope list into a list of floating-point numbers. Lets examine first how envelope create the ambitus series (low high). We interleave the envelope with a value 2 first and then we apply a sort function: (setf envelope '(-5.1 -2.3 1.5 -0.8 4.6 10.6)) (sort-asc (gen-interleave 2 envelope)) => ((-5.1 -2.3) (-2.3 1.5) (-0.8 1.5) (-0.8 4.6) (4.6 10.6)) From the envelope above the function creates five ambitus series each with two lists: start (low high) and end (low high). Start End ((-5.1 -2.3) (-2.3 1.5)) ((-2.3 1.5) (-0.8 1.5)) ((-0.8 1.5) (-0.8 2.1)) ((-0.8 2.1) (-0.8 4.6)) ((-0.8 4.6) (4.6 10.6)) Next, the values list (floating-point numbers) is divided by the count of the ambitus series. In our example the count is 5: (sum-to-size 128 5) => (25 25 26 26 26) The final process is to select randomly segment numbers for each of the 5 sublists: With :type 1 (rnd-sum 25 '(2 3 5 7 11 13 17 19)) => (7 3 2 2 11) With :type 2 (length segments) (rnd-sum-to-size 25 8 '(2 3 5 7 11 13 17 19)) => (2 5 3 3 3 3 3 3) With :type 3 (length segments) - with equal or plus/minus 1 equal numbers. (sum-to-size 25 8) => (3 3 3 3 3 3 3 4) Lets see the result: (list-plot (vector-to-envelope '(-5.1 -2.3 1.5 -0.8 4.6 10.6) (gen-white-noise 128))) A slightly different result we can achieve with optional :type 2: (list-plot (vector-to-envelope '(-5.1 -2.3 1.5 -0.8 4.6 10.6) (gen-white-noise 128) :type 2)) Most equal distribution of segments is achieved with :type 3: (list-plot (vector-to-envelope '(-5.1 -2.3 1.5 -0.8 4.6 10.6) (gen-white-noise 128) :type 3)) Examples: (list-plot (vector-to-envelope (rnd 12 :low -10.0 :high 40.0) (gen-white-noise 356) :segment '(1 2 3 4 5))) (list-plot (vector-to-envelope (rnd 6 :low -1.0 :high 4.0 :seed 45) (gen-white-noise 356) :segment '(1 2 3) :type 3)) (list-plot (vector-to-envelope (rnd 4 :low -1.0 :high 4.0 :seed 45) (gen-white-noise 356) :segment (primes 12))) (setf env2 '(0.2 0.1 0.5 0.1 0.8 0.5 0.1 0.4 0.2 0.3)) (list-plot (vector-to-envelope (gen-tendency 4 env2) (gen-tendency 356 env2) :segment (primes 4))) New keyword :seq in filter-repeat (filter-repeat 1 '(a4 gs4 a4 gs4 a4 fs4 gs4 g5 bb5 g5 gs4) :seq 2) => (a4 gs4 a4 fs4 gs4 g5 bb5 g5 gs4) (filter-repeat 1 '(gs4 fs3 a4 fs3 a4 bb5 a4 gs4) :seq 2) => (gs4 fs3 a4 bb5 a4 gs4) (filter-repeat 1 '(gs4 fs3 a4 fs3 fs3 a4 fs3 a4 bb5 a4 gs4) :seq 3) => (gs4 fs3 a4 fs3 a4 bb5 a4 gs4) L-System Example with a function inside a rule: (progn (defclass llen (l-system) ((axiom :initform '(s e)) (depth :initform 2))) (defmethod l-productions ((ls llen)) (choose-production ls (s (--> (rnd-pick '((s * e * s /) (s e -s /))) q / s e -s /)) (e (--> s * s * s / q / s e -s / (rnd-pick '(h -q s -e) :encode nil))))) ) (rewrite-lsystem 'llen :depth 2) => (s * e * s / q / s e -s / q / s e -s / s * s * s / q / s e -s / -q -s / s e -s / q / s e -s / * s e -s / q / s e -s / * s e -s / q / s e -s / / q / s e -s / q / s e -s / s * s * s / q / s e -s / -e -s / -e) or => (s e -s / q / s e -s / s * s * s / q / s e -s / -q -s / q / s e -s / q / s e -s / s * s * s / q / s e -s / -e -s / s * e * s / q / s e -s / * s e -s / q / s e -s / * s e -s / q / s e -s / / q / s * e * s / q / s e -s / s * s * s / q / s e -s / h -s / h) . . . (length-lsystem 'llen :depth 2) => (s e -s e t e -s e t e -s t e = = t e -s - - t e -s e t e -s = e -s e t e -s = e -s e t e -s = t e -s e t e -s t e = = t e -s -e -s -e) Best wishes, Janusz Submitter opmo Submitted 06/11/2018 Category Opusmodus Latest Release
  7. opmo

    Opusmodus 1.2.23392

    View File Opusmodus 1.2.23392 New functions: rnd-sum-to-size vector-shift (thanks to Andre Meier) rnd-sum-to-size This function returns a list of numbers which add up to N and a given size (list length). If total was not reached in a given size in a trial, altered numbers are append to the numbers set. (rnd-sum-to-size 11 5 '(1 2 3)) => (2 3 1 3 2) Set random :seed to ensure recurring output: (rnd-sum-to-size 11 5 '(1 2 3) :seed 879) => (1 2 2 3 3) Examples: (rnd-sum-to-size 45 8 '(2 3 5 7 11 13 17 19)) => (2 11 3 5 13 2 2 7) (rnd-sum-to-size 25 7 '(6 11 13 1 3) :seed 436) => (6 3 3 3 1 3 6) (rnd-sum-to-size 25 3 '(6 11 13 1 3) :seed 436) => (11 13 1) (rnd-sum-to-size 25 11 '(6 1 3) :seed 13) => (3 1 1 6 1 1 6 1 3 1 1) (rnd-sum-to-size 45 22 '(1 2 3) :seed 835) => (3 3 3 1 2 3 1 2 2 3 1 2 3 1 1 1 1 3 2 3 2 2) In the next two examples the numbers set is altered: (rnd-sum-to-size 8 7 '(9 8 6) :seed 45) => (1 1 1 1 2 1 1) (rnd-sum-to-size 17 7 '(1 2) :seed 234) => (2 3 1 3 3 3 2) vector-shift This function applies ‘ambitus series’ derived from wave1 and wave2 values into a list of floating-point numbers. Lets examine first how wave1 and wave2 create the ambitus series (low high). We mix the two waves first and then we apply a sort function: (setf wave1 '(-5.1 -2.3 1.5 -0.8 4.6 10.6)) (setf wave2 '(1.0 1.2 -1.1 2.1 -0.3 -2.5)) (sort-asc (gen-mix wave1 wave2)) => ((-5.1 1.0) (-2.3 1.2) (-1.1 1.5) (-0.8 2.1) (-0.3 4.6) (-2.5 10.6)) From the two waves above the function creates five ambitus series each with two lists: start (low high) and end (low high). Start End ((-5.1 1.0) (-2.3 1.2)) ((-2.3 1.2) (-1.1 1.5)) ((-1.1 1.5) (-0.8 2.1)) ((-0.8 2.1) (-0.3 4.6)) ((-0.3 4.6) (-2.5 10.6)) Next, the values list (floating-point numbers) is divided by the count of the ambitus series. In our example the count is 5: (setf values (gen-white-noise 120)) (/ (length values) 5) => 24 The final process is to select randomly segment numbers for each of the 5 sublists: With :type 1 (rnd-sum 24 '(2 3 5 7 11 13 17 19)) => (2 7 13 2) With :type 2 (length segments) (rnd-sum-to-size 24 8 '(2 3 5 7 11 13 17 19)) => (3 3 3 3 3 3 3 3) Lets see the result: (list-plot (vector-shift wave1 wave2 (gen-white-noise 120))) A slightly different result we can achieve with optional :type 2: (list-plot (vector-shift wave1 wave2 (gen-white-noise 120) :type 2)) Examples: (list-plot (vector-shift '(-7.1 1) '(-0.1 10) (gen-white-noise 356))) (list-plot (vector-shift '(-7.1 1) '(-0.1 10) (gen-white-noise 356) :segment '(1 2 3))) (list-plot (vector-shift '(-7.1 1) '(-0.1 10) (gen-white-noise 356) :segment '(1 2 3) :type 2)) (list-plot (vector-shift '(4.2456284 7.2268248 6.4440737) '(3.682579 8.78879 10.000002) (gen-white-noise 356) :segment (primes 12))) (list-plot (vector-shift '(4.2456284 7.2268248 6.4440737) '(3.682579 8.78879 10.000002) (gen-white-noise 356) :segment (primes 12) :type 2)) (setf wave1 '(-5.1 -2.3 1.5 -0.8 4.6 10.6)) (setf wave2 '(1.0 1.2 -1.1 2.1 -0.3 -2.5)) (list-plot (vector-shift wave1 wave2 (gen-white-noise 356))) (list-plot (vector-shift wave1 wave2 (gen-white-noise 356) :type 2)) (list-plot (vector-shift (rnd 12 :low -1.0 :high 4.0 :seed 45) (rnd 12 :low -1.0 :high 4.0 :seed 23) (gen-white-noise 356) :segment '(1 2 3))) (list-plot (vector-shift (rnd 12 :low -1.0 :high 4.0 :seed 45) (rnd 12 :low -1.0 :high 4.0 :seed 23) (gen-white-noise 356) :segment '(1 2 3) :type 2)) (list-plot (vector-shift (rnd 12 :low -1.0 :high 4.0 :seed 45) (rnd 12 :low -1.0 :high 4.0 :seed 23) (gen-white-noise 356) :segment '(3 6 9))) (list-plot (vector-shift (rnd 12 :low -1.0 :high 4.0 :seed 45) (rnd 12 :low -1.0 :high 4.0 :seed 23) (gen-white-noise 356) :segment (primes 12))) (setf wave3 '(.2 .1 .5 .1 .8 .5 .1 .4 .2 .3)) (list-plot (vector-shift (gen-tendency 24 wave3) (gen-tendency 24 wave3) (gen-tendency 356 wave3) :segment (primes 6))) (list-plot (vector-shift (gen-tendency 24 wave3) (gen-tendency 24 wave3) (gen-tendency 356 wave3) :segment (primes 6) :type 2)) Best wishes, JP Submitter opmo Submitted 06/06/2018 Category Opusmodus Latest Release  
  8. opmo

    vector-range-drift

    I will make it that way.
  9. Few more function which could be useful for you (part of the system): (contain-itemp 'inv '(c 7b9s11 inv 1 chord)) => t (contain-itemp '= '(e f d s)) => nil (contain-itemsp '(9 8) '(0 1 11 8 10 9)) => t (contain-sequencep '(11 8) '(0 1 11 8 10 9)) => t JP
  10. Is this what you are looking for: (defun nand (&rest rest) (flet ((every-truep (x) (equal x t))) (not (every #'every-truep rest)))) (nand t t) => nil (nand t t t t nil t) => t (nand nil t t t nil t) => t
  11. opmo

    vector-range-drift

    Could you explain more what you mean with seq-curve, low and high. Example could help or simply add the functionality to the function.
  12. Look into &rests
  13. opmo

    vector-range-drift

    Good one. I will add it to the system soon. Thank you Andre 🙂
  14. Yes, we should have function like that.
  15. opmo

    OMN Examples

    Play and display snippets in Opusmodus Place the mouse cursor at the end of each expression and press ⌘1 for audition and notation, ⌘2 for audition or ⌘3 for notation. You can stop audition at anytime by pressing ⌘ESC keys. Contents G. Ph. Telemann, 12 Fantasie per clavicembalo TWV 33, n.1, 1732 D. Scarlatti, Sonata B-Dur, 1736 F. Chopin, Etudes, Op. 10, No. 5, 1833 J. S. Bach, Brandenburg Concerto No.4 in G major, BWV 1049, 1720 I. Strawinsky, Petruschka, 1911/21 L. Janáček, In the Mists, 1914 J. Podrazik, Piano Study No.3, 2013 J. S. Bach, Goldberg-Variationen, Variato 18 a 1 Clav., 1741 M. Reger, Aus meinem Tagebuch, I, 3, 1904/12 K. Stockhausen, Mantra für 2 Pianisten, 1970 B. Smetana, Aus meinem Leben, Streichquartett e-Moll, 1876 Opusmodus, Algorithmic, 2014 L. v. Beethoven, op. 59, No.1, Finale S. Prokofiev, Peter and the Wolf, op.67 A. Bruckner, Symphony no.9, d-minor J. Podrazik, Kritiken Nostalgia, 2004 J. S. Bach, BWV 639, Orgelbüchlein J. Cesaris, Bonté biauté, 1420 C. Debussy, Prélude à l’après-midi d’un faune, 1892-94 N. Paganini, Violinkonzert Es-Dur, op. 6, 1812-18 N. A. Rimski-Korsakow, Scheherazade, op. 35, 1888 W. A. Mozart, Variationen KV 265 A. Dvořák, Violinkonzert a-Moll, op 53, 1882 L. v. Beethoven, Sonate op. 2, Nr. 1, f-Moll, 1795 G. F. Kaufmann, 1733 R. Schumann, Davidsbündlertänze, op. 6, 1837 L. v. Beethoven, Sturm-Sonate, op 31 2, 1802 Opusmodus, 2014 J. S. Bach, Goldberg-Variationen, Variatio 7, 1741 Fr. Couperin, Pieces de Clavecin, 1713 C. F. Pollarolo, II Farmando, 1699 H. Berlioz, Symphonie fantastique, op14, 1830 J. S. Bach, Brandenburgische Konzerte, No. 2, 1721 G. F. Handel, Orgelkonzert Nr. 4, F-Dur, 1. Satz, 1738 J. Haydn, Die Schöpfung, 1798 J. S. Bach, Goldberg-Variationen, Aria, 1741 G. Meyerbeer, Les Huguenots, 1836 L. v. Beethoven, Streichquartett F-Dur, op. 135, 1826 Dialog-Lauda, anonym, 1577 E. Gould, Behind Bars, Woodwind and Brass, p. 259-260, 2011 E. Gould, Behind Bars, Woodwind and Brass, p.247, 2011 A. Webern Satz für Streichtrio, 1925 E. Gould, Behind Bars, p.405, 2011 E. Gould, Behind Bars, p.405, 2011 E. Gould, Behind Bars, p.407, 2011 A. Webern, Sechs Bagatellen für Streichquartett, op. 9, III, 1913 A. Webern, Streichtrio, op. 20, 1927 C. Debussy, La Mer, 1905 A. Schönberg, Streichtrio, 1947 A. Webern, Sechs Bagatellen für Streichquartett, 1913 E. Elgar, Symphony No.1, 1907 N. Morgan, Matins for solo flute J. S. Bach, Sechs Suiten Sonaten fuer Violoncello solo, Suite I, Preludium, 1722 G. Ph. Telemann, 12 Fantasie per clavicembalo TWV 33, n.1, 1732 '((s a4 d5 fs4 d5 g4 d5) (s a4 d5 fs4 d5 g4 d5) (s a4 d5 cs5 b4 a4 g4) (s fs4 d4 e4 c4 e d4)) D. Scarlatti, Sonata B-Dur, 1736 '((e e5 3e g5 bb4 g4 e a4) (3e a5 c4 a4 e bb4 3e g5 bb4 g4) (s a4 c6 c6 a5 a5 f5) (s f5 d5 d5 c5 d5 bb5)) F. Chopin, Etudes, Op. 10, No. 5, 1833 '((3e gb6 bb6 db6 gb6 eb6 gb6 db6 gb6 bb5 db6 gb5 bb5) (3e gb5 bb5 db5 gb5 eb5 gb5 db5 gb5 bb4 db5 gb4 bb4) (3e db4 db5 ab4 db5 ab4 ab5 ab4 ab5 eb5 ab5 eb5 eb6) (3e eb5 eb6 ab5 eb6 ab5 ab6 ab5 ab6 db6 ab6 db6 db7)) J. S. Bach, Brandenburg Concerto No.4 in G major, BWV 1049, 1720 '((e g5g3 g5g3 fs5fs3) (e e5e3 g5g3 e5e3) (e a4a2 a5a3 g5g3) (e fs5fs3 a5a3 fs5fs3) (e b4b2 b5b3 a5a3) (e g5g3 b5b3 g5g3) (e e5e3 e6e4 d6d4) (s cs6cs4 e6e4 e6e4 cs6cs4 cs6cs4 a5a3) (s a5a3 cs6cs4 cs6cs4 a5a3 a5a3 fs5fs3) (s fs5fs3 a5a3 a5a3 fs5fs3 fs5fs3 d5d3) (e d5d3 -q) (e a4a2 -q) (e d4d2 -q)) I. Strawinsky, Petruschka, 1911/21 '((s d5f5b5 f e5g5c6 e f5a5d6 s g5b5e6 f5a5d6 e5g5c6 d5f5b5) (e c5e5a5 c5e5a5 q d5f5b5 marc) (s d5f5b5 e5g5c6 f5a5d6 g5b5e6 e f5a5d6 s e5g5c6 d5f5b5) (e c5e5a5 c5e5a5 q d5f5b5 marc)) L. Janáček, In the Mists, 1914 '((t cs5 pp< bs4 < cs5 < dn5 mp> cs5 > bn4 > gs4 > es4 pp -s fermata) (t gs4 fss4 gs4 an4 gs4 fss4 en4 cs4 -s fermata)) J. Podrazik, Piano Study No.3, 2013 '((e b6as7d7cs7 ff a6as7 p b6c6b5b4as5 mp e5f4b4a3 ffff s. ds3cs3c4b3 ff t c4fs3as2b2 mp) (3e= ds1a0gs1as1 mf a1gs1d1cs2d2ds2 ffff tie 3s a1gs1d1cs2d2ds2 ffff 3e d4c4 mp s b4f5a4as4d4ds4 ffff e cs2g1) (3h d1c1b0as0 pp as0c1fs1f1e1 b2cs3c4cs4 mf 3q d4cs4ds5e4fs4 mp f7e6 c6b5fs5c5e5as4 mf)) J. S. Bach, Goldberg-Variationen, Variato 18 a 1 Clav., 1741 '((-h q g5 tie) (h. g5) (h. fs5) (e g5 fs5 h e5 tie) (q e5 e d5 cs5 q d5 tie) (q d5 -h)) M. Reger, Aus meinem Tagebuch, I, 3, 1904/12 '((q d4f4bb4d5 f< leg c4eb4a4c5 < leg bb3d4g4bb4 < leg e c4eb4a4c5 < leg d4f4ab4d5 ff> leg) (q f4ab4d5f5 > leg e4g4bb4e5 > leg h fs4a4d5 mf) (q c4ds4a4 p< leg bb3e4g4 < leg b3d4fs4 f leg e3g3cs4 > leg) (h d3fs3d4 pp)) K. Stockhausen, Mantra für 2 Pianisten, 1970 '(t a3 p stacc a3 stacc a3 stacc a3 tie e a3 q... b3 t f h. gs4 mp (acc e e4 p f4 e4 d4) w e4) B. Smetana, Aus meinem Leben, Streichquartett e-Moll, 1876 '((e b4 f) (w b4 sf leg) (q e4 marc+stacc+espr - - -e fs4 stacc) (w g4 sf leg) (q b3 stacc+marc - - -e ds4 stacc) (h e4 sf marc+leg q g3 stacc+marc -e a3 stacc) (h b3 sf leg q e3 stacc+marc -e fs3 stacc) ((leg q g3 marc e e3 -s fs3 ten))) Opusmodus, Algorithmic, 2014 '((s cs5 p g6 mp mf -) (s cs5 f e g3 ff s p) (s cs5 mp g6 mf f -) (-s cs5 ff e g3 p) (s g3 mp - e cs5 mf) (s g6 f ff e cs5 p) (s g3 mp mf e cs5 f) (s g6 ff p cs5 mp g3 mf) (e g3 f s cs5 ff g6 p) (e g6 mp -s cs5 mf) (e g3 f -s g3 ff) (s cs5 p e g6 mp s mf)) L. v. Beethoven, op. 59, No.1, Finale '(((leg q d3 e c3 s d3 e3)) ((stacc e f3 f3 g3 g3 p)) (q a3 leg e c4 s stacc bb3 stacc) ((leg q a3 < e. c4 mp s bb3 >)) ((leg q a3 p e g3 s a3 e3)) ((stacc e f3 d3 cs3 a2)) ((stacc e d3 f3 e3 a3))) S. Prokofiev, Peter and the Wolf, op.67 '(h g2bb2d3 mp marc (leg s d3g3bb3 eb3fs3a3 d3g3bb3 eb3fs3a3 e d3g3bb3) d3g3bb3 g3bb3d4 ten eb3a3cs4 ten g3bb3d4 ten g3bb3 ten (acc e c3) h f3c4 marc) A. Bruckner, Symphony no.9, d-minor '(h a5 mart h_q a4 mart q g5 marc f5 marc e5 marc h... eb5 mart s d4 marc w eb4 mart) J. Podrazik, Kritiken Nostalgia, 2004 '(((marc e e3 mp eb4 fs3 c3) s g3 stacc e fs2 < marc (stacc s g2 < 5q gs2 < d3 < cs4 < e4 < d3 J. S. Bach, BWV 639, Orgelbüchlein '((s g5 a5 g5 a5 e. a5 tr2-x t g5 a5 q b5 comma e. s c6) (q d6 s c6 e b5 s a5 q g5 e a5 b5) (qs c6 t d6 e6 s c6 b5 q b5 comma)) J. Cesaris, Bonté biauté, 1420 '((q. ab4 bb4) (q. ab4 g4) (q. f4 e4) (q f4 e g4 q f4 e e4) (h. f4 fermata)) C. Debussy, Prélude à l’après-midi d’un faune, 1892-94 '((leg h cs5 tie s s b4 3e as4 a4 gs4 e. g4 s a4 b4 c5)) N. Paganini, Violinkonzert Es-Dur, op. 6, 1812-18 '((q e5 leg e fs5 leg gs5 q a5 ten cs6 ten) (h cs6 leg q b5 e d6 leg cs6 leg) (q a5 cs6 marc+leg gs5 cs6 leg) (h. fs5)) N. A. Rimski-Korsakow, Scheherazade, op. 35, 1888 (((leg h e5 tie e e5 3e d5 e5 d5 c5 d5 c5) (leg b4 c5 b4 a4 c5 e5 g5 fs5 e5))) W. A. Mozart, Variationen KV 265 '(e. c5 leg s g4 e. e5 leg s c5 e g5 q g5 e g5 c5g5a5 fp q c5f5a5 e e c5f5g5 fp q c5e5g5 e) A. Dvořák, Violinkonzert a-Moll, op 53, 1882 '((-q (acc e a3e4) h c5e5 f (leg 3q a4c5 ten b4d5 ten c5e5 ten)) ((acc e e4) h. c5e5 q e5) ((leg q d5 e. c5 t d5 c5) q b4 leg a4) (q gs4 cresc leg h e4 (leg 3q d4 f4 a4)) (q gs4 leg h e4 (leg 6q d4 f4 a4 d5 f5 a5 ff))) L. v. Beethoven, Sonate op. 2, Nr. 1, f-Moll, 1795 '((q c4 p) (q f4 ab4 c5 f5) ((leg q. ab5 3e g5 f5 e5 q f5) -) (q g4 c5 e5 g5) ((leg q. bb5 3e ab5 g5 f5 q g5) -) ((acc e c5 leg) q. ab5 3e g5 f5 e5 q f5 -) ((acc e c5 leg) q. bb5 3e ab5 g5 f5 q g5 -) (h c5f5ab5c6 arp e bb5 ab5 g5 f5) ((app s e5 leg f5 leg g5 leg) q f5 leg e5 -q fermata -)) G. F. Kaufmann, 1733 '((h d4 leg (-app e e4) h e4 (-app s d4 e4)) (h f4 g4 leg (-app e a4)) (h f4 (-app s e4 f4) h e4) (w d4)) R. Schumann, Davidsbündlertänze, op. 6, 1837 '((q d4fs4 arp) (q cs4e4g4 arp c4eb4fs4a4 arp bb3d4g4bb4 arp) (h a3d4fs4c5 arp q bb3d4g4bb4 arp)) L. v. Beethoven, Sturm-Sonate, op 31 2, 1802 '((-h cs2e2a2cs3e3a3 tie+arp) (h. cs2e2a2 fermata q cs3a3 stacc) ((stacc q d3a3 e3a3 f3a3 cs3a3))) Opusmodus, 2014 '(q c4 kgliss b5 kgliss c4 kgliss e c5 kgliss q cs4 kgliss b5 kgliss c4 kgliss cs5 kgliss f4 kgliss c5) J. S. Bach, Goldberg-Variationen, Variatio 7, 1741 '((q a4 t b4 leg cs5 leg d5 leg e5 leg e. fs5 s d5 e a4) (q b4 t cs5 leg d5 leg e5 leg fs5 leg e. g5 s e5 e b4) ((app. e b4) e. cs5 s a4 e a5 e. d5 s e5 e cs5) ((app e cs5) q d5 tie h)) Fr. Couperin, Pieces de Clavecin, 1713 '((q g5 lmordent2 e fs5 mordent1+leg (-app s e5 leg fs5)) (q g5 e b4 (app e b4) q c5 lmordent1 e d5) (q b4 mordent1 e a4 c5 lmordent1+leg e b4 mordent1) (q e5 lmordent2 (app s e5 leg fs5 leg) e g5 e. c5 mordent1 s d5 e b4 mordent1)) C. F. Pollarolo, II Farmando, 1699 '((-q e d5 a4 q d4 e d5 a4) (e fs4 d4 a4 d5 q cs5 fs5 trem-s) (q g4 trem-s e5 trem-s fs4 trem-s d5 trem-s) (q e4 trem-s cs5 trem-s e d4 s e4 fs4 g4 a4 b4 cs5) (e d5 g4 a4 a3) (q d4)) H. Berlioz, Symphonie fantastique, op14, 1830 '((q g4 (acc e b4) c5 q g4 (acc e ds5) e5) ((acc e ds5) q e5 (acc e e5) f5 q f5 tr2 e e5) (q e5 tr1 e d5 q d5 tr2 e c5)) J. S. Bach, Brandenburgische Konzerte, No. 2, 1721 '((e c5 g5 g5 tr2 s f5 g5) (e a5 s g5 f5 e g5 c6) (e g5 tr2 s e5 f5 e g5 tr2 s f5 g5)) G. F. Handel, Orgelkonzert Nr. 4, F-Dur, 1. Satz, 1738 '((q g5 lmordent2 lmordent2 q. tr2 e c6) (q. g5 tr2 e c6 q. g5 tr2 e c6) (s g5 fs5 g5 bb5)) J. Haydn, Die Schöpfung, 1798 '((e ab4 eb4 g4 ab4 eb4 g4 turn12+leg) (e ab4 eb4 b4 c5 ab4 e4)) J. S. Bach, Goldberg-Variationen, Aria, 1741 '((q d5 q d5 leg e. e5 lmordent2-t s f5) (e e5 (app s d5) e c5 (app. s b4) q. a4 e fs5 turn12) (t g5 leg s. fs5 t a5 leg s. g5 t fs5 leg s. e5 t d5 leg s. c5 (app. e c5) e. a5 s c5) (t b4 leg s. g4 e fs4 (app e fs4) h g4 lmordent1-t)) G. Meyerbeer, Les Huguenots, 1836 '((h bb3gb3 mp ttrem db4 q cb4ab3gb3 ttrem db3) (h bb3gb3 ttrem db4 q cb4ab3gb3 ttrem db3)) L. v. Beethoven, Streichquartett F-Dur, op. 135, 1826 ((q. g2g3 p e e2e3 < h ab2ab3 < c5 mp tie+cue) ((cue e c5 bb4 ab4 g4 f4 a4 c5 e5 q f5 comma) a4 f)) Dialog-Lauda, anonym, 1577 '((repeat (-q q. g4bb4d5 e g4bb4d5 q c4c5eb5) (q f4a4c5 g4bb4 h f4a4c5) (h bb3bb4 g3g4bb4) (h d4f4a4 q g4bb4 f4a4c5 tie) (q f4a4c5 g4bb4 h d4fs4a4) (end1 (h g4)) (end2 (h g4)))) E. Gould, Behind Bars, Woodwind and Brass, p. 259-260, 2011 '(s cs4 key-slap d5 -e s ab4 ten+key-slap f5 stacc) E. Gould, Behind Bars, Woodwind and Brass, p.247, 2011 '((h f4 trem+frull+tie e f4 trem-s a4) (-q h e4 trem+frull+tie) (e e4 ord d4 leg q a4)) A. Webern Satz für Streichtrio, 1925 '(-t. x d6 pp> stacc+arco 3s f4 > leg e5 > leg fs6 ppp -t. x cs4 p t. eb5 > leg x e4 ppp) E. Gould, Behind Bars, p.405, 2011 '(((stacc e a4 spicc+ubow s c5 dbow+leg b4 e a4 ubow s g4 dbow+leg f4 e e4 ubow))) E. Gould, Behind Bars, p.405, 2011 '((dbow e d5 = = = = = = =)) E. Gould, Behind Bars, p.407, 2011 '(((stacc s b3 legno-batt = e e d4 =)) (-h d5 arco-ord+leg) (h d4 -) (h_e c4 legno-tratto -e q f4 tie) (h f4 q d4 marc+pizz -)) A. Webern, Sechs Bagatellen für Streichquartett, op. 9, III, 1913 '((-3e c4 pp< pizz+stacc stacc -e - 5e f5 mf< arco a5 e6 fs6 bb6) (-e q. g5 < trem+harm) (q g5 trem+harm -s f4e5 ff stacc+pizz -e)) A. Webern, Streichtrio, op. 20, 1927 '((e bb4 p> leg s fs5 stacc fs5 stacc+pizz - (acc b3 arco+harm+leg) c4 pp c4 stacc+pizz - a5 p> arco+leg d6 stacc (acc cs5 leg) gs4 stacc -) (s cs5 pp stacc+pizz (acc a5 leg+arco) gs4 stacc -e -s gs4 p> stacc+ten (acc a5 leg) d6 stacc eb4 pp ten+pizz)) C. Debussy, La Mer, 1905 '(((leg q. f4 ff vib+sul4 e e4 sul4 q. ds4 sul4 e e4 sul4)) ((leg q. f4 mf sul4 e e4 sul4 3h ds4 < ten+sul4 fs4 < ten+sul4 gs4 < ten+sul4)) (q. f4 f leg+sul4 e e4 leg+sul4 q. ds4 leg+sul4 e e4 leg+sul4) (q. f4 > leg+sul4 e e4 > leg+sul4 3h eb4 > leg+stacc+sul4 d4 > leg+stacc+sul4 cs4 p leg+stacc+sul4)) A. Schönberg, Streichtrio, 1947 '((h db5bb5 ppp trem e db5bb5 - -q) (-h a3 pp ponte+tie) (h a3 fermata -h fermata)) A. Webern, Sechs Bagatellen für Streichquartett, 1913 '((-e -s (leg eb5 pp< ponte+con-sord 3e a6 < eb5 < a6 < leg)) ((leg 3e eb5 mp> a6 > eb5 >) -e -e) (-e -3e - (leg+stacc e4 ppp< < < p))) E. Elgar, Symphony No.1, 1907 '(((leg h b2 pp< 3h as2 > marc b2 > c3 > tie)) (3h c3 (leg cs3 mp e3 tie e3 > d3 c3 pp)) ((leg 3h b2 < marc as2 b2 c3 marc b2 c3 mp))) N. Morgan, Matins for solo flute '((-s db4 mp e. b4 tie) (s b4 db4 b4 e. g4 tie) (s g4 db4 b4 g4 gs5 b4 g4) (s gs5 b4 db4 e. g4 tie) (s g4 comma b4 db4) (s c6 eb4 e. a4)) J. S. Bach, Sechs Suiten Sonaten fuer Violoncello solo, Suite I, Preludium, 1722 '(((leg s g2 mf e3 b3 a3 b3 g3 fs3 g3) (leg e3 g3 dig2 fs3 g3 b2 > dig1 d3 > cs3 > b2 >)) ((leg s cs3 p dig3 g3 dig2 a3 sul g3 dig2 a3 g3 a3 g3) (leg cs3 g3 a3 g3 a3 g3 a3 g3)) ((leg s fs3 p< dig1 a3 < sul d4 < cs4 d4 mf a3 dig4 g3 a3 fs3) (leg a3 g3 a3 d3 > sul fs3 > dig3 e3 > d3 >)) ((leg s e2 p dig1 b2 g3 fs3 g3 b2 g3 b2) (leg e2 b2 g3 fs3 g3 b2 g3 b2)))
×