Hi All
This may have some uses to a few it lets you take values stored in an array and then displays it on the screen.
Rem Project: plotgraphtester1
Rem Created: Monday, February 01, 2010
Rem ***** Main Source File *****
global screen_height1
screen_height1=screen height()
dim stored_temperature_now#(1)
stored_temperature_now#(1)=-25+(rnd(50))
do
cls
if val(mid$(str$(timer()),7))>5
ARRAY INSERT AT TOP stored_temperature_now#(0)
stored_temperature_now#(0)=-25+(rnd(50))
if array count(stored_temperature_now#(0))>200
ARRAY DELETE ELEMENT stored_temperature_now#(0), array count(stored_temperature_now#(0))
endif
endif
plotgraph()
loop
function plotgraph()
sa=array count(stored_temperature_now#(0))
indentx=10
centerline = 300
newgap1# = 0.0
oldgap1#=0
oldgap#=0
oldk#=stored_temperature_now#(sa)
for k = sa to 0 step -1
ink rgb(255,0,0),rgb(255,255,255)
line indentx + oldgap1#,screen_height1 - centerline - oldk#*5,newgap1# + indentx, screen_height1 - centerline - stored_temperature_now#(k)*5
oldk#=stored_temperature_now#(k)
oldgap1#=newgap1#
inc newgap1#,3.3
next k
endfunction
if anyone can think of better way of doing the line plot I will be interested.
Dark Physics makes any hot drink go cold.
