diff options
Diffstat (limited to 'exemples/exemple_anti_recouvrement.pl')
| -rwxr-xr-x | exemples/exemple_anti_recouvrement.pl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/exemples/exemple_anti_recouvrement.pl b/exemples/exemple_anti_recouvrement.pl new file mode 100755 index 0000000..4a6b9e4 --- /dev/null +++ b/exemples/exemple_anti_recouvrement.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU GPL General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA, +# or refer to http://www.gnu.org/copyleft/gpl.html +# + +BEGIN { + unshift @INC, ".", "./data", "../src"; +} + +use strict; +use MTools; +use MTools::MGroup; +use MTools::Comp::MAntiRecouvrement; +use StripAntiRecouvre; + +my $frame = new MTools (1280, 1024, "Test"); +my $antirecouvrementgroup = new MTools::Comp::MAntiRecouvrement (); +my $strip1 = new StripAntiRecouvre (1, $frame, callsign => "AFR6845"); +my $strip2 = new StripAntiRecouvre (1, $frame, callsign => "CTM5285"); +my $strip3 = new StripAntiRecouvre (1, $frame, callsign => "AF850HJ"); +my $strip4 = new StripAntiRecouvre (1, $frame, callsign => "DLH8285"); +$antirecouvrementgroup -> addObject($strip1); +$antirecouvrementgroup -> addObject($strip2); +$antirecouvrementgroup -> addObject($strip3); +$antirecouvrementgroup -> addObject($strip4); + +mrun; |