Jump to content

o_e

Members
  • Posts

    217
  • Joined

  • Last visited

Everything posted by o_e

  1. Thanks! There is one more thing I don't get, pitch-transpose seems to change the rhytm somehow or do I miss again something : (setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) ;also tried ratios- same result (setf pit (span rhy line2)) (setf pit2 (make-omn :length rhy :pitch pit)) (setf pit2a (pitch-transpose 2 pit2))
  2. Hi, What I want is the first pict: What I get, when I use this: (setf rhy '(e e 3q = = tie e e)) is seen in the second pict, what am I missing? Ok, I found the solution, writing 3q 3q 3q instead of 3q = = But then I stumbeled over the next problem, how can I use span with such tied rhymths? What I want is this: what I get with span is this: (setf line '(( c4 d4 e4 f4)( g4 a4))) (setf rhy '(e e tie 3q 3q 3q tie e e tie 3q tie 3q 3q)) (setf pit (span rhy line)) (make-omn :length rhy :pitch pit)
  3. Hi, When I constrain the ambitus range to be smaller than an octave, I do not understand exactly on which axis the pitches are inverted, when I use :type :invert it is clear, but what does the default transpose type? Thanks! (setf range '((q c4 cs4 d4 ds4 e4 f4 fs4 g4 gs4 a4 bb4 b4 c5))) (setf amb2 (ambitus '(c4 a4) range )) (merge-voices range amb2)
  4. Thanks for the quick answer! It's all in the doc- file but I overlooked it
  5. Hi, How do I point :methods and :global-methods to my own def-unfold-set instead of the default one? (counterpoint patterns '(((- 2 3 -)) ((4 * * 6)) ((1 - - 2)) ((5 6 1 2))) :index 'voice :global-polyphony '((1 p) (2 o) (10 o) (11 o)) :iterate t :global-methods '((fl) (cl) (hn) (vc))) Thanks!
  6. Thanks for you efforts of completely rewriting the function! This will serve me well as a model of how to use let*..!
  7. I've tried to get an overview of which pitches are used how many times in a stem: (plot-pcs-distr '((q c3 c3 d4 f5)(e fs2 fs2 fs2 fs2 fs2 gs4)))
 ==>((0 2) (1 0) (2 1) (3 0) (4 0) (5 1) (6 5) (7 0) (8 1) (9 0) (10 0) (11 0)) so I can see at a glance there are 2 c's, zero cis's, one d and so forth.. and the plot:
  8. Here is what I've hacked together, thanks for looking into it: (defun plot-pcs-distr (x) (progn (setf c (list (count '0 (flatten (get-pcs x))))) (setf cs (list (count '1 (flatten (get-pcs x))))) (setf d (list (count '2 (flatten (get-pcs x))))) (setf ds (list (count '3 (flatten (get-pcs x))))) (setf e (list (count '4 (flatten (get-pcs x))))) (setf f (list (count '5 (flatten (get-pcs x))))) (setf fs (list (count '6 (flatten (get-pcs x))))) (setf g (list (count '7 (flatten (get-pcs x))))) (setf gs (list (count '8 (flatten (get-pcs x))))) (setf a (list (count '9 (flatten (get-pcs x))))) (setf bb (list (count '10 (flatten (get-pcs x))))) (setf b (list (count '11 (flatten (get-pcs x))))) (setf all (append c cs d ds e f fs g gs a bb b)) (setf liste (loop for x in all for y in '(c cis d dis e f fis g gis a bes b) collect (list x y))) (sort liste #'< :key #'first) (setf liste-plot (loop for i in all for j in '(0 1 2 3 4 5 6 7 8 9 10 11) collect (list j i))) (xy-plot liste-plot :join-points t :point-radius 2 :style :fill :point-style :square) ))
  9. Hi, When I write functions and make use of setf's, I get the brown colored warning: Undeclared free variable This becomes a problem, when I'd like to put the function into the extensions folder. How can I remedy this? Thanks!
  10. Hi, Is there a setting for displaying code? I have this snippet and would like to have also a natural sign for clarity in the third bar: (c5g5) (d5f5) (e5eb5)
  11. Hi, I'am typesetting a score, this is bar 50: #|50|# (e^h d2 a2c3 - f2c3 tie) when I rightclick snippet notation it looks like the second pict, but when I use ps bar 50 looks like in the first pict. What am I missing? found the fault myself, sorry for the noise
  12. Hi, What am I missing? (pitch-demix '(3 2) '(c3e4g5b6 d3f4a5c6 e3g4b5d6)) =>(e4 f4 g4) I would expect this: =>((e4 f4 g4)(g5 a5 b5)) thanks for an answer!
  13. Hi, it says in the doc of vector-to-velocity that the default is float values, but when I evaluate (setf vel (vector-to-velocity 0.1 0.9 (gen-integer 1 16))) =>(pppp pppp ppp pp pp p mp mp mf mf f ff ff fff ffff ffff) I get symbols, when I use (setf vel (vector-to-velocity 0.1 0.9 (gen-integer 1 16):type :float)) =>(0.1 0.15 0.21 0.26 0.31 0.37 0.42 0.47 0.53 0.58 0.63 0.69 0.74 0.79 0.85 0.9) everything is fine, just want to mention it. best ole
  14. Hi Julio, hi Stéphane, I've try to follow.. @Stèphane: I'am missing 'remove-nils', are you willing to share it? best ole
  15. Hi Julio, I've watched the video above, from 1'28 and then decide to make a small gif to make the point& click feature more clear: best! ole
  16. It is not about making changes, it is about to spot the right place immediately very quick (in a larger score), which can be hard :-)
  17. I don't think Lilypond is graphical oriented And when I remember it correctly that 'point& click' thing also works with Apples own 'Preview'..
  18. Hi, I've never got a feedback to my old thread. Now I'am working again with Lilypond and find that 'Point& click' feature again so useful!! AFAIK Lilypond is written in scheme which is a lisp derivat, is'nt it, so the chances must be good to implement this..? best ole
  19. After restarting OM it works fine here too, can I see from the error warning if it's worth to restart the program.. ( I discovered it more accidentally that a restart helps)?
  20. Hi, When I use omn-to-time-signature with (4 4), everything is fine: (setf test '(w fs5 q. e5 d5 q c5 e c5 h. b4 e a4 h a4 e q. gs4 q. gs4 e fs4 h e4 h e4 q. d4 e c4 h c4 e e fs5 q e5 e e5 q. d5 h c5)) (omn-to-time-signature test '(4 4)) =>((w fs5) (q. e5 d5 q c5) (e c5 h. b4 e a4) (h a4 e q. gs4) (q. gs4 e fs4 h e4) (h e4 q. d4 e c4) (h c4 e e fs5 q e5) (e e5 q. d5 h c5)) but when I use (5 4)or (3 4): (omn-to-time-signature test '(5 4)) => when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-3(38). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. (omn-to-time-signature test '(3 4)) => when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-3(38). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. so, what I'am missing..? Thanks!
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy