Pablo Estefó « CAR: Components, Agents, and Robots

In this tutorial we will show you how to programs robot behaviour on using Live Robot Programming over PhaROS.

Setup

Follow the steps 1 to 4 of this post.
Create a ROS node that consumes /kompai2/pose and /kompai/scan and publish in /command_velocity. To do this, just executing this:
```
LrpharosPackage uniqueInstance
```
Create an instance of the RobulabBridge class
```
RobulabBridge uniqueInstance
```
To assure that everything is fine, inspect the instance of RobulabBridge and check that its instance variable laserData is not nil and its values change over the time.
Open the LRP UI by right-clicking the World and selecting Live Robot Programming.

Stop when an obstacle is detected

Ok, so now we can start writing the behavior. First we will need some variables, those are: robulab to manage the robot and some constants such as: f_vel as linear velocity, t_vel for angular velocity, and min_distance as the minimum distance between the robot and an obstacle.
```
(var robulab := [RobulabBridgr uniqueInstance ])
(var min_distance := [0.5])
(var f_vel := [0.25])
(var t_vel := [0.5])
```

We define the state machine called Tito.
What we want to the robot is to go forward unless there is an obstacle in front of it so it should stop and turn to avoid it.
This could be modelled in a abstractly as two states: forward and avoid.

(machine Tito
    ;; States
    (state forward
        (onentry [robulab value forward: f_vel value])
    )
    (state stop
        (onentry [robulab value stop])
    )

    ;; Transitions
    (on obstacle forward -> stop t-avoid)
    (on noObstacle avoid -> forward t-forward)

    ;; Events
    (event obstacle [robulab value isThereAnObstacle: min_distance value])
    (event noObstacle [(robulab value isThereAnObstacle: min_distance value) not])
)

Finally, to run it, just start the machine on the forward state.
(spawn Tito forward)
The robot should move linearly and stop when detects an obstacle.

Avoiding obstacles

Let’s add an avoiding behavior. A simple one might be turning until it detects there is no obstacle and go forward again.
Then a simple behavior that match the avoidance requisite is:

If the obstacle is in the left side of the front: turn right
If the obstacle is in the right side of the front: turn left.

RobotBridge provides two methods to detect obstacles on the left and right part of the front of the robot: RobotBridge>>isThereARightObstacle: and RobotBridge>>isThereALeftObstacle:
Then, the idea is to turn left if there is an obstacle in the front-right, or, turn right if there is an obstacle in the front-left.

Add the following states

        (state turnLeft
            (onentry [robulab value turn: t_vel value])
        )

        (state turnRight
            (onentry [robulab value turn: t_vel value negated])
        )

Add the corresponding transitions

        (on rightObstacle stop -> turnLeft t-lturn)
        (on leftObstacle stop -> turnRight t-rturn)
        (on noObstacle turnLeft -> stop t-tlstop)
        (on noObstacle turnRight -> stop t-trstop)

And add the events

        (event rightObstacle [robulab value isThereARightObstacle: minDistance value])
        (event leftObstacle [robulab value isThereALeftObstacle: minDistance value])

Now the robot will start turning to avoid the obstacle.

Note

Updated version of LRP it is not necessary to add value after a variable.
Then,

    (onentry [robulab value turn: t_vel value negated])

is turned to

    (onentry [robulab turn: t_vel negated])

making it more readable.

The objective of this tutorial is to be able to create a behaviour for the Robulab described using Live Robot Programming. The LRP program transparently uses PhaROS to communicate with the Robulab.

Let’s do it step by step

Follow the instructions to have Robulab working specified in this tutorial.

Open the image you created on the previous step and download the LRP code1

Gofer it
    smalltalkhubUser: 'jfabry' project: 'LiveRobotProgramming';
    configuration;
    loadDevelopment

Download the code with the example by executing the following snippet on a workspace:

Gofer new smalltalkhubUser: 'mcamp'
    project: 'RobotExperiments';
    package: 'LrpharosPackage';
    load.

Let’s check everything is ok before launching LRP UI:
- The laptop is connected to UBNT network
- roscore is running.
- You have cleaned processes by executing ProcessesCleaner clean.
- You started the driver node for kompai.
Our example needs a PhaROS node subscribed to /kompai2/pose and another node publishing on /command_velocity, to do so you need to create a instance of LrpharosPackage. Due to the live feature of LRP, it needs to have an unique instance of the package (which contains the nodes).
```
LrpharosPackage uniqueInstance
```
Open the LRP UI by right-clicking the World and selecting ** Live Robot Programming **. It will open a window like this:

Now, copy&paste the following script into the left pane (You can find it also in LrpharosPackage class>>lrpSimple)

(var robulab := [LrpharosPackage uniqueInstance])
(var stop := [0])
(machine simple
    (state forward
        (onentry [robulab value forward: 0.1])
    )
    (state stop
        (onentry [robulab value stop])
    )
    (state finish
        (onentry [robulab value stop])
    )

    (on forceStop *-> finish t-finish)
    (event forceStop [stop value = 1])

    (ontime 2000 forward -> stop t-f)
    (ontime 1000 stop -> forward t-s)
)

It should look something like this

Forward-Stop machine

Now we are almost close to launch the script. Before that you should be aware to have ways to stop it in an emergency case: have a remote joystick or just switch it off.
To trigger it add the following line at the end of the script:
```
(spawn simple forward)
```
Et voilà! The robot will start moving forward and then stop as the two steps.
An alternatively way to stop the robot using the LRP UI is by setting the stop variable to 1 in the ** Variables: ** pane.
After stopping the robot, if you want to re-start it you have to click Reset Int. button in the bottom of the left pane.

Any question? Feel free to ask below.

NOTES

LRP uses Roassal visualization engine for displaying the machines, states and transitions. After LRP is installed, you should run do a few simple steps in order to avoid a small-but-hard-to-solve bug related to fonts. You can fix it in less than 1 minute following the instructions here.
Each time you need to clean the proccesses through ProcessesCleaner clean, the LRP process is terminated. Then you have to close the window after doing it.
Everytime you create a kompai node (through PureROS new scriptKompai1 or scriptKompai2) you should then reset the LRP singleton by executing:
```
LrpharosPackage reset.
```
This way the LrpharosPackage instance will be bound to the correct kompai node.

In this tutorial you will be able to get the laser and odometry data from a Robulab robot published into ROS topics.

Setup

You must ensure to meet all the requirements listed in the section Setup in Testing Robulab‘s post.

Install

Create a fresh PhaROS image by executing in a terminal:
```
$ pharos create newimage
```
Open the image. This will open Pharo IDE.
```
$ rosrun newimage edit
```
For ease Proxy (de)activation and Process cleaning (stoping & terminating PhaROS nodes), we recommend you to install the CAR shortcuts workspace: open a workspace, copy&paste the following script, select it completely and Do-it:
```
Gofer new smalltalkhubUser: 'PabloEstefo'
    project: 'ExperimentUtils';
    package: 'Experiment-Utils';
    load.
(Smalltalk at: #EUWorkspace) open.
```
It will open a new workspace titled CAR Utils that will have the following shortcuts:
- ProxySwitch on to activate HTTP proxy
- ProxySwitch off to deactivate it
- ProcessesCleaner clean to terminate all non-critical processes. This will terminate any PhaROS node running. It is useful when you edit some script and want to relaunch it.

Then install the required software for controlling Robulab robot by selecting and Do-it the following script on an empty workspace:

Gofer it
    smalltalkhubUser: 'CAR'
    project: 'Robulab';
    configurationOf: 'PureROS';
    load.
((Smalltalk at: #ConfigurationOfPureROS) project version: #bleedingEdge) load: {'kompai'}.

Test

Start roscore: in a terminal execute

$ roscore
Start the main script driver for Robulab1:
1. On the CAR Utils workspace, select and Do-it ProxySwith off to deactivate HTTP Proxy
2. Write in a workspace & Do-it the following script:
PureROSKompai new scriptKompai1

In case you are using the Kompai2 Robulab, launch the script scriptKompai2 instead.

Let’s see which topics are available. To do so, in a terminal execute:

$ rostopic list

and you should see

/command_velocity
/example/string
/initialpose
/kompai/scan
/kompai2/pose
/kompai2/trajectory/differential
/orientation
/rosout
/rosout_agg

Ok, now we know that laser (/kompai/scan) and pose (/kompai2/pose) topics exist, let’s inspect the data the robot is publishing into those topics. First we will see pose data by executing:

$ rostopic echo /kompai2/pose

and you should see something like this:
```
header:
  seq: 65593
  stamp:
    secs: 1407481583
    nsecs: 757790000
  frame_id: /map
pose:
  position:
    x: 0.0
    y: 0.0
    z: 0.0
  orientation:
    x: 0.0
    y: 0.0
    z: 0.0
    w: 1.0
---
```

The same way, let’s inspect laser data by executing:

$ rostopic echo /kompai/scan

and you will see something like this:

---
header:
  seq: 529
  stamp:
    secs: 1407331004
    nsecs: 244896000
  frame_id: /laser
angle_min: -2.36492109299
angle_max: 2.34746789932
angle_increment: 0.0174532923847
time_increment: 0.0
scan_time: 0.0
range_min: 0.170000001788
range_max: 3.80999994278
ranges: [0.17000000178813934, 2.109999895095825, 2.109999895095825, 3.809999942779541, 3.7899999618530273, 3.740000009536743, 3.7100000381469727, 3.6700000762939453, 3.630000114440918, 1.9500000476837158, 1.909999966621399, 1.8899999856948853, 1.8799999952316284, 1.8700000047683716, 1.5299999713897705, 1.5299999713897705, 1.5099999904632568, 1.5, 1.4900000095367432, 1.4700000286102295, 1.4700000286102295, 1.4500000476837158, 1.4600000381469727, 1.4500000476837158, 1.4299999475479126, 1.4199999570846558, 1.4199999570846558, 1.5499999523162842, 1.7000000476837158, 1.7100000381469727, 1.7100000381469727, 1.7000000476837158, 1.7000000476837158, 1.7000000476837158, 1.7000000476837158, 1.7000000476837158, 1.690000057220459, 1.7000000476837158, 1.690000057220459, 1.7000000476837158, 1.7100000381469727, 1.7000000476837158, 1.7000000476837158, 1.7100000381469727, 1.7100000381469727, 1.7100000381469727, 1.7300000190734863, 1.7300000190734863, 1.7300000190734863, 1.7400000095367432, 1.7400000095367432, 1.75, 1.7599999904632568, 1.7699999809265137, 1.7799999713897705, 1.7899999618530273, 1.7999999523162842, 1.809999942779541, 1.8300000429153442, 1.840000033378601, 1.850000023841858, 1.8799999952316284, 1.8899999856948853, 1.899999976158142, 1.9299999475479126, 0.699999988079071, 0.6499999761581421, 0.6200000047683716, 0.6100000143051147, 0.5899999737739563, 0.5899999737739563, 0.5600000023841858, 0.5899999737739563, 0.5899999737739563, 0.5899999737739563, 0.5699999928474426, 0.5699999928474426, 0.5699999928474426, 0.5699999928474426, 0.5799999833106995, 0.6399999856948853, 2.059999942779541, 2.069999933242798, 2.059999942779541, 2.0799999237060547, 2.0899999141693115, 2.0999999046325684, 2.0899999141693115, 0.8899999856948853, 0.8799999952316284, 0.8999999761581421, 2.4800000190734863, 2.430000066757202, 2.390000104904175, 2.359999895095825, 2.3299999237060547, 2.2899999618530273, 2.259999990463257, 2.2300000190734863, 2.200000047683716, 2.1700000762939453, 2.1500000953674316, 1.0499999523162842, 1.0099999904632568, 0.9900000095367432, 0.9700000286102295, 0.9700000286102295, 0.949999988079071, 0.9399999976158142, 0.949999988079071, 0.9599999785423279, 2.0199999809265137, 2.009999990463257, 2.0, 1.9800000190734863, 1.9800000190734863, 1.9700000286102295, 1.9600000381469727, 1.940000057220459, 1.9500000476837158, 1.9500000476837158, 1.940000057220459, 1.9299999475479126, 1.940000057220459, 1.9299999475479126, 2.630000114440918, 3.690000057220459, 3.690000057220459, 3.700000047683716, 3.690000057220459, 3.700000047683716, 3.7100000381469727, 3.7200000286102295, 3.7200000286102295, 3.7200000286102295, 3.7200000286102295, 3.740000009536743, 3.7699999809265137, 3.7300000190734863, 2.7200000286102295, 2.5, 2.319999933242798, 2.1700000762939453, 1.9299999475479126, 1.909999966621399, 1.7999999523162842, 1.7100000381469727, 1.6299999952316284, 1.559999942779541, 1.4900000095367432, 1.409999966621399, 1.350000023841858, 1.2799999713897705, 1.2400000095367432, 1.2300000190734863, 1.2400000095367432, 1.25, 1.2699999809265137, 1.2699999809265137, 1.2999999523162842, 1.309999942779541, 1.3300000429153442, 1.350000023841858, 1.3600000143051147, 1.3799999952316284, 1.399999976158142, 1.4199999570846558, 1.440000057220459, 1.5, 2.369999885559082, 2.319999933242798, 2.2799999713897705, 2.240000009536743, 2.2100000381469727, 2.1600000858306885, 2.140000104904175, 2.0999999046325684, 2.059999942779541, 2.0299999713897705, 2.009999990463257, 1.9800000190734863, 1.940000057220459, 1.9800000190734863, 2.0299999713897705, 2.0799999237060547, 2.1500000953674316, 2.2200000286102295, 2.2699999809265137, 1.4700000286102295, 1.4800000190734863, 2.700000047683716, 2.6700000762939453, 2.6600000858306885, 2.6500000953674316, 2.609999895095825, 2.5999999046325684, 2.5799999237060547, 2.569999933242798, 2.549999952316284, 2.5299999713897705, 2.509999990463257, 2.509999990463257, 2.5, 2.4800000190734863, 2.4700000286102295, 2.4700000286102295, 2.450000047683716, 2.4600000381469727, 2.430000066757202, 2.430000066757202, 2.430000066757202, 2.430000066757202, 2.4200000762939453, 2.430000066757202, 2.4200000762939453, 2.4100000858306885, 2.4100000858306885, 2.4000000953674316, 2.4100000858306885, 2.4100000858306885, 2.440000057220459, 2.5199999809265137, 2.5199999809265137, 2.5299999713897705, 2.5199999809265137, 2.25, 2.1600000858306885, 2.0299999713897705, 1.899999976158142, 1.899999976158142, 1.909999966621399, 1.8700000047683716, 1.9600000381469727, 1.9900000095367432, 2.0199999809265137, 1.840000033378601, 1.75, 1.6399999856948853, 1.5700000524520874, 1.5, 1.4299999475479126, 1.3700000047683716, 1.309999942779541, 1.25, 1.2100000381469727, 1.1699999570846558, 1.1200000047683716, 1.090000033378601, 1.059999942779541, 1.0299999713897705, 1.0700000524520874, 1.0800000429153442, 1.100000023841858, 1.1100000143051147, 1.1200000047683716, 1.1299999952316284, 1.149999976158142, 1.1799999475479126, 1.190000057220459, 1.2000000476837158, 1.2100000381469727, 1.2300000190734863, 1.25, 1.2699999809265137, 1.2999999523162842, 1.3200000524520874, 1.350000023841858, 1.3799999952316284, 1.409999966621399, 1.440000057220459, 1.4700000286102295]
intensities: []

In this tutorial we will make basic tests to assert that both the robulab robot and the laptop are configured correctly. We will consider as well configured if we can start a PhaROS node that handle robulab robot, so we can publish motion messages through rostopic pub command and make it to move.

Setup

Robulab charged and switched on.
Laptop with Ubuntu 14.04
ROS Indigo installed on laptop (Read: How to install ROS Indigo in Ubuntu 14.04)

Your .bashrc file you should look like this:

source /opt/ros/indigo/setup.bash
source ~/PhaROS-ws/devel/setup.bash

ROS_HOSTNAME=localhost
ROS_MASTER_URI=http://localhost:11311

PhaROS installed (Read: How to Install PhaROS).
Robot should be unplugged and free to move.

Ok, lets test it

Create a package for testing the robulab. In a terminal run (this could take a couple of minutes):
```
$ pharos create testrobulab
```
Open the Pharo image of your PhaROS package by running this:
```
$ rosrun testrobulab edit
```

Install the required software to controll Robulab by executing this script.

Gofer it
    smalltalkhubUser: 'CAR'
    project: 'Robulab';
    configurationOf: 'PureROS';
    load.
((Smalltalk at: #ConfigurationOfPureROS) project version: #bleedingEdge) load: {'kompai'}.

Connect your laptop to UBNT wireless network.

Start ROS by running roscore in a terminal.

$ roscore

If everything goes fine it should print something like this:

...
started roslaunch server http://achao:56856/
ros_comm version 1.11.3

SUMMARY
========

PARAMETERS
 * /rosdistro: <...>
 * /rosversion: <...>

NODES

auto-starting new master
process[master]: started with pid [4073]
ROS_MASTER_URI=http://achao:11311/

setting /run_id to 6e36ef46-005d-11e4-ac41-b8ee65bb26b0
process[rosout-1]: started with pid [4086]
started core service [/rosout]

Where achao is the hostname of the laptop I am using.

Be sure that the Pharo image has not http proxy set, or if it has, they are coherent with your network configuration. To deactivate it you can just execute this in a workspace:
```
NetworkSystemSettings useHTTPProxy: false
```
Open a workspace and execute:
```
PureROSKompai new scriptKompai1
```
change it to scriptKompai2 if you are using Robulab2. This will create a PhaROS node that you can check by executing:
```
$ rosnode list
```
and you would see
```
/PharoHandle-1404143614
/rosout
```

Let’s check the available topics to publish, in a terminal execute:

$ rostopic list

and the list of topics should be:

/command_velocity
/initialpose
/kompai/scan
/kompai2/pose
/kompai2/trajectory/differential
/orientation
/rosout
/rosout_agg

Let’s publish some motion message in /command_velocity. For that lets use the command pub for rostopic which has the following structure: rostopic pub <topic id> <topic type> <message> command. Press [TAB] key to autocomplete: topic id, topic type and get message template.
```
$ rostopic pub /command_velocity geometry_msgs/Twist "linear:
  x: 0.0
  y: 0.0
  z: 0.0
angular:
  x: 0.0
  y: 0.0
  z: 0.5"
```

And the robot will start to rotate. If so you are done :)

CAR: Components, Agents, and Robots

with Dynamic Languages

Author Archives: Pablo Estefó

Towards Live Programming in ROS with PhaROS and LRP

Setup

Stop when an obstacle is detected

Avoiding obstacles

Note

Robulab’s first lesson of LRP through PhaROS

Let’s do it step by step

Any question? Feel free to ask below.

NOTES

Getting laser and odometry information from Robulab robot

Setup

Install

Test

Testing Robulab

Setup

Ok, lets test it