Leser: 2
4 Einträge, 1 Seite |
$canvas->update;
$mainWindow->update;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
sub showPosData
{
control::geti2caddress($i2c);
my $robot = shift;
my $target = shift;
my $dist;
$posshow->delete('all'); #Canvas das die Positionen anzeigen soll(te)
{
foreach (sort keys %$oo)
{
if ($oo->{$_}{pos}{x} > 0 and $oo->{$_}{pos}{y} > 0)
{
my $color = 'blue';
$color = 'red' if ($oo->{$_}{mode} eq 'active');
pos::createText($posshow, $oo->{$_}, $_, $color); #erstellt die Texte fürs canvas
}
else
{
control::stopmotor();
}
}
my $targetangle = pos::calcDirection($oo, $currentactive, $currentpassive);
my ($x, $y) = pos::createAngle($targetangle);
$posshow->createLine($oo->{$robot}{pos}{x}, $oo->{$robot}{pos}{y}, $oo->{$robot}{pos}{x} + $x, $oo->{$robot}{pos}{y} + $y, -fill => 'red', -arrow => 'last');
[ ... ]
$posshow->update; #Canvas aktualisieren... geht aber nicht :((((
}
}
4 Einträge, 1 Seite |