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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
package WigglyWidget;
use strict;
use warnings;
use blib;
use QtCore4;
use QtGui4;
# [0]
use QtCore4::isa qw( Qt::Widget );
use QtCore4::slots
setText => ['QString'];
#Qt::BasicTimer timer;
#Qt::String text;
#int step;
# [0]
my @sineTable = (
0, 38, 71, 92, 100, 92, 71, 38, 0, -38, -71, -92, -100, -92, -71, -38
);
# [0]
sub NEW {
my ( $class, $parent ) = @_;
$class->SUPER::NEW( $parent );
this->setBackgroundRole(Qt::Palette::Midlight());
this->setAutoFillBackground(1);
my $newFont = this->font();
$newFont->setPointSize($newFont->pointSize() + 20);
this->setFont($newFont);
this->{step} = 0;
this->{timer} = Qt::BasicTimer();
this->{timer}->start(60, this);
}
# [0]
# [1]
sub paintEvent {
# [1] //! [2]
my $metrics = Qt::FontMetrics(this->font());
my $x = (this->width() - $metrics->width(this->{text})) / 2;
my $y = (this->height() + $metrics->ascent() - $metrics->descent()) / 2;
my $color = Qt::Color();
# [2]
# [3]
my $painter = Qt::Painter(this);
# [3] //! [4]
my $text = this->{text};
for (my $i = 0; $i < length $text; ++$i) {
my $index = (this->{step} + $i) % 16;
$color->setHsv((15 - $index) * 16, 255, 191);
$painter->setPen($color);
$painter->drawText($x, $y - (($sineTable[$index] * $metrics->height()) / 400),
substr( $text, $i, 1 ));
$x += $metrics->width(substr( $text, $i, 1 ));
}
$painter->end();
}
# [4]
# [5]
sub timerEvent {
# [5] //! [6]
my ( $event ) = @_;
if ($event->timerId() == this->{timer}->timerId()) {
++this->{step};
this->update();
} else {
this->SUPER::timerEvent($event);
}
# [6]
}
sub setText {
my ( $newText ) = @_;
this->{text} = $newText;
}
1;
|
