sort_pis.c

来自「NIST Handwriting OCR Testbed」· C语言 代码 · 共 100 行

/*
# proc: sort_pi_lists_on_y - sorts lists of phrase indices based on the
# proc:                      y coordinate of their first blob's center in
# proc:                      ascending order.
# proc: sort_pi_list_on_x - sorts the elements of a list of phrase indices
# proc:                     based on the x coordinate of each blob's center in
# proc:                     ascending order.
# proc: sort_pi_lists_by_length - sorts lists of phrase indices based on the
# proc:                           number of elements (blobs) in each list in
# proc:                           decending order.
*/

#include <stdio.h>
#include <maxlist.h>

/***************************************************************************/
sort_pi_lists_on_y(pi_lists, pi_lens, nphrases, mys, n)
int *pi_lists[], *pi_lens;
int nphrases, *mys, n;
{
   int i;
   int **tlists, *tlens, *pi_mys, *pi_list;
   int *spis, *sort_index_on_int();

   malloc_int(&pi_mys, nphrases, "sort_pi_list_on_y : pi_mys");
   malloc_dbl_int_l1(&tlists, nphrases, "sort_pi_lists_on_y : tlists");
   malloc_int(&tlens, nphrases, "sort_pi_lists_on_y : tlens");

   memcpy(tlens, pi_lens, nphrases * sizeof(int));
   for(i = 0; i < nphrases; i++){
      pi_list = pi_lists[i];
      tlists[i] = pi_list;
      pi_mys[i] = mys[pi_list[0]];
   }

   spis = sort_index_on_int(pi_mys, nphrases);
   for(i = 0; i < nphrases; i++){
      pi_lists[i] = tlists[spis[i]];
      pi_lens[i] = tlens[spis[i]];
   }

   free(spis);
   free(tlists);
   free(tlens);
   free(pi_mys);
}

/***************************************************************************/
sort_pi_list_on_x(pi_list, pi_len, mxs, n)
int *pi_list, pi_len;
int *mxs, n;
{
   int i, *spis, *sort_index_on_int();
   int *tlist, *pi_mxs;

   malloc_int(&pi_mxs, pi_len, "sort_pi_list_on_x : pi_mxs");
   for(i = 0; i < pi_len; i++)
      pi_mxs[i] = mxs[pi_list[i]];

   malloc_int(&tlist, pi_len, "sort_pi_list_on_x : tlist");
   memcpy(tlist, pi_list, pi_len * sizeof(int));

   spis = sort_index_on_int(pi_mxs, pi_len);

   for(i = 0; i < pi_len; i++){
      pi_list[i] = tlist[spis[i]];
   }
   free(spis);
   free(pi_mxs);
   free(tlist);
}

/***************************************************************************/
sort_pi_lists_by_length(pi_lists, pi_lens, nphrases)
int *pi_lists[], *pi_lens;
int nphrases;
{
   int i;
   int **tlists, *tlens, *pi_list;
   int *spis, *sort_index_dec_on_int();

   malloc_int(&tlens, nphrases, "sort_pi_lists_by_length : tlens");
   memcpy(tlens, pi_lens, nphrases * sizeof(int));

   malloc_dbl_int_l1(&tlists, nphrases,  "sort_pi_lists_by_length : tlists");
   for(i = 0; i < nphrases; i++){
      tlists[i] = pi_lists[i];
   }

   spis = sort_index_dec_on_int(pi_lens, nphrases);
   for(i = 0; i < nphrases; i++){
      pi_lists[i] = tlists[spis[i]];
      pi_lens[i] = tlens[spis[i]];
   }

   free(spis);
   free(tlists);
   free(tlens);
}