Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search

zzlinx.c

00001 /* zzlinx.f -- translated by f2c (version 19961017).
00002    You must link the resulting object file with the libraries:
00003         -lf2c -lm   (in that order)
00004 */
00005 
00006 #include "f2c.h"
00007 
00008 
00009 
00010 
00011 /* Subroutine */ int zzlinx_(real *x1, real *x2, real *y, integer *majrx, 
00012         real *tmaj, integer *minrx, real *tmin)
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_ */
00056

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

zzlinx.c