Music on the PV2
Ok, so the sound quality is really poor, but we can play "music" on the PV2. I was having a terrible time trying to get the correct hex pitch values for the notes I wanted to play. I tried tweaking by ear for a while to get a simple scale, but I wasn't happy with that at all. I downloaded MiniTunerhttp://vacworld.bzlogi.hu/minituner/index.html and tried to tune the notes I was playing on the camera. Just holding the camera up to the computer mic wasn't working, so I removed the camera speaker and wired up a jack that I connected to my computer line in jack. Now I was cooking with gas :)
I wrote a pv2 program to play all pitch values from 255 to 0 and recorded it with Audacity http://audacity.sourceforge.net/
I hooked my soundcard speaker out to my line in. Next, I used the loop playback in audacity to find the right pitch for each note from F#2 to F6 and labeled them appropriately.
I took the pitch/note relationship and used it to write an Autohotkey http://www.autohotkey.com/ script whose purpose is to convert a text file such as
Ok, so the sound quality is really poor, but we can play "music" on the PV2. I was having a terrible time trying to get the correct hex pitch values for the notes I wanted to play. I tried tweaking by ear for a while to get a simple scale, but I wasn't happy with that at all. I downloaded MiniTuner
C4,D4,E4,F4,G4,A4,B4,C5,D5,E5,F5,G5,A5,B5,C6,R,R,R,C4,R,R,E4,R,R,G4,R,R,C5,R,R,G4,R,R,E4,R,R,C4,C4
to ; F:\camera hack\pv2devkit-0.1\Examples\scale\scale.s
.ORG $90
TOP:
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$42 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$3b ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$34 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$2e ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$2c ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$27 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$23 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$21 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$1d ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$1a ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$17 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$15 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
JSR PAUSE
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$3b ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$2c ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$3b ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
JSR PAUSE
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
WAIT: JSR PAUSE
LDA R0,$f722 ;load key-press status into R0
BTT 6 ;Is the delete button pressed?
BRZ CHECK2 ; if not, continue checking
JMP TOP
CHECK2: LDA R0,$f726 ;load power button status into R0
BTT 1 ;Is the power button pressed?
BRZ CHECK3 ; if not, continue checking
JMP RESTART
CHECK3: LDA R0,$f722 ;load key-press status into R0 again
BTT 5 ;Is the shutter/take-pic button pressed?
BRZ WAIT ; if not, branch to the top
JMP TOP
JMP WAIT ;Back to the top
; Subroutine to play a beep
; R4 should have the duration in it
; and R2 should have the pitch in it
BEEP: STA R4,$F700
STA R2,$F701
LDI R0,#$01
STA R0,$F702
LABEL: LDA R0,$F703
BNZ LABEL ;wait for beep to complete.
RTS
; Subroutine to pause
PAUSE: LDI R4,#$02
STA R4,$F704
PLOOP: LDA R0,$F705
BRZ PLOOP
LDI R0,#$01 ; value used to reset watchdog timer
STA R0,$f716 ; - Reset watchdog timer
RTS
RESTART:
LDI R0,#$01
STA R0,$F715 ;reset camera
Here is the script that did the conversion:
StringCaseSense, On
FileSelectFile, SelectedFile, 3, , Open a file, Text Documents (*.txt)
if SelectedFile =
Return
SplitPath, SelectedFile, , Dir, , FileNameNoExt
FileDelete, %Dir%\%FileNameNoExt%.s
FileAppend,
(
`; %Dir%\%FileNameNoExt%.s
.ORG $90
TOP:`n
), %Dir%\%FileNameNoExt%.s
FileRead,FileContents,%SelectedFile%
Loop, parse, FileContents, `,
{
If A_LoopField = F#2
{
PitchValue = fc
Gosub AppendNote
}
If A_LoopField = G2
{
PitchValue = ed
Gosub AppendNote
}
If A_LoopField = G#2
{
PitchValue = e1
Gosub AppendNote
}
If A_LoopField = A2
{
PitchValue = d4
Gosub AppendNote
}
If A_LoopField = A#2
{
PitchValue = c8
Gosub AppendNote
}
If A_LoopField = B2
{
PitchValue = bc
Gosub AppendNote
}
If A_LoopField = C3
{
PitchValue = b2
Gosub AppendNote
}
If A_LoopField = C#3
{
PitchValue = a8
Gosub AppendNote
}
If A_LoopField = D3
{
PitchValue = 9e
Gosub AppendNote
}
If A_LoopField = D#3
{
PitchValue = 95
Gosub AppendNote
}
If A_LoopField = E3
{
PitchValue = 8d
Gosub AppendNote
}
If A_LoopField = F3
{
PitchValue = 85
Gosub AppendNote
}
If A_LoopField = F#3
{
PitchValue = 7e
Gosub AppendNote
}
If A_LoopField = G3
{
PitchValue = 76
Gosub AppendNote
}
If A_LoopField = G#3
{
PitchValue = 70
Gosub AppendNote
}
If A_LoopField = A3
{
PitchValue = 69
Gosub AppendNote
}
If A_LoopField = A#3
{
PitchValue = 64
Gosub AppendNote
}
If A_LoopField = B3
{
PitchValue = 5e
Gosub AppendNote
}
If A_LoopField = C4
{
PitchValue = 58
Gosub AppendNote
}
If A_LoopField = C#4
{
PitchValue = 53
Gosub AppendNote
}
If A_LoopField = D4
{
PitchValue = 4f
Gosub AppendNote
}
If A_LoopField = D#4
{
PitchValue = 4a
Gosub AppendNote
}
If A_LoopField = E4
{
PitchValue = 46
Gosub AppendNote
}
If A_LoopField = F4
{
PitchValue = 42
Gosub AppendNote
}
If A_LoopField = F#4
{
PitchValue = 3e
Gosub AppendNote
}
If A_LoopField = G4
{
PitchValue = 3b
Gosub AppendNote
}
If A_LoopField = G#4
{
PitchValue = 37
Gosub AppendNote
}
If A_LoopField = A4
{
PitchValue = 34
Gosub AppendNote
}
If A_LoopField = A#4
{
PitchValue = 31
Gosub AppendNote
}
If A_LoopField = B4
{
PitchValue = 2e
Gosub AppendNote
}
If A_LoopField = C5
{
PitchValue = 2c
Gosub AppendNote
}
If A_LoopField = C#5
{
PitchValue = 29
Gosub AppendNote
}
If A_LoopField = D5
{
PitchValue = 27
Gosub AppendNote
}
If A_LoopField = D#5
{
PitchValue = 25
Gosub AppendNote
}
If A_LoopField = E5
{
PitchValue = 23
Gosub AppendNote
}
If A_LoopField = F5
{
PitchValue = 21
Gosub AppendNote
}
If A_LoopField = F#5
{
PitchValue = 1f
Gosub AppendNote
}
If A_LoopField = G5
{
PitchValue = 1d
Gosub AppendNote
}
If A_LoopField = G#5
{
PitchValue = 1b
Gosub AppendNote
}
If A_LoopField = A5
{
PitchValue = 1a
Gosub AppendNote
}
If A_LoopField = A#5
{
PitchValue = 18
Gosub AppendNote
}
If A_LoopField = B5
{
PitchValue = 17
Gosub AppendNote
}
If A_LoopField = C6
{
PitchValue = 15
Gosub AppendNote
}
If A_LoopField = C#6
{
PitchValue = 14
Gosub AppendNote
}
If A_LoopField = D6
{
PitchValue = 13
Gosub AppendNote
}
If A_LoopField = D#6
{
PitchValue = 12
Gosub AppendNote
}
If A_LoopField = E6
{
PitchValue = 11
Gosub AppendNote
}
If A_LoopField = F6
{
PitchValue = 10
Gosub AppendNote
}
If A_LoopField = R
FileAppend,JSR PAUSE`n, %Dir%\%FileNameNoExt%.s
}
FileAppend,
(
WAIT: JSR PAUSE
LDA R0,$f722 ;load key-press status into R0
BTT 6 ;Is the delete button pressed?
BRZ CHECK2 ; if not, continue checking
JMP TOP
CHECK2: LDA R0,$f726 ;load power button status into R0
BTT 1 ;Is the power button pressed?
BRZ CHECK3 ; if not, continue checking
JMP RESTART
CHECK3: LDA R0,$f722 ;load key-press status into R0 again
BTT 5 ;Is the shutter/take-pic button pressed?
BRZ WAIT ; if not, branch to the top
JMP TOP
JMP WAIT ;Back to the top
`; Subroutine to play a beep
`; R4 should have the duration in it
`; and R2 should have the pitch in it
BEEP: STA R4,$F700
STA R2,$F701
LDI R0,#$01
STA R0,$F702
LABEL: LDA R0,$F703
BNZ LABEL ;wait for beep to complete.
RTS
`; Subroutine to pause
PAUSE: LDI R4,#$02
STA R4,$F704
PLOOP: LDA R0,$F705
BRZ PLOOP
LDI R0,#$01 ; value used to reset watchdog timer
STA R0,$f716 ; - Reset watchdog timer
RTS
RESTART:
LDI R0,#$01
STA R0,$F715 ;reset camera`n
), %Dir%\%FileNameNoExt%.s
Return
AppendNote:
FileAppend,
(
LDI R2,#$%PitchValue% ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP`n
), %Dir%\%FileNameNoExt%.s
Return
; Run, notepad %Dir%\%FileNameNoExt%.s
#7::Reload
I also converted E4,D4,C4,D4,E4,E4,E4,R,D4,D4,D4,R,E4,E4,E4,R,E4,D4,C4,D4,E4,E4,E4,E4,D4,D4,E4,D4,C4,C4,C4
to; F:\camera hack\pv2devkit-0.1\Examples\mary\mary.s
.ORG $90
TOP:
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
JSR PAUSE
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$46 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$4f ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
LDI R2,#$58 ;pitch (smaller value is higher tone)
LDI R4,#$04 ;duration (this is may be 1/4 of a second)
JSR BEEP
WAIT: JSR PAUSE
LDA R0,$f722 ;load key-press status into R0
BTT 6 ;Is the delete button pressed?
BRZ CHECK2 ; if not, continue checking
JMP TOP
CHECK2: LDA R0,$f726 ;load power button status into R0
BTT 1 ;Is the power button pressed?
BRZ CHECK3 ; if not, continue checking
JMP RESTART
CHECK3: LDA R0,$f722 ;load key-press status into R0 again
BTT 5 ;Is the shutter/take-pic button pressed?
BRZ WAIT ; if not, branch to the top
JMP TOP
JMP WAIT ;Back to the top
; Subroutine to play a beep
; R4 should have the duration in it
; and R2 should have the pitch in it
BEEP: STA R4,$F700
STA R2,$F701
LDI R0,#$01
STA R0,$F702
LABEL: LDA R0,$F703
BNZ LABEL ;wait for beep to complete.
RTS
; Subroutine to pause
PAUSE: LDI R4,#$02
STA R4,$F704
PLOOP: LDA R0,$F705
BRZ PLOOP
LDI R0,#$01 ; value used to reset watchdog timer
STA R0,$f716 ; - Reset watchdog timer
RTS
RESTART:
LDI R0,#$01
STA R0,$F715 ;reset camera
The code generated will play the song on the camera and then wait until you press the power button to reset the camera or the shutter or delete button to play the song again. I did not code it to allow interrupting the playing song, but that could be done.
I havn't done it yet, but it should be fairly straight forward to determine the exact length of a note for each of the duration values from 0 to 255. One would just write a pv2 loop to play notes (with pauses in between) of each duration and then use Audacity to find the length in fractions of a second.
FWIW, the camera does sound a little better with an external speaker :)