dernier commit avant le Gers

GrafAnim/readpicz.f90

@@ -35,9 +35,16 @@ program readpicz
       write(0, *) "iostat", errcode
       exit
     endif
-    pix(x+1, y+1)%r = b * 200
-    pix(x+1, y+1)%g = b * 200
-    pix(x+1, y+1)%b = r * 200
+    if (mod(y, 2) .EQ. 1) then
+      pix(x+1, y+1)%r = g * 200
+      pix(x+1, y+1)%g = b * 200
+      pix(x+1, y+1)%b = r * 200
+    else
+      pix(x+1, y+1)%r = g * 200
+      pix(x+1, y+1)%g = r * 200
+      pix(x+1, y+1)%b = b * 200
+    endif
+
   enddo
 
   call rgbpix_spit_as_pnm_16(pix, trim(filename))