Hello Mike,

If you can make it work at the "on error" that Smath 5346 does not have
the Smath community will heritate a nice piece of work that I heritated
from Paul W. [Mathcad 11 Collaboratory]. If there is a way to make it
work in 5346, I will most appreciate. The R, G, B are all in the collapsed
areas, nothing to download. The coding stops at the empty place holders.

Thanks for your kindly cooperation, good luck.

Jean

Rotate Image.sm (431,26 KiB) scaricato 1537 volta(e).

Wrote

rotate() tries to get fourth col of a matrix having only two cols:
trace.sm (100,24 KiB) scaricato 1528 volta(e).

Actually, I didn't try to understand the algo yet, so I have no clue how to improve it.

Edit:
in the original algo, there's no line like

s:augment(col(s,2),col(s,4))

Removing it gives another error: j becomes -14, and this index isn't OK as a matrix col.

Edit 2: here it is, should work for 5346: Rotate Image.sm (407,7 KiB) scaricato 1549 volta(e). (updated for 2x speed using eval()).

Edit: and here is the colored version (great thanks to Alex Melnik): Rotate Image+color.sm (414,52 KiB) scaricato 1536 volta(e).