Select Code to Download

sub minkowski {
    my ($d, $level) = @_ ;
...
    rt(-90); minkowski($d/4,$level-1);
    rt( 90); minkowski($d/4,$level-1);
}

sub minkowski {
    my ($d, $level) = @_ ;
...
    rt(-90); minkowski($d,$level);
    rt( 90); minkowski($d,$level);
}

sub minkowski {
    my ($d, $level, $rt) = @_ ;
...
    minkowski($d,$level, -90);
    minkowski($d,$level,  90);
}

sub minkowski {
    my ($d, $level, $rt) = @_;
...
    minkowski($d, $level, $_)
        for 0, -90, 90, 90, 0, -90, -90, 90;
}