next up previous
Next: A.30 vc-msg.setl Up: A. WEBeye Source Code Previous: A.28 vc-mouse.setl

  
A.29 vc-mover.setl

Service provided:
mover

Client of service:
do    (vc-do.setl, Section A.11 [vc-do.setl])

Called by parent program:
vc-toplev.setl     (Section A.42 [vc-toplev.setl])

Textually #includes:
vc-simpler.setl     (Section A.40 [vc-simpler.setl])

Source code: *

const yhwh = `vc-mover.setl';
 
-- Simplified ``Move To'' command interface.
 
-- The client just sends a pair of numbers (pan and tilt) on each line.
 
-- The name of the service we provide:
#define service_name `mover'
 
-- The number of parameters on the command:
#define n_parms   2
 
-- The full details of the command we will send to the do service:
#define build_cmd  \
  cmd := {};  \
  cmd.name := `Move';  \
  cmd.subcmd := `To';  \
  cmd.pan := val t(1);  \
  cmd.tilt := val t(2);
 
#include "vc-simpler.setl"


next up previous
Next: A.30 vc-msg.setl Up: A. WEBeye Source Code Previous: A.28 vc-mouse.setl
David Bacon
1999-12-10