Plot[Tooltip[{0.5 2^(Log2[x]-Floor[Log2[x]])}], {x, 1, 4096},Filling->Axis, FillingStyle -> {Red, Blue}]