[Inquiry] Re: Theme One Program -- Commentary Note -- Image

[Jon Awbrey]

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

TOP.  Commentary Note -- Image

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

Image.

Step 1.
                      o-------o
            o---------|---o   |   o-------------o
            |   o-----o   |   |   |   o-----o   |
            o-->| ) 0 |---o   |   o-->| a 1 |---o
                o-----o       |       o-----o
                ^             |       ^
         switch |             |  this |
                |             |       @
      o---------|---o         |
      |   o-----o   |         |
      o-->| ( 0 |---o         |
          o-----o<------------o

Step 2.
                      o-------o
            o---------|-------|-----------------o
            |   o-----o       |       o-----o   |
            o-->| ) 0 |-------|------>| a 1 |---o
                o-----o       |       o-----o
                ^             |       ^
                |             | graft |
                |             |       @
      o---------|---o         |
      |   o-----o   |         |
      o-->| ( 0 |---o         |
          o-----o<------------o

Step 3.
                      o-------o
            o---------|-------|-----------------o
            |   o-----o       |       o-----o   |
            o-->| ) 0 |-------|------>| a 1 |---o
                o-----o       |       o-----o
                ^             |
                |             |
                |             |
      o---------|---o         |
      |   o-----o   |         |
      o-->| ( 0 |---o         |
          o-----o<------------o
          ^
    image |
          @

function image (this: idea): idea;
begin
 image := stem (graft (switch, this))
end;

(5349)(7689)

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o