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