1 2 3 4 5 6
for(n=get_length) { p = get_pixel(n-1); r = (p & 0xFF00) >> 8; set_pixel(n-1, clamp(r,1,255)-1, 0, 0); }; blit;