The 'j,k' is a diagonal scan that will eventually
fill each position with a particular value found
from the while loop. The coding is 1/1 Mathcad 8.
The "B" is willing to calculate but refuses result.
I guess I'm mising something in there. It will not
reproduce the nice Mathcad/Mathsoft "Picture tool"
but we should see something interesting.

"Biomorph Lagacy" is about a dozen rich of superb
pictures... I exhausted myself on that one.

Jean

Scrap Biomorph.sm (58,54 KiB) scaricato 1536 volta(e).

... I have sanity checked the loop: OK
Smath seems to digest an elephant instead of a steak.
Prohibitive in computation time.

Thanks for willing collabs to test.

Jean

Scrap Biomorph.sm (65,75 KiB) scaricato 1602 volta(e).

... Eureka, here is the Biomorph Legacy: works OK soso.
Did you know "OK" is not OK but 0K [zero K].
Pronounced and Websterised 'okay'

0K comes from the American War of Independence,
the code is 0 kill [to add in the Pattern Biomorph Leagacy.sm (181,61 KiB) scaricato 1614 volta(e).column of dead men].

The Smath does not render as well as Mathcad "Picture Operator".
But we get something worth the effort.

Jean

Pattern Biomorph Leagacy.sm (181,61 KiB) scaricato 1522 volta(e).