#define B2TOOL1_C	1
#include "bmepsi.h"
$(trace-include)

/*
	0 ... width and height as is
	1 ... use pHY chunk
	2 ... use media size
*/
int
bmeps_tool_how_to_handle_bb DK_P1(BJ *,bj)
{
  int back = 0;
  $? "+ how_to_handle_bb"
  if(((bj->bo)->opt) & BMEPS_OPT_PAPER_SIZE) {
    back = 2;	$? ". paper size specified"
  } else {
    if(((bj->bo)->opt) & BMEPS_OPT_RESOLUTION) {
      back = 1;	$? ". resolution specified"
    }
  } $? "- how_to_handle_bb %d", back
  return back;
}



static
void
initialize_areas DK_P1(BJ *,bj)
{
  (bj->trans).must_rotate = 0;
  (bj->trans).must_scale = 0;
  (bj->trans).sfx = 1.0;
  (bj->trans).sfy = 1.0;
  (bj->trans).hrbb.x0 = 0.0;
  (bj->trans).hrbb.x1 = 0.0;
  (bj->trans).hrbb.y0 = 0.0;
  (bj->trans).hrbb.y1 = 0.0;
  (bj->trans).ia.x0 = 0.0;
  (bj->trans).ia.x1 = 0.0;
  (bj->trans).ia.y0 = 0.0;
  (bj->trans).ia.y1 = 0.0;
  (bj->trans).iu.x0 = 0.0;
  (bj->trans).iu.x1 = 0.0;
  (bj->trans).iu.y0 = 0.0;
  (bj->trans).iu.y1 = 0.0;
  (bj->trans).bb.x0 = 0UL;
  (bj->trans).bb.x1 = 0UL;
  (bj->trans).bb.y0 = 0UL;
  (bj->trans).bb.y1 = 0UL;
}



static
void
bb_from_paper_size DK_P1(BJ *,bj)
{
  unsigned long w, h, rotw, roth;
  double dw, dh, deltax, deltay, usedx, usedy;
  int me = 0;
  $? "+ bb_from_paper_size"
  /* available page range */
  (bj->trans).hrbb.x0 = ((bj->bo)->ms).px0;
  (bj->trans).hrbb.x1 = ((bj->bo)->ms).px1;
  (bj->trans).hrbb.y0 = ((bj->bo)->ms).py0;
  (bj->trans).hrbb.y1 = ((bj->bo)->ms).py1;
  /* page range allowed for image placement */
  (bj->trans).ia.x0 = ((bj->bo)->ms).bx0;
  (bj->trans).ia.x1 = ((bj->bo)->ms).bx1;
  (bj->trans).ia.y0 = ((bj->bo)->ms).by0;
  (bj->trans).ia.y1 = ((bj->bo)->ms).by1;
  /* page range used for image placement, rot, scale */
  deltax = dkma_sub_double_ok(
    (bj->trans).ia.x1, (bj->trans).ia.x0, &me
  );
  deltay = dkma_sub_double_ok(
    (bj->trans).ia.y1, (bj->trans).ia.y0, &me
  );
  /* deltax = fabs(deltax); deltay = fabs(deltay); */
  w = dkbif_get_width(bj->bif);
  h = dkbif_get_height(bj->bif);
  rotw = w; roth = h;
  dw = dkma_ul_to_double(w);
  dh = dkma_ul_to_double(h);
  $? ". w=%lu h=%lu", w, h
  $? ". deltax=%lg deltay=%lg", deltax, deltay
  if(w > h) {
    if(deltay > deltax) {
      (bj->trans).must_rotate = 1;
      $? ". must_rotate (1)"
    }
  } else {
    if(w < h) {
      if(deltay < deltax) {
        (bj->trans).must_rotate = 1;
	$? ". must_rotate (2)"
      }
    }
  }
  if((bj->trans).must_rotate) {
    $? ". must_rotate"
    rotw = h; roth = w;
  }
  dw = dkma_ul_to_double(rotw);	$? ". dw = %lg", dw
  dh = dkma_ul_to_double(roth);	$? ". dh = %lg", dh
  (bj->trans).sfx = dkma_div_double_ok(deltax, rotw, &me);
  (bj->trans).sfy = dkma_div_double_ok(deltay, roth, &me);
  $? ". sfx = %lg   sfy = %lg", (bj->trans).sfx, (bj->trans).sfy
  (bj->trans).sfx = dkma_double_restrict_downwards((bj->trans).sfx, 3);
  (bj->trans).sfy = dkma_double_restrict_downwards((bj->trans).sfy, 3);
  $? ". sfx = %lg   sfy = %lg", (bj->trans).sfx, (bj->trans).sfy
  if((bj->trans).sfx > (bj->trans).sfy) {
    $? ". decrease sfx"
    (bj->trans).sfx = (bj->trans).sfy;
  } else {
    $? ". decrease sfy"
    (bj->trans).sfy = (bj->trans).sfx;
  }
  $? ". sfx = %lg   sfy = %lg", (bj->trans).sfx, (bj->trans).sfy
  usedx = dkma_mul_double_ok(dw, (bj->trans).sfx, &me);
  usedy = dkma_mul_double_ok(dh, (bj->trans).sfy, &me);
  $? ". deltax = %lg   usedx = %lg", deltax, usedx
  $? ". deltay = %lg   usedy = %lg", deltay, usedy
  (bj->trans).iu.x0 = (bj->trans).ia.x0
                       + 0.5 * dkma_sub_double_ok(deltax, usedx, &me);
  (bj->trans).iu.x1 = dkma_add_double_ok((bj->trans).iu.x0, usedx, &me);
  (bj->trans).iu.y0 = (bj->trans).ia.y0
                       + 0.5 * dkma_sub_double_ok(deltay, usedy, &me);
  (bj->trans).iu.y1 = dkma_add_double_ok((bj->trans).iu.y0, usedy, &me);
  /* real bounding box */
  /*
  (bj->trans).bb.x0 = dkma_double_to_ul_ok(floor((bj->trans).iu.x0), &me);
  (bj->trans).bb.y0 = dkma_double_to_ul_ok(floor((bj->trans).iu.y0), &me);
  (bj->trans).bb.x1 = dkma_double_to_ul_ok(ceil((bj->trans).iu.x1), &me);
  (bj->trans).bb.y1 = dkma_double_to_ul_ok(ceil((bj->trans).iu.y1), &me);
  */
  (bj->trans).bb.x0 = dkma_double_to_ul_ok(floor((bj->trans).hrbb.x0), &me);
  (bj->trans).bb.y0 = dkma_double_to_ul_ok(floor((bj->trans).hrbb.y0), &me);
  (bj->trans).bb.x1 = dkma_double_to_ul_ok(ceil((bj->trans).hrbb.x1), &me);
  (bj->trans).bb.y1 = dkma_double_to_ul_ok(ceil((bj->trans).hrbb.y1), &me);
  $? ". hrbb = %lg %lg %lg %lg", (bj->trans).hrbb.x0, (bj->trans).hrbb.y0, (bj->trans).hrbb.x1, (bj->trans).hrbb.y1
  $? ". ia   = %lg %lg %lg %lg", (bj->trans).ia.x0, (bj->trans).ia.y0, (bj->trans).ia.x1, (bj->trans).ia.y1
  $? ". ui   = %lg %lg %lg %lg", (bj->trans).iu.x0, (bj->trans).iu.y0, (bj->trans).iu.x1, (bj->trans).iu.y1
  $? ". bb   = %lu %lu %lu %lu", (bj->trans).bb.x0, (bj->trans).bb.y0, (bj->trans).bb.x1, (bj->trans).bb.y1
  $? "- bb_from_paper_size"
}



static
void
bb_complete DK_P1(BJ *,bj)
{
  /* allowed area */
  (bj->trans).ia.x0 = (bj->trans).iu.x0;
  (bj->trans).ia.y0 = (bj->trans).iu.y0;
  (bj->trans).ia.x1 = (bj->trans).iu.x1;
  (bj->trans).ia.y1 = (bj->trans).iu.y1;
  /* paper size */
  (bj->trans).hrbb.x0 = dkma_ul_to_double((bj->trans).bb.x0);
  (bj->trans).hrbb.y0 = dkma_ul_to_double((bj->trans).bb.y0);
  (bj->trans).hrbb.x1 = dkma_ul_to_double((bj->trans).bb.x1);
  (bj->trans).hrbb.y1 = dkma_ul_to_double((bj->trans).bb.y1);
}



static
void
bb_ignore_resolution DK_P1(BJ *,bj)
{
  $? "+ bb_ignore_resolution"
  /* real bounding box */
  (bj->trans).bb.x0 = 0UL; (bj->trans).bb.y0 = 0UL;
  (bj->trans).bb.x1 = dkbif_get_width(bj->bif);
  $? ". x1 = %lu", (bj->trans).bb.x1
  (bj->trans).bb.y1 = dkbif_get_height(bj->bif);
  $? ". y1= %lu", (bj->trans).bb.y1
  /* used area */
  (bj->trans).iu.x0 = 0.0; (bj->trans).iu.y0 = 0.0;
  (bj->trans).iu.x1 = dkma_ul_to_double((bj->trans).bb.x1);
  (bj->trans).iu.y1 = dkma_ul_to_double((bj->trans).bb.y1);
  bb_complete(bj);
  $? "- bb_ignore_resolution"
}



static
void
bb_use_resolution DK_P1(BJ *,bj)
{
  int me = 0; double delta;
  (bj->trans).must_scale = dkbif_get_must_scale(bj->bif);
  if((bj->trans).must_scale) {
    (bj->trans).iu.x0 = 0.0; (bj->trans).iu.y0 = 0.0;
    (bj->trans).iu.x1 = dkbif_get_real_width(bj->bif);
    (bj->trans).iu.y1 = dkbif_get_real_height(bj->bif);
    (bj->trans).sfx = dkma_div_double_ok(
      (bj->trans).iu.x1,
      dkma_ul_to_double(dkbif_get_width(bj->bif)),
      &me
    ); (bj->trans).sfx = dkma_double_restrict_downwards((bj->trans).sfx, 3);
    (bj->trans).sfy = dkma_div_double_ok(
      (bj->trans).iu.y1,
      dkma_ul_to_double(dkbif_get_height(bj->bif)),
      &me
    ); (bj->trans).sfy = dkma_double_restrict_downwards((bj->trans).sfy, 3);
    (bj->trans).ia.x0 = 0.0;
    (bj->trans).ia.y0 = 0.0;
    (bj->trans).ia.x1 = ceil((bj->trans).iu.x1);
    (bj->trans).ia.y1 = ceil((bj->trans).iu.y1);
    delta = 0.5 * dkma_sub_double_ok(
      (bj->trans).ia.x1, (bj->trans).iu.x1, &me
    );
    (bj->trans).iu.x0 = delta;
    (bj->trans).iu.x1 = dkma_add_double_ok((bj->trans).iu.x1, delta, &me);
    delta = 0.5 * dkma_sub_double_ok(
      (bj->trans).ia.y1, (bj->trans).iu.y1, &me
    );
    (bj->trans).iu.y0 = delta;
    (bj->trans).iu.y1 = dkma_add_double_ok((bj->trans).iu.y1, delta, &me);
    (bj->trans).bb.x0 = 0UL; (bj->trans).bb.y0 = 0UL;
    (bj->trans).bb.x1 = dkma_double_to_ul((bj->trans).ia.x1);
    (bj->trans).bb.y1 = dkma_double_to_ul((bj->trans).ia.y1);
    (bj->trans).hrbb.x0 = dkma_ul_to_double((bj->trans).bb.x0);
    (bj->trans).hrbb.y0 = dkma_ul_to_double((bj->trans).bb.y0);
    (bj->trans).hrbb.x1 = dkma_ul_to_double((bj->trans).bb.x1);
    (bj->trans).hrbb.y1 = dkma_ul_to_double((bj->trans).bb.y1);
  } else {
    bb_ignore_resolution(bj);
  }
  if(me) {
  }
}



void
bmeps_tool_calculate_areas DK_P1(BJ *,bj)
{
  $? "+ bmeps_tool_calculate_areas"
  if(bj) {
    initialize_areas(bj);
    switch(bmeps_tool_how_to_handle_bb(bj)) {
      case 2: {		/* bb from paper size */
        bb_from_paper_size(bj);
      } break;
      case 1: {		/* bb from pHY chunk if available */
        bb_use_resolution(bj);
      } break;
      default: {	/* bb from image dimensions */
        bb_ignore_resolution(bj);
      } break;
    }
  }
  $? "- bmeps_tool_calculate_areas"
}



unsigned short
bmeps_tool_pdf_output_bits DK_P1(unsigned short,b)
{
  unsigned short back = 1;
  if(b > 1) {
    back = 2;
    if(b > 2) {
      back = 4;
      if(b > 4) {
        back = 8;
      }
    }
  }
  return back;
}


unsigned short
bmeps_tool_eps_output_bits DK_P1(unsigned short,b)
{
  unsigned short back = 1;
  if(b > 1) {
    back = 2;
    if(b > 2) {
      back = 4;
      if(b > 4) {
        back = 8;
	if(b > 8) {
	  back = 12;
	}
      }
    }
  }
  return back;
}



void
bmeps_tool_correct_bo DK_P1(BO *,bo)
{
  $? "+ correct_bo"
  switch(bo->ot) {
    case BMEPS_OUTPUT_TYPE_EPS: {
      if(bo->l < BMEPS_PS_LEVEL_2) {
        bo->opt &= (~(BMEPS_OPT_OPERATOR_DICTIONARY));
	bo->opt &= (~(BMEPS_OPT_COLOR_OUTPUT));
	bo->opt &= (~(BMEPS_OPT_OPERATOR_DICTIONARY));
	bo->enc &= (~(BMEPS_ENCODING_ASCII85));
	bo->enc &= (~(BMEPS_ENCODING_RUNLENGTH));
	bo->enc &= (~(BMEPS_ENCODING_DCT));
/* begin LZW related code */
#ifdef BMEPS_ENCODING_LZW
	bo->enc &= (~(BMEPS_ENCODING_LZW));
#endif
/* end LZW related code */
      }
      if(bo->l < BMEPS_PS_LEVEL_3) {
        bo->opt &= (~(BMEPS_OPT_IMAGE_MASK));
	bo->enc &= (~(BMEPS_ENCODING_FLATE));
      } else {
        if(bo->opt & BMEPS_OPT_IMAGE_MASK) {
	  bo->opt |= BMEPS_OPT_OPERATOR_DICTIONARY;
	}
      }
      if(!(bo->opt & BMEPS_OPT_COLOR_OUTPUT)) {
        bo->opt &= (~(BMEPS_OPT_SEPARATED_DATA));
      }
      if(!(bo->opt & BMEPS_OPT_DICTIONARY)) {
        bo->opt &= (~(BMEPS_OPT_VMRECLAIM));
      }
      if(!(bo->opt & BMEPS_OPT_OPERATOR_DICTIONARY)) {
        bo->opt &= (~(BMEPS_OPT_INTERPOLATE));
      }
    } break;
    case BMEPS_OUTPUT_TYPE_PDF: {
    } break;
    default: {
    } break;
  }
  $? "- correct_bo"
}



int
bmeps_tool_interpolate DK_P1(BJ *,bj)
{
  int back = 0;
  if(bj) {
    switch(bj->it) {
      case DKBIF_TYPE_JPG: {
        if((bj->bo2)->opt & BMEPS_OPT_JPEG_INTERPOLATE) {
	  if((bj->bo2)->opt & BMEPS_OPT_INTERPOLATE) {
	    back = 1;
	  }
	}
      } break;
      default: {
        if((bj->bo2)->opt & BMEPS_OPT_INTERPOLATE) {
	  back = 1;
	}
      } break;
    }
  }
  return back;
}


char *b2tool_ot_suffixes[] = {
  ".eps", ".pdf", ".bb", NULL
};

char *
bmeps_tool_suffix_for_output_type DK_P1(int,t)
{
  char *back = NULL;
  back = b2tool_ot_suffixes[0];
  switch(t) {
    case BMEPS_OUTPUT_TYPE_PDF: { back = b2tool_ot_suffixes[1]; } break;
    case BMEPS_OUTPUT_TYPE_BB : { back = b2tool_ot_suffixes[2]; } break;
  }
  return back;
}


int
bmeps_tool_calc_di DK_P5(BJ *,bj, DI *,dp1, DI *,dp2, double,f1, double,f2)
{
  int back = 1;
  int me = 0;
  double w, h, alpha, d1, d2;
  w = dkma_sub_double_ok((bj->trans).iu.x1, (bj->trans).iu.x0, &me);
  h = dkma_sub_double_ok((bj->trans).iu.y1, (bj->trans).iu.y0, &me);
  alpha = atan2(w, h);
  if(w < h) {
    d1 = f1 * w;
    d2 = f2 * w;
  } else {
    d1 = f1 * h;
    d2 = f2 * h;
  }
  dp1->d = d1; dp2->d = d2;
  dp1->deltax = dkma_div_double_ok(
    d1,
    (2.0 * sin(alpha)),
    &me
  );
  dp1->deltay = dkma_div_double_ok(
    d1,
    (2.0 * cos(alpha)),
    &me
  );
  dp2->deltax = dkma_div_double_ok(
    d2,
    (2.0 * sin(alpha)),
    &me
  );
  dp2->deltay = dkma_div_double_ok(
    d2,
    (2.0 * cos(alpha)),
    &me
  );
  if(me) back = 0;
  return back;
}



char *
bmeps_get_msg_no DK_P2(BJ *,bj, size_t,n)
{
  char *back = NULL;
  if(bj->msg) {
    back = (bj->msg)[n];
    if(!back) {
      back = bmeps_str_get(n);
    }
  } else {
    back = bmeps_str_get(n);
  }
  return back;
}



void
bmeps_tool_msg_1 DK_P3(BJ *,bj, int,ll, size_t,n)
{
  char *buffer[2];
  buffer[0] = bmeps_get_msg_no(bj, n);
  if(bj->a) {
    dkapp_log_msg(bj->a, ll, buffer, 1);
  } else {
    if(ll <= DK_LOG_LEVEL_INFO) {
      buffer[1] = bmeps_get_msg_no(bj, (26 + ll));
      fprintf(stderr, "%s%s\n", buffer[1], buffer[0]);
      fflush(stderr);
    }
  }
}



void
bmeps_tool_msg_3 DK_P5(BJ *,bj, int,ll, size_t,n1, size_t,n2, char *,s)
{
  char *buffer[4];
  buffer[0] = bmeps_get_msg_no(bj, n1);
  buffer[1] = s;
  buffer[2] = bmeps_get_msg_no(bj, n2);
  if(bj->a) {
    dkapp_log_msg(bj->a, ll, buffer, 3);
  } else {
    if(ll <= DK_LOG_LEVEL_INFO) {
      buffer[3] = bmeps_get_msg_no(bj, (26 + ll));
      fprintf(
        stderr, "%s%s%s%s\n",
	buffer[3], buffer[0], buffer[1], buffer[2]
      ); fflush(stderr);
    }
  }
}



void
bmeps_tool_error_memory DK_P1(BJ *,bj)
{
  if(bj->msg) {
    bmeps_tool_msg_1(bj, DK_LOG_LEVEL_ERROR, 32);
  } else {
    fprintf(stderr, "ERROR: Not enough memory (RAM/swap space)!\n");
    fflush(stderr);
  }
}


#ifndef LINT
static char sccs_id[] = {
"@(#)b2tool1.ctr 1.2 01/03/07\tbmeps2"
};
#endif