Artifact f680569b97dcba5073f0faf9ea701eebc4685237bcab9ffd724b74fab8395361:

• File etc/transformer/structure/split.tcl — part of check-in [2cbec910b5] at 2023-03-26 19:22:15 on branch trunk — rework: dsl reader/writer changes, operator signatures and use chore: updated testsuite feat: converted (some) parameters of select, crop, embed, upsample, threshold, and mask operators to optional. - dsl reader : `(tcl-)operater` unified, only operator. - dsl reader : `arguments` removed, all done through regular parameters and inputs. - dsl reader : new `external!`, describe operators not implemented through dsl yet placed into the hierarchy. - dsl writer : most operators now have a Tcl wrapper handling parameters (required, optional). - dsl writer : operator signature change : parameters, even required, as args key/value series after inputs (if any). - dsl writer : exception: non-image result without simplifications, no images or parameters -> no wrapper, and no args key/value series for parameters, regular in-order command arguments instead. (see point and rectangle operators) (user: aku size: 849)

## -*- mode: tcl ; fill-column: 90 -*-
# # ## ### ##### ######## ############# #####################
## Transformers -- Structural changes (data re-arrangements)

# # ## ### ##### ######## ############# #####################
## Highlevel operations implemented on top of the C core
#
## - Split into rows, columns, or bands

operator {coordinate dimension thing} {
    op::split::x  x width  column
    op::split::y  y height row
    op::split::z  z depth  band
} {
    section transform structure

    note Returns list containing each $thing of the input as separate image.

    input

    body {
	set end [aktive query @@dimension@@ $src]
	set r {}
	for {set k 0} {$k < $end} {incr k} {
	    lappend r [aktive op select @@coordinate@@ $src from $k]
	}
	return $r
    }
}

##
# # ## ### ##### ######## ############# #####################
::return