light = LoadImage("gfx\data\light_colors.bmp")
daysize = ImageWidth(light)


Dim c1(daysize), c2(daysize), c3(daysize)
Dim s1(daysize), s2(daysize), s3(daysize)
Dim alpha#(daysize),xalpha#(daysize)