const yhwh = 'vc-jumper.setl';

-- Simplified "Jump 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 'jumper'

-- 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 := 'Jump';  \
  cmd.subcmd := 'To';  \
  cmd.pan := val t(1);  \
  cmd.tilt := val t(2);

#include "vc-simpler.setl"