File tree Expand file tree Collapse file tree 1 file changed +3
-0
lines changed
jsk_pr2_startup/jsk_pr2_warning Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Original file line number Diff line number Diff line change 5
5
(ros ::roseus-add-msgs " pr2_msgs" )
6
6
(ros ::roseus-add-msgs " actionlib_msgs" )
7
7
(ros ::roseus-add-srvs " std_srvs" )
8
+ (load " package://pr2eus/speak.l" )
8
9
9
10
(setq *ac* nil *ac-tm* (ros ::time 0 )) ; ; ac_present > 0
10
11
(setq *motor* t ) ; ; if motors working
30
31
(> 180.0 (send (ros ::time- tm *ac-tm* ) :to-sec )))
31
32
(return-from check-power-state-cb nil ))
32
33
(setq *ac-tm* tm) ; ; check every 3min
34
+ (speak-jp (format nil " でんちのこり~A パーセントです" p))
33
35
(cond
34
36
((< p 10 )
35
37
(ros ::ros-info " need to back to M78 nebula" )
48
50
(ros ::roseus " battery_warning" )
49
51
(ros ::subscribe " /power_state" pr2_msgs ::PowerState #' check-power-state-cb)
50
52
(ros ::advertise " /robotsound" sound_play ::SoundRequest 10 )
53
+ (ros ::advertise " /robotsound_jp" sound_play ::SoundRequest 5 )
51
54
(ros ::spin)
You can’t perform that action at this time.
0 commit comments