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
|
##############################################
# A quaternion-based controller framework with the following transformations:
# 1. world "origin". This is what the world revolves around
# 2. world "rotation" at origin.
# 3. camera "distance" along z axis after that (camera looks
# at negative z axis).
# 4. camera "rotation" after that (not always usable).
package PDL::Graphics::TriD::SimpleController;
use strict;
use warnings;
use fields qw/WOrigin WRotation CDistance CRotation/;
sub new{
my ($class) = @_;
my $self = fields::new($class);
$self->reset();
$self;
}
sub normalize { my($this) = @_;
$this->{WRotation}->normalise;
$this->{CRotation}->normalise;
}
sub reset {
my($this) = @_;
$this->{WOrigin} = [0.5,0.5,0.5];
$this->{WRotation} = PDL::Graphics::TriD::Quaternion->new(
0.715, -0.613, -0.204, -0.272); # isometric-ish like gnuplot
$this->{CDistance} = 2.5;
$this->{CRotation} = PDL::Graphics::TriD::Quaternion->new(1,0,0,0);
}
sub set {
my($this,$options) = @_;
foreach my $what (keys %$options){
if($what =~ /Rotation/){
$this->{$what}[0] = $options->{$what}[0];
$this->{$what}[1] = $options->{$what}[1];
$this->{$what}[2] = $options->{$what}[2];
$this->{$what}[3] = $options->{$what}[3];
}elsif($what eq 'WOrigin'){
$this->{$what}[0] = $options->{$what}[0];
$this->{$what}[1] = $options->{$what}[1];
$this->{$what}[2] = $options->{$what}[2];
}else{
$this->{$what} = $options->{$what};
}
}
}
1;
|
