#!/usr/bin/perl

# Wymaga modulu PDL - (http://www.perl.com/CPAN/modules/by-module/PDL)
# i plikow mozg oraz mozg.hdr opisanych we wczesniejszych przykladach.
use PDL;
use PDL::IO::FastRaw;

$mozg = readfraw("mozg", {Dims => [351,412], ReadOnly => 1,});

# Wycinamy prostokatny fragment definiowany przez punkty (231, 204)
# i (346, 281)
#
$mozdzek = sec($mozg, 231, 346, 204, 281);

writefraw($mozdzek, "mozdzek");
