AKTIVE

swap.tcl at trunk
Login

swap.tcl at trunk

Annotate Artifact Blame Check-ins Using Doc Download Hex

File etc/transformer/structure/swap.tcl artifact cba729c230 on branch trunk

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
   100
   101
   102
   103
   104
   105
   106
   107
   108
   109
   110
   111
   112
   113
   114
   115

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

# # ## ### ##### ######## ############# #####################
## Exchange two axes with each other

operator {coorda coordb coordc dima dimb dimc} {
    op::swap::xy x y z   width  height depth
    op::swap::xz x z y   width  depth  height
    op::swap::yz y z x   height depth  width
} {
    section transform structure

    if {"$coorda$coordb" eq "xy"} {
	example {
	    aktive op sdf 2image smooth [aktive op sdf ring [aktive image sdf triangle width 128 height 128 a {10 10} b {50 80} c {80 30}] thickness 4]
	    @1
	}
    }

    note Returns image with the ${coorda}- and ${coordb}-axes of the input exchanged.

    note The location of the image is not changed.

    input

    # swaps are self-complementary

    simplify for   src/type @self   returns src/child

    # A swap is a mirror along a diagonal. This exchanges two axes.  The location is left
    # unchanged. This makes the implementation more consistent when the swap involves the
    # z-axis. Changing the location with z involved are degenerative cases.
    #
    # - `xz` :: A requested column-block is a band-block in the source.
    # - `yz` :: A requested row-block    is a band-block in the source.
    #
    #           As we cannot ask for band-blocks the source is asked for all bands.  The
    #           blitter is then responsible for pulling out only the desired bands to
    #           become columns, or rows.
    #
    #           See block `swap-rewrite` below.

    blit swapper [dict get {
	xy {
	    {DH {y 0 1 up} {x 0 1 up}}
	    {DW {x 0 1 up} {y 0 1 up}}
	    {DD {z 0 1 up} {z 0 1 up}}
	}
	xz {
	    {DH {y 0 1 up} {y 0     1 up}}
	    {DW {x 0 1 up} {z first 1 up}}
	    {DD {z 0 1 up} {x 0     1 up}}
	}
	yz {
	    {DH {y 0 1 up} {z first 1 up}}
	    {DW {x 0 1 up} {x 0     1 up}}
	    {DD {z 0 1 up} {y 0     1 up}}
	}
    } $coorda$coordb] copy

    def swap-rewrite [dict get {
	xy {
	    // Full exchange width/height
	    AKTIVE_SWIVEL (&subrequest, width, height);
	    // Recode the request location into the unswapped coordinate system
	    subrequest.y = idomain->y + (request->x - idomain->x);
	    subrequest.x = idomain->x + (request->y - idomain->y);
	}
	xz {
	    // Partial exchange width/depth
	    subrequest.width  = idomain->depth;
	    // Recode the request location into the unswapped coordinate system
	    subrequest.x      = idomain->x; // idomain->x + (request->z - idomain->z)
	    //                                               0          - 0
	    aktive_uint first = 0 + (request->x - idomain->x); TRACE("first %d", first);
	}
	yz {
	    // Partial exchange height/depth
	    subrequest.height = idomain->depth;
	    // Recode the request location into the unswapped coordinate system
	    subrequest.y      = idomain->y; // idomain->y + (request->z - idomain->z)
	    //                                               0          - 0
	    aktive_uint first = 0 + (request->y - idomain->y); TRACE("first %d", first);
	}
    } $coorda$coordb]

    state -setup {
	// The dimensions for the swapped axes (@@coorda@@, @@coordb@@) are exchanged.
	// The location does not change.

	aktive_geometry_copy (domain, aktive_image_get_geometry (srcs->v[0]));

	AKTIVE_SWIVEL (domain, @@dima@@, @@dimb@@);
    }
    pixels {
	aktive_rectangle_def_as (subrequest, request);
	// Rewrite request
	@@swap-rewrite@@

	TRACE_RECTANGLE_M ("rewritten", &subrequest);

	aktive_block* src = aktive_region_fetch_area (0, &subrequest);

	// The        dst @@coorda@@-axis is fed from the src @@coordb@@-axis
	// Vice versa dst @@coordb@@-axis is fed from the src @@coorda@@-axis
	// The @@coordc@@-axis maps as-is
	@@swapper@@
    }
}

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