These subjects are not optional. Function question... or type maybe. I dunno.

Author

Message

Drac X

22

Years of Service

User Offline

Joined: 6th Sep 2003

Location:

Posted: 10th Sep 2003 17:38

Link

Now I have to type all this crap in again.

First, I know that there needs to be changes to the way these functions handle results. I plan on making those changes, but I want to fix this problem first.

I'm getting this error:

User defined types must be of same type.

on the line that reads

v = vScalar(r#,va)

in vScalar(). I think it's clear from my code that both v and va are of the same type.

+ Code Snippet

Function vInv(Va as vector)
   v as vector
   v.x# = Va.x# * -1
   v.Y# = Va.Y# * -1
   v.Z# = Va.Z# * -1
EndFunction v

Function vScalar(r#,va as vector)
   v as vector
   If r# > 0
      v.X# = Va.X# * r#
      v.Y# = Va.Y# * r#
      v.Z# = Va.Z# * r#
   else
      r# = abs(r#)
      v = vInv(va)
      v = vScalar(r#,va)
   endif
EndFunction v

Can someone hook me up?

Thanks!

Drac - X
_________________
Excerpt from 'A Day in the Life of Some Guy' Â©2003

Back to top

Profile PM

empty

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 10th Sep 2003 17:54

Link

You can't return UDTs from functions.

I awoke in a fever. The bedclothes were all soaked in sweat.
She said "You've been having a nightmare and it's not over yet"

Back to top

Profile PM

Drac X

22

Years of Service

User Offline

Joined: 6th Sep 2003

Location:

Posted: 10th Sep 2003 18:04

Link

ok... just for you, since you didn't read the whole post... I made some changes.

And boy, what a difference it makes. For clarification, these functions live in an include.

Now, on line three of my main source file (which has nothing, not even a comment on it), I get this error:

Parameter for 'vScalar' do not match 'float'

+ Code Snippet


Type Vector
   X# as float
   Y# as float
   Z# as float
EndType

Function vInv(Va as vector)
   v as vector
   v.x# = Va.x# * -1
   v.Y# = Va.Y# * -1
   v.Z# = Va.Z# * -1
   vRetVal = v
EndFunction

Function vScalar(r#,va as vector)
   v as vector
   If r# > 0
      v.X# = Va.X# * r#
      v.Y# = Va.Y# * r#
      v.Z# = Va.Z# * r#
   else
      r# = abs(r#)
      vInv(va)
      va = vRetVal
      vScalar(r#,va)
      v = vRetVal
   endif
   vRetVal = v
EndFunction

rem All that, where vRetVal is a global vector.

Is this what 'support for types' is?

Back to top

Profile PM

OSX Using Happy Dude

22

Years of Service

User Offline

Joined: 21st Aug 2003

Location: At home

Posted: 10th Sep 2003 18:33 Edited at: 10th Sep 2003 18:38

Link

I think you've found a rather nasty bug - aside from you defining vector and Vector, it seems to be having trouble passing in UDT's.

Believe it or not, change the r#, va as vector function parameters around - it will probably work then.

+ Code Snippet

Type Vector
   X# as float
   Y# as float
   Z# as float
EndType

global vRetVal as Vector

Function vInv(Va as Vector)
   v as vector
   v.x# = Va.x# * -1
   v.Y# = Va.Y# * -1
   v.Z# = Va.Z# * -1
   vRetVal = v
EndFunction

`function vScalar(r#,va as Vector):rem doesn't work
Function vScalar(va as Vector,r#):rem does work
   v as Vector
   If r# > 0
      v.X# = Va.X# * r#
      v.Y# = Va.Y# * r#
      v.Z# = Va.Z# * r#
   else
      r# = abs(r#)
      vInv(va)
      va = vRetVal
      `vScalar(r#,va):REM This was removed while I fiddled with it
      v = vRetVal
   endif
   vRetVal = v
EndFunction

Avatar & Logo by Indi. Come to the UK DBPro Convention in Chichester

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / These subjects are not optional. Function question... or type maybe. I dunno.