Beta Shell v2.0

File Manager

~ /usr/lib64/perl5/vendor_perl/PDL/Graphics/TriD

Name	Size	Perms	Modified	Actions
[ .. / .. ]
ArcBall.pm	3.1 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
ButtonControl.pm	2.42 KB	-rw-r--r--	2019-04-25 22:08:59	Edit Del
Contours.pm	8.25 KB	-rw-r--r--	2021-02-20 01:22:59	Edit Del
Control3D.pm	1.67 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
GL.pm	30.38 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
GoBoard.pm	2.34 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Graph.pm	9.12 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Image.pm	3 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Labels.pm	1.42 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Lines.pm	1.22 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Logo.pm	12.91 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
MathGraph.pm	4.44 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Mesh.pm	5.79 KB	-rw-r--r--	2021-02-20 01:22:59	Edit Del
OOGL.pm	857 B	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Object.pm	1.97 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Objects.pm	9.54 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Polygonize.pm	2.55 KB	-rw-r--r--	2021-02-20 01:22:59	Edit Del
Quaternion.pm	3.94 KB	-rw-r--r--	2021-02-20 01:22:59	Edit Del
Rout.pm	5.35 KB	-rw-r--r--	2021-03-26 14:40:22	Edit Del
SimpleScaler.pm	1.54 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Surface.pm	897 B	-rw-r--r--	2019-04-22 00:30:51	Edit Del
TextObjects.pm	395 B	-rw-r--r--	2019-04-22 00:30:51	Edit Del
VRML.pm	20.02 KB	-rw-r--r--	2021-03-07 05:32:08	Edit Del
ViewPort.pm	1.99 KB	-rw-r--r--	2019-04-22 00:30:51	Edit Del
Window.pm	5.52 KB	-rw-r--r--	2019-04-25 22:08:59	Edit Del

Editing: ButtonControl.pm (2.42 KB)

#!/usr/bin/perl 
#
#  PDL::Graphics::TriD::ButtonControl - This package simply defines 
#  default event handler subroutines.      $Revision$  
#
#  James P. Edwards
#  Instituto Nacional de Meteorologia
#  Brasilia, DF, Brasil
#  jedwards@inmet.gov.br  
#
#  This distribution is free software; you can
#  redistribute it and/or modify it under the same terms as Perl itself.
#  

=head1 NAME

PDL::Graphics::TriD::ButtonControl - default event handler subroutines

=head1 FUNCTIONS

=head2 new()

=for ref

Bless an oject into the class ButtonControl, expects the associated
Window object to be supplied as an argument.

=for usage

The ButtonControl class is a base class which all TriD event
controllers should inherit from.  By itself it does not do much.  It
defines ButtonPressed and ButtonRelease functions which are expected by
the Event loop.



=cut

package PDL::Graphics::TriD::ButtonControl;
use strict;
use fields qw/Win W H SC/;

sub new {
  my ($class,$win) = @_;
  
  my $self = fields::new($class);
  $self->{Win} = $win;

  $self;
}


=head2 mouse_moved

=for ref
  A do nothing function to prevent errors if not defined in a subclass

=cut

sub mouse_moved{
  print "mouse_moved @_\n" if $PDL::Graphics::TriD::verbose;
}

=head2 ButtonRelease

=for ref
  A do nothing function to prevent errors if not defined in a subclass

=cut

sub ButtonRelease{
  my ($this,$x,$y) = @_;
  $this->{Win}{Active} = 0;
  print "ButtonRelease @_\n"  if $PDL::Graphics::TriD::verbose;
}

=head2 ButtonPressed

=for ref

  Activates the viewport the mouse is inside when pressed

=cut

sub ButtonPress{
  my ($this,$x,$y) = @_;

  
#
# GL (0,0) point is Lower left X and Tk is upper left.
#
  $y = $PDL::Graphics::TriD::cur->{Height}-$y;

#  print "$x $y ",$this->{Win}{X0}," ",$this->{Win}{Y0}," ",$this->{Win}{W}," ",$this->{Win}{H},"\n";

  if($this->{Win}{X0} <= $x && $this->{Win}{X0}+$this->{Win}{W}>=$x 
	  && $this->{Win}{Y0} <= $y && $this->{Win}{Y0}+$this->{Win}{H}>=$y ){
	 $this->{Win}{Active} = 1;
  }
  print "ButtonPress @_ ",ref($this->{Win}),"\n" if $PDL::Graphics::TriD::verbose;
}

=head2 set_wh

=for ref

  Define the width and Height of the window for button control

=cut

sub set_wh {
  my($this,$w,$h) = @_;
  print ref($this)," $w,$h\n" if $PDL::Graphics::TriD::verbose;
  $this->{W} = $w; 
  $this->{H} = $h;
  $w = 0 unless defined $w;
  $h = 0 unless defined $h;
  if($w > $h) {
	 $this->{SC} = $h/2;
  } else {
	 $this->{SC} = $w/2;
  }
}


1;