print.c

Go to the documentation of this file.

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "global.h"
#include "hid_draw.h"

#include <time.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#if defined(ENABLE_NLS) && defined(HAVE_LOCALE_H)
#include <locale.h>
#endif

#include "data.h"
#include "draw.h"
#include "drill.h"
#include "file.h"
#include "find.h"
#include "error.h"
#include "misc.h"
#include "print.h"
#include "polygon.h"
#include "rtree.h"
#include "search.h"

#include "hid.h"

#ifdef HAVE_LIBDMALLOC
#include <dmalloc.h>
#endif

/* ---------------------------------------------------------------------------
 * prints a FAB drawing.
 */

#define TEXT_SIZE       MIL_TO_COORD(150)
#define TEXT_LINE       MIL_TO_COORD(150)
#define DRILL_MARK_SIZE MIL_TO_COORD(16)
#define FAB_LINE_W      MIL_TO_COORD(8)

static void
fab_line (hidGC gc, int x1, int y1, int x2, int y2)
{
  gui->graphics->draw_line (gc, x1, y1, x2, y2);
}

static void
fab_circle (hidGC gc, int x, int y, int r)
{
  gui->graphics->draw_arc (gc, x, y, r, r, 0, 180);
  gui->graphics->draw_arc (gc, x, y, r, r, 180, 180);
}

static void
text_at (hidGC gc, int x, int y, int align, char *fmt, ...)
{
  char tmp[512];
  int w = 0, i;
  TextType t;
  va_list a;
  FontType *font = &PCB->Font;
  va_start (a, fmt);
  vsprintf (tmp, fmt, a);
  va_end (a);
  t.Direction = 0;
  t.TextString = tmp;
  t.Scale = COORD_TO_MIL(TEXT_SIZE);  /* pcnt of 100mil base height */
  t.Flags = NoFlags ();
  t.X = x;
  t.Y = y;
  for (i = 0; tmp[i]; i++)
    w +=
      (font->Symbol[(int) tmp[i]].Width + font->Symbol[(int) tmp[i]].Delta);
  w = SCALE_TEXT (w, t.Scale);
  t.X -= w * (align & 3) / 2;
  if (t.X < 0)
    t.X = 0;
  gui->graphics->draw_pcb_text (gc, &t, 0);
  if (align & 8)
    fab_line (gc, t.X,
              t.Y + SCALE_TEXT (font->MaxHeight, t.Scale) + MIL_TO_COORD(10),
              t.X + w,
              t.Y + SCALE_TEXT (font->MaxHeight, t.Scale) + MIL_TO_COORD(10));
}

static void
drill_sym (hidGC gc, int idx, int x, int y)
{
  int type = idx % 5;
  int size = idx / 5;
  int s2 = (size + 1) * DRILL_MARK_SIZE;
  int i;
  switch (type)
    {
    case 0:                     /* Y */ ;
      fab_line (gc, x, y, x, y + s2);
      fab_line (gc, x, y, x + s2 * 13 / 15, y - s2 / 2);
      fab_line (gc, x, y, x - s2 * 13 / 15, y - s2 / 2);
      for (i = 1; i <= size; i++)
        fab_circle (gc, x, y, i * DRILL_MARK_SIZE);
      break;
    case 1:                     /* + */
      ;
      fab_line (gc, x, y - s2, x, y + s2);
      fab_line (gc, x - s2, y, x + s2, y);
      for (i = 1; i <= size; i++)
        {
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
        }
      break;
    case 2:                     /* X */ ;
      fab_line (gc, x - s2 * 3 / 4, y - s2 * 3 / 4, x + s2 * 3 / 4,
                y + s2 * 3 / 4);
      fab_line (gc, x - s2 * 3 / 4, y + s2 * 3 / 4, x + s2 * 3 / 4,
                y - s2 * 3 / 4);
      for (i = 1; i <= size; i++)
        {
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
        }
      break;
    case 3:                     /* circle */ ;
      for (i = 0; i <= size; i++)
        fab_circle (gc, x, y, (i + 1) * DRILL_MARK_SIZE - DRILL_MARK_SIZE / 2);
      break;
    case 4:                     /* square */
      for (i = 1; i <= size + 1; i++)
        {
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x - i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
          fab_line (gc, x + i * DRILL_MARK_SIZE, y - i * DRILL_MARK_SIZE,
                        x + i * DRILL_MARK_SIZE, y + i * DRILL_MARK_SIZE);
        }
      break;
    }
}

static int
count_drill_lines (DrillInfoType *AllDrills)
{
  int n, ds = 0;
  for (n = AllDrills->DrillN - 1; n >= 0; n--)
    {
      DrillType *drill = &(AllDrills->Drill[n]);
      if (drill->PinCount + drill->ViaCount > drill->UnplatedCount)
        ds++;
      if (drill->UnplatedCount)
        ds++;
    }
  return ds;
}


int
PrintFab_overhang (void)
{
  DrillInfoType *AllDrills = GetDrillInfo (PCB->Data);
  int ds = count_drill_lines (AllDrills);
  if (ds < 4)
    ds = 4;
  return (ds + 2) * TEXT_LINE;
}

void
PrintFab (hidGC gc)
{
  DrillInfoType *AllDrills;
  int i, n, yoff, total_drills = 0, ds = 0;
  time_t currenttime;
  const char *utcFmt = "%c UTC";
  char utcTime[64];
#ifdef ENABLE_NLS
  char *oldlocale;
#endif
  AllDrills = GetDrillInfo (PCB->Data);
  yoff = -TEXT_LINE;

  /* count how many drill description lines will be needed */
  ds = count_drill_lines (AllDrills);

  /*
   * When we only have a few drill sizes we need to make sure the
   * drill table header doesn't fall on top of the board info
   * section.
   */
  if (ds < 4)
    {
      yoff -= (4 - ds) * TEXT_LINE;
    }

  gui->graphics->set_line_width (gc, FAB_LINE_W);

  for (n = AllDrills->DrillN - 1; n >= 0; n--)
    {
      int plated_sym = -1, unplated_sym = -1;
      DrillType *drill = &(AllDrills->Drill[n]);
      if (drill->PinCount + drill->ViaCount > drill->UnplatedCount)
        plated_sym = --ds;
      if (drill->UnplatedCount)
        unplated_sym = --ds;
      gui->graphics->set_color (gc, PCB->PinColor);
      for (i = 0; i < drill->PinN; i++)
        drill_sym (gc, TEST_FLAG (HOLEFLAG, drill->Pin[i]) ?
                   unplated_sym : plated_sym, drill->Pin[i]->X,
                   drill->Pin[i]->Y);
      if (plated_sym != -1)
        {
          drill_sym (gc, plated_sym, TEXT_SIZE, yoff + TEXT_SIZE / 4);
          text_at (gc, MIL_TO_COORD(1350), yoff, MIL_TO_COORD(2), "YES");
          text_at (gc, MIL_TO_COORD(980), yoff, MIL_TO_COORD(2), "%d",
                   drill->PinCount + drill->ViaCount - drill->UnplatedCount);

          if (unplated_sym != -1)
            yoff -= TEXT_LINE;
        }
      if (unplated_sym != -1)
        {
          drill_sym (gc, unplated_sym, TEXT_SIZE, yoff + TEXT_SIZE / 4);
          text_at (gc, MIL_TO_COORD(1400), yoff, MIL_TO_COORD(2), "NO");
          text_at (gc, MIL_TO_COORD(980), yoff, MIL_TO_COORD(2), "%d", drill->UnplatedCount);
        }
      gui->graphics->set_color (gc, PCB->ElementColor);
      text_at (gc, MIL_TO_COORD(450), yoff, MIL_TO_COORD(2), "%0.3f",
               COORD_TO_INCH(drill->DrillSize));
      if (plated_sym != -1 && unplated_sym != -1)
        text_at (gc, MIL_TO_COORD(450), yoff + TEXT_LINE, MIL_TO_COORD(2), "%0.3f",
                 COORD_TO_INCH(drill->DrillSize));
      yoff -= TEXT_LINE;
      total_drills += drill->PinCount;
      total_drills += drill->ViaCount;
    }

  gui->graphics->set_color (gc, PCB->ElementColor);
  text_at (gc, 0, yoff, MIL_TO_COORD(9), "Symbol");
  text_at (gc, MIL_TO_COORD(410), yoff, MIL_TO_COORD(9), "Diam. (Inch)");
  text_at (gc, MIL_TO_COORD(950), yoff, MIL_TO_COORD(9), "Count");
  text_at (gc, MIL_TO_COORD(1300), yoff, MIL_TO_COORD(9), "Plated?");
  yoff -= TEXT_LINE;
  text_at (gc, 0, yoff, 0,
           "There are %d different drill sizes used in this layout, %d holes total",
           AllDrills->DrillN, total_drills);
  /* Create a portable timestamp. */
#ifdef ENABLE_NLS
  oldlocale = setlocale (LC_TIME, "C");
#endif
  currenttime = time (NULL);
  strftime (utcTime, sizeof utcTime, utcFmt, gmtime (&currenttime));
#ifdef ENABLE_NLS
  setlocale (LC_TIME, oldlocale);
#endif

  yoff = -TEXT_LINE;
  for (i = 0; i < max_copper_layer; i++)
    {
      LayerType *l = LAYER_PTR (i);
      if (l->Name && (l->LineN || l->ArcN))
        {
          if (strcmp ("route", l->Name) == 0)
            break;
          if (strcmp ("outline", l->Name) == 0)
            break;
        }
    }
  if (i == max_copper_layer)
    {
      gui->graphics->set_line_width (gc,  MIL_TO_COORD(10));
      gui->graphics->draw_line (gc, 0, 0, PCB->MaxWidth, 0);
      gui->graphics->draw_line (gc, 0, 0, 0, PCB->MaxHeight);
      gui->graphics->draw_line (gc, PCB->MaxWidth, 0, PCB->MaxWidth,
                      PCB->MaxHeight);
      gui->graphics->draw_line (gc, 0, PCB->MaxHeight, PCB->MaxWidth,
                      PCB->MaxHeight);
      /*FPrintOutline (); */
      gui->graphics->set_line_width (gc, FAB_LINE_W);
      text_at (gc, MIL_TO_COORD(2000), yoff, 0,
               "Maximum Dimensions: %f mils wide, %f mils high",
               COORD_TO_MIL(PCB->MaxWidth), COORD_TO_MIL(PCB->MaxHeight));
      text_at (gc, PCB->MaxWidth / 2, PCB->MaxHeight + MIL_TO_COORD(20), 1,
               "Board outline is the centerline of this %f mil"
               " rectangle - 0,0 to %f,%f mils",
               COORD_TO_MIL(FAB_LINE_W), COORD_TO_MIL(PCB->MaxWidth), COORD_TO_MIL(PCB->MaxHeight));
    }
  else
    {
      LayerType *layer = LAYER_PTR (i);
      gui->graphics->set_line_width (gc, MIL_TO_COORD(10));
      LINE_LOOP (layer);
      {
        gui->graphics->draw_line (gc, line->Point1.X, line->Point1.Y,
                        line->Point2.X, line->Point2.Y);
      }
      END_LOOP;
      ARC_LOOP (layer);
      {
        gui->graphics->draw_arc (gc, arc->X, arc->Y, arc->Width,
                       arc->Height, arc->StartAngle, arc->Delta);
      }
      END_LOOP;
      TEXT_LOOP (layer);
      {
        gui->graphics->draw_pcb_text (gc, text, 0);
      }
      END_LOOP;
      gui->graphics->set_line_width (gc, FAB_LINE_W);
      text_at (gc, PCB->MaxWidth / 2, PCB->MaxHeight + MIL_TO_COORD(20), 1,
               "Board outline is the centerline of this path");
    }
  yoff -= TEXT_LINE;
  text_at (gc, MIL_TO_COORD(2000), yoff, 0, "Date: %s", utcTime);
  yoff -= TEXT_LINE;
  text_at (gc, MIL_TO_COORD(2000), yoff, 0, "Author: %s", pcb_author ());
  yoff -= TEXT_LINE;
  text_at (gc, MIL_TO_COORD(2000), yoff, 0,
           "Title: %s - Fabrication Drawing", UNKNOWN (PCB->Name));
}