Doxygen Source Code Documentation

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

00001 /* setfrm.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 /* Table of constant values */
00032 
00033 static integer c__1 = 1;
00034 
00035 
00036 
00037 
00038 /* Subroutine */ int setfrm_(real *xobj1, real *xobj2, real *yobj1, real *
00039         yobj2)
00040 {
00041     extern /* Subroutine */ int setlin_(integer *);
00042 
00043 
00044 /*  This routine has no analog in NCAR.  It is called once before all */
00045 /*  plots to set various parameters that define a "frame". */
00046 
00047 /*  The entries are the minimum and maximum "physical" x and y values */
00048 /*  allowed.  In NCAR they would always be 0,1,0,1.  Here they can be */
00049 /*  anything to allow for various output device aspect ratios.  However, 
00050 */
00051 /*  for plots to look reasonable, 1 unit in the x-direction should be the 
00052 */
00053 /*  same physical size as 1 unit in the y-direction. */
00054 /* .......................................................................
00055  */
00056 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00057  */
00058 /*  Set size of physical page. */
00059 
00060 
00061 /*  Internal Data for PLOTPAK */
00062 
00063     zzzplt_1.xpgmin = *xobj1;
00064     zzzplt_1.xpgmax = *xobj2;
00065     zzzplt_1.ypgmin = *yobj1;
00066     zzzplt_1.ypgmax = *yobj2;
00067 
00068 /*  Initialize the clipping region in case SETW is never called. */
00069 
00070     zzzplt_1.xclbot = zzzplt_1.xpgmin;
00071     zzzplt_1.xcltop = zzzplt_1.xpgmax;
00072     zzzplt_1.yclbot = zzzplt_1.ypgmin;
00073     zzzplt_1.ycltop = zzzplt_1.ypgmax;
00074 
00075 /*  Initialize various parameters in case SET is never called. */
00076 /*  Physical coordinate range: */
00077 
00078     zzzplt_1.xbot = zzzplt_1.xpgmin;
00079     zzzplt_1.xtop = zzzplt_1.xpgmax;
00080     zzzplt_1.ybot = zzzplt_1.ypgmin;
00081     zzzplt_1.ytop = zzzplt_1.ypgmax;
00082 
00083 /*  User coordinate range: */
00084 
00085     zzzplt_1.xmin = zzzplt_1.xpgmin;
00086     zzzplt_1.xmax = zzzplt_1.xpgmax;
00087     zzzplt_1.ymin = zzzplt_1.ypgmin;
00088     zzzplt_1.ymax = zzzplt_1.ypgmax;
00089 
00090 /*  Last plotting location (lower left of page): */
00091 
00092     zzzplt_1.xphold = zzzplt_1.xpgmin;
00093     zzzplt_1.yphold = zzzplt_1.ypgmin;
00094 
00095 /*  Axis types (linear): */
00096 
00097     zzzplt_1.ixcoor = 1;
00098     zzzplt_1.iycoor = 1;
00099 
00100 /*  Axis scalings from user to physical coordinates: */
00101 
00102     zzzplt_1.alphxx = 1.f;
00103     zzzplt_1.alphyy = 1.f;
00104     zzzplt_1.betaxx = 0.f;
00105     zzzplt_1.betayy = 0.f;
00106 
00107 /*  Grid parameters: */
00108 
00109     zzzplt_1.tmajx = (zzzplt_1.xpgmax - zzzplt_1.xpgmin) * .01f;
00110     zzzplt_1.tminx = zzzplt_1.tmajx * .6f;
00111     zzzplt_1.tmajy = zzzplt_1.tmajx;
00112     zzzplt_1.tminy = zzzplt_1.tminx;
00113 
00114     zzzplt_1.majrx = 5;
00115     zzzplt_1.minrx = 10;
00116     zzzplt_1.majry = 5;
00117     zzzplt_1.minry = 10;
00118     zzzplt_1.isizx = 12;
00119     zzzplt_1.isizy = 12;
00120 
00121 /*  Dashed line type (solid) */
00122 
00123     setlin_(&c__1);
00124 
00125     return 0;
00126 } /* setfrm_ */
00127
AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

setfrm.c
