Doxygen Source Code Documentation
zzliny.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| int | zzliny_ (real *x, real *y1, real *y2, integer *majry, real *tmaj, integer *minry, real *tmin) |
Function Documentation
|
||||||||||||||||||||||||||||||||
|
Definition at line 11 of file zzliny.c. Referenced by zzaxyy_().
00013 {
00014 /* System generated locals */
00015 integer i__1, i__2;
00016
00017 /* Local variables */
00018 static integer imaj, imin;
00019 static real xmajr, xminr, dy, yy;
00020 extern /* Subroutine */ int zzline_(real *, real *, real *, real *);
00021
00022
00023 /* Draw a linear axis from (X,Y1) to (X,Y2) [physical coordinates], */
00024 /* with MAJRY major divisions (tic mark size = TMAJ) and MINRY minor */
00025 /* divisions (tic mark size = TMIN). */
00026 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00027 */
00028 zzline_(x, y1, x, y2);
00029 if (*tmaj == 0.f && *tmin == 0.f) {
00030 goto L8000;
00031 }
00032
00033 xmajr = *x + *tmaj;
00034 xminr = *x + *tmin;
00035 dy = (*y2 - *y1) / (*majry * *minry);
00036 yy = *y1;
00037 zzline_(x, &yy, &xmajr, &yy);
00038 i__1 = *majry;
00039 for (imaj = 1; imaj <= i__1; ++imaj) {
00040 i__2 = *minry - 1;
00041 for (imin = 1; imin <= i__2; ++imin) {
00042 yy += dy;
00043 if (*tmin != 0.f) {
00044 zzline_(x, &yy, &xminr, &yy);
00045 }
00046 /* L100: */
00047 }
00048 yy += dy;
00049 zzline_(x, &yy, &xmajr, &yy);
00050 /* L200: */
00051 }
00052
00053 L8000:
00054 return 0;
00055 } /* zzliny_ */
|
