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
|
# Shift current selection by given x y amounts using optional mode.
# Author: Andrew Trevorrow (andrew@trevorrow.com), June 2007.
# Updated to check for bounded grid, Oct 2010.
use strict;
my @selrect = g_getselrect();
g_exit("There is no selection.") if @selrect == 0;
my $s = g_getstring("Enter x y shift amounts and an optional mode\n".
"(valid modes are copy/or/xor, default is or):",
"0 0 or",
"Shift selection");
my ($x, $y, $mode) = split(' ', $s, 3);
# check x and y
g_exit() if $x eq "";
g_exit("Enter x and y amounts separated by a space.") if $y eq "";
g_exit("Bad x value: $x") unless $x =~ /^[+-]?\d+$/;
g_exit("Bad y value: $y") unless $y =~ /^[+-]?\d+$/;
# check optional mode
if ($mode eq "") {
$mode = "or";
} else {
$mode = lc($mode);
$mode = "copy" if $mode eq "c";
$mode = "or" if $mode eq "o";
$mode = "xor" if $mode eq "x";
if (not ($mode eq "copy" or $mode eq "or" or $mode eq "xor")) {
g_exit("Unknown mode: $mode (must be copy/or/xor)");
}
}
# abort shift if the new selection would be outside a bounded grid
if (g_getwidth() > 0) {
my $gridl = -int(g_getwidth()/2);
my $gridr = $gridl + g_getwidth() - 1;
my $newl = $selrect[0] + $x;
my $newr = $newl + $selrect[2] - 1;
if ($newl < $gridl or $newr > $gridr) {
g_exit("New selection would be outside grid.");
}
}
if (g_getheight() > 0) {
my $gridt = -int(g_getheight()/2);
my $gridb = $gridt + g_getheight() - 1;
my $newt = $selrect[1] + $y;
my $newb = $newt + $selrect[3] - 1;
if ($newt < $gridt or $newb > $gridb) {
g_exit("New selection would be outside grid.");
}
}
# do the shift by cutting the current selection and pasting it into
# the new position without changing the current clipboard pattern
my $selcells = g_getcells(@selrect);
g_clear(0);
$selrect[0] += $x;
$selrect[1] += $y;
g_select(@selrect);
g_clear(0) if $mode eq "copy";
g_putcells($selcells, $x, $y, 1, 0, 0, 1, $mode);
g_fitsel() if !g_visrect(@selrect);
|
