/*!
* \brief Apply the current style properties to the given object
*/
void
DiaOutputDev::applyStyle (DiaObject *obj, bool fill)
{
GPtrArray *plist = g_ptr_array_new ();
if (!fill) {
prop_list_add_line_width (plist, this->line_width);
prop_list_add_line_style (plist, this->line_style, this->dash_length);
prop_list_add_line_colour (plist, &this->stroke_color);
} else {
prop_list_add_line_width (plist, 0);
prop_list_add_line_colour (plist, &this->fill_color);
prop_list_add_fill_colour (plist, &this->fill_color);
}
prop_list_add_show_background (plist, fill ? TRUE : FALSE);
// using the "Standard - Path" internal enum values here is a bit dirty
prop_list_add_enum (plist, "stroke_or_fill", fill ? 0x2 : 0x1);
obj->ops->set_props (obj, plist);
prop_list_free (plist);
}
/* reads an ellipse entity from the dxf file and creates an ellipse object in dia*/
static DiaObject *
read_entity_ellipse_dxf(FILE *filedxf, DxfData *data, DiagramData *dia)
{
/* ellipse data */
Point center = {0, 0};
real width = 1.0;
real ratio_width_height = 1.0;
DiaObjectType *otype = object_get_type("Standard - Ellipse");
Handle *h1, *h2;
DiaObject *ellipse_obj;
RGB_t color = { 0, };
Color line_colour;
GPtrArray *props;
real line_width = DEFAULT_LINE_WIDTH;
Layer *layer = dia->active_layer;
do {
if(read_dxf_codes(filedxf, data) == FALSE){
return( NULL );
}
switch(data->code){
case 8:
layer = layer_find_by_name(data->value, dia);
color = pal_get_rgb (_dxf_color_get_by_layer (layer));
break;
case 10:
center.x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 11:
ratio_width_height = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 20:
center.y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 39:
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
break;
case 40:
width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE; /* XXX what scale */
break;
case 62 :
color = pal_get_rgb (atoi(data->value));
break;
}
} while(data->code != 0);
center.x -= width;
center.y -= (width*ratio_width_height);
ellipse_obj = otype->ops->create(¢er, otype->default_user_data,
&h1, &h2);
_color_init_from_rgb (&line_colour, color);
props = g_ptr_array_new ();
prop_list_add_point (props, "elem_corner", ¢er);
prop_list_add_real (props, "elem_width", width);
prop_list_add_real (props, "elem_height", width * ratio_width_height);
prop_list_add_line_colour (props, &line_colour);
prop_list_add_line_width (props, line_width);
prop_list_add_show_background (props, FALSE);
ellipse_obj->ops->set_props(ellipse_obj, props);
prop_list_free(props);
if (layer)
layer_add_object(layer, ellipse_obj);
else
return ellipse_obj;
return NULL; /* don't add it twice */
}
/* reads a circle entity from the dxf file and creates a circle object in dia*/
static DiaObject *
read_entity_arc_dxf(FILE *filedxf, DxfData *data, DiagramData *dia)
{
/* arc data */
Point start, end;
Point center = {0, 0};
real radius = 1.0, start_angle = 0.0, end_angle=360.0;
real curve_distance;
DiaObjectType *otype = object_get_type("Standard - Arc");
Handle *h1, *h2;
DiaObject *arc_obj;
RGB_t color = { 0, };
Color line_colour;
GPtrArray *props;
real line_width = DEFAULT_LINE_WIDTH;
Layer *layer = dia->active_layer;
do {
if(read_dxf_codes(filedxf, data) == FALSE){
return( NULL );
}
switch(data->code){
case 8:
layer = layer_find_by_name(data->value, dia);
color = pal_get_rgb (_dxf_color_get_by_layer (layer));
break;
case 10:
center.x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 20:
center.y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 39:
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
break;
case 40:
radius = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 50:
start_angle = g_ascii_strtod(data->value, NULL)*M_PI/180.0;
break;
case 51:
end_angle = g_ascii_strtod(data->value, NULL)*M_PI/180.0;
break;
case 62 :
color = pal_get_rgb (atoi(data->value));
break;
}
} while(data->code != 0);
/* printf("c.x=%f c.y=%f s",center.x,center.y); */
start.x = center.x + cos(start_angle) * radius;
start.y = center.y - sin(start_angle) * radius;
end.x = center.x + cos(end_angle) * radius;
end.y = center.y - sin(end_angle) * radius;
/*printf("s.x=%f s.y=%f e.x=%f e.y=%f\n",start.x,start.y,end.x,end.y);*/
if (end_angle < start_angle) end_angle += 2.0*M_PI;
curve_distance = radius * (1 - cos ((end_angle - start_angle)/2));
/*printf("start_angle: %f end_angle: %f radius:%f curve_distance:%f\n",
start_angle,end_angle,radius,curve_distance);*/
arc_obj = otype->ops->create(¢er, otype->default_user_data,
&h1, &h2);
_color_init_from_rgb (&line_colour, color);
props = g_ptr_array_new ();
prop_list_add_point (props, "start_point", &start);
prop_list_add_point (props, "end_point", &end);
prop_list_add_real (props, "curve_distance", curve_distance);
prop_list_add_line_colour (props, &line_colour);
prop_list_add_line_width (props, line_width);
arc_obj->ops->set_props(arc_obj, props);
prop_list_free(props);
if (layer)
layer_add_object(layer, arc_obj);
else
return arc_obj ;
return NULL; /* don't add it twice */
}
/* reads a polyline entity from the dxf file and creates a polyline object in dia*/
static DiaObject *
read_entity_polyline_dxf(FILE *filedxf, DxfData *data, DiagramData *dia)
{
int i;
/* polygon data */
Point *p = NULL, start, end, center;
DiaObjectType *otype = object_get_type("Standard - PolyLine");
Handle *h1, *h2;
DiaObject *polyline_obj;
MultipointCreateData *pcd;
Color line_colour;
GPtrArray *props;
real line_width = DEFAULT_LINE_WIDTH;
real radius, start_angle = 0;
LineStyle style = LINESTYLE_SOLID;
Layer *layer = dia->active_layer;
RGB_t color = { 0, };
unsigned char closed = 0;
int points = 0;
real bulge = 0.0;
int bulge_end = -1;
gboolean bulge_x_avail = FALSE, bulge_y_avail = FALSE;
do {
if(read_dxf_codes(filedxf, data) == FALSE){
return( NULL );
}
switch(data->code){
case 0:
if( !strcmp( data->value, "VERTEX" ))
{
points++;
p = g_realloc( p, sizeof( Point ) * points );
/*printf( "Vertex %d\n", points );*/
}
break;
case 6:
style = get_dia_linestyle_dxf(data->value);
break;
case 8:
layer = layer_find_by_name(data->value, dia);
color = pal_get_rgb (_dxf_color_get_by_layer (layer));
/*printf( "layer: %s ", data->value );*/
break;
case 10:
if( points != 0 )
{
p[points-1].x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P[%d].x: %f ", points-1, p[points-1].x );*/
bulge_x_avail = (bulge_end == points);
}
break;
case 20:
if( points != 0 )
{
p[points-1].y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P[%d].y: %f\n", points-1, p[points-1].y );*/
bulge_y_avail = (bulge_end == points);
}
break;
case 39:
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
/*printf( "width %f\n", line_width );*/
break;
case 40: /* default starting width */
case 41: /* default ending width */
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
break;
case 42:
bulge = g_ascii_strtod(data->value, NULL);
/* The bulge is meant to be _between_ two VERTEX, here: p[points-1] and p[points,]
* but we have not yet read the end point; so just remember the point to 'bulge to' */
bulge_end = points+1;
bulge_x_avail = bulge_y_avail = FALSE;
break;
case 62:
color = pal_get_rgb (atoi(data->value));
break;
case 70:
closed = 1 & atoi( data->value );
/*printf( "closed %d %s", closed, data->value );*/
break;
}
if (points == bulge_end && bulge_x_avail && bulge_y_avail) {
/* turn the last segment into a bulge */
p = g_realloc( p, sizeof( Point ) * ( points + 10 ));
if (points < 2)
continue;
start = p[points-2];
end = p[points-1];
radius = sqrt( pow( end.x - start.x, 2 ) + pow( end.y - start.y, 2 ))/2;
center.x = start.x + ( end.x - start.x )/2;
center.y = start.y + ( end.y - start.y )/2;
if( is_equal( start.x, end.x ))
{
if( is_equal( start.y, end.y ))
{
continue; /* better than complaining? */
g_warning("Bad vertex bulge");
}
else if( start.y > center.y )
{
/*start_angle = 90.0;*/
start_angle = M_PI/2;
}
else
{
/*start_angle = 270.0;*/
start_angle = M_PI * 1.5;
}
}
else if( is_equal( start.y, end.y ))
{
if( is_equal( start.x, end.x ))
{
continue;
g_warning("Bad vertex bulge");
}
else if( start.x > center.x )
{
start_angle = 0.0;
}
else
{
start_angle = M_PI;
}
}
else
{
start_angle = atan( center.y - start.y /center.x - start.x );
}
/*printf( "start x %f end x %f center x %f\n", start.x, end.x, center.x );
printf( "start y %f end y %f center y %f\n", start.y, end.y, center.y );
printf( "bulge %s %f startx_angle %f\n", data->value, radius, start_angle );*/
for( i=(points-1); i<(points+9); i++ )
{
p[i].x = center.x + cos( start_angle ) * radius;
p[i].y = center.y + sin( start_angle ) * radius;
start_angle += (-M_PI/10.0 * bulge);
/*printf( "i %d x %f y %f\n", i, p[i].x, p[i].y );*/
}
points += 10;
p[points-1] = end;
}
} while( strcmp( data->value, "SEQEND" ));
if( points == 0 )
{
printf( "No vertexes defined\n" );
return( NULL );
}
pcd = g_new( MultipointCreateData, 1);
if( closed )
{
otype = object_get_type("Standard - Polygon");
}
pcd->num_points = points;
pcd->points = g_new( Point, pcd->num_points );
memcpy( pcd->points, p, sizeof( Point ) * pcd->num_points );
g_free( p );
polyline_obj = otype->ops->create( NULL, pcd, &h1, &h2 );
_color_init_from_rgb (&line_colour, color);
props = g_ptr_array_new ();
prop_list_add_line_colour (props, &line_colour);
prop_list_add_line_width (props, line_width);
prop_list_add_line_style (props, style, 1.0);
polyline_obj->ops->set_props( polyline_obj, props );
prop_list_free(props);
if (layer)
layer_add_object( layer, polyline_obj );
else
return polyline_obj;
return NULL; /* don't add it twice */
}
/* reads a solid entity from the dxf file and creates a polygon object in dia*/
static DiaObject *
read_entity_solid_dxf(FILE *filedxf, DxfData *data, DiagramData *dia)
{
/* polygon data */
Point p[4];
DiaObjectType *otype = object_get_type("Standard - Polygon");
Handle *h1, *h2;
DiaObject *polygon_obj;
MultipointCreateData *pcd;
Color fill_colour;
GPtrArray *props;
real line_width = 0.001;
LineStyle style = LINESTYLE_SOLID;
Layer *layer = dia->active_layer;
RGB_t color = { 127, 127, 127 };
/* printf( "Solid " ); */
memset(p, 0, sizeof(p));
do {
if(read_dxf_codes(filedxf, data) == FALSE){
return( NULL );
}
switch(data->code){
case 6:
style = get_dia_linestyle_dxf(data->value);
break;
case 8:
layer = layer_find_by_name(data->value, dia);
color = pal_get_rgb (_dxf_color_get_by_layer (layer));
/*printf( "layer: %s ", data->value );*/
break;
case 10:
p[0].x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P0.x: %f ", p[0].x );*/
break;
case 11:
p[1].x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P1.x: %f ", p[1].x );*/
break;
case 12: /* bot only swapped, but special for only 3 points given */
p[2].x = p[3].x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P2.x: %f ", p[2].x );*/
break;
case 13: /* SOLID order swapped compared to Dia's */
p[2].x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P3.x: %f ", p[3].x );*/
break;
case 20:
p[0].y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P0.y: %f ", p[0].y );*/
break;
case 21:
p[1].y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P1.y: %f ", p[1].y );*/
break;
case 22:
p[2].y = p[3].y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P2.y: %f ", p[2].y );*/
break;
case 23:
p[2].y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
/*printf( "P3.y: %f\n", p[3].y );*/
break;
case 39:
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
/*printf( "width %f\n", line_width );*/
break;
case 62:
color = pal_get_rgb (atoi(data->value));
break;
}
} while(data->code != 0);
pcd = g_new( MultipointCreateData, 1);
if( p[2].x != p[3].x || p[2].y != p[3].y )
pcd->num_points = 4;
else
pcd->num_points = 3;
pcd->points = g_new( Point, pcd->num_points );
memcpy( pcd->points, p, sizeof( Point ) * pcd->num_points );
polygon_obj = otype->ops->create( NULL, pcd, &h1, &h2 );
_color_init_from_rgb (&fill_colour, color);
props = g_ptr_array_new ();
prop_list_add_line_colour (props, &fill_colour);
prop_list_add_line_width (props, line_width);
prop_list_add_line_style (props, style, 1.0);
prop_list_add_fill_colour (props, &fill_colour);
prop_list_add_show_background (props, TRUE);
polygon_obj->ops->set_props( polygon_obj, props );
prop_list_free(props);
if (layer)
layer_add_object( layer, polygon_obj );
else
return polygon_obj;
return NULL;
}
/* reads a line entity from the dxf file and creates a line object in dia*/
static DiaObject *
read_entity_line_dxf(FILE *filedxf, DxfData *data, DiagramData *dia)
{
/* line data */
Point start, end;
DiaObjectType *otype = object_get_type("Standard - Line");
Handle *h1, *h2;
DiaObject *line_obj;
Color line_colour;
RGB_t color = { 0, };
GPtrArray *props;
real line_width = DEFAULT_LINE_WIDTH;
LineStyle style = LINESTYLE_SOLID;
Layer *layer = dia->active_layer;
end.x=0;
end.y=0;
props = g_ptr_array_new();
do {
if(read_dxf_codes(filedxf, data) == FALSE){
return( NULL );
}
switch(data->code){
case 6: style = get_dia_linestyle_dxf(data->value);
break;
case 8:
layer = layer_find_by_name(data->value, dia);
color = pal_get_rgb (_dxf_color_get_by_layer (layer));
break;
case 10:
start.x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 11:
end.x = g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 20:
start.y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 21:
end.y = (-1)*g_ascii_strtod(data->value, NULL) * coord_scale * measure_scale;
break;
case 39:
line_width = g_ascii_strtod(data->value, NULL) * WIDTH_SCALE;
/*printf( "line width %f\n", line_width ); */
break;
case 62 :
color = pal_get_rgb (atoi(data->value));
break;
}
} while(data->code != 0);
_color_init_from_rgb (&line_colour, color);
line_obj = otype->ops->create(&start, otype->default_user_data,
&h1, &h2);
prop_list_add_point (props, "start_point", &start);
prop_list_add_point (props, "end_point", &end);
prop_list_add_line_colour (props, &line_colour);
prop_list_add_line_width (props, line_width);
prop_list_add_line_style (props, style, 1.0);
line_obj->ops->set_props(line_obj, props);
prop_list_free(props);
if (layer)
layer_add_object(layer, line_obj);
else
return line_obj;
/* don't add it it twice */
return NULL;
}
