Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search
setw.c

00001 /* setw.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 setw_(real *x1, real *y1, real *x2, real *y2)
00035 {
00036 
00037 /*  Set the clipping rectangle (physical coords). */
00038 /* .......................................................................
00039  */
00040 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00041  */
00042 
00043 /*  Internal Data for PLOTPAK */
00044 
00045     if (*x1 >= *x2) {
00046         zzzplt_1.xclbot = zzzplt_1.xpgmin;
00047         zzzplt_1.xcltop = zzzplt_1.xpgmax;
00048     } else {
00049         zzzplt_1.xclbot = dmax(*x1,zzzplt_1.xpgmin);
00050         zzzplt_1.xcltop = dmin(*x2,zzzplt_1.xpgmax);
00051     }
00052 
00053     if (*y1 >= *y2) {
00054         zzzplt_1.yclbot = zzzplt_1.ypgmin;
00055         zzzplt_1.ycltop = zzzplt_1.ypgmax;
00056     } else {
00057         zzzplt_1.yclbot = dmax(*y1,zzzplt_1.ypgmin);
00058         zzzplt_1.ycltop = dmin(*y2,zzzplt_1.ypgmax);
00059     }
00060 
00061     return 0;
00062 } /* setw_ */
00063
AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

setw.c
