CLS
' we are going to plot it as a series of line segments not just points
' so create some arrays to hold the coordinates
Dim x1(MM.HRes-1),y1(MM.HRes-1),x2(MM.Hres-1),y2(MM.HRes-1)

' Fill the x1 and y1 arrays
For i=0 To MM.HRes-1
  x1(i)=i ' set the x coordinates
  y1(i)=Sin(Rad(i*2)) 'calculate the sinewave
Next

' now scale the y data to fit nicely in the display
' The display has 0,0 at top left so we want to invert the data and scale it sensibly
' so a sine value of +1 will plot at y=20
' a sine value of -1 will plot at MM.VRES-20
' all calculated in a single simple command
Math window y1(),MM.VRes-20,20,y1()

' We want to plot lines so each line starts a position y1 and ends at y2
' so create the y2 array with each element y2(i ) equal to y1(i-1) and x2(i)=x1(i-1)
Memory copy float Peek(varaddr y1(1)),Peek(varaddr y2(0)),MM.HRes-1
Memory copy float Peek(varaddr x1(1)),Peek(varaddr x2(0)),MM.HRes-1

'deal with the end points
y2(mm.hres-1)=y1(mm.hres-1)
x2(mm.hres-1)=x1(mm.hres-1)

' plot the line segments
Line x1(),y1(),x2(),y2()

'
Do
Loop

memory copy float peek( varaddr fullday1())+8,peek( varaddr fullday1()),mm.hres

line graph xaxis(), fullday1(), rgb(yellow)

 ' simple temperature and humidity chart
 ' TassyJim June 2024
 DIM INTEGER xMax = MM.HRES-1 ' maximum chart x value
 DIM FLOAT dd1(xMax)
 DIM FLOAT dd2(xMax)
 DIM FLOAT dd3(xMax)
 DIM FLOAT scaled(xMax)
 DIM INTEGER xaxis(xMax)
 DIM FLOAT tmpr, hmid, tmax, tmin, hmax, hmin
 DIM INTEGER n
 FRAMEBUFFER CREATE
 
 FOR n = 0 TO xMax
   xaxis(n) = n
   dd1(n) = MM.VRES
   dd2(n) = MM.VRES
   dd3(n) = MM.VRES
 NEXT n
 n = 1
 BITBANG HUMID GP17, tmpr,hmid
 SETTICK 500,readtime
 
 DO
   
 LOOP
 
SUB readtime
 
 BITBANG HUMID GP17, tmpr,hmid
 dd1(xMax) = MM.HRES-tmpr/50*MM.HRES ' scaled 0 to 50 degrees
 dd2(xMax) = MM.HRES-hmid/100*MM.HRES ' scaled 0 to 100%
 IF MID$(TIME$,7,2)="00" THEN dd3(xMax) = MM.VRES-10 ' 1 min marker
 IF MID$(TIME$,4,2)="00" THEN dd3(xMax) = MM.VRES-20 ' hour marker
 
 'n = 1-n' uncomment this line to plot every second reading = 1 minute
 IF n THEN
   MEMORY COPY FLOAT PEEK( VARADDR dd1())+8,PEEK( VARADDR dd1()),xMax
   MEMORY COPY FLOAT PEEK( VARADDR dd2())+8,PEEK( VARADDR dd2()),xMax
   MEMORY COPY FLOAT PEEK( VARADDR dd3())+8,PEEK( VARADDR dd3()),xMax
   FRAMEBUFFER WRITE f
   CLS
   LINE GRAPH xaxis(), dd1(), RGB(YELLOW)
   LINE GRAPH xaxis(), dd2(), RGB(GREEN)
   LINE GRAPH xaxis(), dd3(), RGB(BLUE)
   
   TEXT 160, 50,STR$(tmpr,2,1)+"`C",cb,2,2, RGB(YELLOW)
   TEXT 160, 125,STR$(hmid,2,1)+"%",cb,2,2, RGB(GREEN)
   
   FRAMEBUFFER COPY f,n
   dd3(xMax) = MM.VRES
   
 ENDIF
END SUB