for x=0,w do
 line(x,0,x,w,hsv(x/6.4*3.59,100,50))
end