#!/usr/pkg/bin/perl

my($VERSION);
$VERSION = "2018-12-05 02:26" ; # written by emacs time-stamp
## $VERSION .= ' UTC';

package MaskArea;
my @LOCATION = (
    [(qw (-   -  - 98 97 96 95 94 93 92 -  - ))],
    [(qw (-   -  - 72 71 70 69 68 67 -  -  - ))],
    [(qw (-   -  - 48 47 46 45 44 43 -  -  91))],
    [(qw (-  73 49 26 25 24 23 22 21 42 66 90))],
    [(qw (-  74 50 27 10  9  8  7 20 41 65 89))],
    [(qw (99 75 51 28 11  2  1  6 19 40 64 88))],
    [(qw (-  76 52 29 12  3  4  5 18 39 63 87))],
    [(qw (-  77 53 30 13 14 15 16 17 38 62 86))],
    [(qw (-  78 54 31 32 33 34 35 36 37 61 85))],
    [(qw (-   - -  55 56 57 58 59 60 -  -  - ))],
    [(qw (-   - -  79 80 81 82 83 84 -  -  - ))],
    [(qw (-   - -  -  -  - 100  -  - -  -  - ))],
    );

sub MaskArea ($$){
    my $pitch = shift;
    my $rate  = shift;
    my @COORDS;
    foreach my $y (0..11) {
	foreach my $x (0..11) {
	    my $location_list = $LOCATION[$y] -> [$x]; 	# number listed in above array
# shift half size of box, to get low left corner is at (0,0)
	    @COORDS[$location_list] = ([($x - 6) * $pitch * $rate + 10,
				        (6 - $y) * $pitch * $rate - 17]);
	}
    }
    return @COORDS;
}
__END__
See perldoc GDS2 for help

perl DrieCondPerl
; please note I have copy in ~/.emacs-sub/time-stamp-setup.el
(reuiqre 'time-stamp)
(add-hook 'write-file-hooks 'time-stamp)
(setq time-stamp-active t)
;; (setq time-stamp-time-zone "UTC")
(setq time-stamp-time-zone nil)
(setq time-stamp-format "%04y-%02m-%02d %02H:%02M");
(setq time-stamp-start "$VERSION = \"") ;
(setq time-stamp-end "\"") ;
(setq time-stamp-line-limit 20) ; ; default is 8