I met with my group this friday and here is our idea.

We want to harness some kind of standing wave or magnetic material on a small scale and use the logo chip to fauilitate it. Possible use light in conjunction. These princibles may apply to a large project idea.

Group members:

Thomas Engdahl

Nick Meyer-Hesler

Muhammad Zahid

Andy Zerngast

John Carper

Our schedule is to research and investigate phenomonon for the next week. Next week (Friday) we will start building the device. Andy is going to look at ferrofuilds:How to attain/make it. Nick will look at some of the standing wave materials, diaphrams. John will investigate sound generators and possible music moments that could happen with PD. I am going to look at drivers (speakers) and the dry/salt standing wave patterns and lights with the logochip.

Here are some sources we pulled up during the Lab today.

http://www.youtube.com/watch?v=XlabdhjMnXo&mode=related&search=
http://www.youtube.com/watch?v=ToLI7WHObhE
voh.chem.ucla.edu/classes/Magnetic_fluids/
http://chemistry.about.com/od/demonstrationsexperiments/ss/liquidmagnet.htm

Comments(0)

Music Maker V2.1MarioS (Click Here)
My Programs are beginning to get a little lengthy. I will start providing a link to my program-wiki instead. This week I added functions relevant to the material taught this week to my program that I created last week. I created “equi-tempered beeps” to help reduce difference in beep length versus wavelength. There is also included the “S” or the sync functions for better network timing across more than one chip. Also register A0 has been converted to a analog input. In this program a potentiometer can be used to change the tempo as the song is being played. I also updated the resting functions.

Comments(0)

I finished my Mario Trio Program. I have been able to get 2 parts of the song to play at the same time. I need to get a 3rd logochip to see if it will work with 3.

Here is the program and some of my networking ideas.

http://cratel.wichita.edu/cratel/TASD2007/Thing_3/Programs/ThomasEngdahl/Mario_Trio

Comments(0)

Music Maker V1.0

;Bits-Musical Standard
;Defines Musical Note lengths and Pitchs
;Options may be added later (Tempo,Tones,Glissando,Init Duet)
;Tommy Engdahl

;—-Init port A0(or more) for digital output (PowerUp) and A2 for duet input—-
to Powerup
        write $fc1 $f
        clearbit 0 porta-ddr
        clearbit 0 porta
        clearbit 1 porta-ddr
        clearbit 1 porta
        setbit 2 porta-ddr
end

;—-Tuning for Musical Notation—-
constants [[g6 9][fs6 10][f6 11][w6 12][ds6 13][d6 14][cs6 15][c6 16]]
constants [[b5 17][as5 19][a5 20][gs5 22][g5 24][fs5 25][f5 27][w5 29][ds5 31][d5 33][cs5 35][c5 38]]
constants [[b4 41][as4 43][a4 46][gs4 49][g4 53][fs4 56][f4 59][w4 64][ds4 68][d4 72][cs4 76][c4 81]]
constants [[b3 86][as3 92][a3 98][gs3 104][g3 110][fs3 117][f3 125][w3 132][ds3 140][d3 148][cs3 158][c3 168]]
constants [[b2 179][as2 189][a2 200][gs2 212][g2 226]]

global [ tone ]
global [ pitch ]
global [ duration ]
global [ tempo ] ;factor on all time variables

to tick         ;fundamental sound
clearbit 0 porta
setbit 0 porta
end

;—-Note—-
to Note :Pitch :Duration   ; :tone might add more but will need new tuning
repeat :duration
        [ tick
                repeat :pitch [no-op]
        ]
end

:————-ROW ROW ROW YOUR BOAT (WITH ROUNDS)—————
to startup   ;insert song here
;staccato method :uniform beeps with rests for note duration
;note # #       rest/duration
note c3 10      mwait 500
note c3 10      mwait 500
note c3 10      mwait 500
note d3 10      mwait 250
note w3 10      mwait 500
note w3 10      mwait 500
note d3 10      mwait 250
note w3 10      mwait 500
note f3 10      mwait 250
note g3 10      mwait 1000
                                duet
note c4 10      mwait 166
note c4 10      mwait 166
note c4 10      mwait 166

note g3 10      mwait 166
note g3 10      mwait 166
note g3 10      mwait 166

note w3 7       mwait 166
note w3 7       mwait 166
note w3 7       mwait 166

note c3 5       mwait 166 ;compensation for note period
note c3 5       mwait 166
note c3 5       mwait 166

note g3 10      mwait 500
note f3 10      mwait 250
note w3 10      mwait 500
note d3 10      mwait 250
note c3 10      mwait 1000
end

;—-Duet Algorithm—-
to duet                 ;trigger starts a duet
        clearbit 1 porta
;       setbit 1 porta
end
                        ;listens to start duet
if (testbit 2 porta) [startup]

Looping Row Your Boat

It took a while to get this to work. You need at least 3 devices. You also need to make sure they all have a “common ground” and they are all turned on within 10sec of each other. There is also a master or starting version to the program so that the one primary device will start the loop.

;Bits-Musical Standard
;Defines Musical Note lengths and Pitchs
;Options may be added later (Tempo,Tones,Glissando,Init Duet)
;Tommy Engdahl

;—-Init port A0(or more) for digital output (PowerUp) and A2 for duet input—-
to Powerup
        write $fc1 $f
        clearbit 0 porta-ddr
        clearbit 0 porta
        clearbit 1 porta-ddr
        clearbit 1 porta
        setbit 2 porta-ddr
wait 100
flash
;startup       ;add this for master
loop [if (testbit 2 porta) [startup]]
end

;—-Tuning for Musical Notation—-
constants [[g6 9][fs6 10][f6 11][w6 12][ds6 13][d6 14][cs6 15][c6 16]]
constants [[b5 17][as5 19][a5 20][gs5 22][g5 24][fs5 25][f5 27][w5 29][ds5 31][d5 33][cs5 35][c5 38]]
constants [[b4 41][as4 43][a4 46][gs4 49][g4 53][fs4 56][f4 59][w4 64][ds4 68][d4 72][cs4 76][c4 81]]
constants [[b3 86][as3 92][a3 98][gs3 104][g3 110][fs3 117][f3 125][w3 132][ds3 140][d3 148][cs3 158][c3 168]]
constants [[b2 179][as2 189][a2 200][gs2 212][g2 226]]

global [ tone ]
global [ pitch ]
global [ duration ]
global [ tempo ] ;factor on all time variables

to tick         ;fundamental sound
clearbit 0 porta
setbit 0 porta
end

;—-Note—-
to Note :Pitch :Duration   ; :tone might add more but will need new tuning
repeat :duration
        [ tick
                repeat :pitch [no-op]
        ]
end

:————-ROW ROW ROW YOUR BOAT (WITH ROUNDS)—————
to startup   ;insert song here
;staccato method :uniform beeps with rests for note duration
;note # #       rest/duration
note c4 10      mwait 500
note c4 10      mwait 500
note c4 10      mwait 500
note d4 10      mwait 250
note w4 10      mwait 500
note w4 10      mwait 500
note d4 10      mwait 250
note w4 10      mwait 500
note f4 10      mwait 250
note g4 10      mwait 1000
                                setbit 1 porta    ;duet
                                ;clearbit 1 porta
note c5 10      mwait 166
note c5 10      mwait 166
note c5 10      mwait 166

note g4 10      mwait 166
note g4 10      mwait 166
note g4 10      mwait 166

note w4 7       mwait 166
note w4 7       mwait 166
note w4 7       mwait 166

note c4 5       mwait 166 ;compensation for note period
note c4 5       mwait 166
note c4 5       mwait 166

note g4 10      mwait 500
note f4 10      mwait 250
note w4 10      mwait 500
note d4 10      mwait 250
note c4 10      mwait 1000
clearbit 1 porta
end

;—-Duet Algorithm—-
to duet                ;trigger starts a duet

;       setbit 1 porta
end
                        ;listens to start duet
if (testbit 2 porta) [startup]

Comments(0)

Audio Morse Code (Valentine Edition)

;This should define "dots" and "dashes" and then assign operations
;for buzzer–>Morse code
;have redefined dot and dashes to buzzer because we got to that.
;Thomas Engdahl


to Powerup
        write $fc1 $f
        clearbit 0 porta-ddr
        clearbit 0 porta
end

to tick         ;fundamental sound
clearbit 0 porta
setbit 0 porta
end

to runlightgreen
    setbit 0 portc                      ;   set port C0 to high voltage
    clearbit 3 portc                    ;   set port C3 to low voltage
end

to runlightred
    setbit 3 portc                      ;   set port C3 to high voltage
    clearbit 0 portc                    ;   set port C0 to low voltage
end

to runlightoff
    clearbit 0 portc                    ;   set both port C0
    clearbit 3 portc                    ;       and port C3 to low voltage
end

constants [[pitch 46]]

to dot
        runlightred
        repeat 10 [tick repeat pitch [no-op]]
        runlightgreen
        wait 2
end

to dash
        runlightred
        repeat 40 [tick repeat pitch [no-op]]
        runlightgreen
        wait 2
end

to space
        runlightgreen
        wait 5
end

to MC_A   ;for Morse Code A
        dot dash
end

to MC_B
        dash dot dot dot
end

to MC_C

        dash dot dash dot
end

to MC_D
        dash dot dot
end

to MC_E
        dot
end

to MC_F
        dot dot dash dot
end

to MC_G
        dash dash dot
end

to MC_H
        dot dot dot dot
end

to MC_I
        dot dot
end

to MC_J
        dot dash dash dash
end

to MC_K
        dash dot dash
end

to MC_L
        dot dash dot dot
end

to MC_M
        dash dash
end

to MC_N
        dash dot
end

to MC_O
        dash dash dash
end

to MC_P
        dot dash dash dot
end

to MC_Q
        dash dash dot dash
end

to MC_R
        dot dash dot
end

to MC_S
        dot dot dot
end

to MC_T
        dash
end

to MC_U
        dot dot dash
end

to MC_V
        dot dot dot dash
end

to MC_W
        dot dash dash
end

to MC_X
        dash dot dot dash
end

to MC_Y
        dash dot dash dash
end

to MC_Z
        dash dash dot dot
end

to MC_0
        dash dash dash dash dash
end

to MC_1
        dot dash dash dash dash
end

to MC_2
        dot dot dash dash dash
end

to MC_3
        dot dot dot dash dash
end

to MC_4
        dot dot dot dot dash
end

to MC_5
        dot dot dot dot dot
end

to MC_6
        dash dot dot dot dot
end

to MC_7
        dash dash dot dot dot
end

to MC_8
        dash dash dash dot dot
end

to MC_9
        dash dash dash dash dot
end

to MC_Fullstop
        dot dash dot dash dot dash
end

to MC_comma
        dash dash dot dot dash dash
end

to MC_Query
        dot dot dash dash dot dot
end

to startup      ;Happy Valentines DAY
        space
MC_I
        space space
MC_L    space
MC_O    space
MC_V    space
MC_E    space
        space space
MC_T    space           ;<–insert loved one here
MC_O    space           ;<–
MC_M    space           ;<–
MC_M    space           ;<–
MC_Y                    ;<–
        space
        space

end

Comments(0)

Here is a demonstration of what square waves look like.

This is a stereo square wave(phase difference 90 degrees). It should be a square on the X-Y plotter.

Here is a chord of square waves. Notice the “constructive interference” as more notes are brought in. One note plots 1^2=1 squares, Two notes plots 2^2=4 squares, Three notes plots 3^2=9 squares, and so on. So it’s N(#notes) squared! Playing certain chords will trace only certain parts of the squares depending on their harmony.

Comments(0)

Thomas Engdahl’s PowerUP_HI

;PowerUP_HI
;Says “HI” in morse code on powerup
;By Thomas Engdahl

to runlightgreen
    setbit 0 portc                      ;   set port C0 to high voltage
    clearbit 3 portc                    ;   set port C3 to low voltage
end

to runlightred
    setbit 3 portc                      ;   set port C3 to high voltage
    clearbit 0 portc                    ;   set port C0 to low voltage
end

to runlightoff
    clearbit 0 portc                    ;   set both port C0
    clearbit 3 portc                    ;       and port C3 to low voltage
end

to dot
        runlightgreen
        wait 5
        runlightred
        wait 5
end

to dash
        runlightgreen
        wait 10
        runlightred
        wait 5
end

to space
        runlightred
        wait 10
end

to MC_H
        dot dot dot dot
end

to MC_I
        dot dot
end

to powerup
        space MC_H space MC_I space
end

Comments(0)

Thomas Engdahl’s Morse_Code

;This should define "dots" and "dashes" and then asign operations
;for led–>morse code
;could redefine dot and dashes to buzzer when we get to that.
;Thomas Engdahl


to runlightgreen
    setbit 0 portc                      ;   set port C0 to high voltage
    clearbit 3 portc                    ;   set port C3 to low voltage
end

to runlightred
    setbit 3 portc                      ;   set port C3 to high voltage
    clearbit 0 portc                    ;   set port C0 to low voltage
end

to runlightoff
    clearbit 0 portc                    ;   set both port C0
    clearbit 3 portc                    ;       and port C3 to low voltage
end

to dot
        runlightred
        wait 5
        runlightgreen
        wait 5
end

to dash
        runlightred
        wait 10
        runlightgreen
        wait 5
end

to space
        runlightgreen
        wait 10
end

to MC_A   ;for Morse Code A
        dot dash
end

to MC_B
        dash dot dot dot
end

to MC_C

        dash dot dash dot
end

to MC_D
        dash dot dot
end

to MC_E
        dot
end

to MC_F
        dot dot dash dot
end

to MC_G
        dash dash dot
end

to MC_H
        dot dot dot dot
end

to MC_I
        dot dot
end

to MC_J
        dot dash dash dash
end

to MC_K
        dash dot dash
end

to MC_L
        dot dash dot dot
end

to MC_M
        dash dash
end

to MC_N
        dash dot
end

to MC_O
        dash dash dash
end

to MC_P
        dot dash dash dot
end

to MC_Q
        dash dash dot dash
end

to MC_R
        dot dash dot
end

to MC_S
        dot dot dot
end

to MC_T
        dash
end

to MC_U
        dot dot dash
end

to MC_V
        dot dot dot dash
end

to MC_W
        dot dash dash
end

to MC_X
        dash dot dot dash
end

to MC_Y
        dash dot dash dash
end

to MC_Z
        dash dash dot dot
end

to MC_0
        dash dash dash dash dash
end

to MC_1
        dot dash dash dash dash
end

to MC_2
        dot dot dash dash dash
end

to MC_3
        dot dot dot dash dash
end

to MC_4
        dot dot dot dot dash
end

to MC_5
        dot dot dot dot dot
end

to MC_6
        dash dot dot dot dot
end

to MC_7
        dash dash dot dot dot
end

to MC_8
        dash dash dash dot dot
end

to MC_9
        dash dash dash dash dot
end

to MC_Fullstop
        dot dash dot dash dot dash
end

to MC_comma
        dash dash dot dot dash dash
end

to MC_Query
        dot dot dash dash dot dot
end

Comments(0)

Here is the song I was talking about in the previous entry.

It’s pretty simple. It’s just chords with 3 sine waves and a 4th quiet wave.

It’s best viewed with default settings with scale set to 3 on the channel one and two of the X-Y plotter.

I’ll load an example of square waves and the “N^2.”

Comments(0)

Here are some sites for reference.:How to tune musical notes.

• Frequency/Wavelengths–>Musical Notes” http://www.phy.mtu.edu/~suits/notefreqs.html

• This explains the ratios of

Chords:http://www.phy.mtu.edu/~suits/chords.html

Scales:http://www.phy.mtu.edu/~suits/scales.html

• This one has some of the math involved: http://www.techlib.com/reference/musical_note_frequencies.htm

• This one you enter frequency and gives you the Note+cents: http://www.phys.unsw.edu.au/music/note/

• Can’t go wrong with Wikipedia: http://en.wikipedia.org/wiki/Note

I thought I would post this stuff for future reference. Could come in handy when tuning electrical components in Hz when you want musical alphanumeric tones and chords.

Comments(0)