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;