opmo Posted April 4, 2017 Share Posted April 4, 2017 Score with ADD-TEXT-ATTRIBUTES and GEN-DYNAMIC-CONTROLLER. ;;;--------------------------------------------------------- ;;; Sechs Bagatellen fuer Streichquartett OP.9, I ;;;--------------------------------------------------------- (add-text-attributes '(daempfer "mit Dämpfer") '(steg "am Steg") '(d-saite "d-Saite") ) (setf violin1-I '((-q - cs5 pp< daempfer+ubow+tie) (e cs5 > - - bb5 p> leg e5 > leg f4) (q g4 pp> leg eb4 -) (-3q eb4ab4 <> harm - -q -) (-q -3q 3h f6 pp<> ubow) (-q e a6 f< ten fs6 < ten) (q g5 ff - -3q - b3 f marc) (e. c4 < leg s b3 -q -e f3ds4 p leg) (q a3gs4 < - -) (-e q g3fs4 ppp> ten -e fermata -q))) (setf violin2-I '((-h.) (e c4 pp< daempfer+leg gb4 < leg 3h ab4 -3q -q) (-h.) (q bb3 pp pizz+ten - gs3e4 pp<> ubow+arco) (-q d4 pp< ttrem+steg+leg fs4 steg) (-h) (-q -3q 3h gs5 ff d-saite+leg q f4 >) (-q -3q gs3 f> stacc+pizz a4 > stacc -q) (-3q 3h eb6 f> ten+arco+tie s eb6 - e gb4 p> leg+d-saite f5 leg s e5 -) (-h. fermata))) (setf viola-I '((-q -3q 3h eb4 pp<> ubow+harm+ten+steg+daempfer -q) (-q s a3 pp stacc+steg b3 stacc+steg a3 stacc+steg b3 stacc+steg a3 stacc+steg b3 stacc+steg a3 stacc+steg b3 stacc+steg) (-h.) (-e. s c4 p< arco+leg q. c5 leg e bb4 >) (-h) (-s e b5 sf leg s bb4 >p< tie e bb4 -) (-q e f5 fff ten+pizz eb5 ten -q) (-e q. cs5fs5 sfp harm+arco+trem -e b3fs4 p leg) (q c3cs4 < - -s e. bb5 p> marc+tie) (e. bb4 pp -s -3q c5 ppp> fermata+ten - -q))) (setf cello-I '((-q d4 pp< ten+harm+daempfer -) (-q - -3q 3h fs2 pp leg+tie) (q. fs2 < leg e e2 > e4 p leg d5 leg+tie) (e d5 < leg f5 > -q a2f3 pp<>) (-e q cs3fs3 p< ten+harm e g2 pp ten+tie) (3q g2 < 3h cs3fs3 f ten+harm -e c2b2 f stacc+pizz) (-s gs4 ff< leg+arco e e5 < leg+tie q e5 < -e db3c4 f stacc+pizz) (-q -e g3 sffp harm+arco+marc+leg q d4 > app+leg 3q g3 harm 3h g3 f> harm+marc+tie) (e g3 > harm g3 p harm+marc+tie 3q g3 > harm - - -q) (3q b2 pp pizz - cs2fs2 pp< harm+arco+tie e cs2fs2 > harm -e fermata -q))) (setf tempo-I '(("Mäßig" 60 :length 10/4) (:rit 60 40 1/64 2/4) (60 2/4) (:accel 60 96 1/64 2/4) ("heftig" 96 2/4) (:rit 96 60 1/64 1/4) ("wieder mäßig" 60 4/4) (:rit 60 44 1/64 2/4) (44 3/4))) (def-score Anton-Webern-OP-9-I ( :title "Sechs Bagatellen für Streichquartett OP.9, I" :composer "Anton Webern" :copyright "Copyright © 1924 Universal Edition" :key-signature 'chromatic :time-signature (get-time-signature violin1-I) :tempo tempo-I :octave-shift '(c2 c6) :merge-rests t :flexible-clef t :accidentals :cautionary :layout (string-quartet-layout 'vln1 'vln2 'vla 'vlc) ) (vln1 :omn violin1-I ;:port 0 :channel 1 :sound 'vsl-violin-solo :controllers (11 (gen-dynamic-controller violin1-I))) (vln2 :omn violin2-I :channel 2 :sound 'vsl-violin-solo :controllers (11 (gen-dynamic-controller violin2-I))) (vla :omn viola-I :channel 3 :sound 'vsl-viola-solo :controllers (11 (gen-dynamic-controller viola-I))) (vlc :omn cello-I :channel 4 :sound 'vsl-cello-solo :controllers (11 (gen-dynamic-controller cello-I))) ) Stephane Boussuge 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.