Doxygen Source Code Documentation

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

zzline.c

00001 /* zzline.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 /* Common Block Declarations */
00009 
00010 extern struct {
00011     real xpgmin, ypgmin, xpgmax, ypgmax, xclbot, yclbot, xcltop, ycltop, xbot,
00012              ybot, xtop, ytop, xmin, ymin, xmax, ymax;
00013     integer ixcoor, iycoor;
00014     real alphxx, betaxx, alphyy, betayy, tmajx, tminx, tmajy, tminy;
00015     integer majrx, minrx, majry, minry, isizx, isizy;
00016     real xphold, yphold;
00017 } zzzplt_;
00018 
00019 #define zzzplt_1 zzzplt_
00020 
00021 extern struct {
00022     real xphmax, yphmax;
00023     integer ixpmax, iypmax;
00024     real xpscal, ypscal;
00025     integer iflip, nplotr;
00026     char cfile[64];
00027 } zzpltr_;
00028 
00029 #define zzpltr_1 zzpltr_
00030 
00031 
00032 
00033 
00034 /* Subroutine */ int zzline_(real *x1, real *y1, real *x2, real *y2)
00035 {
00036     extern /* Subroutine */ int phline_(real *, real *, real *, real *), 
00037             zzclip_(real *, real *, real *, real *);
00038     static real xx1, xx2, yy1, yy2;
00039 
00040 
00041 /*  Draw a line between 2 physical coordinates points. */
00042 /* .......................................................................
00043  */
00044 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00045  */
00046 
00047 /*  Internal Data for PLOTPAK */
00048 
00049     xx1 = *x1;
00050     yy1 = *y1;
00051     xx2 = *x2;
00052     yy2 = *y2;
00053     zzclip_(&xx1, &yy1, &xx2, &yy2);
00054     if (xx1 >= zzzplt_1.xpgmin) {
00055         phline_(&xx1, &yy1, &xx2, &yy2);
00056     }
00057     zzzplt_1.xphold = *x2;
00058     zzzplt_1.yphold = *y2;
00059 
00060     return 0;
00061 } /* zzline_ */
00062

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

zzline.c