1 /* zzline.f -- translated by f2c (version 19961017).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include "f2c.h"
7
8 /* Common Block Declarations */
9
10 extern struct {
11 real xpgmin, ypgmin, xpgmax, ypgmax, xclbot, yclbot, xcltop, ycltop, xbot,
12 ybot, xtop, ytop, xmin, ymin, xmax, ymax;
13 integer ixcoor, iycoor;
14 real alphxx, betaxx, alphyy, betayy, tmajx, tminx, tmajy, tminy;
15 integer majrx, minrx, majry, minry, isizx, isizy;
16 real xphold, yphold;
17 } zzzplt_;
18
19 #define zzzplt_1 zzzplt_
20
21 extern struct {
22 real xphmax, yphmax;
23 integer ixpmax, iypmax;
24 real xpscal, ypscal;
25 integer iflip, nplotr;
26 char cfile[64];
27 } zzpltr_;
28
29 #define zzpltr_1 zzpltr_
30
31
32
33
zzline_(real * x1,real * y1,real * x2,real * y2)34 /* Subroutine */ int zzline_(real *x1, real *y1, real *x2, real *y2)
35 {
36 extern /* Subroutine */ int phline_(real *, real *, real *, real *),
37 zzclip_(real *, real *, real *, real *);
38 static real xx1, xx2, yy1, yy2;
39
40
41 /* Draw a line between 2 physical coordinates points. */
42 /* .......................................................................
43 */
44 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
45 */
46
47 /* Internal Data for PLOTPAK */
48
49 xx1 = *x1;
50 yy1 = *y1;
51 xx2 = *x2;
52 yy2 = *y2;
53 zzclip_(&xx1, &yy1, &xx2, &yy2);
54 if (xx1 >= zzzplt_1.xpgmin) {
55 phline_(&xx1, &yy1, &xx2, &yy2);
56 }
57 zzzplt_1.xphold = *x2;
58 zzzplt_1.yphold = *y2;
59
60 return 0;
61 } /* zzline_ */
62
63