traj.gs

[Takashi Kagimoto]

Dear Ted,

  I forgot to attach the patch file in the previous message
... sorry

Best regard
----
Takashi Kagimoto
Frontier Research Center for Global Change/JAMSTEC
3173-25 Showamachi, Kanazawa-ku, Yokohama, Kanagawa 236-0001, JAPAN
(tel) +81-45-778-5516 (fax) +81-45-778-5707
----
-------------- next part --------------
--- src/gauser.c.orig   2005-05-19 03:51:01.000000000 +0900
+++ src/gauser.c        2006-09-05 15:52:16.000000000 +0900
@@ -3403,11 +3403,19 @@
   lflg = pcm->loopflg;
   if (vcnt>2) lflg = 1;

+/* ----> T.Kagimoto (2005/02/21)
+  pcm->pass = pcm->pass%INT_MAX;
+/* <---- Kagimoto */
   if (!lflg) {
     pcm->mcolor = 8;
     if (pcm->ccolor==-9) {
+/* ----> T.Kagimoto (2005/02/21)
       if (vcnt==2 && pcm->grflg==0) pcm->ccolor = dcolor[pcm->pass];
       else pcm->ccolor = dcolor[pcm->pass+1];
+ */
+      if (vcnt==2 && pcm->grflg==0) pcm->ccolor = dcolor[pcm->pass%10];
+      else pcm->ccolor = dcolor[(pcm->pass+1)%10];
+/* <---- Kagimoto */
     }
     if (pcm->cmark==-9) {
       pcm->cmark = pcm->pass+2;