AM

dear all i want to code a simple function for sending midi-cc in an "all-in-one"-function (to external devices like filterbank or microcosm) it works more or less.... but there are two bugs i can't fix. the function: (defun filterbank (&key cc value-range (time-range '(1 127)) (port 7) (channel 16)) (let ((values (loop for i in (rnd-sample 100 (gen-integer (first value-range) (second value-range))) for j in (gen-length (gen-integer (first time-range) (second time-range)) 1/128) collect (list i j)))) (live-coding-midi (compile-score (def-score cc-seq (:title "cc-seq" :key-signature 'chromatic :time-signature '(4 4) :tempo 60) (seq :length '(3) :pitch '(c4) :velocity '(ff) :port port :channel channel :controllers (1 values))))))) (filterbank :cc 1 :value-range '(40 99) :port 1) problem 1: when i evaluate the function and run it ONCE - everything okay. when i like to RUN it a second time there is an error, i don't know why. then i have to evaluate the FUNCTION again... why? problem 2: i would like to "replace" :controllers (1 values) by :controllers (cc values) -> so that i can choose the cc-number by a variable "cc". but it don't work - any hints? thanx for some help andré

welcome 😄

test/evaluate it again... my output is => (-15/16 15/32 1/32 1/32 1/32 61/32 1/32 1/2 1/32 -5/32 -1/32 13/16 -17/32 3/2 9/16 -7/16) so it's correct

(setf alist '(1/4 1/4 1/8 1/8 1/4 1/4)) (setf n 3) (length-invert '(1/4 1/4 1/8 1/8 1/4 1/4) :section (rnd-sample n (gen-integer 0 (1- (length alist))) :norep t))

it's very lispian 😄 yes, it works also by (mapcar...)

i checked it quickly: when you replace the 3h - for example - by h => then i get NO ERRORS

like that? ;; as lisp-code ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setf alist '((s -s s== -s -s== s== -s s -s s -s s -s==) (s== -s s -s s== -s s -s== s== -s s -s s -s==) (s -s== s -s s -s s== -s s -s==))) (loop for i in alist collect (append i (list 'q))) => ((s -s s== -s -s== s== -s s -s s -s s -s== q) (s== -s s -s s== -s s -s== s== -s s -s s -s== q) (s -s== s -s s -s s== -s s -s== q)) ;; as lisp-function ;;;;;;;;;;;;;;;;;;;;;;;;;; (defun append-value (lists value) (loop for i in lists collect (append i (list value)))) (append-value alist 'q) => ((s -s s== -s -s== s== -s s -s s -s s -s== q) (s== -s s -s s== -s s -s== s== -s s -s s -s== q) (s -s== s -s s -s s== -s s -s== q))

i would like to use the FULL possibilites of OSC, the basic-structure to send data

with send-osc-data it don't work, of course... the code before was exactly this ... #| 1. you need Nik Gaffney's osc package 2. load it |# (load (merge-pathnames "osc.lisp" *load-truename*)) #| 3. define global variable to hold socket, ip-address and port-no |# (defparameter *out-socket* (make-socket :type :datagram)) (defparameter *remote-host* "127.0.0.1") (defparameter *remote-port* 47522) #| 4. define a send function |# (defun udpsend (&rest args) (let ((message (apply' osc::encode-message args))) (send-to *out-socket* message (length message) :remote-host *remote-host* :remote-port *remote-port*))) ;; send (progn (udpsend "/beat" "defer" 0 "duration" 1 "pattern" 12) (udpsend "/beat" "defer" 1 "duration" 1 "pattern" 22) (udpsend "/beat" "defer" 2 "duration" 1 "pattern" 22) (udpsend "/beat" "defer" 3 "duration" 1 "pattern" 21)) The Event System — Polytempo Documentation POLYTEMPO.ZHDK.CH ensembles performed several concerts with it, so it worked 🙂

A good idea, actually 😄 But first I ask my colleague at the ICST-ZHDK (Zurich). He programmed me the last OSC setup, maybe he will find a solution without (make-socket)...

but: some other "receiver" then REAKTOR need other DATA-formats, that's the thing, i think... and with (send-osc-data) i didn't find a solution for that.... see post... or... and with (MAKE-SOCKET... ) it was possible

it's seems so, at the moment all my OSC projects are not workiing with 3.0 (polytempo/max-player)... the (make-socket) seems to be the problem in lispworks

😅

thx for your work - but the ports are always changed to "internal" - but you don't have to try any further, the (score player)-function (OPMO) has the same problem, will certainly be "repaired" sometime... greetings andré

thanx, that's great!!!.... there is only one problem (but you don't have to solve it for me): the port/channel-settings are deleted 🙂 so only the internal midiplayer is playing, and no other midi-destinations via preseted port/channels (in the midi-file) are possible...? (i'm working on a generative-live-scoring project (open forms) and with OPMO i can generate/simulate different generative-grammars of my "musical material" (organzied/read as/from an array). so your solution would be very practical to develop and test the "form-grammar" of the work - THANX!!)

this works fine, very useful for me! do you know how to read/play thus from an existing midi-library - with a path, like, perhaps (push-to-list "/Users/..../Opusmodus/Media/MIDI/Meier/50.mid")

great, i will test it today!!

dear ldbeth thanks for the solution - that's great! all the best andré

dear all, i have a basic lisp-question to FORMAT and i did not find a solution... INPUT (setf alist '((/player "12" 1.0 1.0 1.0) (/player "23" 1.0 1.0 1.0) (/player "12" 1.0 1.0 1.0) (/player "23" 1.0 1.0 1.0))) ;; with FORMAT to => /player "12" 1.0 1.0 1.0, /player "23" 1.0 1.0 1.0, /player "12" 1.0 1.0 1.0, /player "23" 1.0 1.0 1.0 by FORMAT => i will save it in a TXT-file on desktop (that works (with-open-file...)), but i have a format-problems with the commatas and the () thanx for such basic-lisp-help andré

for me too! and thx to janusz (and the OPMO-team) for all your work and support! 🙂

dear all i would like to send some specific data via OSC to MAX... i can send "something" to max (defparameter max '(127.0.0.1 7500)) ;; that works SEND data to MAX and i would like to send the following seq to MAX by OSC /player "12" 1.0 1.0 1.0 but how to do it / format it in OMPO? ;; data should be "113" 1 1. 25000 => but how to "format"? -> see the MAX form ;; ??? (send-osc-data (create-osc-thread "player" max) data) /player is sended but not the rest of teh sequence here is a screenshot from MAX, it worked with an external library (in CCL) but i would like to do it "directly" in OPMO. in MAX, that's what i'm sending - for example - as an internal test thanx for some help...!! andré

"Wow, this is really disappointing. It is again showing how poor the company behind OM communicates. It seems not necassary to have an official announcement placed at the day people can use the new version. Is it too much to ask for an update note on the official webpage?" Om-Chanting on "Baroque 415Hz" could help

i don't know your datas, but.... perhaps.... (omn-to-measure (make-omn :pitch (filter-repeat 1 (rnd-order (omn :pitch seq))) :length (gen-repeat 24 tr) :span :length) '(4/4))

(filter-repeat 1 for4 :type :pitch)

yes! agree with you, just let the developer(s) work instead of making a .... here. janusz is doing a great job!!