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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package Car;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtDBus4;
use QtCore4::isa qw( Qt::GraphicsItem );
use QtCore4::slots
accelerate => [],
decelerate => [],
turnLeft => [],
turnRight => [];
use QtCore4::signals
crashed => [];
sub color() {
return this->{color};
}
sub wheelsAngle() {
return this->{wheelsAngle};
}
sub speed() {
return this->{speed};
}
use constant Pi => 3.14159265358979323846264338327950288419717;
sub boundingRect
{
return Qt::RectF(-35, -81, 70, 115);
}
sub NEW
{
my ($class) = @_;
$class->SUPER::NEW();
this->{color} = Qt::Color(Qt::green());
this->{wheelsAngle} = 0;
this->{speed} = 0;
this->setFlag(Qt::GraphicsItem::ItemIsMovable(), 1);
this->setFlag(Qt::GraphicsItem::ItemIsFocusable(), 1);
}
sub accelerate
{
if (this->speed < 10){
++this->{speed};
}
}
sub decelerate
{
if (this->speed < 10){
--(this->{speed});
}
}
sub turnLeft
{
if (this->wheelsAngle > -30) {
this->{wheelsAngle} -= 5;
}
}
sub turnRight
{
if (this->wheelsAngle < 30) {
this->{wheelsAngle} += 5;
}
}
sub paint
{
my ($painter) = @_;
$painter->setBrush(Qt::Brush(Qt::gray()));
$painter->drawRect(-20, -58, 40, 2); # front axel
$painter->drawRect(-20, 7, 40, 2); # rear axel
$painter->setBrush(Qt::Brush(this->color));
$painter->drawRect(-25, -79, 50, 10); # front wing
$painter->drawEllipse(-25, -48, 50, 20); # side pods
$painter->drawRect(-25, -38, 50, 35); # side pods
$painter->drawRect(-5, 9, 10, 10); # back pod
$painter->drawEllipse(-10, -81, 20, 100); # main body
$painter->drawRect(-17, 19, 34, 15); # rear wing
$painter->setBrush(Qt::Brush(Qt::black()));
$painter->drawPie(-5, -51, 10, 15, 0, 180 * 16);
$painter->drawRect(-5, -44, 10, 10); # cocpit
$painter->save();
$painter->translate(-20, -58);
$painter->rotate(this->wheelsAngle);
$painter->drawRect(-10, -7, 10, 15); # front left
$painter->restore();
$painter->save();
$painter->translate(20, -58);
$painter->rotate(this->wheelsAngle);
$painter->drawRect(0, -7, 10, 15); # front left
$painter->restore();
$painter->drawRect(-30, 0, 12, 17); # rear left
$painter->drawRect(19, 0, 12, 17); # rear right
}
sub timerEvent
{
my $axelDistance = 54;
my $wheelsAngleRads = (this->wheelsAngle * Pi) / 180;
my $turnDistance = cos($wheelsAngleRads) * $axelDistance * 2;
my $turnRateRads = $wheelsAngleRads / $turnDistance; # rough estimate
my $turnRate = ($turnRateRads * 180) / Pi;
my $rotation = this->speed * $turnRate;
this->rotate($rotation);
this->translate(0, -(this->speed));
this->update();
}
1;
|
