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

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

    $d /= 4;

    minkowski($d,$level);
    minkowski($d,$level, -90);
    minkowski($d,$level,  90);
    minkowski($d,$level,  90);
    minkowski($d,$level);
    minkowski($d,$level, -90);
    minkowski($d,$level, -90);
    minkowski($d,$level,  90);
}