Matrix Tile Selecting - GameCreators Forum

Author

Message

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 21st Jun 2005 11:01

Link

I'm attempting to create a matrix editor and have already gotten a good way into it. However, I'm having trouble with being able to select individual matrix tiles to texture the matrix. I would like to be able to use the mouse to select a tile. However, I can not think of a way to use the two dimensional mouse position with the two dimensional and/or three dimensional matrix tile position. Any ideas? FYI, I have objects at every point of the matrix and triangles that match the matrix shape if they would be useful for reference. Thanks for your input.

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Jun 2005 05:20

Link

make the objects clickable with the commands:
object screen x(object)
object screen y(object)

somthing like this:

+ Code Snippet

if mousex() < object screen x(object)+3 and mousex() > object screen x(object)-3
    if mousey() < object screen y(object)+3 and mousey() > object screen y(object)-3
         selected = object
    endif
endif

(Not tested)

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

SageTech

20

Years of Service

User Offline

Joined: 3rd Dec 2004

Location: Orlando, Florida

Posted: 22nd Jun 2005 06:38

Link

I got code for doing this from the forums, search around and you should find it.

Sagetech forums currently down

Back to top

Profile PM Email Website

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 25th Jun 2005 00:12 Edited at: 25th Jun 2005 00:13

Link

Not quite what I had in mind. I want to be a little more specific for where I click. I want to be able to click all of the matrix tile to select it and get none of the surrounding tiles as well. I have a couple of ideas to do this but I'm not sure how they will work out.

1. I could have a hidden 3D object come out from the camera position to about 5000 units and then detect for object collision.

2. I could get equations for 2D lines between the four points on a tile and then use <= and >= statements to find if the mouse is within the required area. This is the way I'm currently going with, but it has hidden complexities. If anybody has any easier ideas please share them.

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Jake Blues

20

Years of Service

User Offline

Joined: 19th Jun 2004

Location: United States

Posted: 25th Jun 2005 00:20

Link

Here is how you would do it(Code by Spooky):

function Matrix_Mouse(num)
   dim TilePicked(2)

mx=mousex():my=mousey():OverMatrix=0:CountDown=0

matx=MatrixX(num):maty=MatrixY(num):matz=MatrixZ(num)
   mwidth=MatrixWidth(num):mheight=MatrixHeight(num)
   mxseg=MatrixXSeg(num):mzseg=MatrixZSeg(num)
   maxdist=mwidth*mheight+camera position y()

for dist=0 to maxdist step 5
      OverMatrix=0
      pick screen mx,my,dist

x#=get pick vector x()+camera position x()
      y#=get pick vector y()+camera position y()
      z#=get pick vector z()+camera position z()

if x#>matx and x<(matx+mwidth) and z#>matz and z#<(matz+mheight)
         height#=get ground height(num,x#-matx,z#-matz)
         v#=y#-height#-maty
         OverMatrix=1
      endif

if OverMatrix=1
         if v#<0
            CountDown=1
            belowdist=dist
            exit
         endif
      endif
   next dist

if CountDown=1
      for dist=belowdist to belowdist-5 step -1
         OverMatrix=0

pick screen mx,my,dist

x#=get pick vector x()+camera position x()
         y#=get pick vector y()+camera position y()
         z#=get pick vector z()+camera position z()

if x#>matx and x<(matx+mwidth) and z#>matz and z#<(matz+mheight)
            height#=get ground height(num,x#-matx,z#-matz)
            v#=y#-height#-maty
            OverMatrix=1
         endif

if OverMatrix=1
            if v#>=0
               TilePicked(1)=int((x#-matx)/(mwidth/mxseg))
               TilePicked(2)=int((z#-matz)/(mheight/mzseg))
               exit
            endif
         endif
      next dist
   endif
endfunction

+ Code Snippet

function Matrix_Mouse(num)
   dim TilePicked(2)

   mx=mousex():my=mousey():OverMatrix=0:CountDown=0

   matx=MatrixX(num):maty=MatrixY(num):matz=MatrixZ(num)
   mwidth=MatrixWidth(num):mheight=MatrixHeight(num)
   mxseg=MatrixXSeg(num):mzseg=MatrixZSeg(num)
   maxdist=mwidth*mheight+camera position y()

   for dist=0 to maxdist step 5
      OverMatrix=0
      pick screen mx,my,dist

      x#=get pick vector x()+camera position x()
      y#=get pick vector y()+camera position y()
      z#=get pick vector z()+camera position z()

      if x#>matx and x<(matx+mwidth) and z#>matz and z#<(matz+mheight)
         height#=get ground height(num,x#-matx,z#-matz)
         v#=y#-height#-maty
         OverMatrix=1
      endif

      if OverMatrix=1
         if v#<0
            CountDown=1
            belowdist=dist
            exit
         endif
      endif
   next dist

   if CountDown=1
      for dist=belowdist to belowdist-5 step -1
         OverMatrix=0

         pick screen mx,my,dist

         x#=get pick vector x()+camera position x()
         y#=get pick vector y()+camera position y()
         z#=get pick vector z()+camera position z()

         if x#>matx and x<(matx+mwidth) and z#>matz and z#<(matz+mheight)
            height#=get ground height(num,x#-matx,z#-matz)
            v#=y#-height#-maty
            OverMatrix=1
         endif

         if OverMatrix=1
            if v#>=0
               TilePicked(1)=int((x#-matx)/(mwidth/mxseg))
               TilePicked(2)=int((z#-matz)/(mheight/mzseg))
               exit
            endif
         endif
      next dist
   endif
endfunction

---->http://www.freewebs.com/neodragon64<----

Back to top

Profile PM Email Website

Robot

20

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 25th Jun 2005 00:28

Link

Thats only for dbpro on a dbc board.

The happenings of tommorow are behind us now

Back to top

Profile PM

NanoBrain

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 25th Jun 2005 00:51

Link

SithSpawn,

Vector math is the knowledge you need for this type of circumstance. I am still in the slow process of learning it myself, due to other higher priorities. Below is a link to what I believe to be a very simplified, however powerful lesson on vector math. The author, Mark Feldman, does an excellent job at portraying this subject.

http://www.geocities.com/SiliconValley/2151/math3d.html

+NanoBrain+

Back to top

Profile PM Email

Jake Blues

20

Years of Service

User Offline

Joined: 19th Jun 2004

Location: United States

Posted: 25th Jun 2005 06:39 Edited at: 25th Jun 2005 06:44

Link

Here is the link to the vector functions for dbc:
http://forum.thegamecreators.com/?m=forum_view&t=50609&b=10

Here is the link to the pick object\screen commands for dbc:
http://forum.thegamecreators.com/?m=forum_view&t=20490&b=5

---->http://www.freewebs.com/neodragon64<----

Back to top

Profile PM Email Website

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 14th Jul 2005 06:33

Link

I actually think I found another way. I'm still perfecting it but I think it is going well. I noticed that for every tile, at least a triangle of the tile is visible. So I basically drew lines between the three corners of the triangle and used < and > statements to see if the mouse is within the area I want it to be. I'll post the code when I'm done.

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 14th Jul 2005 06:38

Link

im making a matrix editor too, the way i did it is you move around a red object, and a blue object sorta follows you, but snaps to the tile your on, and youn just press mousekeys to chenge heights

http://forum.thegamecreators.com/?m=forum_view&t=57150&b=10

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 14th Jul 2005 22:43 Edited at: 14th Jul 2005 22:44

Link

what you could do is select a tile with a texture by moving the texture around and changing that tile

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 17th Jul 2005 02:25

Link

This is the code I use. Sorry, but the variables may be a little confusing.

TRINUM=TOTOBJ+1

FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

FOR ROWNUM=1 TO ZSEG#
         IF OBJNUM=(XSEG#+1)*(ROWNUM)+1 THEN GOTO EXEMPT3
      NEXT ROWNUM

OBJNUM2=OBJNUM+XSEG#+1
      OBJNUM3=OBJNUM+XSEG#+2

IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM2)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM3)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM2))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM2))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM3)-(SLOPE#*OBJECT SCREEN X(OBJNUM3))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM2)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

IF OBJECT SCREEN X(OBJNUM2)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM2)>OBJECT SCREEN X(OBJNUM)
            IF OBJECT SCREEN X(OBJNUM2)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM2)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM2)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM2)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
         IF YINT#>OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

TEXSTATE(TRINUM)=1
      NEXTTEX1:
      TRINUM=TRINUM+2
      EXEMPT3:

NEXT OBJNUM

TRINUM=TOTOBJ+2

FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

FOR ROWNUM=1 TO ZSEG#
         IF OBJNUM=(XSEG#+1)*(ROWNUM)+1 THEN GOTO EXEMPT4
      NEXT ROWNUM

OBJNUM2=OBJNUM+1
      OBJNUM3=OBJNUM+XSEG#+2

IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM2)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM3)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM2))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM2))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM3)-(SLOPE#*OBJECT SCREEN X(OBJNUM3))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM2)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

IF OBJECT SCREEN X(OBJNUM2)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM2)>OBJECT SCREEN X(OBJNUM)
            IF OBJECT SCREEN X(OBJNUM2)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM2)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM2)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM2)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
         IF YINT#>OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

TEXSTATE(TRINUM)=1
      NEXTTEX2:
      TRINUM=TRINUM+2
      EXEMPT4:

NEXT OBJNUM

+ Code Snippet

   TRINUM=TOTOBJ+1

   FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

      FOR ROWNUM=1 TO ZSEG#
         IF OBJNUM=(XSEG#+1)*(ROWNUM)+1 THEN GOTO EXEMPT3
      NEXT ROWNUM

      OBJNUM2=OBJNUM+XSEG#+1
      OBJNUM3=OBJNUM+XSEG#+2

      IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM2)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM3)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM2))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM2))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM3)-(SLOPE#*OBJECT SCREEN X(OBJNUM3))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

      IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM2)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

      IF OBJECT SCREEN X(OBJNUM2)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM2)>OBJECT SCREEN X(OBJNUM)
            IF OBJECT SCREEN X(OBJNUM2)<MOUSEX() THEN GOTO NEXTTEX1
         ELSE
            IF OBJECT SCREEN X(OBJNUM2)>MOUSEX() THEN GOTO NEXTTEX1
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM2)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM2)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
         IF YINT#>OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX1
         ENDIF
      ENDIF

      TEXSTATE(TRINUM)=1
      NEXTTEX1:
      TRINUM=TRINUM+2
      EXEMPT3:

   NEXT OBJNUM

   TRINUM=TOTOBJ+2

   FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

      FOR ROWNUM=1 TO ZSEG#
         IF OBJNUM=(XSEG#+1)*(ROWNUM)+1 THEN GOTO EXEMPT4
      NEXT ROWNUM

      OBJNUM2=OBJNUM+1
      OBJNUM3=OBJNUM+XSEG#+2

      IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM2)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM3)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM2))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM2))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM3)-(SLOPE#*OBJECT SCREEN X(OBJNUM3))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

      IF OBJECT SCREEN X(OBJNUM)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM)>OBJECT SCREEN X(OBJNUM2)
            IF OBJECT SCREEN X(OBJNUM)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
         IF YINT#>OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

      IF OBJECT SCREEN X(OBJNUM2)=OBJECT SCREEN X(OBJNUM3)
         IF OBJECT SCREEN X(OBJNUM2)>OBJECT SCREEN X(OBJNUM)
            IF OBJECT SCREEN X(OBJNUM2)<MOUSEX() THEN GOTO NEXTTEX2
         ELSE
            IF OBJECT SCREEN X(OBJNUM2)>MOUSEX() THEN GOTO NEXTTEX2
         ENDIF
      ELSE
         CHNGY#=(OBJECT SCREEN Y(OBJNUM2)-OBJECT SCREEN Y(OBJNUM3))
         CHNGX#=(OBJECT SCREEN X(OBJNUM2)-OBJECT SCREEN X(OBJNUM3))
         SLOPE#=CHNGY#/CHNGX#
         YINT#=OBJECT SCREEN Y(OBJNUM2)-(SLOPE#*OBJECT SCREEN X(OBJNUM2))
         IF YINT#>OBJECT SCREEN Y(OBJNUM)-(SLOPE#*OBJECT SCREEN X(OBJNUM))
            IF YINT#<MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ELSE
            IF YINT#>MOUSEY()-(SLOPE#*MOUSEX()) THEN GOTO NEXTTEX2
         ENDIF
      ENDIF

      TEXSTATE(TRINUM)=1
      NEXTTEX2:
      TRINUM=TRINUM+2
      EXEMPT4:

   NEXT OBJNUM

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 17th Sep 2005 19:05

Link

I realize it has been a while since I've posted to this thread but I'm having other issues involving vectors. The method I used above works just fine with some tweaking, but it just wasn't fast enough, so I decided to use vectors as NanoBrain suggested. I camer up with a code based on vectors, but there is something wrong with it and I just can't figure it out. This is the code I came up with:

`Calculate Plane Normals
         FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

IF OBJNUM=(XSEG#+1)*(ROWNUM)+1
              INC ROWNUM
              GOTO NEXTNORM
            ENDIF

OBJPOSX1#=OBJECT POSITION X(OBJNUM+XSEG#+1):OBJPOSY1#=OBJECT POSITION Y(OBJNUM+XSEG#+1):OBJPOSZ1#=OBJECT POSITION Z(OBJNUM+XSEG#+1)
            OBJPOSX2#=OBJECT POSITION X(OBJNUM):OBJPOSY2#=OBJECT POSITION Y(OBJNUM):OBJPOSZ2#=OBJECT POSITION Z(OBJNUM)
            OBJPOSX3#=OBJECT POSITION X(OBJNUM+XSEG#+2):OBJPOSY3#=OBJECT POSITION Y(OBJNUM+XSEG#+2):OBJPOSZ3#=OBJECT POSITION Z(OBJNUM+XSEG#+2)
            AX#=OBJPOSX1#-OBJPOSX2#
            AY#=OBJPOSY1#-OBJPOSY2#
            AZ#=OBJPOSZ1#-OBJPOSZ2#
            BX#=OBJPOSX3#-OBJPOSX2#
            BY#=OBJPOSY3#-OBJPOSY2#
            BZ#=OBJPOSZ3#-OBJPOSZ2#
            CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)
            NORMAL#(OBJNUM,1,0)=VECTOR#(0)
            NORMAL#(OBJNUM,1,1)=VECTOR#(1)
            NORMAL#(OBJNUM,1,2)=VECTOR#(2)
            NORMAL#(OBJNUM,1,3)=OBJECT POSITION X(OBJNUM)*NORMAL#(OBJNUM,1,0)+OBJECT POSITION Y(OBJNUM)*NORMAL#(OBJNUM,1,1)+OBJECT POSITION Z(OBJNUM)*NORMAL#(OBJNUM,1,2)

OBJPOSX1#=OBJECT POSITION X(OBJNUM+1):OBJPOSY1#=OBJECT POSITION Y(OBJNUM+1):OBJPOSZ1#=OBJECT POSITION Z(OBJNUM+1)
            OBJPOSX2#=OBJECT POSITION X(OBJNUM+XSEG#+2):OBJPOSY2#=OBJECT POSITION Y(OBJNUM+XSEG#+2):OBJPOSZ2#=OBJECT POSITION Z(OBJNUM+XSEG#+2 )
            OBJPOSX3#=OBJECT POSITION X(OBJNUM):OBJPOSY3#=OBJECT POSITION Y(OBJNUM):OBJPOSZ3#=OBJECT POSITION Z(OBJNUM)
            AX#=OBJPOSX1#-OBJPOSX2#
            AY#=OBJPOSY1#-OBJPOSY2#
            AZ#=OBJPOSZ1#-OBJPOSZ2#
            BX#=OBJPOSX3#-OBJPOSX2#
            BY#=OBJPOSY3#-OBJPOSY2#
            BZ#=OBJPOSZ3#-OBJPOSZ2#
            CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)
            NORMAL#(OBJNUM,2,0)=VECTOR#(0)
            NORMAL#(OBJNUM,2,1)=VECTOR#(1)
            NORMAL#(OBJNUM,2,2)=VECTOR#(2)
            NORMAL#(OBJNUM,2,3)=OBJECT POSITION X(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,0)+OBJECT POSITION Y(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,1)+OBJECT POSITION Z(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,2)

NEXTNORM:

NEXT OBJNUM

`Calculate where the mouse is relative to the matrix
   PICKSCREEN(MOUSEX(),MOUSEY())

CAMX#=CAMERA POSITION X()
   CAMY#=CAMERA POSITION Y()
   CAMZ#=CAMERA POSITION Z()

FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

IF OBJNUM=(XSEG#+1)*(ROWNUM)+1
         INC ROWNUM
         GOTO NEXTTEX
       ENDIF

CONSTANT#=NORMAL#(OBJNUM,1,3)-(CAMX#*NORMAL#(OBJNUM,1,0)+CAMY#*NORMAL#(OBJNUM,1,1)+CAMZ#*NORMAL#(OBJNUM,1,2))
      CONSTANT#=CONSTANT#/(VECTOR#(0)*NORMAL#(OBJNUM,1,0)+VECTOR#(1)*NORMAL#(OBJNUM,1,1)+VECTOR#(2)*NORMAL#(OBJNUM,1,2))

IF CLOSESTU#>0.0
         IF CONSTANT#<=0.0 OR CLOSESTU#>CONSTANT# THEN GOTO NEXTPLANE
      ELSE
         IF CONSTANT#<=0.0 THEN GOTO NEXTPLANE
      ENDIF

INTERCEPTX#=CAMX#+(CONSTANT#*VECTOR#(0))
      INTERCEPTZ#=CAMZ#+(CONSTANT#*VECTOR#(2))

IF INTERCEPTX#<OBJECT POSITION X(OBJNUM) OR INTERCEPTX#>OBJECT POSITION X(OBJNUM+1) THEN GOTO NEXTPLANE
      IF INTERCEPTZ#<OBJECT POSITION Z(OBJNUM) OR INTERCEPTZ#>OBJECT POSITION Z(OBJNUM+XSEG#+1) THEN GOTO NEXTPLANE
      IF ZINT#(OBJNUM)>INTERCEPTZ#-(INTERCEPTX#*SLOPE#) THEN GOTO NEXTPLANE

CLOSESTOBJ=OBJNUM
      CLOSESTU#=CONSTANT#

NEXTPLANE:

CONSTANT#=NORMAL#(OBJNUM,2,3)-(CAMX#*NORMAL#(OBJNUM,2,0)+CAMY#*NORMAL#(OBJNUM,2,1)+CAMZ#*NORMAL#(OBJNUM,2,2))
      CONSTANT#=CONSTANT#/(VECTOR#(0)*NORMAL#(OBJNUM,2,0)+VECTOR#(1)*NORMAL#(OBJNUM,2,1)+VECTOR#(2)*NORMAL#(OBJNUM,2,2))

IF CLOSESTU#>0.0
         IF CONSTANT#<=0.0 OR CLOSESTU#>CONSTANT# THEN GOTO NEXTTEX
      ELSE
         IF CONSTANT#<=0.0 THEN GOTO NEXTTEX
      ENDIF

INTERCEPTX#=CAMX#+(CONSTANT#*VECTOR#(0))
      INTERCEPTZ#=CAMZ#+(CONSTANT#*VECTOR#(2))

IF INTERCEPTX#<OBJECT POSITION X(OBJNUM) OR INTERCEPTX#>OBJECT POSITION X(OBJNUM+1) THEN GOTO NEXTTEX
      IF INTERCEPTZ#<OBJECT POSITION Z(OBJNUM) OR INTERCEPTZ#>OBJECT POSITION Z(OBJNUM+XSEG#+1) THEN GOTO NEXTTEX
      IF ZINT#(OBJNUM)<INTERCEPTZ#-(INTERCEPTX#*SLOPE#) THEN GOTO NEXTTEX

CLOSESTOBJ=OBJNUM
      CLOSESTU#=CONSTANT#

NEXTTEX:

NEXT OBJNUM

`functions
FUNCTION CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)

VECTOR#(0)=(AY#*BZ#)-(AZ#*BY#)
   VECTOR#(1)=(AZ#*BX#)-(AX#*BZ#)
   VECTOR#(2)=(AX#*BY#)-(AY#*BX#)

ENDFUNCTION

FUNCTION PICKSCREEN(XPOINT,YPOINT)

`  CALCULATE HALF THE SCREEN WIDTH AND HEIGHT
`  SUBTRACT 1 BECAUSE POINTS START AT (0,0), NOT (1,1)
   HALFSW#=(SCREEN WIDTH()-1)
   HALFSW#=HALFSW#/2
   HALFSH#=(SCREEN HEIGHT()-1)
   HALFSH#=HALFSH#/2

`  CALCULATE 3D COORDINATE OF SCREEN POINT ASSUMING CAMERA ISN'T ROTATED AND IS AT POSITION 0,0,0
   XPOINT#=XPOINT
   YPOINT#=YPOINT
   XPOINT#=XPOINT-HALFSW#
   YPOINT#=HALFSH#-YPOINT
   XVEC#=.8*(XPOINT#/HALFSW#)
   YVEC#=.6*(YPOINT#/HALFSH#)
   ZVEC#=1

`  CALCULATE LENGTH FROM CAMERA POINT TO 3D SCREEN POINT
   LENGTH#=SQRT((XVEC#*XVEC#)+(YVEC#*YVEC#)+(ZVEC#*ZVEC#))

`  MAKE VECTOR A UNIT VECTOR
   XVEC#=(XVEC#/LENGTH#)
   YVEC#=(YVEC#/LENGTH#)
   ZVEC#=(ZVEC#/LENGTH#)

`  CALULATE X-AXIS ROTATION RELATIVE TO CAMERA
   OLDY#=YVEC#
   OLDZ#=ZVEC#

YVEC#=(OLDY#*COS(CAMERA ANGLE X()))-(OLDZ#*SIN(CAMERA ANGLE X()))
   ZVEC#=(OLDY#*SIN(CAMERA ANGLE X()))+(OLDZ#*COS(CAMERA ANGLE X()))

`  CALCULATE Y-AXIS ROTATION RELATIVE TO CAMERA
   OLDX#=XVEC#
   OLDZ#=ZVEC#

XVEC#=(OLDX#*COS(CAMERA ANGLE Y()))+(OLDZ#*SIN(CAMERA ANGLE Y()))
   ZVEC#=(OLDZ#*COS(CAMERA ANGLE Y()))-(OLDX#*SIN(CAMERA ANGLE Y()))

`  CALCULATE Z-AXIS ROTATION RELATIVE TO CAMERA
   OLDX#=XVEC#
   OLDY#=YVEC#

XVEC#=(OLDX#*COS(CAMERA ANGLE Z()))-(OLDY#*SIN(CAMERA ANGLE Z()))
   YVEC#=(OLDX#*SIN(CAMERA ANGLE Z()))+(OLDY#*COS(CAMERA ANGLE Z()))

`  CALCULATE THE VECTOR RELATIVE TO THE STANDARD AXIS RATHER THAN RELATIVE TO THE CAMERA
   VECTOR#(0)=XVEC#+CAMERA POSITION X()
   VECTOR#(1)=YVEC#+CAMERA POSITION Y()
   VECTOR#(2)=ZVEC#+CAMERA POSITION Z()

ENDFUNCTION

+ Code Snippet

         `Calculate Plane Normals
         FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

            IF OBJNUM=(XSEG#+1)*(ROWNUM)+1
              INC ROWNUM
              GOTO NEXTNORM
            ENDIF

            OBJPOSX1#=OBJECT POSITION X(OBJNUM+XSEG#+1):OBJPOSY1#=OBJECT POSITION Y(OBJNUM+XSEG#+1):OBJPOSZ1#=OBJECT POSITION Z(OBJNUM+XSEG#+1)
            OBJPOSX2#=OBJECT POSITION X(OBJNUM):OBJPOSY2#=OBJECT POSITION Y(OBJNUM):OBJPOSZ2#=OBJECT POSITION Z(OBJNUM)
            OBJPOSX3#=OBJECT POSITION X(OBJNUM+XSEG#+2):OBJPOSY3#=OBJECT POSITION Y(OBJNUM+XSEG#+2):OBJPOSZ3#=OBJECT POSITION Z(OBJNUM+XSEG#+2)
            AX#=OBJPOSX1#-OBJPOSX2#
            AY#=OBJPOSY1#-OBJPOSY2#
            AZ#=OBJPOSZ1#-OBJPOSZ2#
            BX#=OBJPOSX3#-OBJPOSX2#
            BY#=OBJPOSY3#-OBJPOSY2#
            BZ#=OBJPOSZ3#-OBJPOSZ2#
            CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)
            NORMAL#(OBJNUM,1,0)=VECTOR#(0)
            NORMAL#(OBJNUM,1,1)=VECTOR#(1)
            NORMAL#(OBJNUM,1,2)=VECTOR#(2)
            NORMAL#(OBJNUM,1,3)=OBJECT POSITION X(OBJNUM)*NORMAL#(OBJNUM,1,0)+OBJECT POSITION Y(OBJNUM)*NORMAL#(OBJNUM,1,1)+OBJECT POSITION Z(OBJNUM)*NORMAL#(OBJNUM,1,2)

            OBJPOSX1#=OBJECT POSITION X(OBJNUM+1):OBJPOSY1#=OBJECT POSITION Y(OBJNUM+1):OBJPOSZ1#=OBJECT POSITION Z(OBJNUM+1)
            OBJPOSX2#=OBJECT POSITION X(OBJNUM+XSEG#+2):OBJPOSY2#=OBJECT POSITION Y(OBJNUM+XSEG#+2):OBJPOSZ2#=OBJECT POSITION Z(OBJNUM+XSEG#+2 )
            OBJPOSX3#=OBJECT POSITION X(OBJNUM):OBJPOSY3#=OBJECT POSITION Y(OBJNUM):OBJPOSZ3#=OBJECT POSITION Z(OBJNUM)
            AX#=OBJPOSX1#-OBJPOSX2#
            AY#=OBJPOSY1#-OBJPOSY2#
            AZ#=OBJPOSZ1#-OBJPOSZ2#
            BX#=OBJPOSX3#-OBJPOSX2#
            BY#=OBJPOSY3#-OBJPOSY2#
            BZ#=OBJPOSZ3#-OBJPOSZ2#
            CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)
            NORMAL#(OBJNUM,2,0)=VECTOR#(0)
            NORMAL#(OBJNUM,2,1)=VECTOR#(1)
            NORMAL#(OBJNUM,2,2)=VECTOR#(2)
            NORMAL#(OBJNUM,2,3)=OBJECT POSITION X(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,0)+OBJECT POSITION Y(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,1)+OBJECT POSITION Z(OBJNUM+XSEG#+2)*NORMAL#(OBJNUM,2,2)

            NEXTNORM:

         NEXT OBJNUM


   `Calculate where the mouse is relative to the matrix
   PICKSCREEN(MOUSEX(),MOUSEY())

   CAMX#=CAMERA POSITION X()
   CAMY#=CAMERA POSITION Y()
   CAMZ#=CAMERA POSITION Z()

   FOR OBJNUM=2 TO TOTOBJ-XSEG#-1

       IF OBJNUM=(XSEG#+1)*(ROWNUM)+1
         INC ROWNUM
         GOTO NEXTTEX
       ENDIF

      CONSTANT#=NORMAL#(OBJNUM,1,3)-(CAMX#*NORMAL#(OBJNUM,1,0)+CAMY#*NORMAL#(OBJNUM,1,1)+CAMZ#*NORMAL#(OBJNUM,1,2))
      CONSTANT#=CONSTANT#/(VECTOR#(0)*NORMAL#(OBJNUM,1,0)+VECTOR#(1)*NORMAL#(OBJNUM,1,1)+VECTOR#(2)*NORMAL#(OBJNUM,1,2))

      IF CLOSESTU#>0.0
         IF CONSTANT#<=0.0 OR CLOSESTU#>CONSTANT# THEN GOTO NEXTPLANE
      ELSE
         IF CONSTANT#<=0.0 THEN GOTO NEXTPLANE
      ENDIF

      INTERCEPTX#=CAMX#+(CONSTANT#*VECTOR#(0))
      INTERCEPTZ#=CAMZ#+(CONSTANT#*VECTOR#(2))

      IF INTERCEPTX#<OBJECT POSITION X(OBJNUM) OR INTERCEPTX#>OBJECT POSITION X(OBJNUM+1) THEN GOTO NEXTPLANE
      IF INTERCEPTZ#<OBJECT POSITION Z(OBJNUM) OR INTERCEPTZ#>OBJECT POSITION Z(OBJNUM+XSEG#+1) THEN GOTO NEXTPLANE
      IF ZINT#(OBJNUM)>INTERCEPTZ#-(INTERCEPTX#*SLOPE#) THEN GOTO NEXTPLANE

      CLOSESTOBJ=OBJNUM
      CLOSESTU#=CONSTANT#

      NEXTPLANE:

      CONSTANT#=NORMAL#(OBJNUM,2,3)-(CAMX#*NORMAL#(OBJNUM,2,0)+CAMY#*NORMAL#(OBJNUM,2,1)+CAMZ#*NORMAL#(OBJNUM,2,2))
      CONSTANT#=CONSTANT#/(VECTOR#(0)*NORMAL#(OBJNUM,2,0)+VECTOR#(1)*NORMAL#(OBJNUM,2,1)+VECTOR#(2)*NORMAL#(OBJNUM,2,2))

      IF CLOSESTU#>0.0
         IF CONSTANT#<=0.0 OR CLOSESTU#>CONSTANT# THEN GOTO NEXTTEX
      ELSE
         IF CONSTANT#<=0.0 THEN GOTO NEXTTEX
      ENDIF

      INTERCEPTX#=CAMX#+(CONSTANT#*VECTOR#(0))
      INTERCEPTZ#=CAMZ#+(CONSTANT#*VECTOR#(2))

      IF INTERCEPTX#<OBJECT POSITION X(OBJNUM) OR INTERCEPTX#>OBJECT POSITION X(OBJNUM+1) THEN GOTO NEXTTEX
      IF INTERCEPTZ#<OBJECT POSITION Z(OBJNUM) OR INTERCEPTZ#>OBJECT POSITION Z(OBJNUM+XSEG#+1) THEN GOTO NEXTTEX
      IF ZINT#(OBJNUM)<INTERCEPTZ#-(INTERCEPTX#*SLOPE#) THEN GOTO NEXTTEX

      CLOSESTOBJ=OBJNUM
      CLOSESTU#=CONSTANT#

      NEXTTEX:

   NEXT OBJNUM

`functions
FUNCTION CROSS PRODUCT(AX#,AY#,AZ#,BX#,BY#,BZ#)

   VECTOR#(0)=(AY#*BZ#)-(AZ#*BY#)
   VECTOR#(1)=(AZ#*BX#)-(AX#*BZ#)
   VECTOR#(2)=(AX#*BY#)-(AY#*BX#)

ENDFUNCTION


FUNCTION PICKSCREEN(XPOINT,YPOINT)

`  CALCULATE HALF THE SCREEN WIDTH AND HEIGHT
`  SUBTRACT 1 BECAUSE POINTS START AT (0,0), NOT (1,1)
   HALFSW#=(SCREEN WIDTH()-1)
   HALFSW#=HALFSW#/2
   HALFSH#=(SCREEN HEIGHT()-1)
   HALFSH#=HALFSH#/2

`  CALCULATE 3D COORDINATE OF SCREEN POINT ASSUMING CAMERA ISN'T ROTATED AND IS AT POSITION 0,0,0
   XPOINT#=XPOINT
   YPOINT#=YPOINT
   XPOINT#=XPOINT-HALFSW#
   YPOINT#=HALFSH#-YPOINT
   XVEC#=.8*(XPOINT#/HALFSW#)
   YVEC#=.6*(YPOINT#/HALFSH#)
   ZVEC#=1

`  CALCULATE LENGTH FROM CAMERA POINT TO 3D SCREEN POINT
   LENGTH#=SQRT((XVEC#*XVEC#)+(YVEC#*YVEC#)+(ZVEC#*ZVEC#))

`  MAKE VECTOR A UNIT VECTOR
   XVEC#=(XVEC#/LENGTH#)
   YVEC#=(YVEC#/LENGTH#)
   ZVEC#=(ZVEC#/LENGTH#)

`  CALULATE X-AXIS ROTATION RELATIVE TO CAMERA
   OLDY#=YVEC#
   OLDZ#=ZVEC#

   YVEC#=(OLDY#*COS(CAMERA ANGLE X()))-(OLDZ#*SIN(CAMERA ANGLE X()))
   ZVEC#=(OLDY#*SIN(CAMERA ANGLE X()))+(OLDZ#*COS(CAMERA ANGLE X()))

`  CALCULATE Y-AXIS ROTATION RELATIVE TO CAMERA
   OLDX#=XVEC#
   OLDZ#=ZVEC#

   XVEC#=(OLDX#*COS(CAMERA ANGLE Y()))+(OLDZ#*SIN(CAMERA ANGLE Y()))
   ZVEC#=(OLDZ#*COS(CAMERA ANGLE Y()))-(OLDX#*SIN(CAMERA ANGLE Y()))

`  CALCULATE Z-AXIS ROTATION RELATIVE TO CAMERA
   OLDX#=XVEC#
   OLDY#=YVEC#

   XVEC#=(OLDX#*COS(CAMERA ANGLE Z()))-(OLDY#*SIN(CAMERA ANGLE Z()))
   YVEC#=(OLDX#*SIN(CAMERA ANGLE Z()))+(OLDY#*COS(CAMERA ANGLE Z()))

`  CALCULATE THE VECTOR RELATIVE TO THE STANDARD AXIS RATHER THAN RELATIVE TO THE CAMERA
   VECTOR#(0)=XVEC#+CAMERA POSITION X()
   VECTOR#(1)=YVEC#+CAMERA POSITION Y()
   VECTOR#(2)=ZVEC#+CAMERA POSITION Z()

ENDFUNCTION

The PickScreen() function is the same one I posted in the codebase but I reformed it so it always calculates a unit vector. Also, note that I have placed an object at the matrix vertices and the variable TOTOBJ refers to the number of objects on the vertices. Also, NORMAL(objnum,1,3) and NORMAL(objnum,2,3) are the K constants in the plane equation found in the website NanoBrain gave above. Basically what I am trying to do with this code is find out if (1) The vector the mouse directs from the camera intercepts each individual plane of the matrix and (2) If the vector intercepts the matrix between the three points of a matrix plane. I realize this is somewhat of a long code and post and I thank you in advance for any assistance you can render.

The force will be with you. Always.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Matrix Tile Selecting