--fs.Reflectance = 0
--bs.Reflectance = 0

end
if val1.Value > 120 and val1.Value <= 130 then
ch1m.MaxVelocity = 0.6+(val1.Value-120)*0.005
ch2m.MaxVelocity = 0.6+(val1.Value-120)*0.005
ch3m.MaxVelocity = 0.6+(val1.Value-120)*0.005
ch1.Transparency = 1
ch2.Transparency = 1
ch3.Transparency = 1
fs.Transparency = 1-(val1.Value-120)*0.01
bs.Transparency = 1-(val1.Value-120)*0.01