@c -*- mode: Noweb; noweb-doc-mode: texinfo-mode; noweb-code-mode: c-mode -*-

@node File o_basic.c,,,Top
@chapter File @file{o_basic.c}

@section File header

<<o_basic.c : *>>=
<<o_basic.c : copyright and license>>

/* DO NOT read or edit this file ! Use ../noweb/o_basic.nw instead */

<<o_basic.c : include directives>>
<<o_basic.c : inside_region()>>
<<o_basic.c : o_redraw_single()>>
<<o_basic.c : o_recalc()>>
<<o_basic.c : o_set_line_options()>>
<<o_basic.c : o_set_fill_options()>>
<<o_basic.c : o_object_recalc()>>

@


<<o_basic.c : copyright and license>>=
/* gEDA - GPL Electronic Design Automation
 * libgeda - gEDA's library
 * Copyright (C) 1998-2000 Ales V. Hvezda
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
 */

@ 


<<o_basic.c : include directives>>=
#include <config.h>

#include <stdio.h>

/* instrumentation code */
#if 0
#include <sys/time.h>
#include <unistd.h>
#endif

#include <gtk/gtk.h>
#include <libguile.h>

#include "defines.h"
#include "struct.h"
#include "globals.h"
#include "o_types.h"
#include "colors.h"

#include "../include/prototype.h"

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

/* Lots of Gross code... needs lots of cleanup */
/* mainly readability issues */


@


@section Function @code{inside_region()}

@defun inside_region left top right bottom x y
@end defun

<<o_basic.c : inside_region()>>=
int 
inside_region(int left, int top, int right, int bottom, int x, int y)
{
  return ((x >= left && x <= right && y >= top && y <= bottom) ? 1 : 0);
}

@ %def inside_region


@section Function @code{o_redraw_single()}

@defun o_redraw_single w_current o_current
@end defun

<<o_basic.c : o_redraw_single()>>=
void
o_redraw_single(TOPLEVEL *w_current, OBJECT *o_current)
{
  if (o_current == NULL)
  return;
	
  if (w_current->DONT_REDRAW) /* highly experimental */
  return;

  if (o_current->draw_func != NULL && o_current->type != OBJ_HEAD) {
    w_current->inside_redraw = 1;
    (*o_current->draw_func)(w_current, o_current);
    w_current->inside_redraw = 0;
  }
}

@ %def o_redraw_single


@section Function @code{o_recalc()}

@defun o_recalc w_current object_list
@end defun

<<o_basic.c : o_recalc()>>=
void
o_recalc(TOPLEVEL *w_current, OBJECT *object_list)
{
  OBJECT *o_current;

  if (object_list == NULL)
  return;
	
  o_current = object_list;
  while (o_current != NULL) {
    switch(o_current->type) {

      case(OBJ_LINE):
        o_line_recalc(w_current, o_current);
        break;

      case(OBJ_NET):
        o_net_recalc(w_current, o_current);
        break;

      case(OBJ_BUS):
        o_bus_recalc(w_current, o_current);
        break;

      case(OBJ_BOX):
        o_box_recalc(w_current, o_current);
        break;

      case(OBJ_PICTURE):
        o_picture_recalc(w_current, o_current);
        break;

      case(OBJ_CIRCLE):
        o_circle_recalc(w_current, o_current);
        break;

      case(OBJ_COMPLEX):
      case(OBJ_PLACEHOLDER):
        o_complex_recalc(w_current, o_current);
        break;

      case(OBJ_PIN):
        o_pin_recalc(w_current, o_current);
        break;

      case(OBJ_ARC):
        o_arc_recalc(w_current, o_current);
        break;
    }

    o_current = o_current->next;
  }
}

@ %def o_recalc


@section Function @code{o_set_line_options()}

@defun o_set_line_options w_current o_current end type width length space
@end defun

<<o_basic.c : o_set_line_options()>>=
void
o_set_line_options(TOPLEVEL *w_current, OBJECT *o_current,
				   OBJECT_END end, OBJECT_TYPE type,
				   int width, int length, int space) 
{
  if(o_current == NULL) {
    return;
  }

  /* do some error checking / correcting */
  switch(type) {
    case(TYPE_DOTTED):
    if (space < 1) {
      space = 100;
      s_log_message ("Invalid space specified, setting to 100\n");
    }
    break;
    case(TYPE_DASHED):
    case(TYPE_CENTER):
    case(TYPE_PHANTOM):
    if (length < 1) {
      length = 100;
      s_log_message ("Invalid length specified, setting to 100\n");
    }
    if (space < 1) {
      space = 100;
      s_log_message ("Invalid space specified, setting to 100\n");
    }
    break;
  }
  
  o_current->line_width = width;
  o_current->line_end   = end;
  o_current->line_type  = type;

  o_current->line_length = length;
  o_current->line_space  = space;
}

@ %def o_set_line_options


@section Function @code{o_set_fill_options()}

@defun o_set_fill_options w_current o_current type width pitch1 angle1 pitch2 angle2
@end defun

<<o_basic.c : o_set_fill_options()>>=
void
o_set_fill_options(TOPLEVEL *w_current, OBJECT *o_current,
				   OBJECT_FILLING type, int width,
				   int pitch1, int angle1,
				   int pitch2, int angle2) 
{
  if(o_current == NULL) {
    return;
  }

  o_current->fill_type = type;
  o_current->fill_width = width;

  o_current->fill_pitch1 = pitch1;
  o_current->fill_angle1 = angle1;

  o_current->fill_pitch2 = pitch2;
  o_current->fill_angle2 = angle2;
	
}

@ %def o_set_fill_options


@section Function @code{o_object_recalc()}

@defun o_object_recalc w_current o_current
@end defun

<<o_basic.c : o_object_recalc()>>=
void
o_object_recalc(TOPLEVEL *w_current, OBJECT *o_current) 
{
  int width, length, space, pitch;
	
  if(o_current == NULL) {
    return;
  }

  width = SCREENabs(w_current, o_current->line_width);
  o_current->screen_line_width = width;

  length = SCREENabs(w_current, o_current->line_length);
  o_current->screen_line_length = length;

  space = SCREENabs(w_current, o_current->line_space);
  o_current->screen_line_space = space;

  width = SCREENabs(w_current, o_current->fill_width);
  o_current->screen_fill_width = width;
  pitch = SCREENabs(w_current, o_current->fill_pitch1);
  o_current->screen_fill_pitch1 = pitch;
  pitch = SCREENabs(w_current, o_current->fill_pitch2);
  o_current->screen_fill_pitch2 = pitch;

}

@ %def o_object_recalc