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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|