Accessing records of existing DBP commands

Author

Message

Jediam

14

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 15th May 2012 17:09

Link

Hello

I'm trying to access the individual elements of the Set Shadow Shading On command. They are as follows: Object#,Mesh#,Range,Shader. I created a Type and defined records to match the elements of the above mentioned DBP command. My thinking is that if I'm able to set the Type's records that I created to that of the DBP command's records, I might be able to manipulate an individual objects shading settings(specifically the range element) within a loop.
Thank you for your help.

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 15th May 2012 22:07

Link

I'm not entirely sure what you mean. Could you be more specific, and define the word "record" for me.

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

Jediam

14

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 15th May 2012 23:30

Link

Hello Comet,

Apologies. I misread the terminology in the HandsOnDarkBasicPro Book. I was referring to a field, not a record. The word record refers to all of the contents(fields) within a given type. I meant to equate "fields" with "elements"...Object#,Mesh#,Range,Shader are all fields within the type Set Shadow Shading On. Combined, all of the fields make the Set Shadow Shading On record. Here's some sample code I created in an attempt to pass the field data from Set Shadow Shading On to a custom type.

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, May 15, 2012

Rem ***** Main Source File *****
Set display mode 640,480,32
Type ObjectShadows  
    Objno As integer
    Meshno As integer
    Range As integer
    Shader As Boolean
EndType

Make Object Box 1,20,20,20
Position Object 1,0,0,0
Make Light 1
Set Point Light 1,0,30,-30
Set Light Range 1,50

shadow As ObjectShadows
a = 1
b = -1
c = 50
d = 0
shadow.Objno = a
shadow.Meshno = b
shadow.Range = c
shadow.Shader = d
shadow = Set Shadow Shading On (a,b,c,d)
Wait Key
End

I get an error message saying shadow doesn't receive a value from Set Shadow Shading On. As previously mentioned, my goal is to be able to access the range field within my custom type(ObjectShadows) so that I can manipulate it within a loop.
Thank you for your interest in this post and any help you can offer.

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 16th May 2012 00:47

Link

Thank you for clarifying.

Try removing the brackets from the command Set Shadow Shading on. Also, the command does not return a value. If you're in the DBP editor, click on the command and press F1 to get more information on how to use it.

You should also note that the mesh must be in a valid range or the command will fail. The valid range is 1-65535.

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, May 15, 2012

Rem ***** Main Source File *****
Set display mode 640,480,32
Type ObjectShadows  
    Objno As integer
    Meshno As integer
    Range As integer
    Shader As Boolean
EndType

Make Object Box 1,20,20,20
Position Object 1,0,0,0
Make Light 1
Set Point Light 1,0,30,-30
Set Light Range 1,50

shadow As ObjectShadows
a = 1
b = 1
c = 50
d = 0
shadow.Objno = a
shadow.Meshno = b
shadow.Range = c
shadow.Shader = d
Set Shadow Shading On a,b,c,d
Wait Key
End

I've never used the command so I'm not sure why you have to pass a mesh to it... Let's hope someone knowledgeable pops up and answers that.

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

zeroSlave

17

Years of Service

User Offline

Joined: 13th Jun 2009

Location: Springfield

Posted: 16th May 2012 00:48 Edited at: 16th May 2012 04:13

Link

SET SHADOW SHADING ON does not return a value, so nothing can = SET SHADOW SHADING ON. It would be similar to saying thisVariable = PRINT "Hello, World!"
PRINT also does not return a value.

You would probably just want to use this:
SET SHADOW SHADING ON a, b, c, d
Instead of:
shadow = Set Shadow Shading On (a, b, c, d)

TheComet got it first.

Also, These lines,

+ Code Snippet

a = 1
b = 1
c = 50
d = 0
shadow.Objno = a
shadow.Meshno = b
shadow.Range = c
shadow.Shader = d

are already setting the variables in your type to those values. What you could do is

+ Code Snippet

shadow.Objno = 1
shadow.Meshno = 1
shadow.Range = 50
shadow.Shader = 0
Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader

Everybody is a genius. But if you judge a fish by its ability to climb a tree, it will live its whole life believing that it is stupid.

Back to top

Profile PM Email

Jediam

14

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 16th May 2012 06:21

Link

Hello friends,

Thank you for your help...This seems to have worked. I created a small sample which allows you to move around a light and modify the shadows range. You can use this freely if it helps you any. Take care.

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, May 15, 2012

Rem ***** Main Source File *****
Set display mode 640,480,32
Type ObjectShadows  
    Objno As integer
    Meshno As integer
    Range As integer
    Shader As Boolean
EndType

AutoCam Off
Make Camera 1
Position Camera 1,0,30,-60
Point Camera 1,0,0,0
Make Object Box 1,20,20,20
Make Object Box 2,100,10,100
Position Object 1,0,0,0
Position Object 2,0,-20,0
Make Light 1
Set Point Light 1,10,30,30
Set Light Range 1,200
Make Object Sphere 3,-10
Position Object 3,10,30,30

Global shadow As ObjectShadows
shadow.Objno = 1
shadow.Meshno = -1
shadow.Range = 500
shadow.Shader = 0
Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader
Do 
  LightMovement()
  ShadowRange()
  Wait 1 
LOOP
Wait Key
End

Function LightMovement()
   x = Light Position X(1)
   y = Light Position Y(1)
   z = Light Position Z(1)
   Set Shadow Position -1,x,y,z
   If Inkey$() = "w"
     Inc z,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z  
   ENDIF
   If Inkey$() = "s"
     Dec z,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   ENDIF
   If Inkey$() = "a"
     Dec x,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z 
   ENDIF
   If Inkey$() = "d"
     Inc x,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   ENDIF
   If Inkey$() = "q"
     Dec y,1
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   EndIf
   If Inkey$() = "e"
     Inc y,1
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   EndIf 
ENDFUNCTION

Function ShadowRange()
    If Inkey$() = "r"
    Set Cursor 0,0
    Inc shadow.Range,20
    Print shadow.Range
    Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader  
    ENDIF
    If Inkey$() = "f"
    Set Cursor 0,0
    Dec shadow.Range,20
    Print shadow.Range
    Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader
    ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, May 15, 2012

Rem ***** Main Source File *****
Set display mode 640,480,32
Type ObjectShadows  
    Objno As integer
    Meshno As integer
    Range As integer
    Shader As Boolean
EndType

AutoCam Off
Make Camera 1
Position Camera 1,0,30,-60
Point Camera 1,0,0,0
Make Object Box 1,20,20,20
Make Object Box 2,100,10,100
Position Object 1,0,0,0
Position Object 2,0,-20,0
Make Light 1
Set Point Light 1,10,30,30
Set Light Range 1,200
Make Object Sphere 3,-10
Position Object 3,10,30,30

Global shadow As ObjectShadows
shadow.Objno = 1
shadow.Meshno = -1
shadow.Range = 500
shadow.Shader = 0
Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader
Do 
  LightMovement()
  ShadowRange()
  Wait 1 
LOOP
Wait Key
End

Function LightMovement()
   x = Light Position X(1)
   y = Light Position Y(1)
   z = Light Position Z(1)
   Set Shadow Position -1,x,y,z
   If Inkey$() = "w"
     Inc z,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z  
   ENDIF
   If Inkey$() = "s"
     Dec z,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   ENDIF
   If Inkey$() = "a"
     Dec x,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z 
   ENDIF
   If Inkey$() = "d"
     Inc x,5
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   ENDIF
   If Inkey$() = "q"
     Dec y,1
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   EndIf
   If Inkey$() = "e"
     Inc y,1
     Position Light 1,x,y,z
     Position Object 3,x,y,z
   EndIf 
ENDFUNCTION

Function ShadowRange()
    If Inkey$() = "r"
    Set Cursor 0,0
    Inc shadow.Range,20
    Print shadow.Range
    Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader  
    ENDIF
    If Inkey$() = "f"
    Set Cursor 0,0
    Dec shadow.Range,20
    Print shadow.Range
    Set Shadow Shading On shadow.Objno, shadow.Meshno, shadow.Range, shadow.Shader
    ENDIF
ENDFUNCTION

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Accessing records of existing DBP commands