static void
place_line_x(int x, int y)
{
int dx, dy;
canvas_leftbut_proc = null_proc;
canvas_middlebut_proc = null_proc;
canvas_rightbut_proc = null_proc;
canvas_locmove_proc = null_proc;
canvas_ref_proc = null_proc;
adjust_pos(x, y, fix_x, fix_y, &x, &y);
dx = x - fix_x;
dy = y - fix_y;
translate_line(new_l, dx, dy);
clean_up();
set_latestline(new_l);
if (return_proc == copy_selected) {
add_line(new_l);
adjust_links(cur_linkmode, cur_links, dx, dy, 0, 0, 1.0, 1.0, True);
free_linkinfo(&cur_links);
} else {
list_add_line(&objects.lines, new_l);
adjust_links(cur_linkmode, cur_links, dx, dy, 0, 0, 1.0, 1.0, False);
set_lastposition(fix_x, fix_y);
set_newposition(x, y);
set_lastlinkinfo(cur_linkmode, cur_links);
cur_links = NULL;
set_action_object(F_MOVE, O_POLYLINE);
}
set_modifiedflag();
redisplay_line(new_l);
/* turn back on all relevant markers */
update_markers(new_objmask);
(*return_proc) ();
draw_mousefun_canvas();
}
static void
place_spline_x(int x, int y)
{
canvas_leftbut_proc = null_proc;
canvas_middlebut_proc = null_proc;
canvas_rightbut_proc = null_proc;
canvas_locmove_proc = null_proc;
canvas_ref_proc = null_proc;
adjust_pos(x, y, fix_x, fix_y, &x, &y);
translate_spline(new_s, x - fix_x, y - fix_y);
if (return_proc == copy_selected) {
add_spline(new_s);
} else {
list_add_spline(&objects.splines, new_s);
clean_up();
set_lastposition(fix_x, fix_y);
set_newposition(x, y);
set_action_object(F_MOVE, O_SPLINE);
set_latestspline(new_s);
set_modifiedflag();
}
redisplay_spline(new_s);
/* turn back on all relevant markers */
update_markers(new_objmask);
(*return_proc) ();
draw_mousefun_canvas();
}
static void
wrapup_movepoint(void)
{
reset_action_on();
move_point_selected();
draw_mousefun_canvas();
}
static void
cancel_ellipsebyrad(void)
{
elastic_ebr();
center_marker(fix_x, fix_y);
circle_ellipse_byradius_drawing_selected();
draw_mousefun_canvas();
}
static void
cancel_circlebydia(void)
{
elastic_cbd();
center_marker(fix_x, fix_y);
circle_ellipse_bydiameter_drawing_selected();
draw_mousefun_canvas();
}
static void
create_compoundobject(int x, int y)
{
F_compound *c;
if ((c = create_compound()) == NULL)
return;
if (compose_compound(c) == 0) {
free((char *) c);
compound_selected();
draw_mousefun_canvas();
put_msg("Empty compound, ignored");
return;
}
/*
* Make the bounding box exactly match the dimensions of the compound.
*/
compound_bound(c, &c->nwcorner.x, &c->nwcorner.y,
&c->secorner.x, &c->secorner.y);
/* if zero width or height in the compound, adjust to next positioning
grid point or a few pixels if positioning grid is "ANY" */
if (c->nwcorner.x == c->secorner.x) {
if (cur_pointposn != P_ANY) {
c->secorner.x += posn_rnd[cur_gridunit][cur_pointposn];
c->secorner.x = ceil_coords_x(c->secorner.x,c->secorner.y);
}
}
if (c->nwcorner.y == c->secorner.y) {
if (cur_pointposn != P_ANY) {
c->secorner.y += posn_rnd[cur_gridunit][cur_pointposn];
c->secorner.y = ceil_coords_y(c->secorner.x,c->secorner.y);
}
}
c->next = NULL;
clean_up();
set_action(F_GLUE);
toggle_markers_in_compound(c);
list_add_compound(&objects.compounds, c);
mask_toggle_compoundmarker(c);
set_latestcompound(c);
set_modifiedflag();
compound_selected();
draw_mousefun_canvas();
}
void
get_intermediatepoint(int x, int y, int shift)
{
/* in freehand mode call unconstrained_line explicitely to move the mouse */
if (freehand_line) {
unconstrained_line(x,y);
/* pointer must move by at least freehand_resolution in any direction */
if (abs(fix_x-cur_x) < appres.freehand_resolution &&
(abs(fix_y-cur_y) < appres.freehand_resolution))
return;
} else {
/* otherwise call the (possibly) constrained movement procedure */
(*canvas_locmove_proc) (x, y);
}
/* don't allow coincident consecutive points */
if (fix_x == cur_x && fix_y == cur_y)
return;
num_point++;
fix_x = cur_x;
fix_y = cur_y;
elastic_line();
if (cur_cursor != null_cursor) {
set_cursor(null_cursor);
}
if (shift && num_point > 2) {
F_point *p;
num_point -= 2;
p = prev_point(first_point, cur_point);
p->next = NULL;
/* erase the newest segment */
pw_vector(canvas_win, fix_x, fix_y, cur_point->x, cur_point->y,
INV_PAINT, 1, RUBBER_LINE, 0.0, DEFAULT);
/* and segment drawn before */
pw_vector(canvas_win, p->x, p->y, cur_point->x, cur_point->y,
INV_PAINT, 1, RUBBER_LINE, 0.0, DEFAULT);
/* and draw new elastic segment */
pw_vector(canvas_win, fix_x, fix_y, p->x, p->y,
PAINT, 1, RUBBER_LINE, 0.0, DEFAULT);
fix_x = p->x;
fix_y = p->y;
free_points(cur_point);
cur_point = p;
} else {
append_point(fix_x, fix_y, &cur_point);
}
if (num_point == min_num_points - 1) {
if (freehand_line)
set_mousefun("", "final point", "cancel", "del point", "", "");
else
set_mousefun("next point", "final point", "cancel", "del point", "", "");
draw_mousefun_canvas();
canvas_middlebut_proc = (FCallBack)canvas_middlebut_save;
}
}
static void
init_arb_move(F_line *p, int type, int x, int y, int px, int py)
{
constrained = MOVE_ARB;
init_move(p, type, x, y, px, py);
canvas_middlebut_proc = null_proc;
set_mousefun("place object", "", "cancel", LOC_OBJ, LOC_OBJ, LOC_OBJ);
draw_mousefun_canvas();
}
static void
cancel_tag_region(void)
{
elastic_box(fix_x, fix_y, cur_x, cur_y);
/* erase last lengths if appres.showlengths is true */
erase_box_lengths();
compound_selected();
draw_mousefun_canvas();
}
static void
init_arb_move_point(F_line *obj, int type, int x, int y, F_point *p, F_point *q)
{
constrained = MOVE_ARB;
if (!init_move_point(obj, type, x, y, p, q))
return;
set_mousefun("new posn", "", "cancel", LOC_OBJ, LOC_OBJ, LOC_OBJ);
draw_mousefun_canvas();
canvas_middlebut_proc = null_proc;
}
static void
init_tag_region(int x, int y)
{
init_box_drawing(x, y);
set_mousefun("", "final corner", "cancel", "", "", "");
draw_mousefun_canvas();
canvas_leftbut_proc = null_proc;
canvas_middlebut_proc = tag_region;
canvas_rightbut_proc = cancel_tag_region;
}
static void
set_unset_anchor(int x, int y)
{
if (setanchor) {
set_mousefun("flip", "copy & flip", "set anchor",
LOC_OBJ, LOC_OBJ, "set anchor");
draw_mousefun_canvas();
setanchor = 0;
center_marker(setanchor_x,setanchor_y);
/* second call to center_mark on same position deletes */
}
else {
set_mousefun("flip", "copy & flip", "unset anchor",
LOC_OBJ, LOC_OBJ, "unset anchor");
draw_mousefun_canvas();
setanchor = 1;
setanchor_x = x;
setanchor_y = y;
center_marker(setanchor_x,setanchor_y);
}
}
void
cancel_line_drawing(int a, int b)
{
elastic_line();
/* erase last lengths if appres.showlengths is true */
erase_lengths();
cur_x = fix_x;
cur_y = fix_y;
if (cur_point != first_point)
elastic_moveline(first_point); /* erase control vector */
free_points(first_point);
first_point = NULL;
return_proc();
draw_mousefun_canvas();
}
static void
tag_region(int x, int y)
{
int xmin, ymin, xmax, ymax;
elastic_box(fix_x, fix_y, cur_x, cur_y);
/* erase last lengths if appres.showlengths is true */
erase_box_lengths();
xmin = min2(fix_x, x);
ymin = min2(fix_y, y);
xmax = max2(fix_x, x);
ymax = max2(fix_y, y);
tag_obj_in_region(xmin, ymin, xmax, ymax);
compound_selected();
draw_mousefun_canvas();
}
static void
init_circlebydiameter_drawing(int x, int y)
{
cur_mode = F_CIRCLE_BY_DIA;
cur_x = fix_x = x;
cur_y = fix_y = y;
center_marker(fix_x, fix_y);
set_mousefun("final point", "", "cancel", "", "", "");
draw_mousefun_canvas();
canvas_locmove_proc = resizing_cbd;
canvas_leftbut_proc = create_circlebydia;
canvas_middlebut_proc = null_proc;
canvas_rightbut_proc = cancel_circlebydia;
set_cursor(null_cursor);
elastic_cbd();
set_action_on();
}
static void
init_ellipsebyradius_drawing(int x, int y)
{
cur_mode = F_ELLIPSE_BY_RAD;
cur_x = fix_x = x;
cur_y = fix_y = y;
cur_angle = cur_elltextangle/180.0*M_PI;
center_marker(fix_x, fix_y);
set_mousefun("Ellipse corner", "Ellipse corner", "cancel", "", "", "");
draw_mousefun_canvas();
canvas_locmove_proc = resizing_ebr;
canvas_leftbut_proc = create_ellipsebyrad;
canvas_middlebut_proc = create_ellipsebyrad;
canvas_rightbut_proc = cancel_ellipsebyrad;
set_cursor(null_cursor);
elastic_ebr();
set_action_on();
}
static void
cancel_ellipse(void)
{
canvas_ref_proc = canvas_locmove_proc = null_proc;
elastic_moveellipse();
/* erase last lengths if appres.showlengths is true */
erase_lengths();
if (return_proc == copy_selected) {
free_ellipse(&new_e);
} else {
list_add_ellipse(&objects.ellipses, new_e);
redisplay_ellipse(new_e);
}
/* turn back on all relevant markers */
update_markers(new_objmask);
(*return_proc) ();
draw_mousefun_canvas();
}
void
init_trace_drawing(int x, int y)
{
if ((first_point = create_point()) == NULL)
return;
cur_point = first_point;
set_action_on();
cur_point->x = fix_x = cur_x = x;
cur_point->y = fix_y = cur_y = y;
cur_point->next = NULL;
canvas_leftbut_proc = (FCallBack)get_intermediatepoint;
if (freehand_line) {
canvas_locmove_proc = freehand_get_intermediatepoint;
} else {
/* only two points in a dimension line */
if (dimension_line)
canvas_leftbut_proc = (FCallBack)create_lineobject;
if (latexline_mode || latexarrow_mode) {
canvas_locmove_proc = latex_line;
} else if (manhattan_mode || mountain_mode) {
canvas_locmove_proc = constrainedangle_line;
} else {
canvas_locmove_proc = unconstrained_line;
}
}
canvas_middlebut_save = create_lineobject;
canvas_rightbut_proc = (FCallBack)cancel_line_drawing;
return_proc = line_drawing_selected;
num_point = 1;
set_mousefun("next point", "", "cancel", "del point", "", "");
if (dimension_line) {
set_mousefun("final point", "", "cancel", "del point", "", "");
canvas_middlebut_proc = (FCallBack)null_proc;
} else if (num_point >= min_num_points - 1) {
set_mousefun("next point", "final point", "cancel", "del point", "", "");
canvas_middlebut_proc = (FCallBack)canvas_middlebut_save;
}
draw_mousefun_canvas();
set_cursor(null_cursor);
elastic_line();
}
static void
cancel_drag_compound(void)
{
canvas_ref_proc = canvas_locmove_proc = null_proc;
elastic_movebox();
/* erase last lengths if appres.showlengths is true */
erase_lengths();
free_linkinfo(&cur_links);
if (return_proc == copy_selected) {
free_compound(&new_c);
} else {
list_add_compound(&objects.compounds, new_c);
redisplay_compound(new_c);
}
/* turn back on all relevant markers */
update_markers(new_objmask);
(*return_proc) ();
draw_mousefun_canvas();
}
static void
create_circlebydia(int x, int y)
{
F_ellipse *c;
double rx, ry;
elastic_cbd();
center_marker(fix_x, fix_y);
if ((c = create_ellipse()) == NULL)
return;
c->type = T_CIRCLE_BY_DIA;
c->style = cur_linestyle;
c->thickness = cur_linewidth;
c->style_val = cur_styleval * (cur_linewidth + 1) / 2;
c->angle = 0.0;
c->pen_color = cur_pencolor;
c->fill_color = cur_fillcolor;
c->depth = cur_depth;
c->pen_style = -1;
c->fill_style = cur_fillstyle;
c->direction = 1;
c->center.x = round((fix_x + x) / 2);
c->center.y = round((fix_y + y) / 2);
rx = x - c->center.x;
ry = y - c->center.y;
c->radiuses.x = c->radiuses.y = round(sqrt(rx * rx + ry * ry));
c->start.x = fix_x;
c->start.y = fix_y;
c->end.x = x;
c->end.y = y;
c->next = NULL;
add_ellipse(c);
reset_action_on(); /* this signals redisplay_curobj() not to refresh */
/* draw it and anything on top of it */
redisplay_ellipse(c);
circle_ellipse_bydiameter_drawing_selected();
draw_mousefun_canvas();
}
static void
create_ellipsebyrad(int x, int y)
{
F_ellipse *ellipse;
elastic_ebr();
center_marker(fix_x, fix_y);
if ((ellipse = create_ellipse()) == NULL)
return;
ellipse->type = T_ELLIPSE_BY_RAD;
ellipse->style = cur_linestyle;
ellipse->thickness = cur_linewidth;
ellipse->style_val = cur_styleval * (cur_linewidth + 1) / 2;
ellipse->angle = cur_elltextangle/180.0*M_PI; /* convert to radians */
ellipse->pen_color = cur_pencolor;
ellipse->fill_color = cur_fillcolor;
ellipse->depth = cur_depth;
ellipse->pen_style = -1;
ellipse->fill_style = cur_fillstyle;
ellipse->direction = 1;
ellipse->center.x = fix_x;
ellipse->center.y = fix_y;
ellipse->radiuses.x = abs(x - fix_x);
ellipse->radiuses.y = abs(y - fix_y);
ellipse->start.x = fix_x;
ellipse->start.y = fix_y;
ellipse->end.x = x;
ellipse->end.y = y;
ellipse->next = NULL;
add_ellipse(ellipse);
reset_action_on(); /* this signals redisplay_curobj() not to refresh */
/* draw it and anything on top of it */
redisplay_ellipse(ellipse);
circle_ellipse_byradius_drawing_selected();
draw_mousefun_canvas();
}
void
chop_selected(void)
{
set_mousefun("Select axe object", "Select log object", "Clear axe list",
LOC_OBJ, LOC_OBJ, LOC_OBJ);
draw_mousefun_canvas();
canvas_kbd_proc = null_proc;
canvas_locmove_proc = null_proc;
canvas_ref_proc = null_proc;
init_searchproc_left(select_axe_object);
init_searchproc_middle(select_log_object);
/* init_searchproc_right(init_chop_right); */ /* fixme don't need this now */
canvas_leftbut_proc = object_search_left; /* point search for axe */
canvas_middlebut_proc = object_search_middle; /* object search for log */
canvas_rightbut_proc = clear_axe_objects;
set_cursor(pick9_cursor);
/* set the markers to show we only allow POLYLINES, ARCS and ELLIPSES */
/* (the markers are originally set this way from the mode panel, but
we need to set them again after the previous chop */ /* fixme -- neede for chop ? */
update_markers(M_POLYLINE | M_ARC | M_ELLIPSE);
reset_action_on();
axe_objects_next = 0;
}
void
create_lineobject(int x, int y)
{
F_line *line;
F_compound *comp;
int dot;
if (num_point == 0) {
if ((first_point = create_point()) == NULL) {
line_drawing_selected();
draw_mousefun_canvas();
return;
}
cur_point = first_point;
first_point->x = fix_x = cur_x = x;
first_point->y = fix_y = cur_y = y;
first_point->next = NULL;
num_point++;
} else if (x != fix_x || y != fix_y) {
get_intermediatepoint(x, y, 0);
}
/* dimension line must have 2 different points */
if (dimension_line && first_point->x == x && first_point->y == y)
return;
dot = (num_point == 1);
elastic_line();
/* erase any length info if appres.showlengths is true */
erase_lengths();
if ((line = create_line()) == NULL) {
line_drawing_selected();
draw_mousefun_canvas();
return;
}
line->type = T_POLYLINE;
line->style = cur_linestyle;
line->thickness = cur_linewidth;
line->pen_color = cur_pencolor;
line->fill_color = cur_fillcolor;
line->depth = cur_depth;
line->pen_style = -1;
line->join_style = cur_joinstyle;
line->cap_style = cur_capstyle;
line->fill_style = cur_fillstyle;
line->style_val = cur_styleval * (cur_linewidth + 1) / 2;
line->points = first_point;
if (!dot) {
if (cur_mode == F_POLYGON) { /* close off polygon */
line->type = T_POLYGON;
num_point++;
append_point(first_point->x, first_point->y, &cur_point);
elastic_line();
fix_x = first_point->x;
fix_y = first_point->y;
elastic_line(); /* fix last elastic line */
} else { /* polyline; draw any arrows */
if (autoforwardarrow_mode && !dimension_line)
line->for_arrow = forward_arrow();
/* arrow will be drawn in draw_line below */
if (autobackwardarrow_mode && !dimension_line)
line->back_arrow = backward_arrow();
/* arrow will be drawn in draw_line below */
}
cur_x = fix_x;
cur_y = fix_y;
elastic_moveline(first_point); /* erase temporary outline */
}
if (dimension_line) {
comp = create_dimension_line(line, True);
reset_action_on(); /* this signals redisplay_curobj() not to refresh */
/* draw it and anything on top of it */
redisplay_compound(comp);
} else {
add_line(line);
reset_action_on(); /* this signals redisplay_curobj() not to refresh */
/* draw it and anything on top of it */
redisplay_line(line);
}
line_drawing_selected();
if (!edit_remember_dimline_mode)
draw_mousefun_canvas();
}
