Subject: MAX Digest - 21 Nov 1998 to 22 Nov 1998 (#1998-78)
Date: Mon, 23 Nov 1998 00:00:04 -0500
From: Automatic digest processor 
Reply-To: MAX - Interactive Music/Multimedia Standard Environments
     
To: Recipients of MAX digests 

There are 4 messages totalling 169 lines in this issue.

Topics of the day:

  1. Lisp interpreter extern? Spectral Display?
  2. Videoin ? (2)
  3. Basic Stamp

Email to MAX should now be sent to MAX@lists.mcgill.ca
LISTSERV commands should be sent to listserv@lists.mcgill.ca
Information is available on the WEB at http://www.mcgill.ca/cc/listserv

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

Date:    Sun, 22 Nov 1998 12:10:40 +0000
From:    mtheodore 
Subject: Lisp interpreter extern? Spectral Display?

Greetings folks,
As someone who hops back at forth between text-based and graphic-based
approaches to creating music, it occurs to me that a Max extern with a Lisp
interpreter would be a wonderful thing. That way one could use text to
specify
certain precise ideas (such as the extremely useful "item stream" setup of
Common
Music),
and then connect the output visually to various musical transformation
objects in a more or less free-wheeling fashion. This isn't to say that you
can't
be precise
in Max, or that you can't be free-wheeling in Lisp, but certain ideas
express
themselves
better in one or the other domain. Anyway, has anyone out there actually
built
such a thing?
Also, am I to take the silence on the queries (by myself and others)
regarding simple patches that demonstrate spectral display to
mean that they aren't out there (that seems hard to believe!)?
cheers,
Michael

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

Date:    Sun, 22 Nov 1998 22:37:28 +0100
From:    Roland Cahen & Ruth Sefton-Green 
Subject: Videoin ?

Is there a new version of Videoin ?
I meen one which would work with MSP ?

Roland Cahen

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

Date:    Sun, 22 Nov 1998 16:36:40 -0500
From:    Jeff Mann 
Subject: Re: Basic Stamp

Jeff Mann wrote:

> I managed to get the Stamp to send MIDI to Max. It's very easy
> once you know how. I can send you the circuit [...]

Pardon the ASCII art...   to Stamp data pin
'         220 ohms    \___|___/     220 ohms
'                         |
'                        _l_
'                        ///
'                      ground
'
'

'Comment out DEBUG statments for faster response.

'constants, shouldn't change these
midibaudmode con 32780  '31.25kb, 8n1, non-inverted, open collector
'for 14-bit controllers - controller 32 is lsb of controller 0, etc.
controllerLSBoffset con 32
'MIDI status bytes:
controller con %10110000 + midichannel
noteon con %10010000 + midichannel
pitchbend con %11100000 + midichannel

'declare variables
value var word          'holds the 16-bit value read from the pot
pin var nib             'which pin/pot we are reading at the moment
statusbyte var byte     'MIDI status; controller, noteon, or pitchbend
data1 var byte          'first data byte, eg. controller or note number
data2 var byte          'second MIDI data byte, eg. value or velocity

'user configuration - adjust these to suit you
'DANGER - check your circuitry and configure pins accordingly!!
'set unused pins to outputs
DIRS = %1111111111111111 'all outs
OUTS = %0000000000000000 'all low
midichannel con 1       'MIDI transmit channel
midioutpin con 0        'pin connected to MIDI out connector
'check the MIDI spec for a list of controller numbers you can use
controlleroffset con 0  'add to pot's pin # to get MIDI controller #
hipot con 15            'highest pin with a pot to measure
lowpot con 14           'lowest pin with a pot to measure

doit:
   debug HOME
   for pin = lowpot to hipot
     'read the value of the pot
     high pin
     pause 1
     rctime pin, 1, value
     debug "pot ", DEC pin, " reads ", DEC value, CR
     value = value >> 1      'drop the least significant bit

     'send most significant 7 bits as continuous controller msg
     statusbyte = controller         'sending controller message
     data1 = pin + controlleroffset  'controller #
     data2 = value.highbyte
     serout midioutpin, midibaudmode, [statusbyte, data1, data2]

     ''uncomment this section to send 14-bit controller data
     ''send least significant 7 bits
     'data1 = data1 + controllerLSBoffset
     'data2 = value.lowbyte
     'data2 = data2 >> 1     'convert to 7 bits
     ''use running status byte (can leave it out if unchanged)
     'serout midioutpin, midibaudmode, [data1, data2]
   next
goto doit

--
Jeff Mann - Information Consumer ___O___O__= -- >
mailto:jefman@utcc.utoronto.ca ||   http://www.interlog.com/~jefman
Visit the Art & Robotics Group site: http://www.interaccess.org/arg

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

Date:    Sun, 22 Nov 1998 22:19:33 -0500
From:    Eric Singer 
Subject: Re: Videoin ?

I was working on a PPC update but ran into some QT problems.  I'll try to
get back to it soon, hopefully to finish by year's end.

Eric

>Is there a new version of Videoin ?
>I meen one which would work with MSP ?
>
>Roland Cahen
>
>McGill is running a new version of LISTSERV (1.8d on Windows NT).
>Information is available on the WEB at http://www.mcgill.ca/cc/listserv

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

End of MAX Digest - 21 Nov 1998 to 22 Nov 1998 (#1998-78)
*********************************************************