my $n = ($x<<030) + ($y<<020) + ($z<<010) + 0x40; $rect->set('fill-color-rgba' => $n);