#!/usr/bin/perl

use PDL;
use PDL::IO::FastRaw;

# Wczytujemy dane do macierzy $mozg 
$mozg = readfraw("mozg", { Dims => [351,412], ReadOnly => 1 });

# Tworzymy druga macierz (351 na 412) wypelniona zerami.
$tarcza_strzelnicza = zeroes(412, 351);

# W elementach macierzy $tarcza_strzelnicza wpisujemy ich odleglosc od srodka.
rvals(inplace($tarcza_strzelnicza));

# Przycinamy wartosci macierzy $tarcza_strzelnicza do 255.
$tarcza_strzelnicza = 255 * ($tarcza_strzelnicza >= 255) + $tarcza_strzelnicza * ($tarcza_strzelnicza < 255);

# Tworzymy nowa macierz, $duch, ktora jest suma macierzy $mozg i $tarcza_strzelnicza.
$duch = $mozg/2 + $tarcza_strzelnicza/1.5;

# Dopasowujemy kazdy elemnt macierzy $duch do pojedynczego bajtu.
$duch = byte $duch;

# Wpisujemy ja do pliku "jasne-brzegi".
writefraw($duch, "jasne-brzegi");
