Arboles Perimetro

void perimetro(TArbol *arbol){
    TNodo *ptrRecIzq,*ptrRecDer;
    ptrRecIzq = arbol->raiz;
    while(ptrRecIzq->hijoIzq != NULL){
        printf("%4d",ptrRecIzq->elem);
        ptrRecIzq = ptrRecIzq->hijoIzq;
    }

    TPila pila;
    crearPila(&pila);
    TNodo* ptrArbol;
    ptrArbol = arbol->raiz;

    apilar(&pila,ptrArbol);
    while(!esVaciaPila(&pila)){
        TNodo * auxArbol;
        auxArbol = cima(&pila);
        if (auxArbol->hijoDer == NULL && auxArbol->hijoIzq == NULL)
            printf("%4d",auxArbol->elem);
        desapilar(&pila);
        if (auxArbol->hijoDer != NULL)
            apilar(&pila,auxArbol->hijoDer);
        if (auxArbol->hijoIzq != NULL)
            apilar(&pila,auxArbol->hijoIzq);
    }

    TLista lista;
    crearLista(&lista);

    ptrRecDer = arbol->raiz->hijoDer;
    while(ptrRecDer->hijoDer != NULL){
        anadeIzq(&lista,ptrRecDer->elem);
        ptrRecDer = ptrRecDer->hijoDer;
    }
    imprimirLista(&lista);
}