James Hearon | 16 Apr 20:34 2014
Picon

channels

cm clm s7

Hi,
I'm getting confused over :channels 2 for with-sound and stereo output.  I was thinking to get stereo output I just needed to add the :channels 2 argument to with-sound if out-any is used in the instrument. 

Seems like I can only get one channel (one side) with :channels 2.  If I use :channels 1 I get dual mono (two sides).

If I try Fernando's move-osc with locsig the sound pans and I can see two channels using Snd as editor.  But for examp2 below, I just get one channel.

I'm wondering where I might be getting confused.

Thanks,
Jim


 (definstrument (move-osc beg dur freq amp
 (degree 0.0) (dist 1.0) (reverb 0.03))
  (let* ((start (seconds->samples beg))
        (end (seconds->samples (+ beg dur)))
         (car (make-oscil :frequency freq))
         (loc (make-locsig :degree degree :distance dist :channels 2))
     (pan-env (make-env '(0 0 1 90) :duration dur)))
   
     (do ((i start (+ i 1)))
     ((= i end))
       (let ((ut (* amp (oscil car))))
     (move-locsig loc (env pan-env) dist)
         (locsig loc i ut)))))


(with-sound (:output "test.wav" :srate 48000 :channels 2
                     :data-format mus-lshort
                     :header-type  mus-riff)
   (move-osc    0    3    220.0    0.75  0 1.0 0.3))

;;-------------------------------------------------

(definstrument (examp2 beg dur frequency amplitude)
  (let* ((start (seconds->samples beg))
        (end (seconds->samples (+ beg dur)))
     (sine-wave (make-oscil :frequency frequency)))
     (do ((i start (+ i 1)))
     ((= i end))
       (outa i (* amplitude (oscil sine-wave))))))

(with-sound (:output "test2.wav" :srate 48000 :channels 2
                     :data-format mus-lshort
                     :header-type  mus-riff)
   (examp2    0    3    220.0    0.75))

_______________________________________________
Cmdist mailing list
Cmdist@...
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
Heinrich Taube | 21 Mar 17:49 2014

web site update

I've update the cm website to html5 and started a music section :) right now I've added some pieces of mine,
but id really like to add music from whoever wants to submit pieces made with cm/clm. the format can be audio
or video, scores, etc.
if you would like to contribute some of your work, new or old, please let me know

http://commonmusic.sourceforge.net/

--rick
Bill Schottstaedt | 17 Mar 21:38 2014
Picon

Snd 14.5

Snd 14.5:

CLM: Lispworks port thanks to Anders Vinjar.

many internal changes (13 Mbytes in the changelog), 
  but none visible, I hope.

checked: gtk 3.11.6|7|8, sbcl-1.1.16

Thanks!: Rick, Anders, Tito Latini.
James Hearon | 11 Mar 23:03 2014
Picon

cm 3.9 kde desktop

Hi,
I got a fedora build of cm 3.9, but am having a KDE issue since the fedora20 upgrade.

>>> Error: load file "/home/fedora2/Object::connect: No such signal org::freedesktop::UPower::DeviceAdded(QDBusObjectPath)
Object::connect: No such signal org::freedesktop::UPower::DeviceRemoved(QDBusObjectPath)" does not exist.

The error shows thru the Grace console, and is a KDE problem but renders the file editing in Grace such as .scm  and .sal files useless.  Doesn't show some text and won't allow you to enter text.  Nasty problem.

CM 3.9 is working fine on Mac and on my f20 with gnome desktop however, so just thought I'd post this here and see on the off chance if there might be another KDE user who's figured out the UPower, or ibus, or dbus problem.

I just just went thru a bunch of KDE upgrades and was hoping that would do it but no joy.

Regards,
Jim
_______________________________________________
Cmdist mailing list
Cmdist@...
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
Heinrich Taube | 8 Mar 14:34 2014

CM 3.9.0 released

CM 3.9.0 is now available, for the mac version you can get it for free on the iTunes Mac App Store ;)
links for downloads on cm's new homepage:

http://commonmusic.sourceforge.net/	

best, rick
Tito Latini | 20 Feb 18:13 2014
Picon

standard input EOF in console app s7

s7> [Ctrl-d]
s7>
s7>
s7>
s7>
... forever ...

[Ctrl-c]

GUI side: if a grace-ful musician accidentally clicks on the
executable, the loop continues to write "\ns7> " in background.

diff -ur cm~/src/s7.cpp cm/src/s7.cpp
--- cm~/src/s7.cpp	2014-02-20 16:46:11.069524177 +0100
+++ cm/src/s7.cpp	2014-02-20 16:46:25.488342908 +0100
 <at>  <at>  -37,7 +37,7  <at>  <at> 
   std::string str;
   try 
   {
-    while (true)
+    while (std::cin)
     {
       std::cout << "\ns7> ";
       str = "";

s7 <<< :ok
s7> :ok
s7> Bye!
Tito Latini | 20 Feb 10:38 2014
Picon

explicit linking to dynamic loader for s7

Hello,

my linux distro is slackware-14.1 (patched to fix a regression in
glibc-2.17) with gcc-4.8.2.

Grace r2141 compiled with success after

diff -ur cm~/premake4.lua cm/premake4.lua
--- cm~/premake4.lua	2014-02-19 16:03:18.000000000 +0100
+++ cm/premake4.lua	2014-02-20 10:13:54.085701439 +0100
 <at>  <at>  -150,7 +150,7  <at>  <at> 
    configuration("macosx")
    linkoptions({"-framework CoreAudio", "-framework CoreFoundation", "-framework CoreMidi"})
    configuration("linux")
-   links({"asound"})   
+   links({"asound", "dl"})   
    configuration("windows")
    links({"winmm"})
    linkoptions({"/nodefaultlib:libcmt.lib"}) -- stop libcmt.lib from complaining

tito
Tito Latini | 19 Feb 18:10 2014
Picon

Snd Motif crash without a default for listener-font

Hi,

the follow sequence is good:

(set! (listener-font) "9x15")
(load-from-path "snd-motif.scm")

but it fails:

;(set! (listener-font) "9x15")
(load-from-path "snd-motif.scm")

a boolean/string qui pro quo:

diff -ur snd-14~/snd-motif.scm snd-14/snd-motif.scm
--- snd-14~/snd-motif.scm	2014-02-19 12:29:54.000000000 +0100
+++ snd-14/snd-motif.scm	2014-02-19 17:34:01.529931252 +0100
 <at>  <at>  -1322,7 +1322,10  <at>  <at> 
   ;; graphics stuff (fonts etc)
   (let*  ((gv (XGCValues))
 	  (shell ((main-widgets) 1))
-	  (button-fontstruct (XLoadQueryFont (XtDisplay shell) (or (listener-font) "9x15"))))
+	  (button-fontstruct (XLoadQueryFont (XtDisplay shell)
+                                             (if (string=? (listener-font) "")
+                                                 "9x15"
+                                                 (listener-font)))))
     (set! (.foreground gv) *data-color*)
     (set! (.background gv) *basic-color*)
     (if (and button-fontstruct (.fid button-fontstruct))

tito
Bill Schottstaedt | 16 Feb 00:06 2014
Picon

CLM in LispWorks!

Anders Vinjar has ported CLM to LispWorks!  I made a new
ccrma-ftp clm-4 tarball.  I was in the midst of other stuff and 
may have left print statements dangling around -- will check
by tomorrow certainly.  Thanks a million, Anders!
Dave Phillips | 13 Feb 17:58 2014
Picon

CM/Grace problem

Greetings,

Compiled a git pull from this morning, everything seems fine until I 
open bin/Grace (see error report below). Did I forget something ?

Best,

dp

 >>> Error: define-macro: syntactic keywords (such as unless) tend to 
behave badly if redefined
(define-macro (unless arg . body) ({list} 'if ...
(define-macro (unless arg . body) ({list} 'if ...

 >>> Error: string->keyword: unbound variable
key-parse-clause: (string->keyword (symbol->st... ; var: key
key-parse-clause: ((key (string->keyword (symb...
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-19
                                                    ; args: {args}-17
                                                    ; argn: {argn}-18
                                                    ; user: args
                                                    ; data: (({key}-14 
key #f) ({start...
(define-expansion (with-optkeys spec . body) (...

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: for
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-28
                                                    ; args: {args}-26
                                                    ; argn: {argn}-27
                                                    ; user: args
                                                    ; data: (({for}-24 
for #f) ({limit...
(define (reset-period obj) (if (not (pattern? ...

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: tempo
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-33
                                                    ; args: {args}-31
                                                    ; argn: {argn}-32
                                                    ; user: args
                                                    ; data: (({tempo}-29 
tempo 60.0) (...
(define (decimals value places) (let ((n (expt...

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: fund
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-40
                                                    ; args: {args}-38
                                                    ; argn: {argn}-39
                                                    ; user: args
                                                    ; data: (({fund}-34 
fund 1) ({inve...

 >>> Error: make-eq-hash-table: unbound variable
(make-eq-hash-table)
(define *rules* (make-eq-hash-table))

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: out
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-45
                                                    ; args: {args}-43
                                                    ; argn: {argn}-44
                                                    ; user: args
                                                    ; data: (({out}-41 
out #f) ({in}-4...
(define mm:bend 14)

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: clefs
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-49
                                                    ; args: {args}-47
                                                    ; argn: {argn}-48
                                                    ; user: args
                                                    ; data: (({clefs}-46 
clefs '()))
(define (fms:make-clef . args) (vector 'clef a...

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: secs
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-57
                                                    ; args: {args}-55
                                                    ; argn: {argn}-56
                                                    ; user: args
                                                    ; data: (({secs}-52 
secs 0) ({metr...
(define* (make-metro tempo) (if (or (not (numb...

 >>> Error: make-equal-hash-table: unbound variable
(make-equal-hash-table)
(define *plot-hooks* (make-equal-hash-table))

 >>> Error: string->keyword: unbound variable
(string->keyword (symbol->string var))            ; var: window
((key (string->keyword (symbol->string var))))
((keyc (map (lambda (d) (key-parse-clause d mo... ; mode: {keyp}-68
                                                    ; args: {args}-66
                                                    ; argn: {argn}-67
                                                    ; user: args
                                                    ; data: 
(({window}-59 window #f) (...
(define (state auto . all) (define (readstate ...

Grace - Graphical Realtime Algorithmic Composition Environment
(c) 2014 University of Illinois Board of Trustees.
JUCE v3.0.2 (c) 2014 Julian Storer
S7 Scheme 3.4 (22-Jan-14), Sndlib 23 (c) 2014 William Schottstaedt
oscpack 1.1.0 (c) 2014 Ross Bencina
FOMUS 0.1.18-alpha (c) 2014 David Psenicka
SDIF 3.11.4 (c) 2014 IRCAM

  /\\\
---\\\---------
----\\\--------
----/\\\------- Common Music 3.9.0
---/--\\\------
--/----\\\-----
  /      \\\/
Bill Schottstaedt | 11 Feb 21:41 2014
Picon

Snd 14.4

Snd 14.4: 

Mike Scholz updated sndins.c.

s7: changed lambda* arg handling slightly to mimic CL.
    added when and unless (for r7rs; these were macros).

CLM: Frank Zalkow donated lw-all.lisp.

checked: gtk 3.11.4|5, sbcl 1.1.15.

Thanks!: Rick, Mike, Frank Zalkow, James Hearon.

Just for your amusement, some timings:

  version     12.x  13.0  14.4

  snd-test     359   275  39.7  (no gui)
  s7test      1721  1358   974  (hard to optimize)
  make-index 44300  3291  1382  (hooray for char-position)
  t455|6       265    89   5.2  (the s7.html torture tester)
  t502          90    43  13.6  (pure clm)
  bench      42736  8752  3447  (the standard Gabriel tests)
  lat          229    63  30.4  (old-style academistry)

These are callgrind numbers.  Currently if you're running the 
gtk Snd, nearly all the time is going to gtk and cairo.

Gmane