| diff -Naur Raster3D_2.7d/normal3d.f Raster3D_2.7d.new/normal3d.f |
| --- Raster3D_2.7d/normal3d.f 2003-10-20 18:50:11.000000000 -0400 |
| +++ Raster3D_2.7d.new/normal3d.f 2007-09-08 10:12:49.000000000 -0400 |
| @@ -443,7 +443,8 @@ |
| READ (INPUT,'(A)',ERR=101) TITLE |
| IF (TITLE(1:1).EQ.'#') GOTO 100 |
| GOTO 102 |
| - 101 WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',TITLE(2:132) |
| + 101 WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ', |
| + *TITLE(2:132) |
| CALL EXIT(-1) |
| 102 CONTINUE |
| ENDIF |
| diff -Naur Raster3D_2.7d/parse.f Raster3D_2.7d.new/parse.f |
| --- Raster3D_2.7d/parse.f 2006-04-11 14:33:48.000000000 -0400 |
| +++ Raster3D_2.7d.new/parse.f 2007-09-08 10:25:24.000000000 -0400 |
| @@ -4,7 +4,8 @@ |
| COMMON /OPTIONS/ FONTSCALE, GAMMA, ZOOM, NSCHEME, SHADOWFLAG, XBG, |
| & NAX, NAY, OTMODE, QUALITY, INVERT, LFLAG |
| REAL FONTSCALE, GAMMA, ZOOM |
| - INTEGER NSCHEME, SHADOWFLAG, XBG |
| + INTEGER NSCHEME, SHADOWFLAG |
| + INTEGER*8 XBG |
| INTEGER*2 NAX, NAY, OTMODE, QUALITY |
| LOGICAL*2 INVERT, LFLAG |
| c |
| diff -Naur Raster3D_2.7d/render.f Raster3D_2.7d.new/render.f |
| --- Raster3D_2.7d/render.f 2006-04-11 17:13:04.000000000 -0400 |
| +++ Raster3D_2.7d.new/render.f 2007-09-08 10:15:17.000000000 -0400 |
| @@ -3685,7 +3685,7 @@ |
| FRAC = DETAIL(K+8) |
| INEXT = INDTOP + 1 |
| IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1 |
| - CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp') |
| + CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp') |
| K = LIST(INEXT) |
| CLRITY = FRAC*DETAIL(K+1) + (1.-FRAC)*DETAIL(K+2) |
| ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN |
