1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
/* This file contains the linewidth method, which is a GNU extension to
libplot. It sets a drawing attribute: the line width used in subsequent
drawing operations, in user units. */
#include "sys-defines.h"
#include "plot.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_h_flinewidth(double new_line_width)
#else
_h_flinewidth(new_line_width)
double new_line_width;
#endif
{
double width, height, diagonal_p1_p2_distance;
if (!_plotter->open)
{
_plotter->error ("flinewidth: invalid operation");
return -1;
}
/* invoke generic method */
_g_flinewidth(new_line_width);
/* set linewidth in scaled HP-GL coors also (i.e. as fraction of diagonal
distance between P1,P2) */
width = (double)(HPGL_SCALED_DEVICE_RIGHT - HPGL_SCALED_DEVICE_LEFT);
height = (double)(HPGL_SCALED_DEVICE_TOP - HPGL_SCALED_DEVICE_BOTTOM);
diagonal_p1_p2_distance = sqrt (width * width + height * height);
_plotter->drawstate->hpgl_pen_width
= _plotter->drawstate->device_line_width / diagonal_p1_p2_distance;
return 0;
}
|
