Question about RoboRealm

NWUpgrades

Has anyone used the RoboRealm software? http://www.trossenrobotics.com/p/roborealm-full-license.aspx

I was just wondering if it is worth the money and if it works as stated.

schill

I haven't used it for a while, but I do have it. If you want to play with robot vision, it's the easiest thing I've come across to get you going quickly. I haven't used it for any "real" projects, but I have had a lot of fun working with it. I have used it with normal cameras (web cams) and the MS Kinect.

You can download a free 30 day trial:

http://www.roborealm.com/registration/index.php

I think it's worth trying out if you are at all interested in this kind of stuff.

xanadu

Got a specific use for it?

RoboRealm is pretty sweet but it depends on what you use it for. It's insanely easy to use and has a ton of built in programs.

Here's a quick kinda cheesy video, but I used it to pull video from an IP cam, then communicate via XBee back to the robot to move the camera while tracking a color blob.

Since I got it I've had robots follow sidewalks, recognize my face, and write a bunch of external programs that interface with it.

[video=youtube_share;O0-YKMfFXsI]

Here's an example of my VBScript:
Note the variable 'cog_x' and 'cog_y' they're the 'center of gravity' of the blob. The serial code is for the XBee.

Set MSComm1=CreateObject("MSCOMMLib.MSComm")
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.CommPort = 7
    MSComm1.InBufferCount = 0
    MSComm1.PortOpen = True
      If Err Then
         MsgBox "COM" & MSComm1.CommPort & ": !"
      End If

cogx = GetVariable("cog_x")

  if cogx < 120 and cogx => 26 then
    MSComm1.Output="4"
    
  end if

  if cogx < 26 then
    MSComm1.Output="5"
    
  end if
    
  if cogx > 200 and cogx =< 300 then
    MSComm1.Output="6" 
     
  end if

 if cogx > 300 then
    MSComm1.Output="5" 
     
  end if

 
  if cogx < 200 and cogx > 120 then
    MSComm1.Output="5"
    
  end if  

cogy = GetVariable("cog_y")

  if cogy < 15 then
    MSComm1.Output="c"
  end if

  if cogy > 180 then
    MSComm1.Output="c"
  end if

  if cogy < 80 and cogy => 15 then
    MSComm1.Output="k"
    MSComm1.Output="c"
   
  end if
    
  if cogy > 120 and cogy =< 180 then
    MSComm1.Output="i" 
    MSComm1.Output="c"
     
  end if
 
  if cogy =< 120 and cogy => 80 then
    MSComm1.Output="c"
    
  end if  

another video i found-
[video=youtube_share;-1PHL7M-2GQ]