DarkBASIC Professional Discussion->Fading color for "large" objects
M
man id unknown Joined: 31st Jan 2007
Location:
Posted: 26th Jun 2007 3:55
I created a cube (Make Object Cube) of size 1, and then scaled it by 20, (for each dimension). The color of the objected faded to a grayish. Is there a way to prevent color fading for larger obejcts?
I
indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia
Posted: 26th Jun 2007 4:13
default primitive cubes have no colour diffusion except for a greyish tint.

you can adjust a primitive or loaded objects colour diffusion with the color object command.

you can also set the objects faded appearance with fade object.

+ Code Snippet
sync on : sync rate 60

make object cube 1,1 : scale object 1,20,20,20 : position object 1,0,0,0

position camera 0,1,-1 : point camera 0,0,0

disable escapekey : while escapekey()=0

      if leftkey()=1
         FADE_AMOUNT = FADE_AMOUNT-1
         fade object 1,FADE_AMOUNT
      endif

      if rightkey()=1
         FADE_AMOUNT = FADE_AMOUNT+1
         fade object 1,FADE_AMOUNT
      endif

      text 1,1,"fps:"+STR$(screen fps())
      text 1,16,"fade amount:"+STR$(FADE_AMOUNT)
fastsync : endwhile
delete object 1
end
M
man id unknown Joined: 31st Jan 2007
Location:
Posted: 26th Jun 2007 4:41
No, I'm talking about the color of objects fading as they are scaled larger and larger.
I
indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia
Posted: 26th Jun 2007 4:52
The default light zero is affecting the objects emission.
You can prevent that by de-activating the light reflection on the object.

+ Code Snippet
sync on : sync rate 60

make object cube 1,10 : position object 1,0,0,0

position light 0,0,20,0
make object sphere 2,5 : set object wireframe 2,1 : position object 2,0,20,0

REM TOGGLE THIS from 1 to 0
set object light 1,1

position camera 0,30,-30 : point camera 0,0,0


disable escapekey : while escapekey()=0

      if leftkey()=1
         SCALE_AMOUNT = SCALE_AMOUNT-1
         scale object 1,SCALE_AMOUNT,SCALE_AMOUNT,SCALE_AMOUNT
      endif

      if rightkey()=1
         SCALE_AMOUNT = SCALE_AMOUNT+1
         scale object 1,SCALE_AMOUNT,SCALE_AMOUNT,SCALE_AMOUNT
      endif

      text 1,1,"fps:"+STR$(screen fps())
      text 1,16,"fade amount:"+STR$(SCALE_AMOUNT)
fastsync : endwhile
delete object 1
end