REM A Fade Object Example
REM By Sina Roshan
REM Setup Screen
sync on
sync rate 0
autocam off
set camera range
1,500
position camera 0,0,-14
REM Set Ambience Level
set ambient light 20
REM Make An Object To Test
make object sphere 1,10
position object
1,0,0,0
ghost object on 1
REM A Controllable Fade Level
fade# = 100
REM Main Loop
do
REM Alter Fade Level Using Up and Down Arrow Keys
if upkey() = 1
then inc fade#,1
if downkey() = 1 then dec fade#,1
REM Update Faded Object
fade object 1,fade#
REM Print Some Stuff To Screen
center text screen width()/2
,3,"Fade Object Example"
center text screen width()/2,16,
"By Sina Roshan"
text 3,29,"Fade Value: "+str$(fade#)
REM Manual Refresh
sync
loop
|