Select Code to Download

----------------------------
             [ ]
...
----------------------------
            [   ]
----------------------------

    int(X/W), int(Y/W), Z

for my $xBand (  int(($X1-$R1-$M)/$W) .. int(($X1-$R1-$M)/$W)  ) {

  for my $yBand (  int(($Y1-$R1-$M)/W) .. int(($Y1-$R1-$M)/$W)  ) {

    my $start= BuildKey( $xBand, $yBand, $Z1-$R1-$M );
    my $end=   BuildKey( $xBand, $yBand, $Z1+$R1+$M );
...
  }
}
return 0;

my @bandWidth= ( 3, 15, 0 );

...
    return ConcatForKey(
        $sizeRange, int($x/$width), int($y/$width), $z );
}

    real        x
    real        y
...
    int         xBand
    int         yBand
    index       size,xBand,yBand,z

sub BuildKey {
    my( $radius, $x, $y, $z )= @_;
...
    }
    return return pack "cNNN", $sizeRange, $x, $y, $z;
}