AKTIVE

location.tcl at trunk
Login

location.tcl at trunk

Annotate Artifact Blame Check-ins Using Doc Download Hex

File etc/transformer/location.tcl artifact 01094c221c 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
   116
   117
   118

## -*- mode: tcl ; fill-column: 90 -*-
# # ## ### ##### ######## ############# #####################
## Transformers -- Location changes

# # ## ### ##### ######## ############# #####################

operator op::location::move::to {
    section transform location

    note Returns image translationally shifted along the x- and y-axes to a specific location

    input

    int x  New absolute x location of image in the plane
    int y  New absolute y location of image in the plane

    # Elide the operation if the input is already at the desired location
    simplify for \
	src/attr x __x \
	src/attr y __y \
	if {($x == $__x) && ($y == $__y)} \
	returns src

    # Chain reduction when input is a translation of any kind as well.
    # The new location supercedes the previous movement.
    # This may cause full elision in the recursion.

    simplify for src/type @self \
	src/pop \
	returns op location move to : x x y y

    simplify for src/type op::location::move::by \
	src/pop \
	returns op location move to : x x y y

    state -fields {
	aktive_point delta;
    } -setup {
	// geometry setup
	// - get input geometry in local store
	// - compute and save difference to desired location
	// - update local store for desired location

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

	aktive_uint dx = domain->x - param->x;
	aktive_uint dy = domain->y - param->y;
	aktive_point_set (&state->delta, dx, dy);

	aktive_point_set (aktive_geometry_as_point(domain), param->x, param->y);
    }
    pixels {
	// rewrite request for passing to input, translate to the origin location
	// fetch data, and save to local store

	aktive_rectangle_def_as (subrequest, request);
	aktive_rectangle_add    (&subrequest, &istate->delta);

	aktive_block* src = aktive_region_fetch_area (srcs->v[0], &subrequest);
	aktive_blit_copy0 (block, dst, src);
    }
}

operator op::location::move::by {
    section transform location

    note Returns image translationally shifted along the x- and y-axes by a specific amount

    input

    int dx  Shift amount for x location of image in the plane, positive to the right, negative left
    int dy  Shift amount for y location of image in the plane, positive downward, negative upward

    # Elide the operation if there is no actual shift
    simplify for   if {($dx == 0) && ($dy == 0)}   returns src

    # Chain reduction when input is a translation of any kind as well.
    # The preceding movement is folded into the current.
    # This may cause full elision in the recursion

    simplify for src/type @self \
	src/value dx __dx src/value dy __dy \
	calc __ndx {$__dx + $dx} \
	calc __ndy {$__dy + $dy} \
	src/pop \
	returns op location move by : dx __ndx dy __ndy

    simplify for src/type op::location::move::to \
	src/value x __x src/value y __y \
	calc __nx {$__x + $dx} \
	calc __ny {$__y + $dy} \
	src/pop \
	returns op location move to : x __nx y __ny

    state -fields {
	aktive_point delta;
    } -setup {
	aktive_geometry_copy (domain, aktive_image_get_geometry (srcs->v[0]));
	aktive_point_set (&state->delta, - param->dx, - param->dy);

	domain->x += param->dx;
	domain->y += param->dy;
    }
    pixels {
	// rewrite request for passing to input, translate to the origin location
	// fetch data, and save to local store

	aktive_rectangle_def_as (subrequest, request);
	aktive_rectangle_add    (&subrequest, &istate->delta);

	aktive_block* src = aktive_region_fetch_area (srcs->v[0], &subrequest);
	aktive_blit_copy0 (block, dst, src);
    }
}

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