Hands On DarkBASIC Pro - Digital Skills

FIG-32.27
The FADE OBJECT
Statement
LISTING-32.13
Using FADE OBJECT to
make a Transparent
Object Disappear
In the diagram:
objno is an integer value specifying the 3D object
whose reflective index is to be changed.
value is an integer value between 0 and 200. A value of
zero means that the object will reflect no light;
a value of 100 creates normal amount of reflected
light; a value of 200 gives twice the normal
amount of reflected light.
The program in LISTING-32.13 demonstrates the effect of this statement by
gradually reducing the reflective value from 200 to zero.
REM *** Set display resolution ***
SET DISPLAY MODE 1280,1024,32
REM *** Load texture images ***
LOAD IMAGE "textureWood.jpg",1
LOAD IMAGE "DoNot.bmp",2
REM *** Make and position cube ***
MAKE OBJECT CUBE 1, 40
POSITION OBJECT 1,25,0,100
REM *** Texture cube ***
TEXTURE OBJECT 1,1
REM *** Create background plain ***
MAKE OBJECT PLAIN 2,100,100
TEXTURE OBJECT 2, 2
POSITION OBJECT 2,0,0,200
REM *** Start reflective value at 200 ***
reflectivity = 200
REM *** rotate cube ***
DO
PITCH OBJECT DOWN 1, 1.0
TURN OBJECT LEFT 1, 1.0
FADE OBJECT 1,reflectivity
REM *** Decrement reflective value until it reaches zero ***
IF reflectivity > 0
DEC reflectivity
ENDIF
WAIT 10
LOOP
REM *** End program ***
END
Activity 32.23
FADE OBJECT objno
, value
Type in and test the program given in LISTING-32.13 (texture13.dbpro).
When used in combination with the GHOST OBJECT ON statement, the FADE
OBJECT statement can make a semi-transparent object disappear completely.
818 DarkBASIC Pro: Texturing