NAME
Games::3D::Sensor - monitor conditions and trigger when they are met
SYNOPSIS
use Games::3D::Thingy;
use Games::3D::Sensor;
use Games::3D::Link;
my $src = Games::3D::Thingy->new();
my $dst = Games::3D::Thingy->new();
# Send a signal SIG_ON (only once)
# if the health drops below 15
# Send a SIG_OFF (only once) if it goes outside that
# range (e.g. >= 15).
my $sensor = Games::3D::Sensor->new(
obj => $src, what => 'health',
type => SENSOR_BELOW,
A => 15,
when => COND_UNCOND, # default
);
# the sensor watches the source object, but it does not yet
# send it's signal to anywhere, so link it to $dst:
my $link = Games::3D::Link->new();
$link->link ($sensor, $dst);
# Send a signal SIG_ON (every 100 ms) if health is between
# 15 and 45. Don't send any signal if outside that range
my $sensor_2 = Games::3D::Sensor->new(
obj => $src, what => 'health',
type => SENSOR_BETWEEN,
A => 15,
B => 45,
repeat => 100,
count => 0, # infinitely
when => COND_MET,
);
# the sensor watches the source object, but it does not yet
# send it's signal to anywhere, so link it to $dst without an
# intermidiate link object:
$sensor_2->add_output($dst);
# Send SIG_FLIP everytime the condition changes
# This could be used to change the color of the health
# bar from green to red everytime the health goes below
# 10, and back to red if it goes over 10.
my $sensor_3 = Games::3D::Sensor->new(
obj => $src, what => 'health',
type => SENSOR_BELOW,
A => 10,
fixed_output => SIG_FLIP,
);
# Send SIG_ON three times as long as the condition is not met
my $sensor_4 = Games::3D::Sensor->new(
obj => $src, what => 'health',
type => SENSOR_RANGE,
A => 10,
B => 45,
repeat => 250,
count => 3, # 3 times
when => COND_NOT_MET,
fixed_output => SIG_ON,
);
EXPORTS
Exports nothing on default.
DESCRIPTION
Watches over conditions and triggers if they are met.
METHODS
- new()
-
my $sensor = Games::3D::Sensor->new( @options );
Creates a new sensor.
- is_active()
-
$sensor->is_active();
Returns true if the sensor is active, or false for inactive. Inactive sensors will not send any signals until they become active again.
- activate()
-
$sensor->activate();
Set the sensor to the active state. Newly created sensors are always active.
- deactivate()
-
$sensor->deactivate();
Set the sensor to inactive. Newly created ones are always active. Inactive sensors will not send any signals.
- id()
-
Return the sensors' unique id.
- name()
-
print $sensor->name(); $sensor->name('new name');
Set and/or return the sensors' name. The default name is the last part of the classname, uppercased, preceded by '#' and the obejcts' unique id.
- add_output()
-
$sensor->add_output($object);
Registers
$object
as an output of this sensor, e.g. each signal the sensor generates will also be sent to this object. See also link().Do not forget to also register the sensor
$link
as input for$object
via$object->add_input($sensor);
. It is easier and safer to just use C>< $sensor->link($sensor,$dst); >>, though. - link()
-
$sensor->link($sensor,$dest);
Is a combination of add_input() and add_output(), e.g links the sensor to the destination object, too.
- met_count()
-
$sensor->met_count(2);
Sets the count of how many times the signal is sent out. Default is 1. This acts basically as a multiplier, setting it to 2 will for instance send each signal two times out, with a delay in between. The delay can be set with met_delay(). Setting it to 0 will send the signal infinitely often, as long as the condition is met.
Returns the count.
- unmet_count()
-
$sensor->unmet_count(2);
Sets the count of how many times the signal is sent out. Default is 1. This acts basically as a multiplier, setting it to 2 will for instance send each signal two times out, with a delay in between. The delay can be set with met_delay(). Setting it to 0 will send the signal infinitely often, as long as the condition is met.
Returns the count.
- delay()
-
$link->delay(2000); # 2 seconds $link->delay(1000,500); # 1 second, and then 1/2 second $link->delay(1000,500,200); # 1s, 1/2s, and both of them with # randomized by +/- 200 ms
Sets the delay between the receiving of the signal and it's relaying. The default for this is 0. Also sets the delay between each consecutive relay if count() is different than 1. The third parameter is an optional random offset applied to both delays.
Returns a list of (first_delay, resend_delay, random_offset).
- once()
-
if ($link->once()) { ... } # return true if one-time link $link->once(1); # enable one-time sending $link->once(0); # disable
Sets the one-time flag of the sensor. If set to a true value (the default), then the sensor link will only re-act to the first signal, and then deactivate itself.
If the link is set to send for each incoming signal more than one signal (via
delay()
), they still will all be sent. Also, each of the outputs of the link will receive the signal. The once flag is only for the incoming signals, not how many go out.You can enable the link again (with activate(), and it will once more work on one incoming signal.
Default is off, e.g. the link will work on infinitely many incoming signals.
Returns the once flag.
- fixed_output()
-
if (defined $sensor->fixed_output()) { ... } $sensor->fixed_output(undef); # disable $sensor->fixed_output(SIG_FLIP); # always send FLIP
Get/set the fixed output signal. If set to undef (default), then the two signals SIG_ON and SIG_OFF will be generated when the condition is met (or not, respectively).
Setting
$sensor->fixed_output(SIG_FLIP);
would allow you to build a sensor that always sends a flip signal as the condition changes from met to unmet and back. - and_gate()
-
Sensors cannot act as an AND gate, so this routine should not be called.
- type()
-
$sensor->type();
Set/get the type of the sensor.
- when()
-
$sensor->when();
Set/get the when-field of the sensor.
- watch()
-
$sensor->watch( $destination, $what );
Bind an additional target to the sensor.
- signal()
-
$sensor->signal( $input, $signal ); $sensor->signal( $link, SIG_ON );
$input
sends the signal$signal
to this sensor.
AUTHORS
(c) 2004, 2006 Tels <http://bloodgate.com/>