--fs.Reflectance = (val1.Value-120)*0.01
--bs.Reflectance = (val1.Value-120)*0.01

end
if val1.Value > 130 and val1.Value <= 135 then
ch1m.MaxVelocity = 0.65-(val1.Value-125)*0.005
ch2m.MaxVelocity = 0.65-(val1.Value-125)*0.005
ch3m.MaxVelocity = 0.65-(val1.Value-125)*0.005
fs.Transparency = 1-(val1.Value-120)*0.01
bs.Transparency = 1-(val1.Value-120)*0.01