AM Posted August 19, 2024 Posted August 19, 2024  Dear community Where is the error? I try this setup and want to send the program changes, but it doesn't work. What is wrong? I don't see it  thanks for some help - andré  the setup...  (progn (add-program-attributes '(ads) '(ord) '(msp) '(st) '(bartok) '(wk) '(lt) '(gett) '(pizz) '(lbup) '(lbdown) '(lb1) '(lb2) '(lb3) '(lb4) '(kdecke) '(kzarge) '(harm1) '(harm2) '(harm3) '(harm4) '(harm5)) (add-text-attributes '(ads "ads") '(ord "ord") '(msp "msp") '(st "st") '(wk "wk") '(lt "lt") '(bartok "bartok") '(gett "gett") '(pizz "pizz") '(lbup "lbup") '(lbdown "lbdown") '(lb1 "lb1") '(lb2 "lb2") '(lb3 "lb3") '(lb4 "lb4") '(kdecke "kdecke") '(kzarge "kzarge") '(harm1 "harm1") '(harm2 "harm2") '(harm3 "harm3") '(harm4 "harm4") '(harm5 "harm5"))) (def-sound-set cb-prog :programs (:group contrabass ord 0 msp 1 st 2 wk 3 lt 4 gett 6 ads 7 pizz 10 lbup 11 lbdown 12 bartok 13 lb1 20 lb2 21 lb3 22 lb4 23 kdecke 29 kzarge 30 harm1 41 harm2 42 harm3 43 harm4 44 harm5 45)))  test for score... i do not recieve program changes, why?  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; some test... (setf kb '(q e4 pp lt q q q) epl1 '(q e4 pp pizz q q q) epl2 '(q e4 pp msp q q q) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (def-score test (:title "test" :key-signature 'atonal :time-signature '(4 4) :tempo '(120) :layout (list (contrabass-layout 'kb) (contrabass-layout 'epl1) (contrabass-layout 'epl2))) (kb :omn kb :channel 1 :port 15 :sound 'cb-prog) (epl1 :omn epl1 :channel 1 :port 0 :sound 'cb-prog) (epl2 :omn epl2 :channel 1 :port 12 :sound 'cb-prog))     Quote
Stephane Boussuge Posted August 19, 2024 Posted August 19, 2024 I've tried also, don't find why, really sorry. Very strange. Quote
opmo Posted August 20, 2024 Posted August 20, 2024 I don't see any problem with your code, accept attributes names which are part of the defualt system like 'pizz and 'ord. You should not use already existing attributes in the add-text-attribute function listing. Â ;;; New the arrtibutes: (add-text-attributes '(ads "ads") '(msp "msp") '(st "st") '(wk "wk") '(lt "lt") '(bartok "bartok") '(gett "gett") '(lbup "lbup") '(lbdown "lbdown") '(lb1 "lb1") '(lb2 "lb2") '(lb3 "lb3") '(lb4 "lb4") '(kdecke "kdecke") '(kzarge "kzarge") '(harm1 "harm1") '(harm3 "harm3") '(harm4 "harm4") '(harm5 "harm5")) ;;; New Sound-Set: (def-sound-set cb-prog :programs (:group contrabass ord 0 msp 1 st 2 wk 3 lt 4 gett 6 ads 7 pizz 10 lbup 11 lbdown 12 bartok 13 lb1 20 lb2 21 lb3 22 lb4 23 kdecke 29 kzarge 30 harm1 41 harm2 42 harm3 43 harm4 44 harm5 45) :controllers (:group General Bank-Select 0 Modulation 1 Breath-Control 2 Foot-Control 4 Portamento-Time 5 Data-Entry 6 Volume 7 Balance 8 Pan 10 Expression 11 Effects-Controller1 12 Effects-Controller2 13 Gen-Purpose1 16 Gen-Purpose2 17 Gen-Purpose3 18 Gen-Purpose4 19 :group LSB Bank-Select-LSB 32 Modulation-LSB 33 Breath-Control-LSB 34 Foot-Control-LSB 36 Portamento-Time-LSB 37 Data-Entry-LSB 38 Volume-LSB 39 Balance-LSB 40 Pan-LSB 42 Expression-LSB 43 Gen-Purpose1-LSB 48 Gen-Purpose2-LSB 49 Gen-Purpose3-LSB 50 Gen-Purpose4-LSB 51 :group Pedal Ped 64 Sost-Ped 66 Una-Corda 67 Legato-Ped 68 Hold2 69 Sound-Variation 70 Resonance 71 Release-Time 72 Attack-Time 73 Cut-Off-Frequency 74 Decay-Time 75 Vibrato-Rate 76 Vibrato-Depth 77 Vibrato-Delay 78 Gen-Purpose5 80 Gen-Purpose6 81 Gen-Purpose7 82 Gen-Purpose8 83 Portamento-Control 84 Reverb-Depth 91 Tremolo-Depth 92 Chorus-Depth 93 Celeste-De-Tune 94 Phaser-Depth 95 Data-Increment 96 Data-Decrement 97 Non-Reg-Param-LSB 98 Non-Reg-Param 99 Reg-Param-LSB 100 Reg-Param 101 All-Sound-Off 120 Reset-All-Controllers 121 Local-Control 122 All-Notes-Off 123 Omni-Off 124 Omni-On 125 Mono-On 126 Poly-On 127) ) ;;; Score: (setf kb '(q e4 pp lt q q q) epl1 '(q e4 pp lb2 q q q) epl2 '(q e4 pp msp q q q) ) (def-score test (:title "test" :key-signature 'atonal :time-signature '(4 4) :tempo '(120) :layout (list (contrabass-layout 'kb) (contrabass-layout 'epl1) (contrabass-layout 'epl2))) (kb :omn kb :channel 1 :port 15 :sound 'cb-prog) (epl1 :omn epl1 :channel 1 :port 0 :sound 'cb-prog) (epl2 :omn epl2 :channel 1 :port 12 :sound 'cb-prog)) Â Quote
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.