Attachment #84421 for bug #125190

View | Details | Raw Unified | Return to bug 125190
Collapse All | Expand All

Lines 443-449 Link Here

(-)Raster3D_2.7c/normal3d.f (-1 / +2 lines)
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

Lines 133-139 Link Here

(-)Raster3D_2.7c/rastep.f (-1 / +1 lines)
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




*     Get background colour
      READ (INPUT,*,ERR=104) BKGND
      if (XBG.NE.0) then
	BKGND(3) = REAL(iand(XBG,'00FF'X)) / 255.
	BKGND(2) = REAL(iand(XBG,'FF00'X)/256) / 255.
	BKGND(1) = REAL(iand(XBG,'FF0000'X)/65536) / 255.
	BKGND(3) = BKGND(3)**2
	BKGND(2) = BKGND(2)**2
	BKGND(1) = BKGND(1)**2

	        FRAC = DETAIL(K+8)
	        INEXT = INDTOP + 1
  	        IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1
	    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

Lines 16-22 Link Here

(-)Raster3D_2.7c/rings3d.f (-1 lines)
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 125190

Lines 792-800 Link Here

(-)Raster3D_2.7c/render.f (-4 / +4 lines)
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 = FRACDETAIL(K+1) + (1.-FRAC)DETAIL(K+2)	3684	CLRITY = FRACDETAIL(K+1) + (1.-FRAC)DETAIL(K+2)
3685	ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN	3685	ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN