my @redmap = map {  int( $r + $_)  } 0..255;