sub minkowski {
    my ($d, $level, $rt) = @_;

    rt($rt) if $rt;
    fd($d), return unless $level--;

    $d /= 4;
    minkowski($d, $level, $_)
        for 0, -90, 90, 90, 0, -90, -90, 90;
}