Jump to content

ajf-

Members
  • Content Count

    15
  • Joined

  • Last visited

About ajf-

  • Rank
    Junior Member

Profile Information

  • Gender
    Male
  • Location
    Valparaiso, Chile
  • Interests
    Music, Lisp, Python, Ecmascript

Recent Profile Visitors

4,311 profile views
  1. ajf-

    ajf-

  2. Here is my study about the klangreihen: (defparameter tempo 60) (defparameter title "Klangreihen Study") ;;; This object takes care of setting and getting of parts (defclass study-score () ((instruments :initarg :instruments :initform 0) (duration :initarg :duration :initform 0) (parts))) ;;; When initializing, fill it with an empty model for parts (array of size N) (defmethod initialize-instance :after ((score study-score) &key) (let ((instruments (slot-value score 'instruments ))) (setf (slot-value score 'parts) (make-arr
  3. Thank you, I just learned that
  4. I'm making a score with 16 instruments. A metronome of drums and whistles (kind of conga rythm...) sounds. It does not sound when instrument count is low. Maybe it's a default MIDI setting? Note: This happens using: (live-coding-midi (compile-score 'score))
  5. Would anyone know how to disable the "Bells & Whistles" metronome while playing several instruments? Thank you
  6. I saw the update. This is great! I'm very glad I could contribute.
  7. "Dominik Šedivý: Serial Composition and Tonality" is mentioned several times in the function examples as further reading. I live in a place where books take 3 - 4 months to get here. Can I buy this book as an ebook? Thank you
  8. Here is a function that converts hertz to midi: (defun hertz-to-midi (frequency) "Gets the corresponding MIDI value from a Hertz frequency" (round ;; https://en.wikipedia.org/wiki/MIDI_Tuning_Standard#Frequency_values ;; d = 69 + 12*log2(f/440Hz) (+ 69 (* 12 (log (/ frequency 440) 2))))) This allows two more useful functions to be made: (defun hertz-to-integer (frequency) "Gets the corresponding pitch integer value from a Hertz frequency" (let ((*standard-output* (make-broadcast-stream))) ; Override fu
  9. In all the examples, the score has the instruments readily defined by the programmer: (def-score (:score-prop score-val ...) (instrument-1 :instrument-prop instrument-val ...) (instrument-2 :instrument-prop instrument-val ...) ) What I have been wondering is can I dynamically create these instruments, allowing for proper reference in :layout afterwards, etc. For example, if I wanted 10 instruments: (defun my-generate-instrument ...) ;; something (def-score (:score-prop score-val ...)
  10. I am really sorry, I really don't want to oblige and your support has been great, but it seems I'm having more trouble. I hope this is not just me being a dummy and it helps in some way: 1- asdf:*central-registry* keeps pointing to /Users/opusmodus. No big deal, I added a setf in ~/.ccl-init.lisp that configures it. Manually downloaded the libraries that are referenced by it (cl-store, alexandria, xmls, cl-ppcre, cl-interval -- no idea about "quantizers"). 2- Installing drakma fails at usocket because Opmo can't find the CCL interfaces: https://gist.gith
  11. That, at least, doesn't give any errors: > (unless (find-package "QUICKLISP") (when (probe-file "~/quicklisp/setup.lisp") (load "~/quicklisp/setup"))) nil What should I do from here? Thank you!
  12. That gives the correct result: > (user-homedir-pathname) #P"/Users/ajf-/" Please don't hesitate to ask any sort of information from me to find a solution. I'll be happy to provide with whatever you need. Thank you
  13. Thank you for your ultra quick reply I really appreciate that. Doing that yields: > (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" "/Users/ajf-/"))) (when (probe-file quicklisp-init) (load quicklisp-init))) ; Warning: loading dependencies of #<system "quicklisp"> completed without its input file #P"/Users/opusmodus/quicklisp/quicklisp/quicklisp.asd" ; While executing: #<standard-method asdf/action:compute-action-stamp (t asdf/operation:operation asdf/component:component)>, in process Liste
×
×
  • Create New...