Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
color.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006 #include "f2c.h"
00007
00008
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 int color_(integer *ncol)
00035 {
00036
00037
00038 static real rgb[21] = { 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
00042 integer i__1, i__2;
00043
00044
00045 static integer ic;
00046 extern int zzmpco_(real *, real *, real *);
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083 if (zzpltr_1.nplotr == 7) {
00084
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 }
00092
00093
00094
00095
00096 int fcolor_(real *cr, real *cg, real *cb)
00097 {
00098 extern int zzmpco_(real *, real *, real *);
00099
00100
00101
00102
00103
00104
00105
00106
00107
00108
00109 if (zzpltr_1.nplotr == 7) {
00110 zzmpco_(cr, cg, cb);
00111 }
00112 return 0;
00113 }
00114