From b0ef at esben-stien.name  Tue Aug  1 20:34:43 2006
From: b0ef at esben-stien.name (Esben Stien)
Date: Wed, 02 Aug 2006 05:34:43 +0200
Subject: [CM] Play Head (SND-8.3)
Message-ID: <87hd0vdd4c.fsf@esben-stien.name>

Any way to get a play head inside SND?. 

-- 
Esben Stien is b0ef at e     s      a             
         http://www. s     t    n m
          irc://irc.  b  -  i  .   e/%23contact
           sip:b0ef@   e     e 
           jid:b0ef@    n     n



From b0ef at esben-stien.name  Tue Aug  1 20:36:29 2006
From: b0ef at esben-stien.name (Esben Stien)
Date: Wed, 02 Aug 2006 05:36:29 +0200
Subject: [CM] Exploding Tarball
Message-ID: <87d5bjdd1e.fsf@esben-stien.name>

It would be nice if the released tarballs could explode to the same
name, f.ex snd-8.3.tar.gz would explode to snd-8.3.

-- 
Esben Stien is b0ef at e     s      a             
         http://www. s     t    n m
          irc://irc.  b  -  i  .   e/%23contact
           sip:b0ef@   e     e 
           jid:b0ef@    n     n



From bil at ccrma.Stanford.EDU  Wed Aug  2 04:10:29 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Wed, 2 Aug 2006 04:10:29 -0700
Subject: [CM] Play Head (SND-8.3)
In-Reply-To: <87hd0vdd4c.fsf@esben-stien.name>
References: <87hd0vdd4c.fsf@esben-stien.name>
Message-ID: <20060802110642.M8200@ccrma.Stanford.EDU>

> Any way to get a play head inside SND?. 

I haven't heard the term "play head" in this context, but I assume
it refers to where the playing starts?  That's the first argument
to the play function.  There are a variety of functions scattered
around to (e.g.) play from the cursor, pause and pick up, etc.
You can bind these to any key -- there are examples in the
manual.



From b0ef at esben-stien.name  Wed Aug  2 06:46:54 2006
From: b0ef at esben-stien.name (Esben Stien)
Date: Wed, 02 Aug 2006 15:46:54 +0200
Subject: [CM] Play Head (SND-8.3)
In-Reply-To: <20060802110642.M8200@ccrma.Stanford.EDU> (Bill Schottstaedt's
 message of "Wed, 2 Aug 2006 04:10:29 -0700")
References: <87hd0vdd4c.fsf@esben-stien.name>
	<20060802110642.M8200@ccrma.Stanford.EDU>
Message-ID: <87r6zzb67l.fsf@esben-stien.name>

"Bill Schottstaedt" <bil at ccrma.Stanford.EDU> writes:

> I assume it refers to where the playing starts?

I mean a "line" that follows the current position being played. It
moves along the x axis as the file is being read;).

-- 
Esben Stien is b0ef at e     s      a             
         http://www. s     t    n m
          irc://irc.  b  -  i  .   e/%23contact
           sip:b0ef@   e     e 
           jid:b0ef@    n     n



From nolv at free.fr  Wed Aug  2 05:11:34 2006
From: nolv at free.fr (=?ISO-8859-1?Q?Olivier_Doar=E9?=)
Date: Wed, 02 Aug 2006 14:11:34 +0200
Subject: [CM] Play Head (SND-8.3)
In-Reply-To: <87r6zzb67l.fsf@esben-stien.name>
References: <87hd0vdd4c.fsf@esben-stien.name>	<20060802110642.M8200@ccrma.Stanford.EDU> <87r6zzb67l.fsf@esben-stien.name>
Message-ID: <44D09676.603@free.fr>

Hi,
Try to run snd with snd_conffile.scm (a scheme configuration file 
located in the source dir):

snd -l /path/to/snd_conffile.scm

You can then look at how it has been done in the file.
Personally, i edited this file to my taste (and learned scheme at the 
same time).

--
Olivier



Esben Stien a ?crit :
> "Bill Schottstaedt" <bil at ccrma.Stanford.EDU> writes:
> 
> 
>>I assume it refers to where the playing starts?
> 
> 
> I mean a "line" that follows the current position being played. It
> moves along the x axis as the file is being read;).
> 



From bil at ccrma.Stanford.EDU  Wed Aug  2 06:48:31 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Wed, 2 Aug 2006 06:48:31 -0700
Subject: [CM] Play Head (SND-8.3)
In-Reply-To: <87r6zzb67l.fsf@esben-stien.name>
References: <87hd0vdd4c.fsf@esben-stien.name> <20060802110642.M8200@ccrma.Stanford.EDU> <87r6zzb67l.fsf@esben-stien.name>
Message-ID: <20060802134753.M94999@ccrma.Stanford.EDU>

> I mean a "line" that follows the current position being played. It 
> moves along the x axis as the file is being read;). 

Oh -- check out with-tracking-cursor and tracking-cursor-style.



From kjetil at ccrma.Stanford.EDU  Wed Aug  2 12:16:41 2006
From: kjetil at ccrma.Stanford.EDU (Kjetil S. Matheussen)
Date: Wed, 2 Aug 2006 21:16:41 +0200 (CEST)
Subject: [CM] Re: Play Head (SND-8.3)
In-Reply-To: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu>
References: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu>
Message-ID: <Pine.LNX.4.64.0608022112370.5420@ttleush>

=?ISO-8859-1?Q?Olivier_Doar=E9?=:
>
> Hi,
> Try to run snd with snd_conffile.scm (a scheme configuration file
> located in the source dir):
>
> snd -l /path/to/snd_conffile.scm
>
> You can then look at how it has been done in the file.
> Personally, i edited this file to my taste (and learned scheme at the
> same time).
>

Wow, you learned scheme by looking at my code?!
Concidering the readability of my code, I'm deeply impressed by your 
achievement. :-)



From nolv at free.fr  Wed Aug  2 13:22:31 2006
From: nolv at free.fr (=?ISO-8859-1?Q?Olivier_Doar=E9?=)
Date: Wed, 02 Aug 2006 22:22:31 +0200
Subject: [CM] Re: Play Head (SND-8.3)
In-Reply-To: <Pine.LNX.4.64.0608022112370.5420@ttleush>
References: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu> <Pine.LNX.4.64.0608022112370.5420@ttleush>
Message-ID: <44D10987.2070100@free.fr>

Kjetil S. Matheussen a ?crit :

> Wow, you learned scheme by looking at my code?!
> Concidering the readability of my code, I'm deeply impressed by your 
> achievement. :-)

Thanks! Indeed, it's true, i learned scheme just to modify your code! I 
was trying to obtain something that closely looks like Sound Forge in 
terms of functionality and useability. I would have prefered Ruby, but 
it lacks many stuff like ladspa.scm and it was harder to start from scratch.

I'll upload my own snd_confile.scm when it's ready (it is almost).

--
Olivier



> 
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
> 
> 



From bil at ccrma.Stanford.EDU  Wed Aug  2 16:53:22 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Wed, 2 Aug 2006 16:53:22 -0700
Subject: [CM] Re: Play Head (SND-8.3)
In-Reply-To: <44D10987.2070100@free.fr>
References: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu> <Pine.LNX.4.64.0608022112370.5420@ttleush> <44D10987.2070100@free.fr>
Message-ID: <20060802234831.M16974@ccrma.Stanford.EDU>

> I was trying to obtain something that closely looks like Sound Forge

I'd like to include this in the Snd tarball, if possible -- others have
asked for such a package.  I haven't done much of the Ruby work,
since Mike is so good at it, and I am a beginner, but I could probably
handle ladspa.rb -- I'll look at it tomorrow.

Another editor I've been asked about is cool edit (or what's-its-name
nowadays -- audition?).  I tried to get key binding info for it, but
both books I bought (touted as the greatest writing since King Lear)
had no usable information at all.  Lots of screen shots however.



From nolv at free.fr  Thu Aug  3 02:08:47 2006
From: nolv at free.fr (Olivier =?iso-8859-1?b?RG9hcuk=?=)
Date: Thu, 03 Aug 2006 11:08:47 +0200
Subject: [CM] Re: Play Head (SND-8.3)
In-Reply-To: <20060802234831.M16974@ccrma.Stanford.EDU>
References: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu> <Pine.LNX.4.64.0608022112370.5420@ttleush> <44D10987.2070100@free.fr> <20060802234831.M16974@ccrma.Stanford.EDU>
Message-ID: <1154596127.44d1bd1fc7681@imp1-g19.free.fr>

Selon Bill Schottstaedt <bil at ccrma.Stanford.EDU>:

> > I was trying to obtain something that closely looks like Sound Forge
>
> I'd like to include this in the Snd tarball, if possible -- others have
> asked for such a package.  I haven't done much of the Ruby work,
> since Mike is so good at it, and I am a beginner, but I could probably
> handle ladspa.rb -- I'll look at it tomorrow.

I would be so glad to see my conf file in the snd tarball! But note that since
it is a fork of Kjetil S. Matheussen's work and i am not fluent in scheme,
there are some portions of code i do not understand. Moreover, i noticed that
sometimes it gets broken when upgrading snd. This prevented me to share my code
with others, but i understand it could be very useful for many of us. So i'll
make an effort... maybe at the end of august you'll get a not too dirty scheme
file.

This is the right time to expose some problems i have to improve my code, if
something can be done from your side:
* Ctrl + mouse click works with buttons 1, 2, 3 but not with 4 and 5 (wheel). In
SoundForge the wheel zooms horizontally, and ctrl+wheel zooms vertically. Is it
a X, gtk, gtk-guile or a snd bug?
* I don't know how to handle double-click... is it possible?
* maybe others, i don't remember.


Best wishes,
--
Olivier



From bil at ccrma.Stanford.EDU  Thu Aug  3 04:54:12 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 3 Aug 2006 04:54:12 -0700
Subject: [CM] Re: Play Head (SND-8.3)
In-Reply-To: <1154596127.44d1bd1fc7681@imp1-g19.free.fr>
References: <20060802190003.18015.44525.Mailman@cm-mail.stanford.edu> <Pine.LNX.4.64.0608022112370.5420@ttleush> <44D10987.2070100@free.fr> <20060802234831.M16974@ccrma.Stanford.EDU> <1154596127.44d1bd1fc7681@imp1-g19.free.fr>
Message-ID: <20060803115239.M84363@ccrma.Stanford.EDU>

> * Ctrl + mouse click works with buttons 1, 2, 3 but not with 4 and 5 (wheel). In 
> SoundForge the wheel zooms horizontally, and ctrl+wheel zooms vertically. Is it 
> a X, gtk, gtk-guile or a snd bug? 
> * I don't know how to handle double-click... is it possible? 

In Snd, a mouse click can be handled with the mouse-click-hook:

  (add-hook! mouse-click-hook (lambda (snd chn button state x y axis) ...))

where "button" is an integer, and "state" includes a bit (4) for the control
key.  So, (if (and (= button 5) (not (= (logand state 4) 0))) control-button-5-code)
There's nothing built into Snd regarding buttons 4 and 5.

Double clicks might be harder -- I don't think the mouse-click-hook has
an easy way to tell that the current event represents a double click.
You could get (and save) the event time, and look for a fast second
event, or go down a level and set up event handlers directly in Gtk or Motif.
Both toolkits have a double click time (milliseconds, if I remember
right) to distinguish between a double click and a fast sequence of single
clicks, and the event handler is passed the time of the mouse press.
This sounds like a good example for the manual...



From juanig at ccrma.Stanford.EDU  Thu Aug  3 16:55:02 2006
From: juanig at ccrma.Stanford.EDU (Juan I Reyes)
Date: Thu, 03 Aug 2006 19:55:02 -0400
Subject: [CM] Common Music doesn't start under xemacs
In-Reply-To: <fc8dcf96f7e6c8e14bfe7674104ae9b2@uiuc.edu>
References: <001d01c6ab8d$c2c7a4c0$9f4d02c4@IBMI>
	 <fc8dcf96f7e6c8e14bfe7674104ae9b2@uiuc.edu>
Message-ID: <1154649303.9125.12.camel@strawberry>

Thanks a lot Rick and Robert for the extra Xemacs cm.el lines. 

The CM-Slime interaction seems to be working fine now!

I am running Fernando's PlanetCCRMA Slime and SBCL under Xemacs version
21.4.19  on Linux FC-4. My ~/.xemacs/init.el settings are:

;;; Slime-CM-Interaction

(add-to-list 'load-path "/usr/share/slime/")
(add-to-list 'load-path "/usr/share/lisp/cm")
(load "etc/xemacs/cm.el")
(enable-cm-commands)

and everything seems to be working according to CM's new documentation
in particular the 'M-x cm' command and some of the evaluation features
of Slime that didn't work before.

  --* Juan Reyes

On Thu, 2006-07-20 at 07:08 -0500, Rick Taube wrote:
> robert ive folded your fix into the sources (rev 1.16 of cm.el). I 
> appreciate your help!
> 
> --rick
> 
> On Jul 19, 2006, at 6:47 PM, Robert Matovinovic wrote:
> 
> > [...] It took me some
> > hours, but now its working, and the changes are minor. 
> 





From taube at uiuc.edu  Fri Aug  4 04:29:21 2006
From: taube at uiuc.edu (Rick Taube)
Date: Fri, 4 Aug 2006 06:29:21 -0500
Subject: [CM] Common Music doesn't start under xemacs
In-Reply-To: <1154649303.9125.12.camel@strawberry>
References: <001d01c6ab8d$c2c7a4c0$9f4d02c4@IBMI> <fc8dcf96f7e6c8e14bfe7674104ae9b2@uiuc.edu> <1154649303.9125.12.camel@strawberry>
Message-ID: <e0c2c6bc95df074284d2eddeb1193874@uiuc.edu>

i checked in some more fixes last week (rev 1.17 of cm.el) that stop cm 
from "stepping" on the  value of slime's 'inferior-lisp-program' 
variable, and also to clear the slime connection hook each time so that 
cm's slime initalization wont happen if you start to a non-cm image.
the replcement variable for inferior-lisp-program is called  
'cm-progam', set it to the shell command that starts cm . if you dont 
set cm-program it will default to the value of inferior-lisp-program, 
or the string "cm" if inferior-lisp-program is its default (non-cm) 
value.



On Aug 3, 2006, at 6:55 PM, Juan I Reyes wrote:

> Thanks a lot Rick and Robert for the extra Xemacs cm.el lines.
>
> The CM-Slime interaction seems to be working fine now!
>
> I am running Fernando's PlanetCCRMA Slime and SBCL under Xemacs version
> 21.4.19  on Linux FC-4. My ~/.xemacs/init.el settings are:
>
> ;;; Slime-CM-Interaction
>
> (add-to-list 'load-path "/usr/share/slime/")
> (add-to-list 'load-path "/usr/share/lisp/cm")
> (load "etc/xemacs/cm.el")
> (enable-cm-commands)
>
> and everything seems to be working according to CM's new documentation
> in particular the 'M-x cm' command and some of the evaluation features
> of Slime that didn't work before.
>
>   --* Juan Reyes
>
> On Thu, 2006-07-20 at 07:08 -0500, Rick Taube wrote:
>> robert ive folded your fix into the sources (rev 1.16 of cm.el). I
>> appreciate your help!
>>
>> --rick
>>
>> On Jul 19, 2006, at 6:47 PM, Robert Matovinovic wrote:
>>
>>> [...] It took me some
>>> hours, but now its working, and the changes are minor.
>>
>
>
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From phnorris at verizon.net  Sat Aug  5 13:30:15 2006
From: phnorris at verizon.net (Pam & Harold Norris)
Date: Sat, 05 Aug 2006 16:30:15 -0400
Subject: [CM] snd 8.3
Message-ID: <44D4FFD7.2070100@verizon.net>

Hi,

I've been a silent reader of this list for quite a while.   Now I have a 
question.

I am not an expert with snd and don't really have the time to become one.

I am setting up a computer based system for recording our church 
services. I have 4 very well behaved sound cards and wish to record 8 
channels of realtime audio.  So far I have gotten 8 inputs and 8 
channels of audio being stored on the hard disk.

Where I am having a problem is assigning card 2 input 1 to output 3, 
card 4 input 2 to output 8  etc instead of having it go to output 1, or 
2.  It seems that snd assumes that I only have 2 outputs and sets up the 
system accordingly.  I can change it to do what I want it to do but I 
would like to set up my requirements in a startup file like 
.snd_prefs_guile.

Is there any way I can do this ??


Thanks


Harold



From bil at ccrma.Stanford.EDU  Sun Aug  6 04:18:02 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sun, 6 Aug 2006 04:18:02 -0700
Subject: [CM] snd 8.3
In-Reply-To: <44D4FFD7.2070100@verizon.net>
References: <44D4FFD7.2070100@verizon.net>
Message-ID: <20060806111435.M253@ccrma.Stanford.EDU>

I would take the recorded sound, and swap channels around, rather than
changing the recorder setup, but you can also set the volume of
each input channel as it is sent to any output channel using
recorder-in-amp.  To put what is (by default) channel 1 in channel 3 
instead,

(set! (recorder-in-amp 1 3) 1.0)
(set! (recorder-in-amp 1 1) 0.0)

I thought you could do this at initialization time, but when I tried
it today, it didn't work.  Until this bug is fixed, you can put all 
such settings in a function, and call that to start the recorder.

(define (start-recorder)
   (recorder-dialog) ; starts the recorder
   (set! (recorder-in-amp 1 3) 1.0)
  ;; etc
)



From phnorris at verizon.net  Sun Aug  6 14:54:59 2006
From: phnorris at verizon.net (Pam & Harold Norris)
Date: Sun, 06 Aug 2006 17:54:59 -0400
Subject: [CM] Re: Cmdist digest, Vol 1 #1004 - 2 msgs
In-Reply-To: <20060806190003.28661.86140.Mailman@cm-mail.stanford.edu>
References: <20060806190003.28661.86140.Mailman@cm-mail.stanford.edu>
Message-ID: <44D66533.6040604@verizon.net>

cmdist-request at ccrma.Stanford.EDU wrote:

>Message: 2
>From: "Bill Schottstaedt" <bil at ccrma.Stanford.EDU>
>To: Pam & Harold Norris <phnorris at verizon.net>, cmdist at ccrma.Stanford.EDU
>Subject: Re: [CM] snd 8.3
>Date: Sun, 6 Aug 2006 04:18:02 -0700
>
>I would take the recorded sound, and swap channels around, rather than
>changing the recorder setup, but you can also set the volume of
>each input channel as it is sent to any output channel using
>recorder-in-amp.  To put what is (by default) channel 1 in channel 3 
>instead,
>
>(set! (recorder-in-amp 1 3) 1.0)
>(set! (recorder-in-amp 1 1) 0.0)
>
>I thought you could do this at initialization time, but when I tried
>it today, it didn't work.  Until this bug is fixed, you can put all 
>such settings in a function, and call that to start the recorder.
>
>(define (start-recorder)
>   (recorder-dialog) ; starts the recorder
>   (set! (recorder-in-amp 1 3) 1.0)
>  ;; etc
>)
>
>  
>
Thanks for your help, Bill.

If I open the listener and type in each line i.e. (set! (recorder-in-amp 
1 3) 1.0) I can get the desired results.

HOWEVER, if I put them into a .scm file and load it with snd using the 
-l command, snd loads the file.  I then go into the listener and type in 
start-recorder <enter>
The listener displays all of the data within the file BUT DOES NOT do 
anything.

What am I doing wrong???

Also to respond to your first comment about swapping the channels 
around, I must have misstated what I really meant.

What I have when I start up SND and then hit the Record button is this:  
I have 4 sets of 2 channels including 2 vu meters.  Below that I have 
the output section which is 8 channels with 8 vu meters.  On the top I 
have 2 vu meters (the first sound card) labeled 1 and 2  below them are 
the 2 sliders also 1 to 1 gain 1 and 2 to 2  gain 1 the other gains are 
set to zero.  OK so far.  The next section down I have 2 more vu meters 
(the second sound card) labeled 1 and 2.  Just below these are 2 sliders 
also 1 to 1 gain 1 and 2 to 2  gain 1 the other gains are set to zero.  
What I need is to have these 2 outputs go to channels 3 and 4.  Below 
the second section is the third section exactly the same with the 
outputs going to channels 1 and 2 instead of 5 and 6.

What is happening is all sound cards (4 of them) are being mixed 
together instead of being kept separate.


Like I said above, your "fix" works just fine when I put each command 
into the listener, but I am unable to get to work any other way.

Harold

.





From bil at ccrma.Stanford.EDU  Sun Aug  6 17:26:24 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sun, 6 Aug 2006 17:26:24 -0700
Subject: [CM] Re: Cmdist digest, Vol 1 #1004 - 2 msgs
In-Reply-To: <44D66533.6040604@verizon.net>
References: <20060806190003.28661.86140.Mailman@cm-mail.stanford.edu> <44D66533.6040604@verizon.net>
Message-ID: <20060807002449.M85389@ccrma.Stanford.EDU>

> start-recorder <enter> 

I wonder if it's just that you need parentheses -- in Scheme, you'd call
the procedure by typing

(start-recorder)

I think if you just type its name, you'd get a listing of its source,
or something inscrutable.




From phnorris at verizon.net  Mon Aug  7 16:13:38 2006
From: phnorris at verizon.net (Pam & Harold Norris)
Date: Mon, 07 Aug 2006 19:13:38 -0400
Subject: [CM] Re: snd 8.3
In-Reply-To: <20060807002449.M85389@ccrma.Stanford.EDU>
References: <20060806190003.28661.86140.Mailman@cm-mail.stanford.edu>
 <44D66533.6040604@verizon.net> <20060807002449.M85389@ccrma.Stanford.EDU>
Message-ID: <44D7C922.5050802@verizon.net>

It needs to have the parentheses around the procedure to work.

I also discovered that it won't work UNLESS you have the record screen open.

Is that the way its suppose to work??

Thanks



Bill Schottstaedt wrote:

>>start-recorder <enter> 
>>    
>>
>
>I wonder if it's just that you need parentheses -- in Scheme, you'd call
>the procedure by typing
>
>(start-recorder)
>
>I think if you just type its name, you'd get a listing of its source,
>or something inscrutable.
>
>
>
>  
>



From bsack23 at gmail.com  Tue Aug  8 11:11:07 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Tue, 8 Aug 2006 14:11:07 -0400
Subject: [CM] problem starting cm 2.9.1
Message-ID: <2eb2318a0608081111l2b979490sd9758e56e741f79e@mail.gmail.com>

hi,
i downloaded the nightly snapshot to give spiffy new cm a try, and i'm
having a strange problem starting it up that was not present in
version 2.7and below:
i am using cmucl 19c
i ran cm.sh as root once, just to get everything compiled and in the right
place.
my .xemacs/init.el contains the following lines:

(add-to-list 'load-path "/usr/local/lisp/slime/")
(add-to-list 'load-path "/usr/local/lisp/cm/")
(load "etc/xemacs/cm.el")
(enable-cm-commands)

when i call cm as normal user thus:
/usr/local/lisp/cm/bin/cm.sh -l lisp -e xemacs -v

this is in my term window:
Command:     '/usr/bin/xemacs'  -eval '(progn (load
"/usr/local/lisp/cm/bin/../etc/xemacs/cm.el") (enable-cm-commands) (cm
"/usr/local/lisp/cm/bin/cm.sh -l /usr/local/bin/lisp" ))'

and the minibuffer in my xemacs says:
Searching for program: No such file or directory,
/usr/local/lisp/cm/bin/cm.sh -l /usr/local/bin/lisp

and that's it. what am i doing wrong?

thanks,
bill sack
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060808/f6de4f9b/attachment.html>

From bsack23 at gmail.com  Tue Aug  8 13:30:51 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Tue, 8 Aug 2006 16:30:51 -0400
Subject: [CM] cm tries to recompile rt.lisp on startup?
Message-ID: <2eb2318a0608081330m37a133baob916a9c685207d2@mail.gmail.com>

i can now start cm & slime in xemacs ... almost ...
on startup, cm tries to recompile rt.lisp for some reason. when running as
normal user that fails since my cm directory is not writable for normal
users - i can successfully start cm as root from emacs with 'M-x cm'

a suggestion - i'm having a hard time getting used to cm/slime - would it be
possible at some point to include a command-line switch that allows cm to
run as a emacs process without slime? i tried for a couple of hours today to
disable it by hacking around, but had no luck.

ohyeah, i'm using cmucl 19c, cm 2.9.1 from recent snapshot on fc3 linux

all best,
bill
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060808/20de81ba/attachment.html>

From taube at uiuc.edu  Tue Aug  8 16:20:08 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 8 Aug 2006 18:20:08 -0500
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <2eb2318a0608081330m37a133baob916a9c685207d2@mail.gmail.com>
References: <2eb2318a0608081330m37a133baob916a9c685207d2@mail.gmail.com>
Message-ID: <98f2c8a45764d21d345b6038a8988886@uiuc.edu>

hi you can run cm without slime:

1) comment out the slime loading lines in your .emacs
2) add the following lines to your .eamcs

    (require 'inf-lisp)
    (setq inferior-lisp-program "/path/to/cm/bin/cm.sh")

3) then restar emacs and do
	 M-x run-lisp



>  a suggestion - i'm having a hard time getting used to cm/slime - 
> would it be possible at some point to include a command-line switch 
> that allows cm to run as a emacs process without slime? i tried for a 
> couple of hours today to disable it by hacking around, but had no 
> luck.
>
>  ohyeah, i'm using cmucl 19c, cm 2.9.1 from recent snapshot on fc3 
> linux
>
>  all best,
>  bill



From taube at uiuc.edu  Tue Aug  8 17:53:45 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 8 Aug 2006 19:53:45 -0500
Subject: Fwd: [CM] cm tries to recompile rt.lisp on startup?
Message-ID: <2159328100ce67cfda3772b37e283279@uiuc.edu>

hmm not sure why this is happening.
try deleting the .fasl (somewhere under cm/bin) AND the .lisp file. 
that will re-generate and compile the file from the scheme sources.
one that happens hopefull it wont try to recompile again.
let me know if this fixes it please, else send me wha the file system 
things the write dates are of the files (.fasl, .lisp and .scm)

On Aug 8, 2006, at 3:30 PM, Bill Sack wrote:

> i can now start cm & slime in xemacs ... almost ...
>  on startup, cm tries to recompile rt.lisp for some reason. when 
> running as normal user that fails since my cm directory is not 
> writable for normal users - i can successfully start cm as root from 
> emacs with 'M-x cm'



From bsack23 at gmail.com  Tue Aug  8 18:44:24 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Tue, 8 Aug 2006 21:44:24 -0400
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <2159328100ce67cfda3772b37e283279@uiuc.edu>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu>
Message-ID: <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>

hello rick,
i deleted the rt.x86f and .lisp files - then re-compiled cm

here are the times for the files:
[root at t0ast cm]# ls -l bin/cmucl_19c_linux-i686/rt.*
-rw-r--r--  1 root 10766 10240 Aug  8 21:39 bin/cmucl_19c_linux-i686/rt.x86f

[root at t0ast cm]# ls -l src/rt.*
-rw-r--r--  1 root  10766 1736 Aug  8 21:39 src/rt.lisp
-rw-r--r--  1 32593 10766 1559 Jun  1 03:33 src/rt.scm

here is the error message while loading cm/slime ['M-x cm' as reg user]:
Error in function LISP::DO-OLD-RENAME:
   File "/usr/local/lisp/cm/bin/cmucl_19c_linux-i686/rt.x86f" is not
writable.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [CONTINUE] Try to rename it anyway.
  1: [RETRY   ] Retry performing #<ASDF:COMPILE-OP NIL {58BC881D}> on
                #<CM-SOURCE-FILE "rt" {58BC88C5}>.
  2: [ACCEPT  ] Continue, treating #<ASDF:COMPILE-OP NIL {58BC881D}> on
                #<CM-SOURCE-FILE "rt" {58BC88C5}> as having been successful.
  3:            Return NIL from load of
"/usr/local/lisp/cm/bin/../src/cm.lisp".
  4: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(LISP::DO-OLD-RENAME "/usr/local/lisp/cm/bin/cmucl_19c_linux-i686/rt.x86f"

"/usr/local/lisp/cm/bin/cmucl_19c_linux-i686/rt.x86f.BAK")
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:
  target:code/fd-stream.lisp.
0]

whichever of these options i try, the connection to slime is never made.

thanks for the tip re: starting cm w/out slime.

-bill

On 8/8/06, Rick Taube <taube at uiuc.edu> wrote:
>
> hmm not sure why this is happening.
> try deleting the .fasl (somewhere under cm/bin) AND the .lisp file.
> that will re-generate and compile the file from the scheme sources.
> one that happens hopefull it wont try to recompile again.
> let me know if this fixes it please, else send me wha the file system
> things the write dates are of the files (.fasl, .lisp and .scm)
>
> On Aug 8, 2006, at 3:30 PM, Bill Sack wrote:
>
> > i can now start cm & slime in xemacs ... almost ...
> >  on startup, cm tries to recompile rt.lisp for some reason. when
> > running as normal user that fails since my cm directory is not
> > writable for normal users - i can successfully start cm as root from
> > emacs with 'M-x cm'
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060808/6f4a68fc/attachment.html>

From taube at uiuc.edu  Tue Aug  8 19:32:51 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 8 Aug 2006 21:32:51 -0500
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu> <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>
Message-ID: <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu>

ive not seen this before. does clisp and or sbcl give you the same 
errors??

On Aug 8, 2006, at 8:44 PM, Bill Sack wrote:

> hello rick,
>  i deleted the rt.x86f and .lisp files - then re-compiled cm
>
>  here are the times for the files:
>  [root at t0ast cm]# ls -l bin/cmucl_19c_linux-i686/rt.*
>  -rw-r--r--? 1 root 10766 10240 Aug? 8 21:39 
> bin/cmucl_19c_linux-i686/rt.x86f
>
> [root at t0ast cm]# ls -l src/rt.*
>  -rw-r--r--? 1 root? 10766 1736 Aug? 8 21:39 src/rt.lisp
>  -rw-r--r--? 1 32593 10766 1559 Jun? 1 03:33 src/rt.scm
>
>  here is the error message while loading cm/slime ['M-x cm' as reg 
> user]:
>  Error in function LISP::DO-OLD-RENAME:
>  ?? File "/usr/local/lisp/cm/bin/cmucl_19c_linux-i686/rt.x86f" is not 
> writable.
>  ?? [Condition of type SIMPLE-ERROR]
>
>  Restarts:
>  ? 0: [CONTINUE] Try to rename it anyway.
>  ? 1: [RETRY?? ] Retry performing #<ASDF:COMPILE-OP NIL {58BC881D}> on
>  ??????????????? #<CM-SOURCE-FILE "rt" {58BC88C5}>.
>  ? 2: [ACCEPT? ] Continue, treating #<ASDF:COMPILE-OP NIL {58BC881D}> 
> on
>  ??????????????? #<CM-SOURCE-FILE "rt" {58BC88C5}> as having been 
> successful.
>  ? 3:??????????? Return NIL from load of 
> "/usr/local/lisp/cm/bin/../src/cm.lisp".
>  ? 4: [ABORT?? ] Skip remaining initializations.
>
>  Debug? (type H for help)



From bsack23 at gmail.com  Wed Aug  9 08:12:30 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Wed, 9 Aug 2006 11:12:30 -0400
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu>
	 <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>
	 <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu>
Message-ID: <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com>

i haven't tried sbcl - is it the preferred lisp for cm and linux these days?

On 8/8/06, Rick Taube <taube at uiuc.edu> wrote:
>
> ive not seen this before. does clisp and or sbcl give you the same
> errors??
>
> On Aug 8, 2006, at 8:44 PM, Bill Sack wrote:
>
> > hello rick,
> >  i deleted the rt.x86f and .lisp files - then re-compiled cm
> >
> >  here are the times for the files:
> >  [root at t0ast cm]# ls -l bin/cmucl_19c_linux-i686/rt.*
> >  -rw-r--r-- 1 root 10766 10240 Aug 8 21:39
> > bin/cmucl_19c_linux-i686/rt.x86f
> >
> > [root at t0ast cm]# ls -l src/rt.*
> >  -rw-r--r-- 1 root 10766 1736 Aug 8 21:39 src/rt.lisp
> >  -rw-r--r-- 1 32593 10766 1559 Jun 1 03:33 src/rt.scm
> >
> >  here is the error message while loading cm/slime ['M-x cm' as reg
> > user]:
> >  Error in function LISP::DO-OLD-RENAME:
> >   File "/usr/local/lisp/cm/bin/cmucl_19c_linux-i686/rt.x86f" is not
> > writable.
> >   [Condition of type SIMPLE-ERROR]
> >
> >  Restarts:
> >   0: [CONTINUE] Try to rename it anyway.
> >   1: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {58BC881D}> on
> >   #<CM-SOURCE-FILE "rt" {58BC88C5}>.
> >   2: [ACCEPT ] Continue, treating #<ASDF:COMPILE-OP NIL {58BC881D}>
> > on
> >   #<CM-SOURCE-FILE "rt" {58BC88C5}> as having been
> > successful.
> >   3: Return NIL from load of
> > "/usr/local/lisp/cm/bin/../src/cm.lisp".
> >   4: [ABORT ] Skip remaining initializations.
> >
> >  Debug (type H for help)
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060809/0fe12d91/attachment.html>

From taube at uiuc.edu  Wed Aug  9 09:52:21 2006
From: taube at uiuc.edu (Rick Taube)
Date: Wed, 9 Aug 2006 11:52:21 -0500
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu> <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com> <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu> <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com>
Message-ID: <e7521a5160804992610000a4ffda19a1@uiuc.edu>

i gues sbcl is "preferred" over cmu if you want to do realtime.
but mainly i think asdf itself might run better in sbcl than cmu -- at 
leastt i need you to test in a non-cmu environment to see if the same 
problem occurs...

--rick



From bsack23 at gmail.com  Wed Aug  9 09:58:51 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Wed, 9 Aug 2006 12:58:51 -0400
Subject: [CM] cm tries to recompile rt.lisp on startup?
In-Reply-To: <e7521a5160804992610000a4ffda19a1@uiuc.edu>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu>
	 <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>
	 <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu>
	 <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com>
	 <e7521a5160804992610000a4ffda19a1@uiuc.edu>
Message-ID: <2eb2318a0608090958j2779c84ckfdd09536daa351f7@mail.gmail.com>

yeah, i installed sbcl and re-did everything - so far it's fine - seems like
it loads a lot faster than cmu, too.

so now i can start xemacs and have my choice of cm w/ or w/out slime. the
sun is shining, the cicadas are singing, life is good. time to write some
music.

thanks for your help!
bill

On 8/9/06, Rick Taube <taube at uiuc.edu> wrote:
>
> i gues sbcl is "preferred" over cmu if you want to do realtime.
> but mainly i think asdf itself might run better in sbcl than cmu -- at
> leastt i need you to test in a non-cmu environment to see if the same
> problem occurs...
>
> --rick
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060809/ac24873a/attachment.html>

From bsack23 at gmail.com  Wed Aug  9 13:17:07 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Wed, 9 Aug 2006 16:17:07 -0400
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
Message-ID: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>

hi again,
i just noticed that when using some of the more exotic cmn clefs in cm, a
la:
(define my-staffs
  '((0 :name "hi osc" :clef :quad-treble :meter (4 4))
    (1 :name "lo osc" :clef :double-bass :meter (4 4))))
(io "/tmp/test.cmn" :staffing my-staffs :size 20
     :free-expansion-factor 1.5 :automatic-octave-signs nil)
(new seq :name 'whoops
     :subobjects
     (list
      (new cmn :time 0 :note 'c7 :staff 0 :duration 4)
      (new cmn :time 0 :note 'c0 :staff 1 :duration 4)))

(events #&whoops "test.cmn")

the actual output displays the music using tenor clefs ... some sort of
fallback, i guess. i looked in the cmn.scm code for a little while, but
didn't see where this could be happening - i'd like to be able to use these
clefs if possible ... i know it's strange but i have reasons ...

the accidental issue is another baffler (for me ...) - i'm trying to do some
microtonal output to cmn and have made a little function that looks up
non-integer keynums and assigns one of the built-in cmn microtonal symbols
and adds it to the :data slot of the cmn expression.

(defun accid (num)
  (let ((acc (cond ((< 0 num .5) 'sharp-down) <etc.>
...
and set accidl = (accid p1)
...
:data (list accidl 'stem-down)

when the events are output, the displayed file looks ok, but the notes in
the .cmn file look like this:
(g1 (sign #<write-protected-accidental>) ...

and if it's reloaded:
READER-ERROR at 462 (line 17, column 18) on #<SB-SYS:FD-STREAM for "file
/tmp/testit.cmn" {C277649}>:
illegal sharp macro character: #\<
   [Condition of type READER-ERROR]

i just tried this with a much more stripped-down example and the same thing
happens:

(new cmn :time 0 :note 'c5 :staff 0 :data (list 'sharp-up) :duration 4)

why doesn't my method work? what's the better way to do this?

thanks,
bill
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060809/71344455/attachment.html>

From rsegnini at ccrma.Stanford.EDU  Wed Aug  9 16:49:36 2006
From: rsegnini at ccrma.Stanford.EDU (Rodrigo Segnini)
Date: Wed, 9 Aug 2006 16:49:36 -0700 (PDT)
Subject: [CM] real-time common music
In-Reply-To: <e7521a5160804992610000a4ffda19a1@uiuc.edu>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu>
 <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com>
 <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu> <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com>
 <e7521a5160804992610000a4ffda19a1@uiuc.edu>
Message-ID: <Pine.LNX.4.63.0608091642020.17348@ccrma-gate.stanford.edu>

Hi list.

Before embarking in installation and improvisation, I would like to know 
if anyone has programmed in Common Music something like a 'realtime sound 
generator'. My requirements are simple: varying dynamically the parameters 
of a sound making algorithm given incoming discrete and continuous osc 
control messages.

I plan to do this in Linux using soundfont synths.

Are there any examples? Is that possible at all?

Thanks,

Rodrigo



From taube at uiuc.edu  Wed Aug  9 17:31:42 2006
From: taube at uiuc.edu (Rick Taube)
Date: Wed, 9 Aug 2006 19:31:42 -0500
Subject: [CM] real-time common music
In-Reply-To: <Pine.LNX.4.63.0608091642020.17348@ccrma-gate.stanford.edu>
References: <2159328100ce67cfda3772b37e283279@uiuc.edu> <2eb2318a0608081844h430a34b3sbb246bd3640e808a@mail.gmail.com> <bdb9b0326b168dc3b86c72b7bbb336a7@uiuc.edu> <2eb2318a0608090812l50ea605bp58365030afa3b@mail.gmail.com> <e7521a5160804992610000a4ffda19a1@uiuc.edu> <Pine.LNX.4.63.0608091642020.17348@ccrma-gate.stanford.edu>
Message-ID: <1c51d83a43f6f9e1df2f541ef0c47980@uiuc.edu>

im not excactly sure what you are after, but here are some pieces

1. depending on what lisp you use, the rts package will let you 
schedule cm processes to run in real time. it works very well on 
osx/openmcl and it should work in sbcl/linux as well, but i havent 
tested it extensively there at all.

2. cm's osc systemm will let you send/receive osc packets in real time. 
Actually im not sure if todd ever finished the port of osc to C, 
perhaps he can comment.

3. what will actually make the sound? you could certainly send osc or 
midi to an exterrnal app to make the sound; if you want to make the 
sound in lisp, todd might have something to say about that too.



On Aug 9, 2006, at 6:49 PM, Rodrigo Segnini wrote:

> Hi list.
>
> Before embarking in installation and improvisation, I would like to 
> know if anyone has programmed in Common Music something like a 
> 'realtime sound generator'. My requirements are simple: varying 
> dynamically the parameters of a sound making algorithm given incoming 
> discrete and continuous osc control messages.
>
> I plan to do this in Linux using soundfont synths.
>
> Are there any examples? Is that possible at all?
>
> Thanks,
>
> Rodrigo
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From taube at uiuc.edu  Wed Aug  9 18:17:33 2006
From: taube at uiuc.edu (Rick Taube)
Date: Wed, 9 Aug 2006 20:17:33 -0500
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
In-Reply-To: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>
Message-ID: <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>

i believe it is cmn that is dumping that file, there might be some sort 
of output method missing for those objects?


On Aug 9, 2006, at 3:17 PM, Bill Sack wrote:

>  when the events are output, the displayed file looks ok, but the 
> notes in the .cmn file look like this:
> (g1 (sign #<write-protected-accidental>) ...
>
>  and if it's reloaded:
> READER-ERROR at 462 (line 17, column 18) on #<SB-SYS:FD-STREAM for 
> "file /tmp/testit.cmn" {C277649}>:
> illegal sharp macro character: #\<
> ?? [Condition of type READER-ERROR]



From bsack23 at gmail.com  Wed Aug  9 19:54:47 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Wed, 9 Aug 2006 22:54:47 -0400
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
In-Reply-To: <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>
	 <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
Message-ID: <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>

erm, right you are. i hacked my cmn1.lisp file - added:
(define-accidental sharp-up #'draw-sharp-up sharp-bounds)
and
(if (eq sign sharp-up) 'sharp-up
at the appropriate places, and now the accidental is included in the .cmn
file output:
      (c5 (sign sharp-up) w))

can these output methods be added safely for the other accidentals in cmn's
quarter.lisp? is there a more elegant way of doing this?

On 8/9/06, Rick Taube <taube at uiuc.edu> wrote:
>
> i believe it is cmn that is dumping that file, there might be some sort
> of output method missing for those objects?
>
>
> On Aug 9, 2006, at 3:17 PM, Bill Sack wrote:
>
> >  when the events are output, the displayed file looks ok, but the
> > notes in the .cmn file look like this:
> > (g1 (sign #<write-protected-accidental>) ...
> >
> >  and if it's reloaded:
> > READER-ERROR at 462 (line 17, column 18) on #<SB-SYS:FD-STREAM for
> > "file /tmp/testit.cmn" {C277649}>:
> > illegal sharp macro character: #\<
> > [Condition of type READER-ERROR]
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060809/aff1de8d/attachment.html>

From bil at ccrma.Stanford.EDU  Thu Aug 10 03:59:08 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 10 Aug 2006 03:59:08 -0700
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
In-Reply-To: <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com> <a5757f998a46a0541ab5530cb37622e8@uiuc.edu> <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>
Message-ID: <20060810105722.M79831@ccrma.Stanford.EDU>

>  is there a more elegant way of doing this?

Thanks for the bug report -- I hadn't noticed that the quarter-note
accidentals were unnamed.  I changed cmn1.lisp to add a sign-name
slot to the accidental class.  I can send the diffs if that's easier than
getting the new tarball.




From bil at ccrma.Stanford.EDU  Thu Aug 10 05:56:35 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 10 Aug 2006 05:56:35 -0700
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
In-Reply-To: <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com> <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
Message-ID: <20060810125443.M92399@ccrma.Stanford.EDU>

I just noticed this:

> the actual output displays the music using tenor clefs

(I didn't get your mail because spamassassin thought it was spam);
anyway, this bug should also be fixed now in the cmn tarball.
I didn't expect cm->cmn users to be using mezzo-soprano
clef and its friends.




From bsack23 at gmail.com  Thu Aug 10 07:01:04 2006
From: bsack23 at gmail.com (Bill Sack)
Date: Thu, 10 Aug 2006 10:01:04 -0400
Subject: [CM] cm->cmn issues: wierd clefs, accidentals
In-Reply-To: <20060810105722.M79831@ccrma.Stanford.EDU>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>
	 <a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
	 <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>
	 <20060810105722.M79831@ccrma.Stanford.EDU>
Message-ID: <2eb2318a0608100701j1601240at73c0eee7be88c9af@mail.gmail.com>

thanks, getting the new tarball is no problem - thank you for your (as
usual) quick response to my questions.

-bill sack

I can send the diffs if that's easier than
> getting the new tarball.
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060810/3c4a8da4/attachment.html>

From k.s.matheussen at notam02.no  Sat Aug 12 03:10:36 2006
From: k.s.matheussen at notam02.no (Kjetil Svalastog Matheussen)
Date: Sat, 12 Aug 2006 12:10:36 +0200 (CEST)
Subject: [CM] Re: real-time common music
In-Reply-To: <20060810190003.23638.4301.Mailman@cm-mail.stanford.edu>
References: <20060810190003.23638.4301.Mailman@cm-mail.stanford.edu>
Message-ID: <Pine.LNX.4.64.0608121153530.4898@leon.localdomain>

Rodrigo Segnini <rsegnini at ccrma.Stanf
> 
> Hi list.
> 
> Before embarking in installation and improvisation, I would like to know 
> if anyone has programmed in Common Music something like a 'realtime sound 
> generator'. My requirements are simple: varying dynamically the parameters 
> of a sound making algorithm given incoming discrete and continuous osc 
> control messages.
> 
> I plan to do this in Linux using soundfont synths.
> 
> Are there any examples? Is that possible at all?
> 


You can compile snd as a pd external, and use common music running in 
guile inside the "snd" external to manipulate midi messages.

Unfortunately, because of guiles garbage collector, the timing is not 
perfect. This may not be noticable at all though, and especially not if 
you're using guile >=1.8.0. It depends on what you're doing.

A workaround for the garbage collector problem is to convert the midi 
messages to signals before sending to the snd external, but then you can 
only use a very limited version of scheme and not much of common music is 
supported. An approach could be, in case the garbage collector delays is 
a problem, is to first work with messages, and later convert the program 
to threat signals when things are working.




From k.s.matheussen at notam02.no  Sat Aug 12 04:32:55 2006
From: k.s.matheussen at notam02.no (Kjetil Svalastog Matheussen)
Date: Sat, 12 Aug 2006 13:32:55 +0200 (CEST)
Subject: [CM] Re: Re: Play Head (SND-8.3)
In-Reply-To: <20060803190011.30338.30042.Mailman@cm-mail.stanford.edu>
References: <20060803190011.30338.30042.Mailman@cm-mail.stanford.edu>
Message-ID: <Pine.LNX.4.64.0608121257590.4898@leon.localdomain>

Olivier =?iso-8859-1?b?RG9hcuk=?=:
> 
> Selon Bill Schottstaedt <bil at ccrma.Stanford.EDU>:
> 
> > > I was trying to obtain something that closely looks like Sound Forge
> >
> > I'd like to include this in the Snd tarball, if possible -- others have
> > asked for such a package.  I haven't done much of the Ruby work,
> > since Mike is so good at it, and I am a beginner, but I could probably
> > handle ladspa.rb -- I'll look at it tomorrow.
> 
> I would be so glad to see my conf file in the snd tarball! But note that since
> it is a fork of Kjetil S. Matheussen's work and i am not fluent in scheme,
> there are some portions of code i do not understand. Moreover, i noticed that
> sometimes it gets broken when upgrading snd. This prevented me to share my code
> with others, but i understand it could be very useful for many of us. So i'll
> make an effort... maybe at the end of august you'll get a not too dirty scheme
> file.
> 
> This is the right time to expose some problems i have to improve my code, if
> something can be done from your side:
> * Ctrl + mouse click works with buttons 1, 2, 3 but not with 4 and 5 (wheel). In
> SoundForge the wheel zooms horizontally, and ctrl+wheel zooms vertically. Is it
> a X, gtk, gtk-guile or a snd bug?

Yes, I see that too. It seems like (.state (GDK_EVENT_BUTTON e)) doesn't 
work with the scroll_event signal:

(g_signal_connect w "scroll_event"
		 (lambda (w e i)
		   (c-display "scrolleventstate" (.state (GDK_EVENT_BUTTON e)))

Anyone knows how to do this with gtk, if possible?





> * I don't know how to handle double-click... is it possible?

Should be, but I can't get it to work. I guess it will work without
gui.scm loaded. There seems to be some problems.

The following code should work, but doesn't.

(let ((start (cons 0 0)))
  (define (mouse-press-callback snd pix-x pix-y button stat);;snd ch x y button state)
    (c-display "press")
    (set! start (gettimeofday)))
  (define (mouse-motion-callback snd ch x y button state)
    #t)
  (define (mouse-release-callback snd pix-x pix-y button stat)
    (c-display "release")
    (if (< (+ (* (- (car (gettimeofday)) (car start)) 1000000)
	      (- (cdr (gettimeofday)) (cdr start)))
	   100000)
	(c-display "fast click")))

  (-> mouse-button-press-hook add! mouse-press-callback)
  (-> mouse-button-release-hook add! mouse-release-callback))




From bil at ccrma.Stanford.EDU  Sun Aug 13 04:28:27 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sun, 13 Aug 2006 04:28:27 -0700
Subject: [CM] Re: Re: Play Head (SND-8.3)
In-Reply-To: <Pine.LNX.4.64.0608121257590.4898@leon.localdomain>
References: <20060803190011.30338.30042.Mailman@cm-mail.stanford.edu> <Pine.LNX.4.64.0608121257590.4898@leon.localdomain>
Message-ID: <20060813112605.M36888@ccrma.Stanford.EDU>

> Anyone knows how to do this with gtk, if possible? 

;; report on mouse scroll wheel changes when in the channel graph
(g_signal_connect 
 (car (channel-widgets)) "scroll_event" 
 (lambda (w e i)
   (snd-print (format #f "~%state: ~A, x: ~A, y: ~A, direction: ~A" 
                      (.state (GDK_EVENT_SCROLL e))
                      (.x (GDK_EVENT_SCROLL e))
                      (.y (GDK_EVENT_SCROLL e))
                      (.direction (GDK_EVENT_SCROLL e))))
   #f))

;; report which kind of click was received in the channel graph
(g_signal_connect 
 (car (channel-widgets)) "button_press_event"
 (lambda (w e i)
   (snd-print (format #f "~%button: ~A, ~A click" 
                      (.type (GDK_EVENT_BUTTON e))
                      (if (= (.type (GDK_EVENT_BUTTON e)) GDK_BUTTON_PRESS)
                          "single"
                          (if (= (.type (GDK_EVENT_BUTTON e)) GDK_2BUTTON_PRESS)
                              "double"
                              (if (= (.type (GDK_EVENT_BUTTON e)) GDK_3BUTTON_PRESS)
                                  "triple"
                                  "unknown")))))
   #f))

;; a double click is reported as single/single/double

;; double-click time in milliseconds(?)
(define (double-click-time)
  (g_object_get (GPOINTER (gtk_settings_get_for_screen 
                                            (gdk_display_get_default_screen 
                                              (gdk_display_get_default))))
                        "gtk-double-click-time" #f))




From johannes.quint at web.de  Sun Aug 13 14:50:08 2006
From: johannes.quint at web.de (Johannes Quint)
Date: Sun, 13 Aug 2006 23:50:08 +0200
Subject: [CM] range and period-length
Message-ID: <42E37D91-3177-4FC9-B7A5-71593FB16FEC@web.de>

to create scales up and down in correlation with the period-length,
i 've written:

(new range
   :initially 57
   :stepping (pyx (pyx 1 :for (pyx 11 7 9 8 8 9 8 11 7 12))(pyx  
-1 :for (pyx 9 8 6 9 11 7 9 8 8)))
   :for (pyx 11 9 7 8 9 6 8 9 8 11 9 7 8 9 11 8 7 8 12))

this is a bit long-winded because i've to repeat the scale-ambitus  
for the ':for'-key as the period-length.
is there a more elegant way?
thanks in advance, johannes

Johannes Quint
Rilkestr.55
D-53225 Bonn
0228 468256
johannes.quint at web.de
http://www.johannes-quint.de


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060813/ccc0bb34/attachment.html>

From rlharris at broadcaster.org  Sun Aug 13 15:38:04 2006
From: rlharris at broadcaster.org (Russell L. Harris)
Date: Sun, 13 Aug 2006 17:38:04 -0500
Subject: [CM] audio leveler
In-Reply-To: <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>
	(Bill Sack's message of "Wed, 9 Aug 2006 22:54:47 -0400")
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com>
	<a5757f998a46a0541ab5530cb37622e8@uiuc.edu>
	<2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com>
Message-ID: <87ac68uur7.fsf_-_@www.gospelbroadcasting.org>

Is this the correct list for inquiries concerning SND?

I have need of an audio "leveler", alternatively known as an "automatic
gain control".  It occurs to me that a software approach might be
superior to the use of hardware.

My specific application is production of audio material -- primarily
the spoken word -- for use on audio cassettes, audio CDs, and MP3
players in an automobile.  

The normal dynamic range of a high-fidelity recording of a class or
other audio presentation is too wide for this environment: if the audio
level on the playback device is adjusted so that loud passages are not
painful to the ear, then low passages are lost in the noise of the road,
wind, and traffic.

A wide variety of hardware audio compressors is available, but the only
way which I see to make use of a compressor is to use a high compression
ratio (10:1 or even 20:1) and then increase the level of the signal at
the compressor input to the point that even the softest passages are
compressed slightly.

There are a few hardware audio levelers, but they typically range in
price from a thousand dollars upward.  Levelers allow setting of a
"target" level for the output, and increase the gain when the input
level is below the target.  When the input level is above the target, a
leveler acts as a conventional compressor, with user-adjustable
compression ratio.  

So, can I use SND for leveling?  Or is there another package which is
more suitable?

I have not yet attempted to use SND.  I presently am using Audacity for
audio editing in the Debian/Gnome environment.

RLH



From chris_melen at yahoo.com  Sun Aug 13 22:43:16 2006
From: chris_melen at yahoo.com (christopher melen)
Date: Mon, 14 Aug 2006 06:43:16 +0100 (BST)
Subject: [CM] CM and CM-GTK (newbie)
Message-ID: <20060814054317.33875.qmail@web54311.mail.yahoo.com>

Hi,

I've got CM up and running nicely in CMUCL on Debian
(Sarge), but I'm having difficulty with CM-GTK. When I
attempt to load it with (use-system :cm-gtk) I get the
following -

((FLET LIBPATH
   )
 "libgtk-x11-2.0")
Source: (ERROR
         "Library ~S not found. Either GTK is not
installed or else cl-user:*gtk-libdir* needs to be set
to the directory containing GTK on your machine."

I have tried using -

(defparameter cl-user::*gtk-libdir*
"/path/to/gtk2/libs/")

with various path variations before loading CM, but no
luck...

I have a feeling I'm probably going to have to edit a
configuration file somewhere(!), but I'm not sure
exactly where. Any suggestions as to how to solve this
problem would be greatly appreciated!

BTW, I'm a relative newbie to both linux and lisp.

Thanks,
Chris



	
	
		
___________________________________________________________ 
All new Yahoo! Mail "The new Interface is stunning in its simplicity and ease of use." - PC Magazine 
http://uk.docs.yahoo.com/nowyoucan.html



From bil at ccrma.Stanford.EDU  Mon Aug 14 03:31:31 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Mon, 14 Aug 2006 03:31:31 -0700
Subject: [CM] audio leveler
In-Reply-To: <87ac68uur7.fsf_-_@www.gospelbroadcasting.org>
References: <2eb2318a0608091317r7e508a77v3d95170498b71873@mail.gmail.com> <a5757f998a46a0541ab5530cb37622e8@uiuc.edu> <2eb2318a0608091954hc6b864dgbcfb8d098950fb7d@mail.gmail.com> <87ac68uur7.fsf_-_@www.gospelbroadcasting.org>
Message-ID: <20060814102658.M99730@ccrma.Stanford.EDU>

> So, can I use SND for leveling?

Yes, but you might need to hack a bit. 

There's a first pass at an automatic gain control in dsp.scm,
but it's commented out.  I was going to experiment with 
moving-rms to detect portions with just background noise
(to be squelched, rather than amplified); it's on my
"TODO" list...

Anyway, to give it a try, load dsp.scm, paste the agc function
into the listener, load the sound you want to try it on, ideally
set optimization to 6: (set! (optimization) 6), and (agc):

(load "dsp.scm")
(set! (optimization) 6)

(define* (agc :optional (ramp-speed .001) (window-size 512))
  (let ((maxer (make-moving-max window-size))
        (mult 1.0))
    (map-channel
     (lambda (y)
       (let* ((curmax (moving-max maxer y))
              (diff (- 0.5 (* mult curmax)))
              (this-incr (* diff ramp-speed)))
         (set! mult (+ mult this-incr))
         (* y mult))))))

(open-sound "learn-Snd-while-you-drive.snd")

(agc)



From taube at uiuc.edu  Mon Aug 14 05:05:58 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 07:05:58 -0500
Subject: [CM] range and period-length
In-Reply-To: <42E37D91-3177-4FC9-B7A5-71593FB16FEC@web.de>
References: <42E37D91-3177-4FC9-B7A5-71593FB16FEC@web.de>
Message-ID: <222D212B-7004-462D-8154-BDCEA61F4B8F@uiuc.edu>

im sorry, im not understanding -- what should the pattern look like?  
what is 'pyx'?
best,
rick
On Aug 13, 2006, at 4:50 PM, Johannes Quint wrote:

> to create scales up and down in correlation with the period-length,
> i 've written:
>
> (new range
>   :initially 57
>   :stepping (pyx (pyx 1 :for (pyx 11 7 9 8 8 9 8 11 7 12))(pyx  
> -1 :for (pyx 9 8 6 9 11 7 9 8 8)))
>   :for (pyx 11 9 7 8 9 6 8 9 8 11 9 7 8 9 11 8 7 8 12))
>
> this is a bit long-winded because i've to repeat the scale-ambitus  
> for the ':for'-key as the period-length.
> is there a more elegant way?
> thanks in advance, johannes
>
> Johannes Quint
> Rilkestr.55
> D-53225 Bonn
> 0228 468256
> johannes.quint at web.de
> http://www.johannes-quint.de
>
>



From taube at uiuc.edu  Mon Aug 14 05:10:55 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 07:10:55 -0500
Subject: [CM] CM and CM-GTK (newbie)
In-Reply-To: <20060814054317.33875.qmail@web54311.mail.yahoo.com>
References: <20060814054317.33875.qmail@web54311.mail.yahoo.com>
Message-ID: <3786ED20-2DF0-4C52-B3C9-FEA7FC6AEAD0@uiuc.edu>

hello, the code in gtkffi-cmusbcl.lisp is signaling an error because  
it cannot find one or more of the actual .lib files to load. here are  
their names:
     '("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0"
       "libgdk_pixbuf-2.0"
       #-:darwin "libm" #+:darwin "/usr/lib/libm"
       "libpangoxft-1.0" "libpangox-1.0" "libpango-1.0"
       "libgobject-2.0" "libgmodule-2.0"
       #-:darwin "libdl"
       "libglib-2.0"
       #+:darwin "libintl"
       #+:darwin "libiconv")

find the dir where these reside on your machine and then use that  
pathname as the value of cl-user::*gtk-libdir*
you can set the variable in that file if you want



On Aug 14, 2006, at 12:43 AM, christopher melen wrote:

> Hi,
>
> I've got CM up and running nicely in CMUCL on Debian
> (Sarge), but I'm having difficulty with CM-GTK. When I
> attempt to load it with (use-system :cm-gtk) I get the
> following -
>
> ((FLET LIBPATH
>    )
>  "libgtk-x11-2.0")
> Source: (ERROR
>          "Library ~S not found. Either GTK is not
> installed or else cl-user:*gtk-libdir* needs to be set
> to the directory containing GTK on your machine."
>
> I have tried using -
>
> (defparameter cl-user::*gtk-libdir*
> "/path/to/gtk2/libs/")
>
> with various path variations before loading CM, but no
> luck...
>
> I have a feeling I'm probably going to have to edit a
> configuration file somewhere(!), but I'm not sure
> exactly where. Any suggestions as to how to solve this
> problem would be greatly appreciated!
>
> BTW, I'm a relative newbie to both linux and lisp.
>
> Thanks,
> Chris
>
>
>
> 	
> 	
> 		
> ___________________________________________________________
> All new Yahoo! Mail "The new Interface is stunning in its  
> simplicity and ease of use." - PC Magazine
> http://uk.docs.yahoo.com/nowyoucan.html
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From johannes.quint at web.de  Mon Aug 14 06:27:46 2006
From: johannes.quint at web.de (Johannes Quint)
Date: Mon, 14 Aug 2006 15:27:46 +0200
Subject: [CM] range and period-length
In-Reply-To: <222D212B-7004-462D-8154-BDCEA61F4B8F@uiuc.edu>
References: <42E37D91-3177-4FC9-B7A5-71593FB16FEC@web.de> <222D212B-7004-462D-8154-BDCEA61F4B8F@uiuc.edu>
Message-ID: <C58069DD-7F10-4762-B4AD-A271B2F5F99D@web.de>

Am 14.08.2006 um 14:05 schrieb Rick Taube:

> im sorry, im not understanding -- what should the pattern look  
> like? what is 'pyx'?
> best,
> rick


oh excuse me, pyx is a macro,
(pyx 11 7 9 8 8 9 8 11 7 12) means (new cycle :of '(11 7 9 8 8 9 8 11  
7 12))

my problem perhaps more clearly explained:

when i have

(new range
       :initially 10
       :stepping (new cycle :of (list (new cycle :of 1 :for 3)(new  
cycle :of -1 :for 6)))
       :for (new cycle :of '(3 6))))

then the period-length correlates with the down- and up-direction:

(next x t)
=> 10 11 12
=> 13 12 11 10 9 8
=> 7 8 9
etc.

but when i define

(new range
       :initially 10
       :stepping (new heap :of (list (new cycle :of 1 :for 3)(new  
cycle :of -1 :for 6)))
)

i don't know how to get the same correlation.

i hope this was less abstruse..., johannes



_________________________

Johannes Quint
Rilkestr.55
D-53225 Bonn
0228 468256
johannes.quint at web.de
http://www.johannes-quint.de




From renueden at earthlink.net  Mon Aug 14 07:07:18 2006
From: renueden at earthlink.net (Ken)
Date: Mon, 14 Aug 2006 07:07:18 -0700
Subject: [CM] CM and CM-GTK (newbie)
In-Reply-To: <3786ED20-2DF0-4C52-B3C9-FEA7FC6AEAD0@uiuc.edu>
References: <20060814054317.33875.qmail@web54311.mail.yahoo.com>
	 <3786ED20-2DF0-4C52-B3C9-FEA7FC6AEAD0@uiuc.edu>
Message-ID: <1155564438.12335.1.camel@localhost>

I'm getting the same error on Ubuntu Dapper, though the libs are all in
"/usr/lib".

On Mon, 2006-08-14 at 07:10 -0500, Rick Taube wrote:
> hello, the code in gtkffi-cmusbcl.lisp is signaling an error because  
> it cannot find one or more of the actual .lib files to load. here are  
> their names:
>      '("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0"
>        "libgdk_pixbuf-2.0"
>        #-:darwin "libm" #+:darwin "/usr/lib/libm"
>        "libpangoxft-1.0" "libpangox-1.0" "libpango-1.0"
>        "libgobject-2.0" "libgmodule-2.0"
>        #-:darwin "libdl"
>        "libglib-2.0"
>        #+:darwin "libintl"
>        #+:darwin "libiconv")
> 
> find the dir where these reside on your machine and then use that  
> pathname as the value of cl-user::*gtk-libdir*
> you can set the variable in that file if you want
> 
> 
> 
> On Aug 14, 2006, at 12:43 AM, christopher melen wrote:
> 
> > Hi,
> >
> > I've got CM up and running nicely in CMUCL on Debian
> > (Sarge), but I'm having difficulty with CM-GTK. When I
> > attempt to load it with (use-system :cm-gtk) I get the
> > following -
> >
> > ((FLET LIBPATH
> >    )
> >  "libgtk-x11-2.0")
> > Source: (ERROR
> >          "Library ~S not found. Either GTK is not
> > installed or else cl-user:*gtk-libdir* needs to be set
> > to the directory containing GTK on your machine."
> >
> > I have tried using -
> >
> > (defparameter cl-user::*gtk-libdir*
> > "/path/to/gtk2/libs/")
> >
> > with various path variations before loading CM, but no
> > luck...
> >
> > I have a feeling I'm probably going to have to edit a
> > configuration file somewhere(!), but I'm not sure
> > exactly where. Any suggestions as to how to solve this
> > problem would be greatly appreciated!
> >
> > BTW, I'm a relative newbie to both linux and lisp.
> >
> > Thanks,
> > Chris
> >
> >
> >
> > 	
> > 	
> > 		
> > ___________________________________________________________
> > All new Yahoo! Mail "The new Interface is stunning in its  
> > simplicity and ease of use." - PC Magazine
> > http://uk.docs.yahoo.com/nowyoucan.html
> >
> > _______________________________________________
> > Cmdist mailing list
> > Cmdist at ccrma.stanford.edu
> > http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
> 
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From renueden at earthlink.net  Mon Aug 14 07:30:51 2006
From: renueden at earthlink.net (Ken)
Date: Mon, 14 Aug 2006 07:30:51 -0700
Subject: [CM] portmidi-record
Message-ID: <1155565851.12335.5.camel@localhost>

Using the latest cvs, I've noticed that portmidi-record! is undefined.
Has that been pulled out for any reason?
Ken



From taube at uiuc.edu  Mon Aug 14 09:25:37 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 11:25:37 -0500
Subject: [CM] portmidi-record
In-Reply-To: <1155565851.12335.5.camel@localhost>
References: <1155565851.12335.5.camel@localhost>
Message-ID: <BE53DEBA-84BD-42EB-975B-002797979680@uiuc.edu>

its commented out in src/pm.scm. im not sure why -- perhaps its due  
to the currently incomplete migration of receiving to C. perhaps its  
not possible to receive for the moment. if i ever find some time ill  
try to figure out what needs to be done to get receiving back working  
again, sorry.

On Aug 14, 2006, at 9:30 AM, Ken wrote:

> Using the latest cvs, I've noticed that portmidi-record! is undefined.
> Has that been pulled out for any reason?
> Ken
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From chris_melen at yahoo.com  Mon Aug 14 09:59:08 2006
From: chris_melen at yahoo.com (christopher melen)
Date: Mon, 14 Aug 2006 17:59:08 +0100 (BST)
Subject: [CM] CM and CM-GTK (newbie)
In-Reply-To: <1155564438.12335.1.camel@localhost>
Message-ID: <20060814165908.3604.qmail@web54303.mail.yahoo.com>

Tried setting cl-user::*gtk-libdir* to "/usr/lib/",
but no luck.

I have libgtk-x11-2.0.so.0 (and
libgtk-x11-2.0.so.2.1.0) in /usr/lib (gtk-2.0 itself
is also there). But gtkffi-cmusbcl.lisp asks for
libgtk-x11-2.0... Same thing? Or should I edit it to
include the 'so.0'?

--- Ken <renueden at earthlink.net> wrote:

> I'm getting the same error on Ubuntu Dapper, though
> the libs are all in
> "/usr/lib".
> 
> On Mon, 2006-08-14 at 07:10 -0500, Rick Taube wrote:
> > hello, the code in gtkffi-cmusbcl.lisp is
> signaling an error because  
> > it cannot find one or more of the actual .lib
> files to load. here are  
> > their names:
> >      '("libgtk-x11-2.0" "libgdk-x11-2.0"
> "libatk-1.0"
> >        "libgdk_pixbuf-2.0"
> >        #-:darwin "libm" #+:darwin "/usr/lib/libm"
> >        "libpangoxft-1.0" "libpangox-1.0"
> "libpango-1.0"
> >        "libgobject-2.0" "libgmodule-2.0"
> >        #-:darwin "libdl"
> >        "libglib-2.0"
> >        #+:darwin "libintl"
> >        #+:darwin "libiconv")
> > 
> > find the dir where these reside on your machine
> and then use that  
> > pathname as the value of cl-user::*gtk-libdir*
> > you can set the variable in that file if you want
> > 
> > 
> > 
> > On Aug 14, 2006, at 12:43 AM, christopher melen
> wrote:
> > 
> > > Hi,
> > >
> > > I've got CM up and running nicely in CMUCL on
> Debian
> > > (Sarge), but I'm having difficulty with CM-GTK.
> When I
> > > attempt to load it with (use-system :cm-gtk) I
> get the
> > > following -
> > >
> > > ((FLET LIBPATH
> > >    )
> > >  "libgtk-x11-2.0")
> > > Source: (ERROR
> > >          "Library ~S not found. Either GTK is
> not
> > > installed or else cl-user:*gtk-libdir* needs to
> be set
> > > to the directory containing GTK on your
> machine."
> > >
> > > I have tried using -
> > >
> > > (defparameter cl-user::*gtk-libdir*
> > > "/path/to/gtk2/libs/")
> > >
> > > with various path variations before loading CM,
> but no
> > > luck...
> > >
> > > I have a feeling I'm probably going to have to
> edit a
> > > configuration file somewhere(!), but I'm not
> sure
> > > exactly where. Any suggestions as to how to
> solve this
> > > problem would be greatly appreciated!
> > >
> > > BTW, I'm a relative newbie to both linux and
> lisp.
> > >
> > > Thanks,
> > > Chris
> > >
> > >
> > >
> > > 	
> > > 	
> > > 		
> > >
>
___________________________________________________________
> > > All new Yahoo! Mail "The new Interface is
> stunning in its  
> > > simplicity and ease of use." - PC Magazine
> > > http://uk.docs.yahoo.com/nowyoucan.html
> > >
> > > _______________________________________________
> > > Cmdist mailing list
> > > Cmdist at ccrma.stanford.edu
> > >
>
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
> > 
> > _______________________________________________
> > Cmdist mailing list
> > Cmdist at ccrma.stanford.edu
> >
>
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
> 
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
>
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
> 



		
___________________________________________________________ 
All New Yahoo! Mail ? Tired of Vi at gr@! come-ons? Let our SpamGuard protect you. http://uk.docs.yahoo.com/nowyoucan.html



From taube at uiuc.edu  Mon Aug 14 10:22:23 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 12:22:23 -0500
Subject: [CM] CM and CM-GTK (newbie)
In-Reply-To: <20060814165908.3604.qmail@web54303.mail.yahoo.com>
References: <20060814165908.3604.qmail@web54303.mail.yahoo.com>
Message-ID: <6F73F64F-420E-4637-B2F3-37CE83F83576@uiuc.edu>

maybe these are links that are not installed on your system. try  
substituting the real file names and see if that helps. if that  
doesnt fix loading your guess will be as good as mine!
--rick



> libgtk-x11-2.0... Same thing? Or should I edit it to
> include the 'so.0'?
>
> --- Ken <renueden at earthlink.net> wrote:
>
>> I'm getting the same error on Ubuntu Dapper, though
>> the libs are all in
>> "/usr/lib".



From taube at uiuc.edu  Mon Aug 14 10:24:55 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 12:24:55 -0500
Subject: [CM] portmidi-record
In-Reply-To: <83F0C904-9C4F-4EAE-B774-4E12E50CCBBE@asu.edu>
References: <1155565851.12335.5.camel@localhost> <BE53DEBA-84BD-42EB-975B-002797979680@uiuc.edu> <83F0C904-9C4F-4EAE-B774-4E12E50CCBBE@asu.edu>
Message-ID: <194D8846-39A9-44A2-8AB7-D3EF324D9AD4@uiuc.edu>

portmidi receive should be working   so you could try uncommenting  
that code, then start cm again, the .lisp file should get generated.  
if it compiles you can see if it works again. if not  it shoudlnt be  
hard to get working again.

On Aug 14, 2006, at 11:31 AM, todd ingalls wrote:

> rick,
> receive should be working in portmidi now and has for some time. i  
> know i had originally commented out the portmidi-record when the  
> receive api was changing, i guess this should be added back now,  
> sorry abut that.
> On Aug 14, 2006, at 9:25 AM, Rick Taube wrote:
>
>> its commented out in src/pm.scm. im not sure why -- perhaps its  
>> due to the currently incomplete migration of receiving to C.  
>> perhaps its not possible to receive for the moment. if i ever find  
>> some time ill try to figure out what needs to be done to get  
>> receiving back working again, sorry.
>>
>> On Aug 14, 2006, at 9:30 AM, Ken wrote:
>>
>>> Using the latest cvs, I've noticed that portmidi-record! is  
>>> undefined.
>>> Has that been pulled out for any reason?
>>> Ken
>>>
>>> _______________________________________________
>>> Cmdist mailing list
>>> Cmdist at ccrma.stanford.edu
>>> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>>
>> _______________________________________________
>> Cmdist mailing list
>> Cmdist at ccrma.stanford.edu
>> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>



From taube at uiuc.edu  Mon Aug 14 10:56:35 2006
From: taube at uiuc.edu (Rick Taube)
Date: Mon, 14 Aug 2006 12:56:35 -0500
Subject: [CM] range and period-length
In-Reply-To: <C58069DD-7F10-4762-B4AD-A271B2F5F99D@web.de>
References: <42E37D91-3177-4FC9-B7A5-71593FB16FEC@web.de> <222D212B-7004-462D-8154-BDCEA61F4B8F@uiuc.edu> <C58069DD-7F10-4762-B4AD-A271B2F5F99D@web.de>
Message-ID: <5D0E16A9-3AC5-47B5-9E2D-8EF1BAC1546A@uiuc.edu>

maybe something like this?

(define foo
   (let ((ini 10))
     (new heap :of (list (new cycle :of 1 :for 3)
                         (new cycle :of -1 :for 6))
          :for 1
          :returning (lambda (i) (prog1 ini (incf ini i))))))

(loop repeat 10 collect (next foo #t))

=> ((10 9 8 7 6 5) (4 5 6) (7 6 5 4 3 2) (1 2 3) (4 5 6) (7 6 5 4 3  
2) (1 0 -1 -2 -3 -4) (-5 -4 -3) (-2 -1 0) (1 0 -1 -2 -3 -4))




>
> when i have
>
> (new range
>       :initially 10
>       :stepping (new cycle :of (list (new cycle :of 1 :for 3)(new  
> cycle :of -1 :for 6)))
>       :for (new cycle :of '(3 6))))
>
> then the period-length correlates with the down- and up-direction:
>
> (next x t)
> => 10 11 12
> => 13 12 11 10 9 8
> => 7 8 9
> etc.
>
> but when i define
>
> (new range
>       :initially 10
>       :stepping (new heap :of (list (new cycle :of 1 :for 3)(new  
> cycle :of -1 :for 6)))
> )
>
> i don't know how to get the same correlation.
>
> i hope this was less abstruse..., johannes
>
>
>
> _________________________
>
> Johannes Quint
> Rilkestr.55
> D-53225 Bonn
> 0228 468256
> johannes.quint at web.de
> http://www.johannes-quint.de
>
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From ahcnz at ihug.co.nz  Mon Aug 14 21:31:11 2006
From: ahcnz at ihug.co.nz (Adam)
Date: Tue, 15 Aug 2006 16:31:11 +1200
Subject: [CM] query on references within Loop
Message-ID: <200608151631.13270.ahcnz@ihug.co.nz>

This has me a little puzzled, in Common Music, 

The intention is that Loop cycles through a list, and for each entry then 
collects a list carried in that item. 

However an error reports that ..  a-ref  is not of type list.  While it 
appears to be a list, perhaps its outside of the Loop scope somehow ? 

Can anyone suggest where I am going wrong here ?

(define a-ref '('a1  (1 2 3)  'a2))
(define b-ref '('b1  (4 5 6)  'b2))
(define c-ref '('c1  (7 8 9)  'c2))

(define ref-list '(a-ref b-ref c-ref))

(loop for refx in ref-list
      collect 
      (loop for data in (second refx)
	    collect data))




From rm at seid-online.de  Tue Aug 15 02:14:45 2006
From: rm at seid-online.de (Ralf Mattes)
Date: Tue, 15 Aug 2006 11:14:45 +0200
Subject: [CM] query on references within Loop
In-Reply-To: <200608151631.13270.ahcnz@ihug.co.nz>
References: <200608151631.13270.ahcnz@ihug.co.nz>
Message-ID: <1155633285.8546.7.camel@localhost.localdomain>

On Tue, 2006-08-15 at 16:31 +1200, Adam wrote:
> This has me a little puzzled, in Common Music, 
> 
> The intention is that Loop cycles through a list, and for each entry then 
> collects a list carried in that item. 
> 
> However an error reports that ..  a-ref  is not of type list.  While it 
> appears to be a list, perhaps its outside of the Loop scope somehow ? 
> 
> Can anyone suggest where I am going wrong here ?

I'm far away from my CM-repl, but i think you should be careful with
your quoting ...

> (define a-ref '('a1  (1 2 3)  'a2))
> (define b-ref '('b1  (4 5 6)  'b2))
> (define c-ref '('c1  (7 8 9)  'c2))

As a rule of thumb: you'll most likely never want to quote within a
quoted list. The #\' character is reader magic that expands to
(quote ...) and is done _before_ the evaluator "sees" a form. So the
above is fed to the evaluator as:

 (quote ((quote c1) (7 8 9) (quote c2)))

which evaluates to

 ((quote c1) (7 8 9) (quote c2))

Is this really what you want? This is a list of three lists and
most likely you wanted a list of a symbol, a list and a symbol ...

> (define ref-list '(a-ref b-ref c-ref))

Remeber: quoting stops evaluation, so ref-list is a list of three
symbols. This is why LOOP complains. 
Use:

 (define ref-list (list a-ref b-ref c-ref))

Some Lispers will still go for the quoting syntax, but then you need
quasiquotation:

 (define ref-list `(,a-ref ,b-ref ,c-ref))


HTH, Ralf Mattes

> (loop for refx in ref-list
>       collect 
>       (loop for data in (second refx)
> 	    collect data))
> 
> 
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From taube at uiuc.edu  Tue Aug 15 05:40:35 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 15 Aug 2006 07:40:35 -0500
Subject: [CM] query on references within Loop
In-Reply-To: <200608151631.13270.ahcnz@ihug.co.nz>
References: <200608151631.13270.ahcnz@ihug.co.nz>
Message-ID: <B3078E28-F9F3-4997-B3B6-EB0AF48AB8A1@uiuc.edu>

adam, the program should look like this.

(define a-ref '(a1  (1 2 3)  a2))
(define b-ref '(b1  (4 5 6)  b2))
(define c-ref '(c1  (7 8 9)  c2))

(define ref-list (list a-ref b-ref c-ref))

(loop for refx in ref-list
       collect
       (loop for data in (second refx)
	    collect data))
;--

but note that your inner loop is returing exactly what (second refx)  
returns and so the whole loop could be written

(loop for refx in ref-list
       collect (second refx))

--rick

>
> This has me a little puzzled, in Common Music,
>
> The intention is that Loop cycles through a list, and for each  
> entry then
> collects a list carried in that item.
>
> However an error reports that ..  a-ref  is not of type list.   
> While it
> appears to be a list, perhaps its outside of the Loop scope somehow ?
>
> Can anyone suggest where I am going wrong here ?
>
> (define a-ref '('a1  (1 2 3)  'a2))
> (define b-ref '('b1  (4 5 6)  'b2))
> (define c-ref '('c1  (7 8 9)  'c2))
>
> (define ref-list '(a-ref b-ref c-ref))
>
> (loop for refx in ref-list
>       collect
>       (loop for data in (second refx)
> 	    collect data))
>
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From taube at uiuc.edu  Tue Aug 15 05:51:24 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 15 Aug 2006 07:51:24 -0500
Subject: [CM] query on references within Loop
In-Reply-To: <200608151631.13270.ahcnz@ihug.co.nz>
References: <200608151631.13270.ahcnz@ihug.co.nz>
Message-ID: <1496CC5D-C0C7-4410-B71E-A4C5F1E2B194@uiuc.edu>

and here it is in sal, look ma no quote!

define variable a-ref = {a1  (1 2 3) a2},
                 b-ref = {b1  (4 5 6) b2},
                 c-ref = {c1  (7 8 9) c2},
                 ref-list = list(a-ref, b-ref, c-ref)

#a[list for refx in ref-list collect second(refx)]





From taube at uiuc.edu  Tue Aug 15 06:11:44 2006
From: taube at uiuc.edu (Rick Taube)
Date: Tue, 15 Aug 2006 08:11:44 -0500
Subject: [CM] query on references within Loop
In-Reply-To: <1496CC5D-C0C7-4410-B71E-A4C5F1E2B194@uiuc.edu>
References: <200608151631.13270.ahcnz@ihug.co.nz> <1496CC5D-C0C7-4410-B71E-A4C5F1E2B194@uiuc.edu>
Message-ID: <14ECBB88-B7BB-4C77-8534-3F1906654082@uiuc.edu>

arrg! and for my final magic trick here it is without typos..

define variable a-ref = {a1  {1 2 3} a2},
                 b-ref = {b1  {4 5 6} b2},
                 c-ref = {c1  {7 8 9} c2},
                 ref-list = list(a-ref, b-ref, c-ref)

print #a[list for refx in ref-list collect second(refx)]





From k.s.matheussen at notam02.no  Tue Aug 15 08:42:43 2006
From: k.s.matheussen at notam02.no (Kjetil Svalastog Matheussen)
Date: Tue, 15 Aug 2006 17:42:43 +0200 (CEST)
Subject: [CM] Re: Re: Re: Play Head (SND-8.3)
In-Reply-To: <20060813190003.5179.41584.Mailman@cm-mail.stanford.edu>
References: <20060813190003.5179.41584.Mailman@cm-mail.stanford.edu>
Message-ID: <Pine.LNX.4.64.0608151737290.16140@leon.localdomain>


"Bill Schottstaedt":
> To: Kjetil Svalastog Matheussen <k.s.matheussen at notam02.no>,
>    cmdist at ccrma.Stanford.EDU
> Subject: Re: [CM] Re: Re: Play Head (SND-8.3)
> Date: Sun, 13 Aug 2006 04:28:27 -0700
> 
> > Anyone knows how to do this with gtk, if possible? 
> 
> ;; report on mouse scroll wheel changes when in the channel graph
> (g_signal_connect 
>  (car (channel-widgets)) "scroll_event" 
>  (lambda (w e i)
>    (snd-print (format #f "~%state: ~A, x: ~A, y: ~A, direction: ~A" 
>                       (.state (GDK_EVENT_SCROLL e))
>                       (.x (GDK_EVENT_SCROLL e))
>                       (.y (GDK_EVENT_SCROLL e))
>                       (.direction (GDK_EVENT_SCROLL e))))
>    #f))
> 
> ;; report which kind of click was received in the channel graph
> (g_signal_connect 
>  (car (channel-widgets)) "button_press_event"
>  (lambda (w e i)
>    (snd-print (format #f "~%button: ~A, ~A click" 
>                       (.type (GDK_EVENT_BUTTON e))
>                       (if (= (.type (GDK_EVENT_BUTTON e)) GDK_BUTTON_PRESS)
>                           "single"
>                           (if (= (.type (GDK_EVENT_BUTTON e)) GDK_2BUTTON_PRESS)
>                               "double"
>                               (if (= (.type (GDK_EVENT_BUTTON e)) GDK_3BUTTON_PRESS)
>                                   "triple"
>                                   "unknown")))))
>    #f))
> 
> ;; a double click is reported as single/single/double
> 
> ;; double-click time in milliseconds(?)
> (define (double-click-time)
>   (g_object_get (GPOINTER (gtk_settings_get_for_screen 
>                                             (gdk_display_get_default_screen 
>                                               (gdk_display_get_default))))
>                         "gtk-double-click-time" #f))
> 



Thank you very much! Attached is a diff for gui.scm that fixes the state 
for the scroll button and adds a new hook for double-click:

(-> mouse-doubleclick-hook add!
    (lambda (snd x y stat)
      (c-display "double-click" snd x y stat)))

-------------- next part --------------
--- gui.scm?revision=1.39	2006-08-15 17:40:20.000000000 +0200
+++ gui.scm	2006-08-15 17:35:13.000000000 +0200
@@ -89,6 +89,17 @@
 	 #f)))
 
 
+;; Copied from gtk-popup.scm
+(define* (c-g_signal_connect obj name func #:optional data)
+  (g_signal_connect_closure_by_id (GPOINTER obj)
+				  (g_signal_lookup name (G_OBJECT_TYPE (GTK_OBJECT obj)))
+				  0
+				  (g_cclosure_new func data #f)
+				  #f))
+
+
+
+
 (define-c <float> (c-scale ((<float> x)
 			    (<float> x1)
 			    (<float> x2)
@@ -359,6 +370,7 @@
 
 
 (define mouse-button-press-hook (<hook>))
+(define mouse-doubleclick-hook (<hook>))
 (define mouse-move-hook (<hook>))
 (define mouse-drag2-hook (<hook>))
 (define mouse-button-release-hook (<hook>))
@@ -421,24 +433,35 @@
 					   (focus-widget w)
 					   (set! ispressed #t)
 					   (set! ismoved #f)
-					   (if (and (not (eq? 'stop!
-							      (-> mouse-button-press-hook run
-								  snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e))
-								  (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e)))))
-						    (= (.button (GDK_EVENT_BUTTON e)) 3))
-					       (run-hook gtk-popup-hook w e i snd 0))))
+					   (let ((did-doubleclick? 'nope)
+						 (did-singleclick? 'nope))
+					     (if (= (.type (GDK_EVENT_BUTTON e)) GDK_2BUTTON_PRESS)
+						 (set! did-doubleclick? (-> mouse-doubleclick-hook run
+									    snd 
+									    (.x (GDK_EVENT_BUTTON e))
+									    (.y (GDK_EVENT_BUTTON e))
+									    (.state (GDK_EVENT_BUTTON e)))))
+					     (if (not (eq? 'stop! did-doubleclick?))
+						 (set! did-singleclick? (-> mouse-button-press-hook run
+									    snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e))
+									    (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e)))))
+					     
+					     (if (and (not (eq? 'stop! did-doubleclick?))
+						      (not (eq? 'stop! did-singleclick?))
+						      (= (.button (GDK_EVENT_BUTTON e)) 3))
+						 (run-hook gtk-popup-hook w e i snd 0)))))
 		     (c-g_signal_connect w "motion_notify_event"
-				       (lambda (w e i)
-					 (set! ismoved #t)
-					 ;;(c-display snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e)) (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e)))
-					 (let ((args (if (.is_hint (GDK_EVENT_MOTION e))
-							 (let ((s (cdr (gdk_window_get_pointer (.window e)))))
-							   (list snd (car s) (cadr s) (.button (GDK_EVENT_BUTTON e)) (caddr s)))
-							 (list snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e))
-							       (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e))))))
-					   (if (and (not (eq? 'stop! (apply (<- mouse-move-hook run) args)))
-						    ispressed)
-					       (apply (<- mouse-drag2-hook run) args)))))
+					 (lambda (w e i)
+					   (set! ismoved #t)
+					   ;;(c-display snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e)) (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e)))
+					   (let ((args (if (.is_hint (GDK_EVENT_MOTION e))
+							   (let ((s (cdr (gdk_window_get_pointer (.window e)))))
+							     (list snd (car s) (cadr s) (.button (GDK_EVENT_BUTTON e)) (caddr s)))
+							   (list snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e))
+								 (.button (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e))))))
+					     (if (and (not (eq? 'stop! (apply (<- mouse-move-hook run) args)))
+						      ispressed)
+						 (apply (<- mouse-drag2-hook run) args)))))
 		     (c-g_signal_connect w "button_release_event"
 					 (lambda (w e i)
 					   (set! ispressed #f)
@@ -448,7 +471,7 @@
 					 (lambda (w e i)
 					   (set! ispressed #f)
 					   (-> mouse-scroll-hook run
-					       snd (.x (GDK_EVENT_BUTTON e)) (.y (GDK_EVENT_BUTTON e)) (.state (GDK_EVENT_BUTTON e)))
+					       snd (.direction (GDK_EVENT_SCROLL e)) (.x (GDK_EVENT_SCROLL e)) (.y (GDK_EVENT_SCROLL e)) (.state (GDK_EVENT_SCROLL e)))
 					   ))
 		     )))))
 
@@ -530,12 +553,12 @@
       (lambda (snd x y button stat)
 	(set! isdragged #t)))
   (-> mouse-scroll-hook add!
-      (lambda (snd orgx y stat)
+      (lambda (snd direction orgx y stat)
 	(c-get-mouse-info snd orgx y #t
 			  (lambda (ch x y)
 			    (focus-widget (c-editor-widget snd))
 			    (run-hook mouse-click-hook
-				      snd ch (+ stat 4) 0 orgx y time-graph)))))
+				      snd ch (+ direction 4) stat orgx y time-graph)))))
   (-> mouse-button-release-hook add!
       (lambda (snd orgx y button stat)
 	(if (not isdragged)

From ahcnz at ihug.co.nz  Tue Aug 15 14:36:10 2006
From: ahcnz at ihug.co.nz (Adam)
Date: Wed, 16 Aug 2006 09:36:10 +1200
Subject: [CM] query on references within Loop
In-Reply-To: <1496CC5D-C0C7-4410-B71E-A4C5F1E2B194@uiuc.edu>
References: <200608151631.13270.ahcnz@ihug.co.nz> <1496CC5D-C0C7-4410-B71E-A4C5F1E2B194@uiuc.edu>
Message-ID: <200608160936.11493.ahcnz@ihug.co.nz>

Thank you,   Ralf and Rick.    Both replies have straightened me out on Loop 
once again.   


> and here it is in sal, look ma no quote!
>
> define variable a-ref = {a1  (1 2 3) a2},
>                  b-ref = {b1  (4 5 6) b2},
>                  c-ref = {c1  (7 8 9) c2},
>                  ref-list = list(a-ref, b-ref, c-ref)
>
> #a[list for refx in ref-list collect second(refx)]




From a.balley at jazzmutant.com  Sun Aug 20 06:36:10 2006
From: a.balley at jazzmutant.com (Axel BALLEY)
Date: Sun, 20 Aug 2006 15:36:10 +0200
Subject: [CM] RTS-enqueue
Message-ID: <BAEEA8E5-DD3D-474F-9B81-312AD03CA80C@jazzmutant.com>

Hi List !
I set up CM yesterday on my mac and am currently looking at the  
bundled examples to see what can be done with this beast. I'm very  
interested in interaction with SuperCollider, however I've run into a  
problem when executing the rt-sc.cm example.

After starting RTS, executing the line :

(sprout (sc-simple-1 10))

raises this error :

 > Error in process listener(1): Too many arguments in call to  
#<Compiled-function RTS-ENQUEUE #x8577B06>: 5 provided, at most 4  
accepted.
 > While executing: RTS-ENQUEUE

What should I do ?

Thanks in advance for your answers !

-- 
Axel Balley
Jazzmutant



From bil at ccrma.Stanford.EDU  Tue Aug 22 12:16:09 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Tue, 22 Aug 2006 12:16:09 -0700
Subject: [CM] Fw: snd now available as solaris package
In-Reply-To: <10d34e57411.a.cervellin@virgilio.it>
References: <10d34e57411.a.cervellin@virgilio.it>
Message-ID: <20060822191545.M52432@ccrma.Stanford.EDU>

---------- Forwarded Message -----------
From: Alessio Cervellin <a.cervellin at virgilio.it>
To: bil at ccrma.Stanford.EDU
Sent: Tue, 22 Aug 2006 09:00:55 +0100 (GMT+01:00)
Subject: snd now available as solaris package

Hi,
I'd like to inform you that SND is now available as pre-built Sun 
Solaris 8,9,10 and OpenSolaris package [1], both x86 & sparc arch, on 
the Blastwave community [2].
Now any Solaris user can install it just 
by typing "pkg-get -i snd" [3].

Thank you for the good work.

Alessio.
--
[1] http://www.blastwave.org/packages/snd
[2] http://www.blastwave.
org
[3] http://www.blastwave.org/howto.html
------- End of Forwarded Message -------



From mattia_zomer at yahoo.it  Thu Aug 24 01:48:37 2006
From: mattia_zomer at yahoo.it (Mattia Zomer)
Date: Thu, 24 Aug 2006 10:48:37 +0200 (CEST)
Subject: [CM] Resizing the record dialog?
Message-ID: <20060824084838.81949.qmail@web26214.mail.ukl.yahoo.com>

Hi all,
  I'm new to snd and to scheme programming.
  I read some of the quite abundant documentation of snd, and I have to say
  I'm really impressed.
  Right now though, I'm on the steepest part of the learning curve, I promise
  I'll try do to my best.
  I have an acer laptop PC, 15", Debian sarge on it. Gnome.
  The record dialog doesn't fit in the screen and there is no way to resize it.
  I tried to set vu-size and vu-font-size variables, with no results.
  I can't find anything else in the documentation, and the only message
  that refers to this problem in the mailing list archive does not really explain.
  Can anyone help? Thanks,
  Mattia

 Chiacchiera con i tuoi amici in tempo reale! 
 http://it.yahoo.com/mail_it/foot/*http://it.messenger.yahoo.com 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20060824/bd30dbe7/attachment.html>

From bil at ccrma.Stanford.EDU  Thu Aug 24 04:16:42 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 24 Aug 2006 04:16:42 -0700
Subject: [CM] recorder size
Message-ID: <20060824111358.M26251@ccrma.Stanford.EDU>

 > The record dialog doesn't fit in the screen and there is no way to resize it.

oops -- I hadn't noticed this.  It appears that my way of making a dialog
resizable in gtk no longer works -- some of them can be made bigger, a few
can be made slightly smaller, but all are messed up.  I wonder how long
this has been broken!  I'll poke at it later today.  Thanks for the
"heads-up".

(Ideally, the dialog's widgets and fonts would resize automatically as you
change the overall size, but one thing at a time...)



From bil at ccrma.Stanford.EDU  Thu Aug 24 04:27:47 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 24 Aug 2006 04:27:47 -0700
Subject: [CM] --with-x11 switch
Message-ID: <20060824112301.M22253@ccrma.Stanford.EDU>

I'd like to remove this configure switch from libxm/Snd -- would that
inconvenience anyone?  It would mean that a few X functions would not
be directly accessible in the gtk version of Snd, but surely no one should be
depending on that sort of hackery!

(I think the gtk project is working on a Mac-native version;
that's how I interpret some changes they've made; if this becomes an option,
it will make Snd much easier to build and use on a Mac).



From taube at uiuc.edu  Fri Aug 25 05:26:50 2006
From: taube at uiuc.edu (Rick Taube)
Date: Fri, 25 Aug 2006 07:26:50 -0500
Subject: [CM] RTS-enqueue
In-Reply-To: <BAEEA8E5-DD3D-474F-9B81-312AD03CA80C@jazzmutant.com>
References: <BAEEA8E5-DD3D-474F-9B81-312AD03CA80C@jazzmutant.com>
Message-ID: <88820553-6A0B-4A14-B9BA-074631CCD1D8@uiuc.edu>

im sorry for the delay in this replay. i just tried this and it  
works, so my guess is you have stale sources somewhere.
use cvs to checkout and make the latest versions of the software:

cvs checkout cm
cvs checkout rts
cvs checkout osc

then cd into the rts and osc dirs and do

	./configure
	make

then start cm and load the software:

cm
(use-system :rts)
(use-system :osc)

then start Supercollider and use the examples in cm/etc/examples/rt- 
cm.lisp

--rick





On Aug 20, 2006, at 8:36 AM, Axel BALLEY wrote:

> Hi List !
> I set up CM yesterday on my mac and am currently looking at the  
> bundled examples to see what can be done with this beast. I'm very  
> interested in interaction with SuperCollider, however I've run into  
> a problem when executing the rt-sc.cm example.
>
> After starting RTS, executing the line :
>
> (sprout (sc-simple-1 10))
>
> raises this error :
>
> > Error in process listener(1): Too many arguments in call to  
> #<Compiled-function RTS-ENQUEUE #x8577B06>: 5 provided, at most 4  
> accepted.
> > While executing: RTS-ENQUEUE
>
> What should I do ?
>
> Thanks in advance for your answers !
>
> -- 
> Axel Balley
> Jazzmutant
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From daniel_stahl at mac.com  Fri Aug 25 11:55:51 2006
From: daniel_stahl at mac.com (Daniel Stahl)
Date: Fri, 25 Aug 2006 20:55:51 +0200
Subject: [CM] Problem with CLM on MacOSX with intel
Message-ID: <8B03BF74-AFA9-4512-824A-0A6FFB86903F@mac.com>

Hi
The first problem was finding a workable Lisp. I found sbcl and  
guile. As far as I can tell neither clisp or OpenMCL is working under  
MacOSX with Intel yet.

I first tried to run clm with sbcl 0.9.15. It loads fine but cant  
compile instruments. I tried to compile and load "v.ins" with no  
succes. Here is the output.

(compile-file "v.ins")
; Writing "/Users/daniel_stahl/Desktop/clm-3/clm_FM_VIOLIN.c"
;
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL LOAD

;
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE
; Compiling "/Users/daniel_stahl/Desktop/clm-3/clm_FM_VIOLIN.c"
i686-apple-darwin8-gcc-4.0.1: -framework: linker input file unused  
because linking not done
i686-apple-darwin8-gcc-4.0.1: CoreAudio: linker input file unused  
because linking not done
; Creating shared object file "/Users/daniel_stahl/Desktop/clm-3/ 
clm_FM_VIOLIN.so"

;
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD EVAL


; file: /Users/daniel_stahl/Desktop/clm-3/v.ins
; in: DEFINSTRUMENT FM-VIOLIN
;     (RUN
;    (LOOP FOR I FROM BEG TO END DO
;          (DECLARE
;           (TYPE :FLOAT NOISE-AMOUNT FUZZ IND-FUZZ AMP-FUZZ  
MODULATION FM1-RAT
;            FM2-RAT FM3-RAT VIB)
;           (TYPE :MUS-ANY IND-NOI AMP-NOI) (TYPE :DOUBLE* COEFFS)
;           (TYPE :BOOLEAN FROBBER EASY-CASE MODULATE))
;          (IF (/= 0.0 NOISE-AMOUNT)
;              (IF (NULL FROBBER) (SETF FUZZ #) (SETF FUZZ #)))
;          (SETF VIB (+ (ENV FRQF) (TRIANGLE-WAVE PERVIB) (RAND- 
INTERP RANVIB)))
;          (IF IND-NOI (SETF IND-FUZZ (+ 1.0 #))) ...))
; --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE- 
BIND
; --> MULTIPLE-VALUE-CALL
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (CLM::*CLM-DATAI-LEN*) (CLM::*CLM-DATAR-LEN*)  
&REST #:G193)
;       (DECLARE (IGNORE #:G193))
;       (LET ((CLM::*CLM-BEG* (FLOOR #))
;             (CLM::*CLM-END* (AND # #))
;             (CLM::*CLM-DATAI*
;              (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL- 
ELEMENT 0))
;             (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR- 
LEN*)))
;         (CLM::LOAD-VARS 49 26
;                         '((MODULATE 47 0 :BOOLEAN) (EASY-CASE 45  
0 :BOOLEAN)
;                           (FROBBER 43 0 :BOOLEAN) (COEFFS 41  
0 :DOUBLE-ARRAY)
;                           (VIB 0 25 :REAL) (FM3-RAT 0 24 :REAL)
;                           (FM2-RAT 0 23 :REAL) (FM1-RAT 0 22 :REAL)
;                           (MODULATION 0 21 :REAL) (AMP-FUZZ 0  
20 :REAL)
;                           (IND-FUZZ 0 19 :REAL) (FUZZ 0 18 :REAL) ...)
;                         CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM- 
DATAR*)
;         (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM- 
BEG+)
;         (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM:: 
+CLM-END+)
;         (IF (AND END (< CLM::*CLM-END* CLM::*CLM-BEG*))
;             (WARN "end time < begin time: ~A from ~A to ~A?" 'FM- 
VIOLIN
;                   CLM::*CLM-BEG* CLM::*CLM-END*))
;         (IF *CLM-DEBUG*
;             (PRINT
;              (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" '|clm_fm_violin2|
;                      CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
;                      CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
;         (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
;         (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
;         (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME  
CLM::*CLM-BEG*))
;         (PROGN (TAGBODY (RESTART-CASE # #) CLM::NOTE-ALL-DONE))
;         (IF (NOT (ZEROP #))
;             (FORMAT T "interrupted: ~A"
;                     (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))))
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-DATAI-LEN*, not  
the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-DATAR-LEN*, not  
the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables

; --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE- 
BIND
; --> MULTIPLE-VALUE-CALL FUNCTION
; ==>
;   (LET ((CLM::*CLM-BEG* (FLOOR (+ BEG CLM::*OFFSET*)))
;         (CLM::*CLM-END* (AND (NUMBERP END) (FLOOR #)))
;         (CLM::*CLM-DATAI*
;          (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
;         (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
;     (CLM::LOAD-VARS 49 26
;                     '((MODULATE 47 0 :BOOLEAN) (EASY-CASE 45  
0 :BOOLEAN)
;                       (FROBBER 43 0 :BOOLEAN) (COEFFS 41 0 :DOUBLE- 
ARRAY)
;                       (VIB 0 25 :REAL) (FM3-RAT 0 24 :REAL)
;                       (FM2-RAT 0 23 :REAL) (FM1-RAT 0 22 :REAL)
;                       (MODULATION 0 21 :REAL) (AMP-FUZZ 0 20 :REAL)
;                       (IND-FUZZ 0 19 :REAL) (FUZZ 0 18 :REAL) ...)
;                     CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
;     (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
;     (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM:: 
+CLM-END+)
;     (IF (AND END (< CLM::*CLM-END* CLM::*CLM-BEG*))
;         (WARN "end time < begin time: ~A from ~A to ~A?" 'FM-VIOLIN
;               CLM::*CLM-BEG* CLM::*CLM-END*))
;     (IF *CLM-DEBUG*
;         (PRINT
;          (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" '|clm_fm_violin2|
;                  CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
;                  CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
;     (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
;     (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
;     (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM- 
BEG*))
;     (PROGN
;      (TAGBODY
;        (RESTART-CASE
;         (|clm_fm_violin2| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN*
;          CLM::*CLM-DATAI* CLM::*CLM-DATAI-LEN*)
;         (NIL NIL :REPORT "try to exit current note cleanly and go  
on." #))
;       CLM::NOTE-ALL-DONE))
;     (IF (NOT (ZEROP (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))
;         (FORMAT T "interrupted: ~A"
;                 (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+))))
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-BEG*, not the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-END*, not the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-DATAI*, not the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables
;
; caught STYLE-WARNING:
;   using the lexical binding of the symbol CLM::*CLM-DATAR*, not the
;   dynamic binding, even though the symbol name follows the usual  
naming
;   convention (names like *FOO*) for special variables

;
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD EVAL


; file: /Users/daniel_stahl/Desktop/clm-3/v.ins
; in: DEFINSTRUMENT FM-VIOLIN
;     (RUN
;    (LOOP FOR I FROM BEG TO END DO
;          (DECLARE
;           (TYPE :FLOAT NOISE-AMOUNT FUZZ IND-FUZZ AMP-FUZZ  
MODULATION FM1-RAT
;            FM2-RAT FM3-RAT VIB)
;           (TYPE :MUS-ANY IND-NOI AMP-NOI) (TYPE :DOUBLE* COEFFS)
;           (TYPE :BOOLEAN FROBBER EASY-CASE MODULATE))
;          (IF (/= 0.0 NOISE-AMOUNT)
;              (IF (NULL FROBBER) (SETF FUZZ #) (SETF FUZZ #)))
;          (SETF VIB (+ (ENV FRQF) (TRIANGLE-WAVE PERVIB) (RAND- 
INTERP RANVIB)))
;          (IF IND-NOI (SETF IND-FUZZ (+ 1.0 #))) ...))
; --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE- 
BIND
; --> MULTIPLE-VALUE-CALL FUNCTION LET PROGN TAGBODY RESTART-CASE  
BLOCK LET
; --> TAGBODY RESTART-BIND LET RETURN-FROM
; ==>
;   (|clm_fm_violin2| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN* CLM::*CLM- 
DATAI*
;    CLM::*CLM-DATAI-LEN*)
;
; caught STYLE-WARNING:
;   undefined function: |clm_fm_violin2|

;
; caught STYLE-WARNING:
;   This function is undefined:
;     |clm_fm_violin2|
;
; compilation unit finished
;   caught 12 STYLE-WARNING conditions
#P"/Users/daniel_stahl/Desktop/clm-3/v.fasl"
T
NIL

(with-sound () (fm-violin 0 1 440 .1))

debugger invoked on a UNDEFINED-FUNCTION:
   The function |clm_fm_violin2| is undefined.


Then I tried to build soundlib and use it from Guile. The static  
library was built but not the dynamic library. The dynamic library  
command was ":  headers.o audio.o io.o sound.o xen.o vct.o clm.o ...".

Best regards
/Daniel St?hl



From bil at ccrma.Stanford.EDU  Sat Aug 26 08:16:40 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sat, 26 Aug 2006 08:16:40 -0700
Subject: [CM] Re: Problem with CLM on Mac
Message-ID: <20060826151026.M99780@ccrma.Stanford.EDU>

>   The function |clm_fm_violin2| is undefined.

This is a new problem, introduced by sbcl 0.9.15 (see CLM's README.clm);
I haven't had time to look into it yet.


On the Mac dynamic library -- I don't know how to build such a thing, 
so it's commented out in the makefile.  


I think clisp does work in MacIntel -- I have it running on my machine 
(version 2.39).   According to my notes it ran all the tests.



From daniel_stahl at mac.com  Sat Aug 26 10:17:32 2006
From: daniel_stahl at mac.com (Daniel Stahl)
Date: Sat, 26 Aug 2006 19:17:32 +0200
Subject: [CM] Re: Problem with CLM on Mac
In-Reply-To: <20060826151026.M99780@ccrma.Stanford.EDU>
References: <20060826151026.M99780@ccrma.Stanford.EDU>
Message-ID: <6797713C-03FE-4846-9F58-0DDFE5C4F57B@mac.com>

Sucess
I changed the following lines in defins.lisp
#+(and sbcl (or sgi sun linux))
	     (sb-alien:define-alien-routine (,c-ff-name ,c-ff-cmu) sb-alien:int
				      (datar (* double-float))
				      (len sb-alien:int) (datai (* sb-alien:int)) (ilen sb- 
alien:int))

.. to ..
#+sbcl
	     (sb-alien:define-alien-routine (,c-ff-name ,c-ff-cmu) sb-alien:int
				      (datar (* double-float))
				      (len sb-alien:int) (datai (* sb-alien:int)) (ilen sb- 
alien:int))

and
  #+(and sbcl (or sgi sun linux))
	     (defun ,c-ff (c &optional d e f)
	       (,c-ff-cmu (array-data-address c) d (array-data-address e) f))
..to..
#+sbcl
	     (defun ,c-ff (c &optional d e f)
	       (,c-ff-cmu (array-data-address c) d (array-data-address e) f))

and it worked. I tried to change the line #+(and sbcl (or sgi sun  
linux)) to #+(and sbcl (or sgi sun linux macosx)) but it did not  
work. Thats why I used #-sbcl.

Best Regards
Daniel St?hl



From bil at ccrma.Stanford.EDU  Sat Aug 26 10:54:47 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sat, 26 Aug 2006 10:54:47 -0700
Subject: [CM] Re: Problem with CLM on Mac
In-Reply-To: <6797713C-03FE-4846-9F58-0DDFE5C4F57B@mac.com>
References: <20060826151026.M99780@ccrma.Stanford.EDU> <6797713C-03FE-4846-9F58-0DDFE5C4F57B@mac.com>
Message-ID: <20060826175422.M1572@ccrma.Stanford.EDU>

Thanks very much!  I'll merge those changes into the clm tarball
later today.




From hugovanwoerkom at yahoo.com  Sun Aug 27 11:24:23 2006
From: hugovanwoerkom at yahoo.com (hugo vanwoerkom)
Date: Sun, 27 Aug 2006 11:24:23 -0700 (PDT)
Subject: [CM] snd with 2nd soundcard
Message-ID: <20060827182423.52366.qmail@web53308.mail.yahoo.com>

Hi,

Perusing the mailing list archive I found that to use
the second soundcard for snd you
use:SNDLIB_ALSA_DEVICE

It does not seem to do the trick:

rocio at debian:~$ SNDLIB_ALSA_DEVICE="hw:1,0" snd &
[1] 18082
rocio at debian:~$ /dev/dsp2: No such file or directory!
[1]+  Done  SNDLIB_ALSA_DEVICE="hw:1,0" snd
rocio at debian:~$

Just produces sound on the first soundcard. But:

rocio at debian:~$ xmms
Message: device: hw:1,0
Message: fmt 5, channels: 2
rocio at debian:~$

does play to the second sound card.

This is on Debian Sid:

hugo at debian:/sda7/backup.files/fromhd/home/rocio$ snd
--help
/dev/dsp2: No such file or directory! Snd is a sound
editor; see http://ccrma.stanford.edu/software/snd/.
This is Snd version 7.18 of 17-Jan-06:
    Xen: 1.40, Guile: 1.6.8
    OSS 3.8.2
    Sndlib 19.16 (21-Nov-05, float samples)
    CLM 3.20 (20-Dec-05)
    GSL 1.6
    fftw-3.1.1-sse2
    Gtk+ 2.8.9, Glib 2.8.6, Pango 1.10.2, Atk 1.10.1,
Cairo 1.0.2
    OpenGL 1.5.6 NVIDIA 87.62 (snd gl module:
11-Jul-05), gtkglext 1.0.6
    LADSPA 1.1, Jack: 0.100.0
    with fam
    with large file support
    with gettext: en_US.ISO-8859-15
    Compiled Feb 19 2006 23:04:31
    C: 4.0.3 20051201 (prerelease) (Debian 4.0.2-5)
    Libc: 2.3.6.stable
    host: i486-pc-linux-gnu
    configured via:
/home/geiger/demudi/auto/snd/snd-7.18/build-tree/snd-7/configure
--build=i486-linux-gnu --prefix=/usr
--includedir=${prefix}/include
--mandir=${prefix}/share/man
--infodir=${prefix}/share/info --sysconfdir=/etc
--localstatedir=/var --libexecdir=${prefix}/lib/snd
--srcdir=. --disable-maintainer-mode --with-ladspa
--with-gtk --with-guile --with-gl --enable-debug
--enable-alsa --with-jack

Thanks!

H







__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 



From nolv at free.fr  Thu Aug 31 13:44:53 2006
From: nolv at free.fr (Olivier =?iso-8859-1?b?RG9hcuk=?=)
Date: Thu, 31 Aug 2006 22:44:53 +0200
Subject: [CM] snd_frg.scm
Message-ID: <1157057093.44f74a4579bd0@imp2-g19.free.fr>

Hello,

You will find here my conffile that tries to emulate the workflow i had with
Sound Forge:

http://nolv.free.fr/snd/snd_frg.scm

Main features are:

- mouse wheel zooming (+ctrl to zoom vertically)
- up/down arrows to zoom (+ctrl to zoom vertically)
- left/right key to move one pixel (or one sample at high zoom ratios) (+ctrl to
extend selection)

- double click between marks to select range
- m to make a mark (named mark is now done with M)

- ctrl-x , ctrl-c , ctrl-v , ctrl-b to cut, copy, paste, mix.

+ many other shortcuts


Now the problems:

* Problem 1:
For the moment, it doesn't work with recent versions of Snd. This file is a fork
of K.S.Matheussen's snd_conffile.scm and works well with the version of Snd in
the latest Snd-ls distribution (is it 8.0?). But i need to replace gui.scm by
the one in latest cvs of Snd to use double-click and ctrl-wheel.

Note that snd_conffile.scm also doesn't work in recent Snd distributions.

To test, you can download here my custom version of Snd (8.0 from snd-ls with
newest gui.scm) :
http://nolv.free.fr/snd/snd-8nolv.tar.bz2

Compile with gtk enabled and run with:
./snd -l snd_frg.scm

* Problem 2
To compile Snd with all gtk extensions, it seems that --with-static-xg flag is
needed. If not, xg.o nor xg.so are produced. I need to compile them manually.
Looks like a bug in configure or something like that.

Sorry for my english. Questions are welcome if this mail is not clear.
--
Olivier



From bil at ccrma.Stanford.EDU  Thu Aug 31 17:35:55 2006
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Thu, 31 Aug 2006 17:35:55 -0700
Subject: [CM] snd_frg.scm
In-Reply-To: <1157057093.44f74a4579bd0@imp2-g19.free.fr>
References: <1157057093.44f74a4579bd0@imp2-g19.free.fr>
Message-ID: <20060901003522.M22789@ccrma.Stanford.EDU>

Thanks very much!  I'll include that in the Snd tarball, and check out the
other problems you mention tomorrow.