Doxygen Source Code Documentation
zzlinx.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| int | zzlinx_ (real *x1, real *x2, real *y, integer *majrx, real *tmaj, integer *minrx, real *tmin) |
Function Documentation
|
||||||||||||||||||||||||||||||||
|
Definition at line 11 of file zzlinx.c. Referenced by zzaxxx_().
00013 {
00014 /* System generated locals */
00015 integer i__1, i__2;
00016
00017 /* Local variables */
00018 static integer imaj, imin;
00019 static real ymajr, yminr, dx, xx;
00020 extern /* Subroutine */ int zzline_(real *, real *, real *, real *);
00021
00022
00023 /* Draw a linear axis from (X1,Y) to (X2,Y) [physical coordinates], */
00024 /* with MAJRX major divisions (tic mark size = TMAJ) and MINRX minor */
00025 /* divisions (tic mark size = TMIN). */
00026 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00027 */
00028 zzline_(x1, y, x2, y);
00029 if (*tmaj == 0.f && *tmin == 0.f) {
00030 goto L8000;
00031 }
00032
00033 ymajr = *y + *tmaj;
00034 yminr = *y + *tmin;
00035 dx = (*x2 - *x1) / (*majrx * *minrx);
00036 xx = *x1;
00037 zzline_(&xx, y, &xx, &ymajr);
00038 i__1 = *majrx;
00039 for (imaj = 1; imaj <= i__1; ++imaj) {
00040 i__2 = *minrx - 1;
00041 for (imin = 1; imin <= i__2; ++imin) {
00042 xx += dx;
00043 if (*tmin != 0.f) {
00044 zzline_(&xx, y, &xx, &yminr);
00045 }
00046 /* L100: */
00047 }
00048 xx += dx;
00049 zzline_(&xx, y, &xx, &ymajr);
00050 /* L200: */
00051 }
00052
00053 L8000:
00054 return 0;
00055 } /* zzlinx_ */
|
