;##################     Test de displaytempor             ######################

cs=1.5
red=[0,1,1,0,0,1]
green=[0,1,0,1,0,1]
blue=[0,1,0,0,1,0]
tvlct,255*red,255*green,255*blue
nbselprm=10
define_param,nbselprm,param
nbtot=intarr(nbselprm)
nbtot(*)=1000

tim=lonarr(nbselprm,2000)
val=fltarr(nbselprm,2000)
index=intarr(nbselprm)
t=intarr(nbselprm)
t(*)=0
t(0)=1
t(1)=1
t(3)=1
t(5)=1
t(6)=1
t(9)=1

param(*).pr=2
param(6).pr=3
param(0).pn='nampara0'
param(1).pn='nampara1'
param(3).pn='nampara3'
param(4).pn='nampara4'
param(5).pn='nampara5'
param(6).pn='nampara6'
param(7).pn='nampara7'
param(8).pn='nampara8'
param(9).pn='nampara9'
param(2).pn='nampara2'
param(*).pu='mA'
param(1).pu='volt'
param(9).pu='deg.'

period=[92,11,10,0,0,0,92,11,10,0,20,0]
idat=period(0:5)
tmin=convtime(idat)

for i=0,999 do begin
tim(*,i)=tmin + i
for j=1,nbselprm-1 do val(j,i)=J*sin(i/(j+1))+(j*10)

val(0,i)=i*.02-5
val(9,i)=i
val(0,99)=0
val(0,500)=0

endfor

for i=0,nbselprm-1 do index(i)=i
displaytempor,cs,nbselprm,param,t,period,nbtot,tim,val,index,selectend

end