[DBP] Diffuse,Ambience,Emissive,Specular,Specular Power of an object

Author

Message

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 8th Dec 2009 21:28 Edited at: 8th Dec 2009 21:30

Link

using a combinations of the following commands,

DIFFUSE ,AMBIENCE,EMISSIVE,SPECULAR,SPECULAR POWER

you get the following.

Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 60
autocam off
position camera 0,0,-20
color backdrop 0
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100

x=-7
y=9
for i= 1 to 45
make object sphere i,1
position object i,x,y,0
a=9
b=18
c=27
d=36

dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-15,object screen y(1)-25," 0        25        50       75        100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

+ Code Snippet

Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 60
autocam off
position camera 0,0,-20
color backdrop 0
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100


x=-7
y=9
for i= 1 to 45
make object sphere i,1
position object i,x,y,0
a=9
b=18
c=27
d=36


dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-15,object screen y(1)-25," 0        25        50       75        100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 9th Dec 2009 02:12

Link

Nice to see a grid for reference. Might come in handy!

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Dec 2009 11:34

Link

Yes, thought that would let the user see what did what, so say you wanted to know what an object at 75% and emissive with or without a light on, then this is what it might looks like.

Cheers for looking.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Dec 2009 12:30

Link

small update now show what your object looks like when you have one of the ghost options on (0-6)

Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1

load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
ghost_level_0=0
ghost_level_1=1
ghost_level_2=2
ghost_level_3=3
ghost_level_4=4
ghost_level_5=5
ghost_level_6=6
a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9
for i= 1 to g
make object sphere i,1
position object i,x,y,0
if i>0 then ghost object on i,ghost_level_0
if i>a then ghost object on i,ghost_level_1
if i>b then ghost object on i,ghost_level_2
if i>c then ghost object on i,ghost_level_3
if i>d then ghost object on i,ghost_level_4
if i>e then ghost object on i,ghost_level_5
if i>f then ghost object on i,ghost_level_6
`texture object i,1
dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("ghost "),object screen y(1)-47,"Ghost 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

+ Code Snippet

Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1

load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
ghost_level_0=0
ghost_level_1=1
ghost_level_2=2
ghost_level_3=3
ghost_level_4=4
ghost_level_5=5
ghost_level_6=6
a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9
for i= 1 to g
make object sphere i,1
position object i,x,y,0
if i>0 then ghost object on i,ghost_level_0
if i>a then ghost object on i,ghost_level_1
if i>b then ghost object on i,ghost_level_2
if i>c then ghost object on i,ghost_level_3
if i>d then ghost object on i,ghost_level_4
if i>e then ghost object on i,ghost_level_5
if i>f then ghost object on i,ghost_level_6
`texture object i,1
dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("ghost "),object screen y(1)-47,"Ghost 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Dec 2009 13:04

Link

and another one using TRANSPARENCY on and object

Rem Project: lightobjectrans
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
SET IMAGE COLORKEY 255,0,0
cls rgb(255,0,0)
for d= 1 to screen width() step 100
box d,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255))
next d
get image 1,0,0,screen width(),screen height()
`load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
flag_0=0
flag_1=1
flag_2=2
flag_3=3
flag_4=4
flag_5=5
flag_6=6
a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9

for i= 1 to g
make object cube i,1
position object i,x,y,0
texture object i,1
if i>0 then SET OBJECT TRANSPARENCY i, Flag_0
if i>a then SET OBJECT TRANSPARENCY i, Flag_1
if i>b then SET OBJECT TRANSPARENCY i, Flag_2
if i>c then SET OBJECT TRANSPARENCY i, Flag_3
if i>d then SET OBJECT TRANSPARENCY i, Flag_4
if i>e then SET OBJECT TRANSPARENCY i, Flag_5
if i>f then SET OBJECT TRANSPARENCY i, Flag_6

dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("TRANSPARENCY "),object screen y(1)-47,"TRANSPARENCY 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

+ Code Snippet

Rem Project: lightobjectrans
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
SET IMAGE COLORKEY 255,0,0
cls rgb(255,0,0)
for d= 1 to screen width() step 100
box d,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255))
next d
get image 1,0,0,screen width(),screen height()
`load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
flag_0=0
flag_1=1
flag_2=2
flag_3=3
flag_4=4
flag_5=5
flag_6=6
a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9

for i= 1 to g
make object cube i,1
position object i,x,y,0
texture object i,1
if i>0 then SET OBJECT TRANSPARENCY i, Flag_0
if i>a then SET OBJECT TRANSPARENCY i, Flag_1
if i>b then SET OBJECT TRANSPARENCY i, Flag_2
if i>c then SET OBJECT TRANSPARENCY i, Flag_3
if i>d then SET OBJECT TRANSPARENCY i, Flag_4
if i>e then SET OBJECT TRANSPARENCY i, Flag_5
if i>f then SET OBJECT TRANSPARENCY i, Flag_6

dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("TRANSPARENCY "),object screen y(1)-47,"TRANSPARENCY 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Dec 2009 13:14 Edited at: 9th Dec 2009 13:14

Link

another one using TRANSPARENCY and GHOST on and object.

Rem Project: lightsallthree
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: lightobjectrans
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
SET IMAGE COLORKEY 255,0,0
cls rgb(255,0,0)
for d= 1 to screen width() step 100
box d,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255))
next d
get image 1,0,0,screen width(),screen height()
`load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
flag_0=0
flag_1=1
flag_2=2
flag_3=3
flag_4=4
flag_5=5
flag_6=6
ghost_level_0=0
ghost_level_1=1
ghost_level_2=2
ghost_level_3=3
ghost_level_4=4
ghost_level_5=5
ghost_level_6=6

a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9

for i= 1 to g
make object cube i,1
position object i,x,y,0
texture object i,1
if i>0 then SET OBJECT TRANSPARENCY i, Flag_0
if i>a then SET OBJECT TRANSPARENCY i, Flag_1
if i>b then SET OBJECT TRANSPARENCY i, Flag_2
if i>c then SET OBJECT TRANSPARENCY i, Flag_3
if i>d then SET OBJECT TRANSPARENCY i, Flag_4
if i>e then SET OBJECT TRANSPARENCY i, Flag_5
if i>f then SET OBJECT TRANSPARENCY i, Flag_6

if i>0 then ghost object on i,ghost_level_0
if i>a then ghost object on i,ghost_level_1
if i>b then ghost object on i,ghost_level_2
if i>c then ghost object on i,ghost_level_3
if i>d then ghost object on i,ghost_level_4
if i>e then ghost object on i,ghost_level_5
if i>f then ghost object on i,ghost_level_6

dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("Ghost "),object screen y(1)-57,"Ghost 0        1         2        3        4        5         6"

text object screen x(1)-text width("TRANSPARENCY "),object screen y(1)-47,"TRANSPARENCY 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

+ Code Snippet

Rem Project: lightsallthree
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: lightobjectrans
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: ghodt_lights
Rem Created: Wednesday, December 09, 2009

Rem ***** Main Source File *****
Rem Project: light_levels1
Rem Created: Tuesday, December 08, 2009

Rem ***** Main Source File *****
sync
sync rate 40
autocam off
position camera 0,0,-20
color backdrop RGB(0,70,255)
make light 1
color light 1,RGB(255,255,0)
position light 1,5,5,-5
hide light 1
SET IMAGE COLORKEY 255,0,0
cls rgb(255,0,0)
for d= 1 to screen width() step 100
box d,0,screen width(),screen height(),rgb(rnd(255),rnd(255),rnd(255))
next d
get image 1,0,0,screen width(),screen height()
`load image "chips.bmp",1
`Level settings 
Level_0=0
Level_1=51
Level_2=102
Level_3=153
Level_4=255
power_0=0
power_1=25
power_2=50
power_3=75
power_4=100
flag_0=0
flag_1=1
flag_2=2
flag_3=3
flag_4=4
flag_5=5
flag_6=6
ghost_level_0=0
ghost_level_1=1
ghost_level_2=2
ghost_level_3=3
ghost_level_4=4
ghost_level_5=5
ghost_level_6=6


a=9
b=18
c=27
d=36
e=45
f=54
g=63
x=-7
y=9

for i= 1 to g
make object cube i,1
position object i,x,y,0
texture object i,1
if i>0 then SET OBJECT TRANSPARENCY i, Flag_0
if i>a then SET OBJECT TRANSPARENCY i, Flag_1
if i>b then SET OBJECT TRANSPARENCY i, Flag_2
if i>c then SET OBJECT TRANSPARENCY i, Flag_3
if i>d then SET OBJECT TRANSPARENCY i, Flag_4
if i>e then SET OBJECT TRANSPARENCY i, Flag_5
if i>f then SET OBJECT TRANSPARENCY i, Flag_6

if i>0 then ghost object on i,ghost_level_0
if i>a then ghost object on i,ghost_level_1
if i>b then ghost object on i,ghost_level_2
if i>c then ghost object on i,ghost_level_3
if i>d then ghost object on i,ghost_level_4
if i>e then ghost object on i,ghost_level_5
if i>f then ghost object on i,ghost_level_6

dec y,2
if y=-9 then y=9 :inc x, 3
next i
i=1 
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
i=2
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
i=3
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)

i=4
SET OBJECT DIFFUSE i, rgb(level_0,0,0)
SET OBJECT DIFFUSE i+a, rgb(level_1,0,0)
SET OBJECT DIFFUSE i+b, rgb(level_2,0,0)
SET OBJECT DIFFUSE i+c, rgb(level_3,0,0)
SET OBJECT DIFFUSE i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=5
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=6
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR  i, power_0
SET OBJECT SPECULAR  i+a, power_1
SET OBJECT SPECULAR  i+b, power_2
SET OBJECT SPECULAR  i+c, power_3
SET OBJECT SPECULAR  i+d, power_4
i=7
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4
i=8
SET OBJECT AMBIENCE  i, rgb(level_0,0,0)
SET OBJECT AMBIENCE  i+a, rgb(level_1,0,0)
SET OBJECT AMBIENCE  i+b, rgb(level_2,0,0)
SET OBJECT AMBIENCE  i+c, rgb(level_3,0,0)
SET OBJECT AMBIENCE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

i=9
SET OBJECT EMISSIVE  i, rgb(level_0,0,0)
SET OBJECT EMISSIVE  i+a, rgb(level_1,0,0)
SET OBJECT EMISSIVE  i+b, rgb(level_2,0,0)
SET OBJECT EMISSIVE  i+c, rgb(level_3,0,0)
SET OBJECT EMISSIVE  i+d, rgb(level_4,0,0)
SET OBJECT SPECULAR POWER   i, power_0
SET OBJECT SPECULAR POWER   i+a, power_1
SET OBJECT SPECULAR POWER   i+b, power_2
SET OBJECT SPECULAR POWER   i+c, power_3
SET OBJECT SPECULAR POWER   i+d, power_4

do
text object screen x(1)-text width("Ghost "),object screen y(1)-57,"Ghost 0        1         2        3        4        5         6"

text object screen x(1)-text width("TRANSPARENCY "),object screen y(1)-47,"TRANSPARENCY 0        1         2        3        4        5         6"
text object screen x(1)-15,object screen y(1)-27," 0        25        50       75       100"
text object screen x(1)-text width("DIFFUSE   "),object screen y(1)-12,"DIFFUSE "
text object screen x(2)-text width("DIFFUSE   "),object screen y(2)-12,"AMBIENCE "
text object screen x(3)-text width("DIFFUSE   "),object screen y(3)-12,"EMISSIVE "
text object screen x(4)-text width("DIFFUSE SPECULAR   "),object screen y(4)-12,"DIFFUSE SPECULAR "
text object screen x(5)-text width("AMBIENCE SPECULAR   "),object screen y(5)-12,"AMBIENCE SPECULAR "
text object screen x(6)-text width("EMISSIVE SPECULAR   "),object screen y(6)-12,"EMISSIVE SPECULAR "
text object screen x(7)-text width("DIFFUSE SPECULAR POWER   "),object screen y(7)-12,"DIFFUSE SPECULAR POWER"
text object screen x(8)-text width("AMBIENCE SPECULAR POWER   "),object screen y(8)-12,"AMBIENCE SPECULAR POWER"
text object screen x(9)-text width("EMISSIVE SPECULAR POWER   "),object screen y(9)-12,"EMISSIVE SPECULAR POWER"
text 0,580,"press L to turn on a yellow position light"
if inkey$()="l"
show light 1
else 
hide light 1
endif

sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 11th Dec 2009 15:24

Link

found if you are using the set current bitmap -1, it has to be called every loop to keep your object textured, unlike when you use get image for a texture.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / [DBP] Diffuse,Ambience,Emissive,Specular,Specular Power of an object