detection of mouse on side A or B on a cube/block, how?

Author

Message

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 2nd May 2010 00:25

Link

how can i detect where my mouse is on side A or B or any face of a block/cube?
i tried with this but thats seems not precise enough:

+ Code Snippet

posX = get pick vector x()+camera position x(0)
posY = get pick vector y()+camera position y(0)
posZ = get pick vector z()+camera position z(0)

is there some alternative code what i can use? (if there any)

help is appreciated

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 2nd May 2010 02:15

Link

I`m not familiar with using vectors but first thing i get in my head was some dummy objects infront of each side of the cube.Plains for example with the same size of cube`s side.You can hide them and check if mouse is on dummy A or dummy B.Also if there is some changes in movement or rotation of the actuall object you need to apply it to dummy objects too.I`m just not sure if there is any build in commands that can tell you witch side you are working with.Possibly there isn`t any.

I`m not suggesting this method for something than can become more and more complicated in time.And there can be better way to do this.

There can be few ways to do the job.What you need really is the way that involves less coding, because it save time, it`s not too complicated and provide much performance.I allways bet on performance, you never knew how much free power you`ll need in future.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 2nd May 2010 13:49

Link

ty, for your quick answer

Quote: "some dummy objects infront of each side of the cube.Plains for example with the same size of cube`s side"

yes thats what i thought too. but then i thought it will be complicated. but if theres no further alternative i have to stick on your idea.

luckily theres no rotation/movement involved.

if theres someone else who think different on it, i really like to hear that too

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 2nd May 2010 18:33

Link

You can wait for someone to join here with another idea, but what i think accordingly to what you said that there is no movment or rotation involved is that you can completly abandon the cube and instead build it from plains positioned in such way that they can form it.This can be complicated too, but maybe better way to do the job.What you`ll use the cube for?

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 2nd May 2010 20:31

Link

well iam gonna try to explain it:

iam making a editor where you can only click/snap on a blue connector. (you know Construx? thats what my editor is about)
now i can click on a face of a blue connector and not always is the beam positioned on the right position. thats why i try to find a solution for this.

but its not one connector there are many of them. and thats making it complex... and dont know how to solve that.

hope you understand it a little, if not i try it in the next post.

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 4th May 2010 01:45 Edited at: 4th May 2010 03:19

Link

I`m not familiar with Construx but maybe get the main idea.You maybe consider on my suggestion, but using many connectors make the task hard and extremely insane.

There is maybe solution.With the plains idea in mind you can make check for object behind the mouse "pick object" involved.If the object is a connector you move plains on it.If your mouse hover on another connector object you move the plains again.This eliminate the need of plains on every connector to exist at any time, but just when they are needed.At any moment you`ll need maximum of 6 plains, assuming you can rotate the camera and view the connector from any angle.

I can try to make a demo, but it`s late now and there is no design of what i need to do in my head.I`ll try prima vista.The real deal tommorow maybe.

EDIT: Try this code to see if it gona work for you like this.
Before compiling it be sure to make 1 image in paint exactly black and if you want you can do it 1x1 pxl.

sync on : sync rate 60
backdrop on
set image colorkey 0,0,0
load image "black.bmp",1

CubeSize = 10
CubeX = 0
CubeY = 0
CubeZ = 0
make object cube 1,CubeSize
make camera 1
position camera 1,0,30,-200
for plain = 100 to 105
   make object plain plain,10,10
   set object plain,1,1,0,1,0
   texture object plain,1
   set object transparency plain,1
next plain

do

text 0,0,"fps: "+str$(screen fps())
text 0,20,"connector: "+str$(connector)
text 0,40,"side: "+str$(side)

control camera using arrowkeys 1,1,1

connector = pick object (mousex(),mousey(),1,1)
side = pick object (mousex(),mousey(),100,105)
if connector>0
position object 100,CubeX-(CubeSize*0.5),CubeY,CubeZ
rotate object 100,0,90,0

position object 101,CubeX+(CubeSize*0.5),CubeY,CubeZ
rotate object 101,0,90,0

position object 102,CubeX,CubeY-(CubeSize*0.5),CubeZ
rotate object 102,0,90,90

position object 103,CubeX,CubeY+(CubeSize*0.5),CubeZ
rotate object 103,0,90,90

position object 104,CubeX,CubeY,CubeZ-(CubeSize*0.5)
rotate object 104,0,0,0

position object 105,CubeX,CubeY,CubeZ+(CubeSize*0.5)
rotate object 105,0,0,0
endif

sync
loop

+ Code Snippet

sync on : sync rate 60
backdrop on
set image colorkey 0,0,0
load image "black.bmp",1

CubeSize = 10
CubeX = 0
CubeY = 0
CubeZ = 0
make object cube 1,CubeSize
make camera 1
position camera 1,0,30,-200
for plain = 100 to 105
   make object plain plain,10,10
   set object plain,1,1,0,1,0
   texture object plain,1
   set object transparency plain,1
next plain

do

text 0,0,"fps: "+str$(screen fps())
text 0,20,"connector: "+str$(connector)
text 0,40,"side: "+str$(side)

control camera using arrowkeys 1,1,1

connector = pick object (mousex(),mousey(),1,1)
side = pick object (mousex(),mousey(),100,105)
if connector>0
position object 100,CubeX-(CubeSize*0.5),CubeY,CubeZ
rotate object 100,0,90,0

position object 101,CubeX+(CubeSize*0.5),CubeY,CubeZ
rotate object 101,0,90,0

position object 102,CubeX,CubeY-(CubeSize*0.5),CubeZ
rotate object 102,0,90,90

position object 103,CubeX,CubeY+(CubeSize*0.5),CubeZ
rotate object 103,0,90,90

position object 104,CubeX,CubeY,CubeZ-(CubeSize*0.5)
rotate object 104,0,0,0

position object 105,CubeX,CubeY,CubeZ+(CubeSize*0.5)
rotate object 105,0,0,0
endif

   sync
loop

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 4th May 2010 04:57

Link

+ Code Snippet

      obj=pick object(mousex(),mousey(),0,10000)
      if obj>=G.firstCon and obj<=G.firstCon+G.maxCon
         conNum=obj-G.firstCon
         x=get pick vector x()+camera position x()-connector(conNum).x
         nx=sign(x)
         x=x*nx
         y=get pick vector y()+camera position y()-connector(conNum).y
         ny=sign(y)
         y=y*ny
         z=get pick vector z()+camera position z()-connector(conNum).z
         nz=sign(z)
         z=z*nz
         if x=maxmum(x,maxmum(y,z))
            buildUponConnector(conNum,intternary(intequals(nx,-1),1,2),1)
         else
            if y=maxmum(x,maxmum(y,z))
               buildUponConnector(conNum,intternary(intequals(ny,-1),1,2),2)
            else
               if z=maxmum(x,maxmum(y,z))
                  buildUponConnector(conNum,intternary(intequals(nz,-1),1,2),3)
               endif
            endif
         endif
      endif

I was sure that would work, but you're right, pick vector doesn't seem to be accurate enough (or is returning the actual location of the object :/) Man... I was bored so I made a program of my own to do this. Whole code:

type info
   conNum as integer `number of connectors
   rodNum as integer `number of rodz
   maxCon as integer `maximum number of connectors
   firstCon as integer `start range of connectors
   conSize as float `size of the connectors (they're cubes
   rodLen as float `size of the connecting rods
endtype
type connectorInfo
   xoff as float
   yoff as float
   zoff as float
   xrot as float
   yrot as float
endtype
type connector
   x as float
   y as float
   z as float
   memblocknum as integer `using a memblock to store which objects are attached. Easier to work with.
   `memblock will have room for 12 words. one for each possible connector/connectorrod space.
endtype
type connectorRod
   x as float
   y as float
   z as float
   objnum as integer
   oneCon as integer
   xrot as float
   yrot as float
   zrot as float
endtype

autocam off
global dim connector(0) as connector
global dim connectorRod(0) as connectorRod

initialize_G()
initialize_rot()

createConnector(0,0,0)
for x=1 to 2
   for y=1 to 3
      buildUponConnector(1,x,y)
   next
next
click=0
do
   yrotate camera 0,camera angle y()+mousemovex()/5.0
   xrotate camera 0,camera angle x()+mousemovey()/5.0
   move camera 0,(upkey()-downkey())*.005
   if mouseclick()=1 and click=0
      click=1
      obj=pick object(mousex(),mousey(),0,10000)
      if obj>=G.firstCon and obj<=G.firstCon+G.maxCon
         conNum=obj-G.firstCon
         x=get pick vector x()+camera position x()-connector(conNum).x
         nx=sign(x)
         x=x*nx
         y=get pick vector y()+camera position y()-connector(conNum).y
         ny=sign(y)
         y=y*ny
         z=get pick vector z()+camera position z()-connector(conNum).z
         nz=sign(z)
         z=z*nz
         if x=maxmum(x,maxmum(y,z))
            buildUponConnector(conNum,intternary(intequals(nx,-1),1,2),1)
         else
            if y=maxmum(x,maxmum(y,z))
               buildUponConnector(conNum,intternary(intequals(ny,-1),1,2),2)
            else
               if z=maxmum(x,maxmum(y,z))
                  buildUponConnector(conNum,intternary(intequals(nz,-1),1,2),3)
               endif
            endif
         endif
      endif
   endif
   if mouseclick()=0 then click=0
   sync
loop
end
function maxmum(a as float, b as float)
   if a>b then exitfunction a
endfunction b
function sign(n as float)
   if n>0 then exitfunction 1
   if n<0 then exitfunction -1
endfunction 0
function makeImageStuff()
   cls rgb(125,125,255)
   ink rgb(0,0,0),rgb(0,0,0)
   for n=30 to 40
      circle 50,50,n
   next n
   get image 1,1,1,100,100
   cls
endfunction
function buildUponConnector(conNum as integer,a1 as integer, a2 as integer)
   createConnectorRod(conNum,a1,a2)
   createConnector(ternary(equals(rotInfo(a1,a2).xoff,0),connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).yoff,0),connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).zoff,0),connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*.05))
   `G.conNum and G.rodNum still have the objects created in the last lines
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1),G.rodNum `store the rodnum in the new connector
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1)+2,conNum `store the other connector in the new connector
   write memblock word connector(conNum).memblocknum,4*((a1-1)*3+a2-1)+2,G.conNum   `store the new connector in the one we're adding to
   `rotInfo(3-a1,a2) gives the opposite direction as rotInfo(a1,a2)
endfunction
function equals(a as float, b as float)
   if a=b then exitfunction 1
endfunction 0
function intequals(a as integer,b as integer)
   if a=b then exitfunction 1
endfunction 0
function removeConnector(conNum as integer)
   for x=0 to 5
      a=memblock word(connector(conNum).memblocknum,4*x)
      b=memblock word(connector(conNum).memblocknum,4*x+2)
      if a>0
         delete object connectorRod(a).objnum
         for n=0 to 5
            if memblock word(connector(b).memblocknum,4*n+2)=conNum
               write memblock dword connector(b).memblocknum,4*n,0
            endif
         next
      endif
   next x
   delete object conNum-G.firstCon
   array delete element connector(),conNum
endfunction
function removeRod(objNum as integer)
   for x=1 to G.rodNum
      if connectorRod(x).objnum=objNum
         conNum=connectorRod(x).oneCon
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               conNum=memblock word(connector(conNum).memblocknum,4*n+2)
               break
            endif
         next n
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               break
            endif
         next n

delete object objNum
         array delete element connectorRod(),x
         break
      endif
   next x
endfunction
function createConnectorRod(conNum as integer,a1 as integer, a2 as integer)
   array insert at bottom connectorRod()
   inc G.rodNum
   obj=find free object(G.maxCon+G.firstCon+1, 1000000)
   make object box obj,G.conSize,G.conSize,G.rodLen
   connectorRod(G.rodNum).objnum=obj
   connectorRod(G.rodNum).xrot=rotInfo(a1,a2).xrot
   connectorRod(G.rodNum).yrot=rotInfo(a1,a2).yrot
   connectorRod(G.rodNum).zrot=0
   rotate object obj,rotInfo(a1,a2).xrot,rotInfo(a1,a2).yrot,0
   connectorRod(G.rodNum).x=ternary(rotInfo(a1,a2).xoff=0,connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*0.5*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*0.5)
   connectorRod(G.rodNum).y=ternary(rotInfo(a1,a2).yoff=0,connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*0.5*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*0.5)
   connectorRod(G.rodNum).z=ternary(rotInfo(a1,a2).zoff=0,connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*0.5*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*0.5)
   position object obj,connectorRod(G.rodNum).x,connectorRod(G.rodNum).y,connectorRod(G.rodNum).z
   connectorRod(G.rodNum).oneCon=conNum
   write memblock word connector(conNum).memblocknum, 4*((a1-1)*3+a2-1), G.rodNum
endfunction
function ternary(a as boolean, b as float, c as float)
   if a then exitfunction b
endfunction c
function intternary(a as boolean, b as integer, c as integer)
   if a then exitfunction b
endfunction c
function createConnector(x as float, y as float, z as float)
   inc G.conNum,1
   make object cube G.conNum+G.firstCon,G.conSize+.05
   position object G.conNum+G.firstCon,x,y,z
   texture object G.conNum+G.firstCon,1
   color object G.connum+G.firstCon,rgb(0,0,255)
   array insert at bottom connector()
   connector(G.conNum).x=x
   connector(G.conNum).y=y
   connector(G.conNum).z=z
   connector(G.conNum).memblocknum=find free memblock()
   make memblock connector(G.conNum).memblocknum,2*12
   for x=0 to 23
      write memblock byte connector(G.conNum).memblocknum,x,0
   next x
endfunction

function initialize_G()
   global G as info
   G.conNum=0
   G.rodNum=0
   G.firstCon=1
   G.maxCon=100
   G.conSize=.2
   G.rodLen=1
endfunction

function initialize_rot()
   global dim rotInfo(2,3) as connectorInfo
   for x=1 to 2 `I don't think you have to initialize this but... meh.
      for y=1 to 3
         rotInfo(x,y).xoff=0
         rotInfo(x,y).yoff=0
         rotInfo(x,y).zoff=0
         rotInfo(x,y).xrot=0
         rotInfo(x,y).yrot=0
      next y
   next x
   `(1,1->3) is negative x, y, and z (for (1,1),(1,2),(1,3) respectively)
   `(2,1->3) is positive x, y, and z
   rotInfo(1,1).xoff=-1
   rotInfo(2,1).xoff= 1
   rotInfo(1,2).yoff=-1
   rotInfo(2,2).yoff= 1
   rotInfo(1,3).zoff=-1
   rotInfo(2,3).zoff= 1

rotInfo(1,1).yrot=90 `negative signs are trivial since we're dealing with two sided planes, but consistency is nice.
   rotInfo(2,1).yrot=-90
   rotInfo(1,2).xrot=90
   rotInfo(2,2).xrot=-90
   rotInfo(1,3).yrot=0
   rotInfo(2,3).yrot=180
endfunction

+ Code Snippet

type info
   conNum as integer `number of connectors
   rodNum as integer `number of rodz
   maxCon as integer `maximum number of connectors
   firstCon as integer `start range of connectors
   conSize as float `size of the connectors (they're cubes
   rodLen as float `size of the connecting rods
endtype
type connectorInfo
   xoff as float
   yoff as float
   zoff as float
   xrot as float
   yrot as float
endtype
type connector
   x as float
   y as float
   z as float
   memblocknum as integer `using a memblock to store which objects are attached. Easier to work with.
   `memblock will have room for 12 words. one for each possible connector/connectorrod space.
endtype
type connectorRod
   x as float
   y as float
   z as float
   objnum as integer
   oneCon as integer
   xrot as float
   yrot as float
   zrot as float
endtype

autocam off
global dim connector(0) as connector
global dim connectorRod(0) as connectorRod

initialize_G()
initialize_rot()

createConnector(0,0,0)
for x=1 to 2
   for y=1 to 3
      buildUponConnector(1,x,y)
   next
next
click=0
do
   yrotate camera 0,camera angle y()+mousemovex()/5.0
   xrotate camera 0,camera angle x()+mousemovey()/5.0
   move camera 0,(upkey()-downkey())*.005
   if mouseclick()=1 and click=0
      click=1
      obj=pick object(mousex(),mousey(),0,10000)
      if obj>=G.firstCon and obj<=G.firstCon+G.maxCon
         conNum=obj-G.firstCon
         x=get pick vector x()+camera position x()-connector(conNum).x
         nx=sign(x)
         x=x*nx
         y=get pick vector y()+camera position y()-connector(conNum).y
         ny=sign(y)
         y=y*ny
         z=get pick vector z()+camera position z()-connector(conNum).z
         nz=sign(z)
         z=z*nz
         if x=maxmum(x,maxmum(y,z))
            buildUponConnector(conNum,intternary(intequals(nx,-1),1,2),1)
         else
            if y=maxmum(x,maxmum(y,z))
               buildUponConnector(conNum,intternary(intequals(ny,-1),1,2),2)
            else
               if z=maxmum(x,maxmum(y,z))
                  buildUponConnector(conNum,intternary(intequals(nz,-1),1,2),3)
               endif
            endif
         endif
      endif
   endif
   if mouseclick()=0 then click=0
   sync
loop
end
function maxmum(a as float, b as float)
   if a>b then exitfunction a
endfunction b
function sign(n as float)
   if n>0 then exitfunction 1
   if n<0 then exitfunction -1
endfunction 0
function makeImageStuff()
   cls rgb(125,125,255)
   ink rgb(0,0,0),rgb(0,0,0)
   for n=30 to 40
      circle 50,50,n
   next n
   get image 1,1,1,100,100
   cls
endfunction
function buildUponConnector(conNum as integer,a1 as integer, a2 as integer)
   createConnectorRod(conNum,a1,a2)
   createConnector(ternary(equals(rotInfo(a1,a2).xoff,0),connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).yoff,0),connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).zoff,0),connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*.05))
   `G.conNum and G.rodNum still have the objects created in the last lines
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1),G.rodNum `store the rodnum in the new connector
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1)+2,conNum `store the other connector in the new connector
   write memblock word connector(conNum).memblocknum,4*((a1-1)*3+a2-1)+2,G.conNum   `store the new connector in the one we're adding to
   `rotInfo(3-a1,a2) gives the opposite direction as rotInfo(a1,a2)
endfunction
function equals(a as float, b as float)
   if a=b then exitfunction 1
endfunction 0
function intequals(a as integer,b as integer)
   if a=b then exitfunction 1
endfunction 0
function removeConnector(conNum as integer)
   for x=0 to 5
      a=memblock word(connector(conNum).memblocknum,4*x)
      b=memblock word(connector(conNum).memblocknum,4*x+2)
      if a>0
         delete object connectorRod(a).objnum
         for n=0 to 5
            if memblock word(connector(b).memblocknum,4*n+2)=conNum
               write memblock dword connector(b).memblocknum,4*n,0
            endif
         next
      endif
   next x
   delete object conNum-G.firstCon
   array delete element connector(),conNum
endfunction
function removeRod(objNum as integer)
   for x=1 to G.rodNum
      if connectorRod(x).objnum=objNum
         conNum=connectorRod(x).oneCon
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               conNum=memblock word(connector(conNum).memblocknum,4*n+2)
               break
            endif
         next n
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               break
            endif
         next n

         delete object objNum
         array delete element connectorRod(),x
         break
      endif
   next x
endfunction
function createConnectorRod(conNum as integer,a1 as integer, a2 as integer)
   array insert at bottom connectorRod()
   inc G.rodNum
   obj=find free object(G.maxCon+G.firstCon+1, 1000000)
   make object box obj,G.conSize,G.conSize,G.rodLen
   connectorRod(G.rodNum).objnum=obj
   connectorRod(G.rodNum).xrot=rotInfo(a1,a2).xrot
   connectorRod(G.rodNum).yrot=rotInfo(a1,a2).yrot
   connectorRod(G.rodNum).zrot=0
   rotate object obj,rotInfo(a1,a2).xrot,rotInfo(a1,a2).yrot,0
   connectorRod(G.rodNum).x=ternary(rotInfo(a1,a2).xoff=0,connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*0.5*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*0.5)
   connectorRod(G.rodNum).y=ternary(rotInfo(a1,a2).yoff=0,connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*0.5*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*0.5)
   connectorRod(G.rodNum).z=ternary(rotInfo(a1,a2).zoff=0,connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*0.5*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*0.5)
   position object obj,connectorRod(G.rodNum).x,connectorRod(G.rodNum).y,connectorRod(G.rodNum).z
   connectorRod(G.rodNum).oneCon=conNum
   write memblock word connector(conNum).memblocknum, 4*((a1-1)*3+a2-1), G.rodNum
endfunction
function ternary(a as boolean, b as float, c as float)
   if a then exitfunction b
endfunction c
function intternary(a as boolean, b as integer, c as integer)
   if a then exitfunction b
endfunction c
function createConnector(x as float, y as float, z as float)
   inc G.conNum,1
   make object cube G.conNum+G.firstCon,G.conSize+.05
   position object G.conNum+G.firstCon,x,y,z
   texture object G.conNum+G.firstCon,1
   color object G.connum+G.firstCon,rgb(0,0,255)
   array insert at bottom connector()
   connector(G.conNum).x=x
   connector(G.conNum).y=y
   connector(G.conNum).z=z
   connector(G.conNum).memblocknum=find free memblock()
   make memblock connector(G.conNum).memblocknum,2*12
   for x=0 to 23
      write memblock byte connector(G.conNum).memblocknum,x,0
   next x
endfunction

function initialize_G()
   global G as info
   G.conNum=0
   G.rodNum=0
   G.firstCon=1
   G.maxCon=100
   G.conSize=.2
   G.rodLen=1
endfunction

function initialize_rot()
   global dim rotInfo(2,3) as connectorInfo
   for x=1 to 2 `I don't think you have to initialize this but... meh.
      for y=1 to 3
         rotInfo(x,y).xoff=0
         rotInfo(x,y).yoff=0
         rotInfo(x,y).zoff=0
         rotInfo(x,y).xrot=0
         rotInfo(x,y).yrot=0
      next y
   next x
   `(1,1->3) is negative x, y, and z (for (1,1),(1,2),(1,3) respectively)
   `(2,1->3) is positive x, y, and z
   rotInfo(1,1).xoff=-1
   rotInfo(2,1).xoff= 1
   rotInfo(1,2).yoff=-1
   rotInfo(2,2).yoff= 1
   rotInfo(1,3).zoff=-1
   rotInfo(2,3).zoff= 1

   rotInfo(1,1).yrot=90 `negative signs are trivial since we're dealing with two sided planes, but consistency is nice.
   rotInfo(2,1).yrot=-90
   rotInfo(1,2).xrot=90
   rotInfo(2,2).xrot=-90
   rotInfo(1,3).yrot=0
   rotInfo(2,3).yrot=180
endfunction

I guess trying to math this one out would be too annoying. Without using a plugin, I think dummy objects + pick object is the way to do this. I g2g for now but when I get back to my computer i'll try to implement something.

Back to top

Profile PM Email

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 4th May 2010 11:59 Edited at: 4th May 2010 19:42

Link

@luskos

wow nice and simple

that should do it, iam gonna try to implement that in my program today. if i get it work/not work i will post it in this thread.

@neuro fuzzy

i try to understand your code, but i dont understand... on the other hand i learned from your code about types and memblocks and some other stuff. maybe i should rewrite some of my code...

EDIT:

luskos, after many trial and error, i got it working now

and its working perfectly!

many many thanx to you luskos!

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 5th May 2010 02:24 Edited at: 5th May 2010 11:58

Link

It`s normal to work because i design it to be simple.

After i post the code i realised that it`s not actually what i was intended to show you, it`s just not that advanced, but it was too late so i just post it as it is.I wanted to make few cubes which can show you it`s actually working.It was writen with the idea to be plug and play code.

And it`s normal to understand me better than NeuroFuzzy because i think he is more profisient coder and i`m still learning.He is good, really.But his code is somehow complicated, which he must be aware helping to newbies.I think his snippet here is more a show-off than help.This is hobby for me and i realised that i am good enough to enterain myself and help others.

You can still show here your modifications on the code here, i`m curious if you do them the same way i would.

sync on : sync rate 60
backdrop on

`set image colorkey 0,0,0

load image "black.bmp",1

CubeSize = 10
CubeX = 0
CubeY = 0
CubeZ = 0

for cube = 1 to 7
   make object cube cube,CubeSize
   position object cube,20*cube-80,0,0
next cube

make camera 1

position camera 1,0,30,-100

for plain = 100 to 105
   make object plain plain,10,10
   `set object plain,1,1,0,1,0
   texture object plain,1
   `set object transparency plain,1
next plain

do

text 0,0,"fps: "+str$(screen fps())
text 0,20,"connector: "+str$(connector)
text 0,40,"side: "+str$(side)

control camera using arrowkeys 1,1,1

connector = pick object (mousex(),mousey(),1,7)

side = pick object (mousex(),mousey(),100,105)

if connector>0

for plain = 100 to 105
   show object plain
next plain

CubeX = object position x(connector)
CubeY = object position y(connector)
CubeZ = object position z(connector)

position object 100,CubeX-(CubeSize*0.5)-1,CubeY,CubeZ
rotate object 100,0,90,0

position object 101,CubeX+(CubeSize*0.5)+1,CubeY,CubeZ
rotate object 101,0,90,0

position object 102,CubeX,CubeY-(CubeSize*0.5)-1,CubeZ
rotate object 102,0,90,90

position object 103,CubeX,CubeY+(CubeSize*0.5)+1,CubeZ
rotate object 103,0,90,90

position object 104,CubeX,CubeY,CubeZ-(CubeSize*0.5)-1
rotate object 104,0,0,0

position object 105,CubeX,CubeY,CubeZ+(CubeSize*0.5)+1
rotate object 105,0,0,0
endif
if connector = 0
for plain = 100 to 105
   hide object plain
next plain
endif

sync
loop

+ Code Snippet

sync on : sync rate 60
backdrop on

`set image colorkey 0,0,0

load image "black.bmp",1

CubeSize = 10
CubeX = 0
CubeY = 0
CubeZ = 0

for cube = 1 to 7
   make object cube cube,CubeSize
   position object cube,20*cube-80,0,0
next cube

make camera 1

position camera 1,0,30,-100

for plain = 100 to 105
   make object plain plain,10,10
   `set object plain,1,1,0,1,0
   texture object plain,1
   `set object transparency plain,1
next plain

do

text 0,0,"fps: "+str$(screen fps())
text 0,20,"connector: "+str$(connector)
text 0,40,"side: "+str$(side)

control camera using arrowkeys 1,1,1

connector = pick object (mousex(),mousey(),1,7)

side = pick object (mousex(),mousey(),100,105)

if connector>0

for plain = 100 to 105
   show object plain
next plain

CubeX = object position x(connector)
CubeY = object position y(connector)
CubeZ = object position z(connector)

position object 100,CubeX-(CubeSize*0.5)-1,CubeY,CubeZ
rotate object 100,0,90,0

position object 101,CubeX+(CubeSize*0.5)+1,CubeY,CubeZ
rotate object 101,0,90,0

position object 102,CubeX,CubeY-(CubeSize*0.5)-1,CubeZ
rotate object 102,0,90,90

position object 103,CubeX,CubeY+(CubeSize*0.5)+1,CubeZ
rotate object 103,0,90,90

position object 104,CubeX,CubeY,CubeZ-(CubeSize*0.5)-1
rotate object 104,0,0,0

position object 105,CubeX,CubeY,CubeZ+(CubeSize*0.5)+1
rotate object 105,0,0,0
endif
if connector = 0
for plain = 100 to 105
   hide object plain
next plain
endif

   sync
loop

This is finished version of my code.If you strugle to make it work you can still look at it.There is few lines remended and slight changes at positioning of plains arround the cube, just to see them clear because they overlap with cubes when are precisely positioned on each side of it.

It was 5min work, if i wasn`t so tired last night i could save you some time you spend on making it work.

And finally i`m glad to help you!

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 5th May 2010 12:05 Edited at: 5th May 2010 12:13

Link

Quote: "After i post the code i realised that it`s not actually what i was intended to show you"

it was enough for me, i had a few ideas, but you completed it.

Quote: "You can still show here your modifications on the code here, i`m curious if you do them the same way i would."

i only changed the CubeX CubeY CubeZ and the others to my own. i really didnt understand why the

+ Code Snippet

(CubeSize*0.5)-1

was in there so i removed that.

and i change the location of the plains with:

+ Code Snippet

if pick object(mousex(),mousey(),1,40000)<>0
blx = object position x(pick object(mousex(),mousey(),1,40000))
bly = object position y(pick object(mousex(),mousey(),1,40000))
blz = object position z(pick object(mousex(),mousey(),1,40000))
endif

then i use your code:

+ Code Snippet

side = pick object (mousex(),mousey(),100000,100005)
text 0,40,"side: "+str$(side)
		
if bbn>0
position object 100000,blx-1.01,bly,blz
rotate object 100000,0,90,0

position object 100001,blx+1.01,bly,blz
rotate object 100001,0,90,0

position object 100002,blx,bly-1.01,blz
rotate object 100002,0,90,90

position object 100003,blx,bly+1.01,blz
rotate object 100003,0,90,90

position object 100004,blx,bly,blz-1.01
rotate object 100004,0,0,0

position object 100005,blx,bly,blz+1.01
rotate object 100005,0,0,0
endif

and then place the beam on the right position:

+ Code Snippet

         if side = 100001	//posX > blx
            instance object objnr,10000
            position object objnr,blx+12,bly,blz
         endif

         if side = 100000	//posX < blx
            instance object objnr,10000
            position object objnr,blx-12,bly,blz
         endif

         if side = 100003	//posY > bly
            instance object objnr,10001
            position object objnr,blx,bly+12,blz
         endif

         if side = 100002	//posY < bly
            instance object objnr,10001
            position object objnr,blx,bly-12,blz
         endif

         if side = 100005	//posZ > blz
            instance object objnr,10002
            position object objnr,blx,bly,blz+12
         endif

         if side = 100004	//posZ < blz
            instance object objnr,10002
            position object objnr,blx,bly,blz-12
         endif

this was in a few if then else statements so i only show you the important thing.

Quote: "It was 5min work, if i wasn`t so tired last night i could save you some time you spend on making it work."

no problem, i learn the most of trial and error

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 5th May 2010 12:16

Link

Quote: "complicated, which he must be aware helping to newbies.I think his snippet here is more a show-off than help."

I got carried away... I meant to have a function that found which side of the cube it was on, and then make a separate system... but then the code kinda became too engrained with the other code and... meh. Still, I got it working, if you want to take a look at the code:

type info
   conNum as integer `number of connectors
   rodNum as integer `number of rodz
   maxCon as integer `maximum number of connectors
   firstCon as integer `start range of connectors
   conSize as float `size of the connectors (they're cubes
   rodLen as float `size of the connecting rods
endtype
type connectorInfo
   xoff as float
   yoff as float
   zoff as float
   xrot as float
   yrot as float
endtype
type connector
   x as float
   y as float
   z as float
   memblocknum as integer `using a memblock to store which objects are attached. Easier to work with.
   `memblock will have room for 12 words. one for each possible connector/connectorrod space.
endtype
type connectorRod
   x as float
   y as float
   z as float
   objnum as integer
   oneCon as integer
   xrot as float
   yrot as float
   zrot as float
endtype
set display mode 1280,800,32
autocam off
global dim connector(0) as connector
global dim connectorRod(0) as connectorRod

initialize_G()
initialize_rot()

createConnector(0,0,0)
for x=1 to 2
   for y=1 to 3
      buildUponConnector(1,x,y)
   next
next
click=0
do
   yrotate camera 0,camera angle y()+mousemovex()/5.0
   xrotate camera 0,camera angle x()+mousemovey()/5.0
   move camera 0,(upkey()-downkey())*.005
   if mouseclick()=1 and click=0
      click=1
      obj=pick object(mousex(),mousey(),0,10000)
      if obj>=G.firstCon and obj<=G.firstCon+G.maxCon
         conNum=obj-G.firstCon
         x=camera position x()-connector(conNum).x
         nx=sign(x)
         y=camera position y()-connector(conNum).y
         ny=sign(y)
         z=camera position z()-connector(conNum).z
         nz=sign(z)

hide object obj

j1=find free object()
         make object plane j1,G.conSize+.05,G.conSize+.05
         a11=intternary(intequals(nx,-1),1,2)
         a21=1
         position object j1,connector(conNum).x+rotInfo(a11,a21).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a11,a21).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a11,a21).zoff*(0.5*G.conSize+.05)
         rotate object j1,rotInfo(a11,a21).xrot,rotInfo(a11,a21).yrot,0

j2=find free object()
         make object plane j2,G.conSize+.05,G.conSize+.05
         a12=intternary(intequals(ny,-1),1,2)
         a22=2
         position object j2,connector(conNum).x+rotInfo(a12,a22).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a12,a22).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a12,a22).zoff*(0.5*G.conSize+.05)
         rotate object j2,rotInfo(a12,a22).xrot,rotInfo(a12,a22).yrot,0

j3=find free object()
         make object plane j3,G.conSize+.05,G.conSize+.05
         a13=intternary(intequals(nz,-1),1,2)
         a23=3
         position object j3,connector(conNum).x+rotInfo(a13,a23).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a13,a23).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a13,a23).zoff*(0.5*G.conSize+.05)
         rotate object j3,rotInfo(a13,a23).xrot,rotInfo(a13,a23).yrot,0
         obj2=pick object(mousex(),mousey(),0,10000)
         sync
         wait 500
         delete object j1
         delete object j2
         delete object j3
         if obj2=j1 then buildUponConnector(conNum,a11,a21)
         if obj2=j2 then buildUponConnector(conNum,a12,a22)
         if obj2=j3 then buildUponConnector(conNum,a13,a23)

show object obj

endif
   endif
   if mouseclick()=0 then click=0
   sync
loop
end
function maxmum(a as float, b as float)
   if a>b then exitfunction a
endfunction b
function sign(n as float)
   if n>0 then exitfunction 1
   if n<0 then exitfunction -1
endfunction 0
function makeImageStuff()
   cls rgb(125,125,255)
   ink rgb(0,0,0),rgb(0,0,0)
   for n=30 to 40
      circle 50,50,n
   next n
   get image 1,1,1,100,100
   cls
endfunction
function buildUponConnector(conNum as integer,a1 as integer, a2 as integer)
   createConnectorRod(conNum,a1,a2)
   createConnector(ternary(equals(rotInfo(a1,a2).xoff,0),connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).yoff,0),connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).zoff,0),connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*.05))
   `G.conNum and G.rodNum still have the objects created in the last lines
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1),G.rodNum `store the rodnum in the new connector
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1)+2,conNum `store the other connector in the new connector
   write memblock word connector(conNum).memblocknum,4*((a1-1)*3+a2-1)+2,G.conNum   `store the new connector in the one we're adding to
   `rotInfo(3-a1,a2) gives the opposite direction as rotInfo(a1,a2)
endfunction
function equals(a as float, b as float)
   if a=b then exitfunction 1
endfunction 0
function intequals(a as integer,b as integer)
   if a=b then exitfunction 1
endfunction 0
function removeConnector(conNum as integer)
   for x=0 to 5
      a=memblock word(connector(conNum).memblocknum,4*x)
      b=memblock word(connector(conNum).memblocknum,4*x+2)
      if a>0
         delete object connectorRod(a).objnum
         for n=0 to 5
            if memblock word(connector(b).memblocknum,4*n+2)=conNum
               write memblock dword connector(b).memblocknum,4*n,0
            endif
         next
      endif
   next x
   delete object conNum-G.firstCon
   array delete element connector(),conNum
endfunction
function removeRod(objNum as integer)
   for x=1 to G.rodNum
      if connectorRod(x).objnum=objNum
         conNum=connectorRod(x).oneCon
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               conNum=memblock word(connector(conNum).memblocknum,4*n+2)
               break
            endif
         next n
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               break
            endif
         next n

delete object objNum
         array delete element connectorRod(),x
         break
      endif
   next x
endfunction
function createConnectorRod(conNum as integer,a1 as integer, a2 as integer)
   array insert at bottom connectorRod()
   inc G.rodNum
   obj=find free object(G.maxCon+G.firstCon+1, 1000000)
   make object box obj,G.conSize,G.conSize,G.rodLen
   connectorRod(G.rodNum).objnum=obj
   connectorRod(G.rodNum).xrot=rotInfo(a1,a2).xrot
   connectorRod(G.rodNum).yrot=rotInfo(a1,a2).yrot
   connectorRod(G.rodNum).zrot=0
   rotate object obj,rotInfo(a1,a2).xrot,rotInfo(a1,a2).yrot,0
   connectorRod(G.rodNum).x=ternary(rotInfo(a1,a2).xoff=0,connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*0.5*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*0.5)
   connectorRod(G.rodNum).y=ternary(rotInfo(a1,a2).yoff=0,connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*0.5*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*0.5)
   connectorRod(G.rodNum).z=ternary(rotInfo(a1,a2).zoff=0,connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*0.5*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*0.5)
   position object obj,connectorRod(G.rodNum).x,connectorRod(G.rodNum).y,connectorRod(G.rodNum).z
   connectorRod(G.rodNum).oneCon=conNum
   write memblock word connector(conNum).memblocknum, 4*((a1-1)*3+a2-1), G.rodNum
endfunction
function ternary(a as boolean, b as float, c as float)
   if a then exitfunction b
endfunction c
function intternary(a as boolean, b as integer, c as integer)
   if a then exitfunction b
endfunction c
function createConnector(x as float, y as float, z as float)
   inc G.conNum,1
   make object cube G.conNum+G.firstCon,G.conSize+.05
   position object G.conNum+G.firstCon,x,y,z
   texture object G.conNum+G.firstCon,1
   color object G.connum+G.firstCon,rgb(0,0,255)
   array insert at bottom connector()
   connector(G.conNum).x=x
   connector(G.conNum).y=y
   connector(G.conNum).z=z
   connector(G.conNum).memblocknum=find free memblock()
   make memblock connector(G.conNum).memblocknum,2*12
   for x=0 to 23
      write memblock byte connector(G.conNum).memblocknum,x,0
   next x
endfunction

function initialize_G()
   global G as info
   G.conNum=0
   G.rodNum=0
   G.firstCon=1
   G.maxCon=100
   G.conSize=.2
   G.rodLen=1
endfunction

function initialize_rot()
   global dim rotInfo(2,3) as connectorInfo
   for x=1 to 2 `I don't think you have to initialize this but... meh.
      for y=1 to 3
         rotInfo(x,y).xoff=0
         rotInfo(x,y).yoff=0
         rotInfo(x,y).zoff=0
         rotInfo(x,y).xrot=0
         rotInfo(x,y).yrot=0
      next y
   next x
   `(1,1->3) is negative x, y, and z (for (1,1),(1,2),(1,3) respectively)
   `(2,1->3) is positive x, y, and z
   rotInfo(1,1).xoff=-1
   rotInfo(2,1).xoff= 1
   rotInfo(1,2).yoff=-1
   rotInfo(2,2).yoff= 1
   rotInfo(1,3).zoff=-1
   rotInfo(2,3).zoff= 1

rotInfo(1,1).yrot=90 `negative signs are trivial since we're dealing with two sided planes, but consistency is nice.
   rotInfo(2,1).yrot=-90
   rotInfo(1,2).xrot=90
   rotInfo(2,2).xrot=-90
   rotInfo(1,3).yrot=0
   rotInfo(2,3).yrot=180
endfunction

+ Code Snippet

type info
   conNum as integer `number of connectors
   rodNum as integer `number of rodz
   maxCon as integer `maximum number of connectors
   firstCon as integer `start range of connectors
   conSize as float `size of the connectors (they're cubes
   rodLen as float `size of the connecting rods
endtype
type connectorInfo
   xoff as float
   yoff as float
   zoff as float
   xrot as float
   yrot as float
endtype
type connector
   x as float
   y as float
   z as float
   memblocknum as integer `using a memblock to store which objects are attached. Easier to work with.
   `memblock will have room for 12 words. one for each possible connector/connectorrod space.
endtype
type connectorRod
   x as float
   y as float
   z as float
   objnum as integer
   oneCon as integer
   xrot as float
   yrot as float
   zrot as float
endtype
set display mode 1280,800,32
autocam off
global dim connector(0) as connector
global dim connectorRod(0) as connectorRod

initialize_G()
initialize_rot()

createConnector(0,0,0)
for x=1 to 2
   for y=1 to 3
      buildUponConnector(1,x,y)
   next
next
click=0
do
   yrotate camera 0,camera angle y()+mousemovex()/5.0
   xrotate camera 0,camera angle x()+mousemovey()/5.0
   move camera 0,(upkey()-downkey())*.005
   if mouseclick()=1 and click=0
      click=1
      obj=pick object(mousex(),mousey(),0,10000)
      if obj>=G.firstCon and obj<=G.firstCon+G.maxCon
         conNum=obj-G.firstCon
         x=camera position x()-connector(conNum).x
         nx=sign(x)
         y=camera position y()-connector(conNum).y
         ny=sign(y)
         z=camera position z()-connector(conNum).z
         nz=sign(z)

         hide object obj

         j1=find free object()
         make object plane j1,G.conSize+.05,G.conSize+.05
         a11=intternary(intequals(nx,-1),1,2)
         a21=1
         position object j1,connector(conNum).x+rotInfo(a11,a21).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a11,a21).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a11,a21).zoff*(0.5*G.conSize+.05)
         rotate object j1,rotInfo(a11,a21).xrot,rotInfo(a11,a21).yrot,0

         j2=find free object()
         make object plane j2,G.conSize+.05,G.conSize+.05
         a12=intternary(intequals(ny,-1),1,2)
         a22=2
         position object j2,connector(conNum).x+rotInfo(a12,a22).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a12,a22).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a12,a22).zoff*(0.5*G.conSize+.05)
         rotate object j2,rotInfo(a12,a22).xrot,rotInfo(a12,a22).yrot,0

         j3=find free object()
         make object plane j3,G.conSize+.05,G.conSize+.05
         a13=intternary(intequals(nz,-1),1,2)
         a23=3
         position object j3,connector(conNum).x+rotInfo(a13,a23).xoff*(0.5*G.conSize+.05),connector(conNum).y+rotInfo(a13,a23).yoff*(0.5*G.conSize+.05),connector(conNum).z+rotInfo(a13,a23).zoff*(0.5*G.conSize+.05)
         rotate object j3,rotInfo(a13,a23).xrot,rotInfo(a13,a23).yrot,0
         obj2=pick object(mousex(),mousey(),0,10000)
         sync
         wait 500
         delete object j1
         delete object j2
         delete object j3
         if obj2=j1 then buildUponConnector(conNum,a11,a21)
         if obj2=j2 then buildUponConnector(conNum,a12,a22)
         if obj2=j3 then buildUponConnector(conNum,a13,a23)



         show object obj

      endif
   endif
   if mouseclick()=0 then click=0
   sync
loop
end
function maxmum(a as float, b as float)
   if a>b then exitfunction a
endfunction b
function sign(n as float)
   if n>0 then exitfunction 1
   if n<0 then exitfunction -1
endfunction 0
function makeImageStuff()
   cls rgb(125,125,255)
   ink rgb(0,0,0),rgb(0,0,0)
   for n=30 to 40
      circle 50,50,n
   next n
   get image 1,1,1,100,100
   cls
endfunction
function buildUponConnector(conNum as integer,a1 as integer, a2 as integer)
   createConnectorRod(conNum,a1,a2)
   createConnector(ternary(equals(rotInfo(a1,a2).xoff,0),connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).yoff,0),connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*.05),ternary(equals(rotInfo(a1,a2).zoff,0),connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*.05))
   `G.conNum and G.rodNum still have the objects created in the last lines
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1),G.rodNum `store the rodnum in the new connector
   write memblock word connector(G.conNum).memblocknum,4*(((3-a1)-1)*3+a2-1)+2,conNum `store the other connector in the new connector
   write memblock word connector(conNum).memblocknum,4*((a1-1)*3+a2-1)+2,G.conNum   `store the new connector in the one we're adding to
   `rotInfo(3-a1,a2) gives the opposite direction as rotInfo(a1,a2)
endfunction
function equals(a as float, b as float)
   if a=b then exitfunction 1
endfunction 0
function intequals(a as integer,b as integer)
   if a=b then exitfunction 1
endfunction 0
function removeConnector(conNum as integer)
   for x=0 to 5
      a=memblock word(connector(conNum).memblocknum,4*x)
      b=memblock word(connector(conNum).memblocknum,4*x+2)
      if a>0
         delete object connectorRod(a).objnum
         for n=0 to 5
            if memblock word(connector(b).memblocknum,4*n+2)=conNum
               write memblock dword connector(b).memblocknum,4*n,0
            endif
         next
      endif
   next x
   delete object conNum-G.firstCon
   array delete element connector(),conNum
endfunction
function removeRod(objNum as integer)
   for x=1 to G.rodNum
      if connectorRod(x).objnum=objNum
         conNum=connectorRod(x).oneCon
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               conNum=memblock word(connector(conNum).memblocknum,4*n+2)
               break
            endif
         next n
         for n=0 to 5
            if memblock word(connector(conNum).memblocknum,4*n)=x
               write memblock word connector(conNum).memblocknum,4*n,0
               break
            endif
         next n

         delete object objNum
         array delete element connectorRod(),x
         break
      endif
   next x
endfunction
function createConnectorRod(conNum as integer,a1 as integer, a2 as integer)
   array insert at bottom connectorRod()
   inc G.rodNum
   obj=find free object(G.maxCon+G.firstCon+1, 1000000)
   make object box obj,G.conSize,G.conSize,G.rodLen
   connectorRod(G.rodNum).objnum=obj
   connectorRod(G.rodNum).xrot=rotInfo(a1,a2).xrot
   connectorRod(G.rodNum).yrot=rotInfo(a1,a2).yrot
   connectorRod(G.rodNum).zrot=0
   rotate object obj,rotInfo(a1,a2).xrot,rotInfo(a1,a2).yrot,0
   connectorRod(G.rodNum).x=ternary(rotInfo(a1,a2).xoff=0,connector(conNum).x,connector(conNum).x+rotInfo(a1,a2).xoff*0.5*G.rodLen+rotInfo(a1,a2).xoff*G.conSize*0.5)
   connectorRod(G.rodNum).y=ternary(rotInfo(a1,a2).yoff=0,connector(conNum).y,connector(conNum).y+rotInfo(a1,a2).yoff*0.5*G.rodLen+rotInfo(a1,a2).yoff*G.conSize*0.5)
   connectorRod(G.rodNum).z=ternary(rotInfo(a1,a2).zoff=0,connector(conNum).z,connector(conNum).z+rotInfo(a1,a2).zoff*0.5*G.rodLen+rotInfo(a1,a2).zoff*G.conSize*0.5)
   position object obj,connectorRod(G.rodNum).x,connectorRod(G.rodNum).y,connectorRod(G.rodNum).z
   connectorRod(G.rodNum).oneCon=conNum
   write memblock word connector(conNum).memblocknum, 4*((a1-1)*3+a2-1), G.rodNum
endfunction
function ternary(a as boolean, b as float, c as float)
   if a then exitfunction b
endfunction c
function intternary(a as boolean, b as integer, c as integer)
   if a then exitfunction b
endfunction c
function createConnector(x as float, y as float, z as float)
   inc G.conNum,1
   make object cube G.conNum+G.firstCon,G.conSize+.05
   position object G.conNum+G.firstCon,x,y,z
   texture object G.conNum+G.firstCon,1
   color object G.connum+G.firstCon,rgb(0,0,255)
   array insert at bottom connector()
   connector(G.conNum).x=x
   connector(G.conNum).y=y
   connector(G.conNum).z=z
   connector(G.conNum).memblocknum=find free memblock()
   make memblock connector(G.conNum).memblocknum,2*12
   for x=0 to 23
      write memblock byte connector(G.conNum).memblocknum,x,0
   next x
endfunction

function initialize_G()
   global G as info
   G.conNum=0
   G.rodNum=0
   G.firstCon=1
   G.maxCon=100
   G.conSize=.2
   G.rodLen=1
endfunction

function initialize_rot()
   global dim rotInfo(2,3) as connectorInfo
   for x=1 to 2 `I don't think you have to initialize this but... meh.
      for y=1 to 3
         rotInfo(x,y).xoff=0
         rotInfo(x,y).yoff=0
         rotInfo(x,y).zoff=0
         rotInfo(x,y).xrot=0
         rotInfo(x,y).yrot=0
      next y
   next x
   `(1,1->3) is negative x, y, and z (for (1,1),(1,2),(1,3) respectively)
   `(2,1->3) is positive x, y, and z
   rotInfo(1,1).xoff=-1
   rotInfo(2,1).xoff= 1
   rotInfo(1,2).yoff=-1
   rotInfo(2,2).yoff= 1
   rotInfo(1,3).zoff=-1
   rotInfo(2,3).zoff= 1

   rotInfo(1,1).yrot=90 `negative signs are trivial since we're dealing with two sided planes, but consistency is nice.
   rotInfo(2,1).yrot=-90
   rotInfo(1,2).xrot=90
   rotInfo(2,2).xrot=-90
   rotInfo(1,3).yrot=0
   rotInfo(2,3).yrot=180
endfunction

But you might want to ignore that. Actually... some of it is unnecessarily over-complicated. I think here's a great way to do what you want, and it's what the code I wrote uses:
1. create six planes around the connector cube (one on top, bottom, sides, whatever, with corresponding rotation
2. hide the connector cube
3. use pick object, and find which plane the mouse is clicking
4. now you know which plane it is, use it's direction to build another connector in that direction
5. delete the six planes, and show the connector cube.

All the complications in my code rise from finding the cube's direction, and building another connector in that direction. I just like using funny data structures for some reason... it's mainly to avoid writing the same thing over again (like large chunks of code similar but with a couple values changed).

I think I'm going to tidy up my code a lot... Maybe try and write a tutorial of it, actually. I feel unhelpful

Oh right, the giant weird array lookup things in the do loop in my code is just there because I didn't want to make six, just three... so I did a bunch of weird stuff to determine the direction. Totally unnecessary.

Quote: "maybe i should rewrite some of my code..."

the types and memblocks stuff I was using isn't necessary... as long as you're using arrays, or something that can be expanded to multiple objects, you're good ta go!

Back to top

Profile PM Email

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 5th May 2010 12:49

Link

Quote: "as long as you're using arrays, or something that can be expanded to multiple objects, you're good ta go!"

ehm, to be honest, i dont use arrays... maybe some of my code is long, but i understand it. maybe later on, if i am what more experienced i will rewrite some of it. its a learning process what never stops.

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 5th May 2010 16:39

Link

For example:

+ Code Snippet

position object 100,CubeX-(CubeSize*0.5)-1,CubeY,CubeZ

What this line do in my code is to position the left side of the cube(which is the left relative to point of view, you can say it`s right side if the camera was at oposite direction, whatever)

position object is clear i think, so the CubeX is the x position of the connector, CubeY and Cube z are y and z positions.

I made CubeSize with the idea that you may need diferent size connectors, so multiplying of CubeSize by .5 we position the plain exactly on the cube`s side no matter how big it is.If this was missing the plain is positioned at center of the cube.The name maybe is not most proper, because just Size sounds better and it can be easly linked to plain size too.I do not use divide by 2 because as i know it`s slower, but it would be the same.-1 after all this is just for test purpose, because plains overlap with the cube sides if they are exactly on them there is no problem to remove it.Because you actually may not need plains visible anyway.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

T4r4ntul4

14

Years of Service

User Offline

Joined: 1st Jan 2010

Location: close to my pc

Posted: 5th May 2010 18:44

Link

ok ty that cleared up

*happy coding on his 3D Sandbox Editor*

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th May 2010 23:21

Link

I just sorta skimmed the thread but I think you can just find th dot product of your point of interest with th normal of th side you're checking. A positive value is one side, a negative value means its on the other side. Not sure if this helps but maybe it'll start a solution.

"Any sufficiently advanced technology is indistinguishable from magic" ~ Arthur C. Clarke

Back to top

Profile PM Email Website

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 7th May 2010 01:37

Link

it's not just one side that's the problem though, it's all six sides of a cube, and get pick vector doesn't seem to be accurate enough (or something) to check with maths.

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 7th May 2010 01:47 Edited at: 7th May 2010 01:48

Link

Phaelax don`t skimm it

he have the solution with the 6 dummy plains now.Look my post above from 4th there is the code.It`s not something advaced, but it`s good workaround i think.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / detection of mouse on side A or B on a cube/block, how?