-
Posts
764 -
Joined
-
Last visited
Contact Methods
Profile Information
-
Gender
Male
Recent Profile Visitors
22,818 profile views
-
Stephane Boussuge reacted to a post in a topic: ChatGPT and Coding
-
JulioHerrlein reacted to a post in a topic: ChatGPT and Coding
-
AM reacted to a post in a topic: ChatGPT and Coding
-
only trust your own code
-
Pli reacted to a post in a topic: ChatGPT and Coding
-
"program me a sorting algorithm in common lisp, which shows me all sorting cycles. Input: list of values. Output: all cycles of the sorting process." interesting! ChatGPT tells me how the code works, but it has a BUG doesn't work Bildschirmaufnahme 2023-03-18 um 14.33.32.mov
-
-
Stephane Boussuge reacted to a post in a topic: all intervals in chord
-
hujairi reacted to a post in a topic: sending OSC data to MAX
-
different approach... (pitch-to-interval '(c4d4e4f6)) => intervals between neighbours (get-all-intervals '(c4d4e4f6)) => all intervals INSIDE the chord (between all pitches)
-
just tried in 3min. ouput correct or perhaps some BUGs in thinking? greetings andré (defun get-all-intervals (alist) (let ((alist (sort-asc (flatten (pitch-to-midi (if (chordp alist) (melodize alist) alist)))))) (rest (sort-asc (remove-duplicates (loop repeat (length alist) for cnt = 0 then (incf cnt) append (x-b (filter-last (- (length alist) cnt) alist) (nth cnt alist)))))))) (get-all-intervals '(c4 d4 e4)) => (2 4) (get-all-intervals '(c4d4e4f6)) => (2 4 25 27 29)
-
(loop for i from 100 to 900 by 100 collect i)
-
AM reacted to a post in a topic: Zoom Into OM 5 - An example of formalisation of musical thinking with OM.
-
AM reacted to a post in a topic: Micropolyphone series
-
AM reacted to a post in a topic: Micropolyphone series
-
Stephane Boussuge reacted to a post in a topic: sending OSC data to MAX
-
janusz's work and support, bravo!!
-
vpolajnar reacted to a post in a topic: sending OSC data to MAX
-
here is the solution to send any data by OSC! a big thanks to janusz who made it for me/us!! now a wide variety of externals can be controlled via OSC, in any format... (not only reaktor) (defun osc-send (&rest args) (let* ((host #(127 0 0 1)) ;; host (port 7500) ;; port (s (usocket:socket-connect host port :protocol :datagram :element-type '(unsigned-byte 8))) (b (apply' osc:encode-message args))) (format t "sending to ~a on port ~A~%~%" host port) (unwind-protect (usocket:socket-send s b (length b)) (when s (usocket:socket-close s))))) (osc-send "/player" "120" 1 1 1) (osc-send "/beat" "defer" 0 "duration" 1 "pattern" 12)
-
i know. but the question is/was, how it could work without eval each time. i would like to put my function in my library, so "EVAL again" is not a solution - that's the idea of DEFUN
-
that's the code (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)
-
it's not a problem with live-coding - cc-messages are sended perfectly, but... but, when i try to evaluate a few times, the error comes up - it seems to me to be a problem with "controllers" inside a new function => when i evaluate for the second time it's always: Error: Controllers must be alternating names/numbers and values. i have no idea, why this is a problem when doing more the 1 eval...
-
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é
-
AM reacted to a post in a topic: length-modify
-
welcome
- 3 replies
-
- gen-fragment
- orchestra
-
(and 3 more)
Tagged with:
-
JulioHerrlein reacted to a post in a topic: append item to all sublists
-
Stephane Boussuge reacted to a post in a topic: append item to all sublists
-
opmo reacted to a post in a topic: change randomly lengths to rests