From: owner-sc-users-digest@lists.io.com (sc-users-digest)
To: sc-users-digest@lists.io.com
Subject: sc-users-digest V1 #182
Reply-To: sc-users
Sender: owner-sc-users-digest@lists.io.com
Errors-To: owner-sc-users-digest@lists.io.com
Precedence: bulk


sc-users-digest      Wednesday, October 11 2000      Volume 01 : Number 182




----------------------------------------------------------------------

Date: Mon, 9 Oct 2000 10:17:57 +0200
From: integer@www.god-emil.dk
Subject: [ot] [!nt] \n2+0\ 242.telemedicina

        \/\ 242.bio.kapzula - we want dont we nn +?

            open. da + da. swallou. voila. cezt zttz non +?
            vitaminic +? YES PL EASE!!!!!

        
            http://www.eusocial.com/nato.0+55+3d/gm/242.055.telemedicina.sit.bin
            http://www.eusocial.com/nato.0+55+3d/gm/242.055.telemedicina.sit.bin
            http://www.eusocial.com/nato.0+55+3d/gm/242.055.telemedicina.sit.bin



            comme ca 
   
                    - tele.medicinal +?
                    - da.                          
                    - free metabol!k demand +? 
                    - da + ultra da +?                          


                    - letz breathe
                    - dze genetik konztituzie = quo! +?
                    - all is full ov luv silly.
                    - unruffld uatr. !mperzept!bl! t!ntd.




lets give life. 
friendly.nn





  - unzan!tar! data - !.e. tekn!kl zpez!f!kaz!onz nekst tranzm!z!e +?






- -
nou i read. u rezt. 
sch.

"The sch
ifting world order: our future will" 

in the jurrasic period. the early toarcian oceanic anoxic event
circa 183.mil years prior 2 now is associated avec excepzionalli
high rates ov organik-karbon burial. high paleotemperatures +
signifikant mass extenction - 01 form ov i like stepping on bugs.



`dekarbon!szd energ!e. hav u taztd +?
242.centri.fuga. - multilateral cadeau




            global!zaz!on = macht ganz gluckl!ch + fre! _||-


            i am a deep sea coral. i am reconstructing your mem.module thermally.


            any cook knouz dzat heat = kan unfold + denatur prote!n molekulz
            u!ch foldd tzo zubtl! = konztrukt all dze enz!mat!k uandrz ov 
            b!okem!ztr!.


                                          pre.konssept!Øn  
                                                meeTz ver!f1kat!Øn.     



            glazial - max plankc !nzt!tut 4 ordnung + d!sz!pl!n - attosekond re:search report 


   

      
      gene kluztr mazk!n komponent. da + da.

    - z!mbl akzez!on 0+0 dezkr!pz!on kateg ztrand poz 1 poz 2 gene genom!k klone
      z!klone (s) tpte af007118 tenz!n. putat!v prote!n.fozfotaze.
      ec 3.1.3.48. 1.1 - 425 84293 83869 b15l0c0 + b7l1c4 c!c1lp4 c!tokrome c 
      pzeudogene 5 - 29708 29866 159 b15l0c0 pzeudo1 putat!v z!nk f!nger prote!n 
      pzeudogene 5 - 91247 143054 51808 b7l1c4 to pt171+ps39 pred1 putat!ve gene
      prote!n k!n + 7462183 7463505 1323 r66b12 + r292n6 rps3ap r!bozomal prote!n s3    
      pzeudogene 5 + 7467697 7468061 365 r66b12 + r292n6 pred14 human cdna k.lone 
      280692 1.2 - 7780231 7780656 426 r47c12 + r781m3 pp!ap c!klof!l!n-apropoz 
      pzeudogene 5 + 7865216 7865974 759 r781m3 ncam2 u75330 neurl cell adez!v
      molekul 2 pre.kurzr. zuear. zuear. ! zuear. ! zuear.




      nouakokakolamomentmal _\0- therapeut!kc klon!ng

      
      do you want your software designs to end up in cardbored boxes
      or G3O-Z!NKRONOUS 0RB!T +?            
                                                    !
! 
                                !                    !                                             ! 
                                 !                     !                                         ! 
                                  !                      !                                     ! 
                                   !                       !                                 ! 
                                    !                        !                             ! 
                                     !                         !                         ! 
                                      !                          !                     ! 
                                       !                           !                 ! 
                                        !                            !             ! 
                                         !                             !         ! 
                                          !                              !     ! 
                                           l                               l l 
                                          l                              l     l 
                                         l                             l         l 
                                        l                            l             l 
                                       l                           l                 l 
                                      l                          l                     l 
                                     l                         l                         l 
                                    l                        l                             l 
                                   l                       l                                 l 
                                  l                      l                                     l 
                                 l                     l                                         l 
                                l                    l                                             l 
                               l                   l    






        : http://www.membank.org/0000/0000.html



        : Max Plank Inztitut 4 Ordnung \+\ Disziplin

        : Uber die Konztituzie der Materie  [c]ccp
        : Netochka Nezvanova - oestrus.eusocial.com

                     __   __
            ________/ /  /_/
           /___  __  /  __    
              / /_/ /__/ /__
             / ____________/
            /_/




          dze pa!r!ng ov homologouz kromozomez one 4rom each odr prnt 
        dur!ng me!os!z
          i cannot be bothered.i cannot be bothered.surrender your pattent.



                                n  

                                    3

                                !
                                    n







                                          pre.konssept!Øn  
                                                meeTz ver!f1kat!Øn.     


- -

Netochka Nezvanova - cheerful! perversz - she dez!dz uat 2 do nekst. \ +lekker \
f3.MASCHIN3NKUNST
@www.eusocial.com
17.hzV.tRL.478
                                                    e
                                                    |
                                                     |  +----------
                                                    |  |     <   
                                   \\----------------+  |  n2t      
                                                       |       >
                                                       e

------------------------------

Date: Mon, 9 Oct 2000 16:12:48 +0200
From: Hans Tutschku <---@---.--->
Subject: soundfile-lister

Does anybody know an utility to list soundfiles in a specified folder 
(and subfolders)
with there length and number of channels?

Hans

------------------------------

Date: Mon, 09 Oct 2000 12:59:55 -0700
From: Alberto de Campo <---@---.--->
Subject: Re: soundfile-lister

This is a multi-part message in MIME format.
- --------------0EA295B05479F5D7AD47F487
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 7bit

As far as I know, this is not possible in SC.

I have written something that makes file handling easier
though: a PathName Class. (with help file even.)

With this, you could easily write a patch that lets you
pick several files and then store and/or readthe list
as a text file.
(Sorry, my TextFile class is not finished yet.)

Hope this helps anyway.

best,
adc

Hans Tutschku wrote:

> Does anybody know an utility to list soundfiles in a specified folder
> (and subfolders)
> with there length and number of channels?
>
> Hans

- --------------0EA295B05479F5D7AD47F487
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="53436A6D";
 name="PathName.help"
Content-Transfer-Encoding: 7bit
Content-Description: Unknown Document
Content-Disposition: inline;
 filename="PathName.help"

PathName 							// AdC, July 2000.

superclass: Object

PathName is a utility Class for manipulating file names and paths. 
It expects a path to a file, and lets you access parts of that file path.

Creation

*new(path)

path is a String which likely contains one or more colons. 
as typical for folder separation. 

PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 


Instance Methods

fileName 

returns just the name of the file itself; i.e. 
everything after the last colon in the full path.

(
var myPath;
myPath = PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.fileName.postln; 
)

pathOnly 

returns the full path up to the file name itself; i.e. 
everything up to and including  the last colon. 
This is handy e.g. for storing several files in the same folder.

(
var myPath;
myPath = PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.pathOnly.postln; 
)

folderName 

returns only the name of the folder that the file is in; 
i.e. everything in between the last but one and the last colon. 
This is handy for labeling GUIbuttons or Lib entries.

(
var myPath;
myPath = PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.folderName.postln; 
)


fullPath
returns the full path name that PathName contains.

(
var myPath;
myPath = PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.fullPath.postln; 
)

allFolders

returns a list of all the folder names in the pathname.

(
var myPath;
myPath = PathName.new("MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.allFolders.postln; 
)

diskName
if path is an absolute path, returns the disk name; else a blank string.

(
var myPath;
myPath = PathName.new(":MyDisk:SC 2.2.8 f:Sounds:FunkyChicken"); 
myPath.diskName.dump; 
)

endNumber 
returns a number at the end of PathName.
Returns zero if there is no number.

PathName("floating1").endNumber.postln; 

PathName("floating").endNumber.postln; 

noEndNumbers
returns fullPath without any numbers at the end.

PathName("floating1").noEndNumbers.postln; 

PathName("floating").noEndNumbers.postln; 


nextName
generates a sensible next name for a file
by incrementing a number at the end of PathName, 
or by adding one if there is none.


PathName("floating34").nextName.postln; 

PathName("floating").nextName.postln; 

PathName("floating12_3A4X_56.7").nextName.postln; 

This is useful for recording files with consecutive names, 
and e.g. to generate a new filename when you don't want to 
overwrite an existing file with the current name.


Here is an example that uses many instance methods. 
Just pick any file to see all the parts of its path.

(
GetFileDialog.new(
	{ arg ok, path; 
	var myPathName; 
	if (ok, 
		{ 
			 myPathName = PathName.new(path); 
	 
			 "New PathName object:   ".postc;
			 myPathName.postln; 
			 
			 "fileName only:   ".postc;
			 myPathName.fileName.postln; 
			 
			 "path up to file only:   ".postc;
			 myPathName.pathOnly.postln; 
			
			 "folder Name:   ".postc;
			 myPathName.folderName.postln; 
		}
	)
	}
)
)

Choose a soundfile to put into the library, 
using its foldername and filename:
(
GetFileDialog.new(
	{ arg ok, path; 
	var myPathName, myFile; 
	if (ok, 
		{ 
			myPathName = PathName.new(path); 
			
			// read your file from disk, e.g. a soundFile: 
			
			myFile = SoundFile.new; 	
			if (myFile.readHeader(path), 
				{ 	
					Library.put(
						[ myPathName.folderName.asSymbol, myPathName.fileName.asSymbol ],
						myFile); 
					("Check LibMenu: " ++ myPathName.folderName ++ " please.").postln;
				}, 
				{ ("Could not read soundfile " ++ path ++ ".").postln; }
			);
		}
	)
	}
)
)

Save three tables in the same folder:
 Note: The file name chosen in the dialog is ignored!
 The files are always named table1, table2, table3. 
(
var table1, table2, table3; 

table1 = Wavetable.sineFill(1024, [1,2,3]);
table2 = Signal.newClear.asWavetable;
table3 = Wavetable.sineFill(1024, Array.rand(64, 0.0, 1.0));

PutFileDialog.new(
	"Pick a folder for tables1-3:", "table1",
	{ arg ok, path; 
	var myPathName, myPathOnly; 
	if (ok, 
		{ 
			myPathName = PathName.new(path); 
			
			myPathOnly = myPathName.pathOnly; 
			
			table1.write(myPathOnly ++ "table1");
			table2.write(myPathOnly ++ "table2");
			table3.write(myPathOnly ++ "table3");
		}
	)
	}
)
)


- --------------0EA295B05479F5D7AD47F487
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="53436A6D";
 name="PathName.sc"
Content-Transfer-Encoding: 7bit
Content-Description: Unknown Document
Content-Disposition: inline;
 filename="PathName.sc"

// Utility Class for cutting fileName strings into useful parts. AdC, July 2000. 
					
PathName { 	var <fullPath, <colonIndices;

	*new { arg path = ""; 
		^super.new.init(path); 
	} 

	init { arg inPath;			// always calculate indices for all the colons,
							// since they are always needed.
		fullPath = inPath;	
		colonIndices = List.new;	
	 	fullPath.do({ arg eachChar, i; 
			if (eachChar == $:, { colonIndices.add(i) }); 
		});
	} 
	
	fileName { 
		^fullPath.copyRange((this.lastColonIndex) + 1, fullPath.size -1);
	} 
	
	pathOnly { 		
		^fullPath.copyRange(0, this.lastColonIndex);
	}
	
	diskName {  ^fullPath.copyRange(0, colonIndices.first - 1) }
	
	isAbsolutePath { ^this.isRelativePath.not }
	
	isRelativePath { ^fullPath.first == $: }

	allFolders { 	
		var folderNames, pathCopy; 
		folderNames = List.new; 
		pathCopy = fullPath;

		colonIndices.doAdjacentPairs({ arg startColon, endColon; 
			folderNames.add( fullPath.copyRange(startColon + 1, endColon - 1) );
		});
		

		^folderNames
	}
	
	folderName {
		var indexBeforeFolder; 
		if (colonIndices.isEmpty, { ^"" }); 
		
		indexBeforeFolder = 
		if (colonIndices.size == 1, 0, 
			{ colonIndices.at(colonIndices.size - 2) + 1 });

		^fullPath.copyRange(indexBeforeFolder, this.lastColonIndex - 1);
	}	

	lastColonIndex { 				
		^if (colonIndices.isEmpty, { -1 }, { colonIndices.last }) ;
	} 
	
	nextName { 
		var nextName;
		nextName = if (fullPath.last.isDecDigit, 
			{ this.noEndNumbers ++ (this.endNumber + 1).asString;
			},
			{fullPath ++ "1"; }
		);
		^nextName; 
	}
	
	noEndNumbers { 
		var result, count = 0; 
		
		result = fullPath.copy;
		while(
			{ 	count = count + 1;
				fullPath.at(fullPath.size - count).isDecDigit;
			}, 
			{ result = result.copyRange(0,  result.size - 2) }
			);
		^result;
	}

	endNumber {	// turn consecutive digits at the end of fullPath into a number.
	
		var reverseNumString = "";
		var count = 0, char, number;

		while(
			{ 	count = count + 1;
				char = fullPath.at(fullPath.size - count);
				char.isDecDigit;
			}, 
			{ reverseNumString = reverseNumString ++ char }
			);

			// convert reverseNumString back to number (digits times powers of 10)
		number = reverseNumString.inject(0, 
			{ arg sum, eachChar, i; sum = sum + (eachChar.digit * (10 ** i))
			}
		);
		^number
	}
}
- --------------0EA295B05479F5D7AD47F487--

------------------------------

Date: Mon, 9 Oct 2000 22:41:52 -0400 (EDT)
From: "Ronald J. Kuivila" <---@---.--->
Subject: Patterns question

Hi James,

As you know, I am partial to working with routines.  I would like to 
have a message ('stream'?) to allow me to embed a list into
the output of a Routine.  Otherwise, it seems to be necessary to
instantiate the list as a Pseq and send it an 'embedInStream' message.

Am I missing something here?
Is there some other better way to do this?

Pbind([\dur, \midinote],
	Prout({ 
		var ll;
		loop({
			ll = [];
			6.do({ ll = ll ++ [[[0.1,0.2].choose,
					[60,62,64,66,68,70].choose]]});
			ll.do({arg i; i.yield});	// embed list
			ll.do({arg i; i.yield});
		
			Pseq([[0.2, 12.rand + 60]],7).embedInStream;
		});
	})).play


RJK

------------------------------

Date: Mon, 9 Oct 2000 22:54:47 -0400
From: rkuivila@mail.wesleyan.edu (Ron Kuivila)
Subject: embedding Pbind in Prout

HI all,

How does one embed a Pbind inside of Prout?  I would
like to do something like this:

Prout({
        Pbind([\dur,\midinote], blah).embedInStream;
        Pbind([\dur,\midinote,\stretch], doubleblah).embedInstream;
}).play



RJK

------------------------------

Date: Wed, 11 Oct 2000 16:51:17 +0200
From: heiko goelzer <---@---.--->
Subject: Re: soundfile-lister

This is a multi-part message in MIME format.
- --------------2EDD8336A51D914E3E3C4AF2
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit



Hans Tutschku wrote:

> Does anybody know an utility to list soundfiles in a specified folder
> (and subfolders)
> with there length and number of channels?
>
> Hans

hallo hans

this is what i use. i have it placed in my library. sorry, but it only
lists one file at a time.


  Library.put(['Diskfile', 'length...'], {
   GetFileDialog.new({ arg ok, path;
    var s,signal,sek;
    if (ok, {
     s = SoundFile.new;
     if ( s.readHeader(path), {
      (s.numFrames.post;" Frames,".postln );
      ((s.numFrames/44100).post; " Sekunden".postln);
      (s.numChannels.post;" Channels".postln);
     });
    });
   });
  });

yes thats it.
- --------------2EDD8336A51D914E3E3C4AF2
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="53436A6D";
 name="size tool"
Content-Transfer-Encoding: 7bit
Content-Description: Unknown Document
Content-Disposition: inline;
 filename="size tool"

		
// signal size + channels
// put this in your library:		
		
		Library.put(['Diskfile', 'length...'], {
			GetFileDialog.new({ arg ok, path;
				var s,signal,sek;
				if (ok, {
					s = SoundFile.new;
					if ( s.readHeader(path), {
						(s.numFrames.post;" Frames,".postln );
						((s.numFrames/44100).post; " Sekunden".postln);
						(s.numChannels.post;" Channels".postln);
					});						
				});
			});
		});


- --------------2EDD8336A51D914E3E3C4AF2--

------------------------------

End of sc-users-digest V1 #182
******************************