Doxygen Source Code Documentation
color.c File Reference
#include "f2c.h"Go to the source code of this file.
Defines | |
| #define | zzzplt_1 zzzplt_ |
| #define | zzpltr_1 zzpltr_ |
Functions | |
| int | color_ (integer *ncol) |
| int | fcolor_ (real *cr, real *cg, real *cb) |
Variables | |
| struct { | |
| real xpgmin | |
| real ypgmin | |
| real xpgmax | |
| real ypgmax | |
| real xclbot | |
| real yclbot | |
| real xcltop | |
| real ycltop | |
| real xbot | |
| real ybot | |
| real xtop | |
| real ytop | |
| real xmin | |
| real ymin | |
| real xmax | |
| real ymax | |
| integer ixcoor | |
| integer iycoor | |
| real alphxx | |
| real betaxx | |
| real alphyy | |
| real betayy | |
| real tmajx | |
| real tminx | |
| real tmajy | |
| real tminy | |
| integer majrx | |
| integer minrx | |
| integer majry | |
| integer minry | |
| integer isizx | |
| integer isizy | |
| real xphold | |
| real yphold | |
| } | zzzplt_ |
| struct { | |
| real xphmax | |
| real yphmax | |
| integer ixpmax | |
| integer iypmax | |
| real xpscal | |
| real ypscal | |
| integer iflip | |
| integer nplotr | |
| char cfile [64] | |
| } | zzpltr_ |
Define Documentation
|
|
|
|
|
|
Function Documentation
|
|
Definition at line 34 of file color.c. References max, min, ncol, zzmpco_(), and zzpltr_1. Referenced by ctcell_(), and pwritf_().
00035 {
00036 /* Initialized data */
00037
00038 static real rgb[21] /* was [3][7] */ = { 0.f,0.f,0.f,1.f,0.f,0.f,0.f,0.f,
00039 1.f,0.f,1.f,0.f,1.f,1.f,0.f,1.f,0.f,1.f,0.f,1.f,1.f };
00040
00041 /* System generated locals */
00042 integer i__1, i__2;
00043
00044 /* Local variables */
00045 static integer ic;
00046 extern /* Subroutine */ int zzmpco_(real *, real *, real *);
00047
00048
00049 /* Set the color of subsequent lines */
00050 /* .......................................................................
00051 */
00052
00053
00054 /* Internal Data for PLOTPAK */
00055
00056 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00057 */
00058 /* cc IF( NPLOTR.EQ.1 .OR. NPLOTR.EQ.2 )THEN */
00059 /* cc IF( NCOL .LE. 1 .OR. NCOL .GT. 7 )THEN */
00060 /* cc CALL GCOLOR( 5Hclear ) */
00061 /* cc ELSEIF( NCOL .EQ. 2 )THEN */
00062 /* cc CALL GCOLOR( 3Hred ) */
00063 /* cc ELSEIF( NCOL .EQ. 3 )THEN */
00064 /* cc CALL GCOLOR( 4Hblue ) */
00065 /* cc ELSEIF( NCOL .EQ. 4 )THEN */
00066 /* cc CALL GCOLOR( 5Hgreen ) */
00067 /* cc ELSEIF( NCOL .EQ. 5 )THEN */
00068 /* cc CALL GCOLOR( 6Hyellow ) */
00069 /* cc ELSEIF( NCOL .EQ. 6 )THEN */
00070 /* cc CALL GCOLOR( 7Hmagenta ) */
00071 /* cc ELSEIF( NCOL .EQ. 7 )THEN */
00072 /* cc CALL GCOLOR( 4Hcyan ) */
00073 /* cc ENDIF */
00074
00075 /* cc IF( NPLOTR.EQ.5 )THEN */
00076 /* cc CALL ZZPCOL( NCOL ) */
00077 /* cc ENDIF */
00078
00079 /* cc IF( NPLOTR .EQ. 6 )THEN */
00080 /* cc IC = MAX( 1 , MIN( 7 , NCOL ) ) */
00081 /* cc CALL ZZPSCO( RGB(1,IC) , RGB(2,IC) , RGB(3,IC) ) */
00082 /* cc ENDIF */
00083 if (zzpltr_1.nplotr == 7) {
00084 /* Computing MAX */
00085 i__1 = 1, i__2 = min(7,*ncol);
00086 ic = max(i__1,i__2);
00087 zzmpco_(&rgb[ic * 3 - 3], &rgb[ic * 3 - 2], &rgb[ic * 3 - 1]);
00088 }
00089
00090 return 0;
00091 } /* color_ */
|
|
||||||||||||||||
|
Definition at line 96 of file color.c. References zzmpco_(), and zzpltr_1.
00097 {
00098 extern /* Subroutine */ int zzmpco_(real *, real *, real *);
00099
00100
00101 /* Set the color of subsequent lines */
00102 /* .......................................................................
00103 */
00104 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00105 */
00106
00107 /* Internal Data for PLOTPAK */
00108
00109 if (zzpltr_1.nplotr == 7) {
00110 zzmpco_(cr, cg, cb);
00111 }
00112 return 0;
00113 } /* fcolor_ */
|
Variable Documentation
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
