PT Forum

Mikko_ Joined: 16th Aug 2003
Location: Finland

Posted: 16th Aug 2003 12:50

Hi!
Upgrade 5 has now pick object command (congratulations for that).
But if someone still wants function for mouse picking, I
shortened my old one. And here it is:

+ Code Snippet

REM --- Function to tell which object is under mouse ---
REM ------------- author Mikko Ketonen 2003 ----------------
oldob=1

INK RGB(255,255,0),RGB(0,0,0):circle 125,125,120:circle 125,125,121
get image 100,0,0,256,256:make object plain 100,256,256
texture object 100,100:SET OBJECT TRANSPARENCY 100, 1


for f=1 to 50:make object cube f,50
position object f,rnd(1000)-500,rnd(400)-200,rnd(1000)
color object f,RGB(255,255,0):next f
sync on

do
 control camera using arrowkeys 0,1,1

 color object oldob,RGB(255,255,0)
 ob=obj2mous(1,50):if ob=0 then ob=1
 color object ob,RGB(255,0,0)
 oldob=ob

 if mouseclick() then set object wireframe ob,1
 position object 100,object position x(ob),object position y(ob),object position z(ob)
 text object screen x (ob),object screen y (ob),str$(ob)
 turn object right 100,.2
 sync
loop


function obj2mous(first,last)
 nearest=pick object (mousex(),mousey(),first,last)
endfunction nearest

Mikko

Codger Joined: 23rd Nov 2002
Location:

Posted: 18th Aug 2003 4:31

Code fails on

nearest=pick object (mousex(),mousey(),first,last)

as there is no Pick command in DBP

Jimmy Cool Joined: 6th Mar 2003
Location: United States

Posted: 18th Aug 2003 4:43

Codger: "UPDATE for Upgrade 5"

Mikko Joined: 25th Sep 2002
Location: Finland

Posted: 19th Aug 2003 4:41

Yes its for the version 5 with pick command.

Here's the older version for DBP:

+ Code Snippet

REM --- Function to tell which object is nearest to mouse ---
REM ------------- author Mikko Ketonen 2000 ----------------
dim d(100,2): Rem Make always this dim dim d(n,2), where n=number of tested objects
oldob=1

INK RGB(255,255,0),RGB(0,0,0):circle 125,125,120:circle 125,125,121
get image 100,0,0,256,256:make object plain 100,256,256
texture object 100,100:SET OBJECT TRANSPARENCY 100, 1


for f=1 to 50:make object cube f,50:position object f,rnd(1000)-500,rnd(400)-200,rnd(1000)
color object f,RGB(255,255,0):next f
sync on
do
 if leftkey() then turn camera left 1
 if rightkey() then turn camera right 1
 if upkey() then move camera 2
 if downkey() then move camera -2

 color object oldob,RGB(255,255,0)
 ob=obj2mous(1,50):color object ob,RGB(255,0,0)
 oldob=ob

 if mouseclick() then set object wireframe ob,1
 position object 100,object position x(ob),object position y(ob),object position z(ob)
 text object screen x (ob),object screen y (ob),str$(ob)
 turn object right 100,.2
sync
loop

function obj2mous(first,last)
REM --- Function to tell which object is nearest to mouse ---
rem ---first and last define block of object (like 100 to 200)
rem ---------------  REMEMBER TO PUT ------------------------
rem ------------------ dim d(n,2) ---------------------------
rem ---------AT THE BEGINNING OF PROGRAM---------------------
rem ---------Where  n=number of tested objects --------------
REM ----------- author Mikko Ketonen 2000 ------------------
mx=mousex():my=mousey()
 for f=first to last
  ox=OBJECT SCREEN X(f): oy=OBJECT SCREEN y(f)
  d(f,1)=sqrt((mx-ox)^2+(my-oy)^2)
  d(f,2)=f
 next f
for i=first to last
 for f=first to last-1
   if d(f,1)&gt;d(f+1,1)
    d1=d(f,1):d2=d(f,2):d3=d(f+1,1):d4=d(f+1,2)
    d(f,1)=d3:d(f,2)=d4:d(f+1,1)=d1:d(f+1,2)=d2
   endif
  next f
 next i
  nearest=d(1,2)
endfunction nearest

And here is one for the DBC (Indi's modification):

+ Code Snippet

REM --- Function to tell which object is nearest to mouse ---
REM ------------- author Mikko Ketonen 2000 ----------------
sync on : sync rate 60
autocam off


dim d(100,2): Rem Make always this dim dim d(n,2), where n=number of tested objects
oldob=1

cls
INK RGB(255,255,0),RGB(0,0,0):circle 125,125,120:circle 125,125,121
get image 100,0,0,256,256:make object plain 100,256,256
texture object 100,100
SET OBJECT 100,1,0,1,1
cls



for f=1 to 50:make object cube f,50:position object f,rnd(1000)-500,rnd(400)-200,rnd(1000)
color object f,RGB(255,255,0):next f



do
 if leftkey() then turn camera left 1
 if rightkey() then turn camera right 1
 if upkey() then move camera 2
 if downkey() then move camera -2

 color object oldob,RGB(255,255,0)
 ob=obj2mous(1,50):color object ob,RGB(255,0,0)
 oldob=ob

 if mouseclick() = 0 then set object ob,0,1,1,1,1,1
 position object 100,object position x(ob),object position y(ob),object position z(ob)
 text object screen x(ob),object screen y(ob),str$(ob)
 turn object right 100,.2
sync
loop

function obj2mous(first,last)
REM --- Function to tell which object is nearest to mouse ---
rem ---first and last define block of object (like 100 to 200)
rem ---------------  REMEMBER TO PUT ------------------------
rem ------------------ dim d(n,2) ---------------------------
rem ---------AT THE BEGINNING OF PROGRAM---------------------
rem ---------Where  n=number of tested objects --------------
REM ----------- author Mikko Ketonen 2000 ------------------
mx=mousex():my=mousey()
 for f=first to last
  ox=OBJECT SCREEN X(f): oy=OBJECT SCREEN y(f)
  d(f,1)=sqrt((mx-ox)^2+(my-oy)^2)
  d(f,2)=f
 next f
for i=first to last
 for f=first to last-1
   if d(f,1)&gt;d(f+1,1)
    d1=d(f,1):d2=d(f,2):d3=d(f+1,1):d4=d(f+1,2)
    d(f,1)=d3:d(f,2)=d4:d(f+1,1)=d1:d(f+1,2)=d2
   endif
  next f
 next i
  nearest=d(1,2)
endfunction nearest

Mikko

<1 >

Sign In