1 /* -- translated by f2c (version 20100827).
2 You must link the resulting object file with libf2c:
3 on Microsoft Windows system, link with libf2c.lib;
4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 or, if you install libf2c.a in a standard place, with -lf2c -lm
6 -- in that order, at the end of the command line, as in
7 cc *.o -lf2c -lm
8 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
9
10 http://www.netlib.org/f2c/libf2c.zip
11 */
12
13 #include "libtinyf2c.h"
14
15 /* Table of constant values */
16
17 static integer c__0 = 0;
18
19 /* ----------------------------------------------------------------------- */
20 /* PLOT ROUTINE ON RC (CLIPPING) */
21 /* ----------------------------------------------------------------------- */
22 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
23 /* ----------------------------------------------------------------------- */
szoplr_0_(int n__,real * rx,real * ry)24 /* Subroutine */ int szoplr_0_(int n__, real *rx, real *ry)
25 {
26 static real xx, yy, rx0, ry0;
27 static logical lcont, lmove, lvalid;
28 extern /* Subroutine */ int szgcll_(real *, real *, logical *, logical *,
29 integer *), szpcll_(real *, real *, real *, real *, logical *,
30 integer *), szcllz_(void), szpllz_(real *, real *), szoplz_(void),
31 szmvlz_(real *, real *);
32
33 switch(n__) {
34 case 1: goto L_szmvlr;
35 case 2: goto L_szpllr;
36 case 3: goto L_szcllr;
37 }
38
39 szoplz_();
40 return 0;
41 /* ----------------------------------------------------------------------- */
42
43 L_szmvlr:
44 szpcll_(rx, ry, rx, ry, &lvalid, &c__0);
45 if (lvalid) {
46 szmvlz_(rx, ry);
47 }
48 rx0 = *rx;
49 ry0 = *ry;
50 return 0;
51 /* ----------------------------------------------------------------------- */
52
53 L_szpllr:
54 szpcll_(&rx0, &ry0, rx, ry, &lvalid, &c__0);
55 if (lvalid) {
56 L10:
57 szgcll_(&xx, &yy, &lcont, &lmove, &c__0);
58 if (lmove) {
59 szmvlz_(&xx, &yy);
60 } else {
61 szpllz_(&xx, &yy);
62 }
63 if (lcont) {
64 goto L10;
65 }
66 }
67 rx0 = *rx;
68 ry0 = *ry;
69 return 0;
70 /* ----------------------------------------------------------------------- */
71
72 L_szcllr:
73 szcllz_();
74 return 0;
75 } /* szoplr_ */
76
szoplr_(void)77 /* Subroutine */ int szoplr_(void)
78 {
79 return szoplr_0_(0, (real *)0, (real *)0);
80 }
81
szmvlr_(real * rx,real * ry)82 /* Subroutine */ int szmvlr_(real *rx, real *ry)
83 {
84 return szoplr_0_(1, rx, ry);
85 }
86
szpllr_(real * rx,real * ry)87 /* Subroutine */ int szpllr_(real *rx, real *ry)
88 {
89 return szoplr_0_(2, rx, ry);
90 }
91
szcllr_(void)92 /* Subroutine */ int szcllr_(void)
93 {
94 return szoplr_0_(3, (real *)0, (real *)0);
95 }
96
97