Jump to content

AM

Members
  • Posts

    750
  • Joined

  • Last visited

Posts posted by AM

  1. 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))

     

  2. 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))

     

     

    1605830476_Bildschirmfoto2023-01-03um19_33_59.thumb.png.8ed3848ced5a550a93ad8b0efb67d09d.png

    ensembles performed several concerts with it, so it worked 🙂 

  3. 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!!)

  4. 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é

  5. 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.

     

    image.png.2deaaa5e3b4aa625c937276a06f1acff.png

     

    in MAX, that's what i'm sending - for example - as an internal test

    image.png.d9a5ac198ef987b42441476eed65129b.png

     

     

    thanx for some help...!!

    andré

  6. Quote

    Seriously? This is a one-man operation doing a major port of the software, not only to support a new hardware architecture, but also, as part of that, to completely swap out the underlying runtime backend. Give the guy a break, his job is hard enough without entitled people badgering him to get it done yesterday and criticizing his very efforts to communicate progress (before that, the criticism was that there wasn't any communication about it). What's "really going on"? Alien abduction? Coup attempt? Let the dev do his work.

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

     

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy