' pulse monitor for colour Maximite
' 12 June 2014
' TassyJim
' pin 21 connected to the pulse detector.
' www.seeedstudio.com/depot/Grove-Earclip-Heart-Rate-Sensor-p- 1116.html
'
' pin 12 used as an output to LED or CRO etc.
'
' P print screen to PULSE.BAS (will overwrite any existing capture)
' C clear screen and start again
' L start logging data to file (will append to same date file)
' X stop logging to file
' ^C to quit.

Cls
samples=12
Dim av(samples)
SetPin 21, 6, beat
SetPin 12, 8
Pin(12) = 0
beatTime = Timer
GoSub chart
tick$ = Mid$(Time$,7,1)
Do
testtime=Timer
If (testtime-beattime)>6000 Then
Print @(1,10) "No pulse detected! "
beatTime = Timer
pStart=0
EndIf
k$=Inkey$
If k$="P" Or k$="p" Then SaveBMP "pulse.bmp"
If k$="C" Or k$="c" Then
Cls
GoSub chart
x=0
EndIf
If k$="L" Or k$="l" Then
filename$=Mid$(Date$,9,2)+Mid$(Date$,4,2)+Left$(Date$,2)+".c sv"
If logit = 0 Then Open filename$ For append As #2
Print #2, Date$;" ";Time$;" Start"
Print #2, "Time,Pulse,Average"
logit=1
EndIf
If k$="X" Or k$="x" Then
If logit = 1 Then
Print #2, Date$;" ";Time$; " Closed"
Close #2
EndIf
logit=0
EndIf
If tick$ <> Mid$(Time$,7,1) Then
tick$ = Mid$(Time$,7,1)
Line (x+39,60) - (x+39, 70) , White
EndIf
Loop
If logit = 1 Then Close #2
End

beat:
beatTimeNow = Timer
beatPeriod=beatTimeNow-beatTime
beatTime=beatTimeNow
Pulse 12, 40
If beatperiod > 5 And beatperiod < 3000 Then
pulseRate=Int(60000/beatPeriod+.5)
s= x Mod samples
pav=pav-av(s)+ pulserate
av(s)=pulseRate
GoSub clr_ahead
pr$=Format$(pulseRate,"% 4g")
If pStart>0 Then
Pixel(x+40,300-pulserate) = Yellow
EndIf
If pStart > samples Then
av=Int(pav/samples+0.5)
avg$=Format$(av,"% 4g")
Pixel(x+40,300-av) = Red
Print @(1,10) "Pulse rate: ";pr$;" Pulse av: ";avg$;" "
Else
Print @(1,10) "Pulse rate: ";pr$;" "
pStart = pStart +1
EndIf
If logit = 1 Then
Print #2, Time$;",";pr$;",";avg$
EndIf
x = (x+1) Mod 360
EndIf
IReturn

chart:
Cls
For ys = 0 To 240 Step 20
y = 300 - ys
Line (40,y) - (400, y), Blue
Print @(5,y-5) ys
Next ys
Return

clr_ahead:
Line (x+40,300) - (x+50,0), Black,BF
For ys = 0 To 240 Step 20
y = 300 - ys
Line (x+40,y) - (x+46, y), Blue
Next ys
Return