|null> => load-image[220px-Lenna.png] |Lenna>
|null> => map[R,old-R] rel-kets[R] |>
|null> => map[G,old-G] rel-kets[G] |>
|null> => map[B,old-B] rel-kets[B] |>
diff-R |*> #=> pos( right - 0.5 old-R left |_self> + old-R |_self> + left - 0.5 old-R right |_self>)
diff-G |*> #=> pos( right - 0.5 old-G left |_self> + old-G |_self> + left - 0.5 old-G right |_self>)
diff-B |*> #=> pos( right - 0.5 old-B left |_self> + old-B |_self> + left - 0.5 old-B right |_self>)
|null> => map[diff-R,R] rel-kets[old-R] |>
|null> => map[diff-G,G] rel-kets[old-G] |>
|null> => map[diff-B,B] rel-kets[old-B] |>