Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 190511
Collapse All | Expand All

(-)Raster3D_2.7c/normal3d.f (-1 / +2 lines)
Lines 443-449 Link Here
443 
	READ (INPUT,'(A)',ERR=101) TITLE
 443 
	READ (INPUT,'(A)',ERR=101) TITLE
444 
	IF (TITLE(1:1).EQ.'#') GOTO 100
 444 
	IF (TITLE(1:1).EQ.'#') GOTO 100
445 
	GOTO 102
 445 
	GOTO 102
446 
  101	WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',TITLE(2:132)
 446 
  101	WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',
447 
     * TITLE(2:132)
447 
	CALL EXIT(-1)
 448 
	CALL EXIT(-1)
448 
  102	CONTINUE
 449 
  102	CONTINUE
449 
      ENDIF
 450 
      ENDIF
(-)Raster3D_2.7c/parse.f (-1 / +2 lines)
Lines 4-10 Link Here
4 
      COMMON /OPTIONS/ FONTSCALE, GAMMA, ZOOM, NSCHEME, SHADOWFLAG, XBG,
4 
      COMMON /OPTIONS/ FONTSCALE, GAMMA, ZOOM, NSCHEME, SHADOWFLAG, XBG,
5 
     &                 NAX, NAY, OTMODE, QUALITY, INVERT, LFLAG
 5 
     &                 NAX, NAY, OTMODE, QUALITY, INVERT, LFLAG
6 
      REAL             FONTSCALE, GAMMA, ZOOM
 6 
      REAL             FONTSCALE, GAMMA, ZOOM
7 
      INTEGER          NSCHEME, SHADOWFLAG, XBG
 7 
      INTEGER          NSCHEME, SHADOWFLAG
8 
      INTEGER*8        XBG
8 
      INTEGER*2        NAX, NAY, OTMODE, QUALITY
 9 
      INTEGER*2        NAX, NAY, OTMODE, QUALITY
9 
      LOGICAL*2        INVERT, LFLAG
 10 
      LOGICAL*2        INVERT, LFLAG
10 
c
 11 
c
(-)Raster3D_2.7c/rastep.f (-1 / +1 lines)
Lines 133-139 Link Here
133 
c
 133 
c
134 
c     Support for validation of similarity of bonded atoms
 134 
c     Support for validation of similarity of bonded atoms
135 
      logical	suvflag
 135 
      logical	suvflag
136 
      integer	suvlun, suvbad
 136 
      integer	suvlun, suvbad, defcols
137 
      real	anisov(6)
 137 
      real	anisov(6)
138 
c
 138 
c
139 
c     Default to CPK colors and VDW radii
 139 
c     Default to CPK colors and VDW radii
(-)Raster3D_2.7c/render.f (-4 / +4 lines)
Lines 792-800 Link Here
792 
*     Get background colour
 792 
*     Get background colour
793 
      READ (INPUT,*,ERR=104) BKGND
 793 
      READ (INPUT,*,ERR=104) BKGND
794 
      if (XBG.NE.0) then
 794 
      if (XBG.NE.0) then
795 
	BKGND(3) = FLOAT(iand(XBG,'00FF'X)) / 255.
 795 
	BKGND(3) = REAL(iand(XBG,'00FF'X)) / 255.
796 
	BKGND(2) = FLOAT(iand(XBG,'FF00'X)/256) / 255.
 796 
	BKGND(2) = REAL(iand(XBG,'FF00'X)/256) / 255.
797 
	BKGND(1) = FLOAT(iand(XBG,'FF0000'X)/65536) / 255.
 797 
	BKGND(1) = REAL(iand(XBG,'FF0000'X)/65536) / 255.
798 
	BKGND(3) = BKGND(3)**2
 798 
	BKGND(3) = BKGND(3)**2
799 
	BKGND(2) = BKGND(2)**2
 799 
	BKGND(2) = BKGND(2)**2
800 
	BKGND(1) = BKGND(1)**2
 800 
	BKGND(1) = BKGND(1)**2
Lines 3679-3685 Link Here
3679 
	        FRAC = DETAIL(K+8)
 3679 
	        FRAC = DETAIL(K+8)
3680 
	        INEXT = INDTOP + 1
 3680 
	        INEXT = INDTOP + 1
3681 
  	        IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1
 3681 
  	        IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1
3682 
	        CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
 3682 
	    CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
3683 
	        K = LIST(INEXT)
 3683 
	        K = LIST(INEXT)
3684 
	        CLRITY = FRAC*DETAIL(K+1) + (1.-FRAC)*DETAIL(K+2)
 3684 
	        CLRITY = FRAC*DETAIL(K+1) + (1.-FRAC)*DETAIL(K+2)
3685 
	      ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN
 3685 
	      ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN
(-)Raster3D_2.7c/rings3d.f (-1 lines)
Lines 16-22 Link Here
16 
	integer input, output, noise
 16 
	integer input, output, noise
17 
	parameter (input=5, output=6, noise=0)
 17 
	parameter (input=5, output=6, noise=0)
18 
	integer 	iargc, narg
 18 
	integer 	iargc, narg
19 
	external	iargc
20 
	character*64	options
 19 
	character*64	options
21 
	logical		bflag, pflag, sflag
 20 
	logical		bflag, pflag, sflag
22 
c
 21 
c

Return to bug 190511