#!/usr/bin/perl -w

use Math::MatrixReal;

@trojkat = (Math::MatrixReal->new_from_string("[ -1 ]\n[ -1 ]\n"),
             Math::MatrixReal->new_from_string("[  0 ]\n[  1 ]\n"),
             Math::MatrixReal->new_from_string("[  1 ]\n[ -1 ]\n"));

$skalowanie = Math::MatrixReal->new_from_string("[ 2 0 ]\n[ 0 3 ]\n");

# Skalujemy trojkat, podwajajac szerokosc i potrajajac wysokosc

foreach (@trojkat) { $_ = $skalowanie * $_ }

print @trojkat;
