p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Membre du Club
    Inscrit en
    janvier 2010
    Messages
    254
    Détails du profil
    Informations forums :
    Inscription : janvier 2010
    Messages : 254
    Points : 51
    Points
    51

    Par défaut Enregister canvas sous pdf - Perl Tk

    Bonjour à tous,
    J'ai creer un petit canvas qui me mappe differentes des coordonnées sur le transcript d'un gènes ( qui est representé par un rectangle). Le problème est que j'ai plein plein plein de transcript, et que je voudrais creer un fichier avec le resultat pour chaque transcript, j'ai essayé avec la fonction postscript() mais cela ne fonctionne pas, cela me retourne un fichier vide.
    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    #!/usr/local/bin/perl
    use Tk;
    use strict;
    use warnings;
    use Carp qw(confess);
    use Getopt::Long;
     
    my ($file_file,$cx_file);
    my (%hash,%dico);
    # ne pas changer $value_fixe
    my $value_fixe = 970; # taille du rectangle
     
    GetOptions("cx=s" => \$cx_file,"file=s" => \$file_file); 
    open(my $file,'<',$file_file) or die "$file_file : $!\n\n";
    open(my $cx,'<',$cx_file) or die "$cx_file : $!\n\n";
     
     
    while(<$cx>){
    	# start des crosslink de chaque FBtr
    	chomp;
    	my($chr,$start_cx,$stop_cx,$id_cx,$nb_cx,$sens_cx) = split /\t/,$_;
    	$chr =~ s/chr//g;
    	my ($read,$FBtr,$name,$length_trans)= split /;/,$id_cx;
    	push(@{$hash{$chr}->{'cx'}}, $start_cx);
    	$hash{$chr}->{'length'}=$length_trans; # longueur du transcript
     
    }
     
    while(<$file>){
    	# coordonnées de l'insert sur chaque transcript
    	chomp;
    	my($chr,$start_insert,$stop_insert,$id_insert,$other,$nb_insert,$sens_insert) = split /\s+/,$_;
    	print "$start_insert\t$stop_insert\n";
    	$chr =~ s/chr//g;
    	push(@{$hash{$chr}->{'insert'}}, $id_insert);
    	$dico{$id_insert}->{'start'} = $start_insert ; #
    	$dico{$id_insert}->{'stop'} = $stop_insert ;
    	my $length_insert = $stop_insert-$start_insert;
    	$dico{$id_insert}->{'length'} = $length_insert; # taille de l'insert
    }
     
    foreach my $transcript (keys(%hash)){
    	# Main Window
    	my $mw = new MainWindow;
    	$mw->resizable( 0, 0 );
    	my $cns = $mw -> Canvas(-relief=>"sunken", -background=>"white", -width => "1000" , -height => "500");
     
    	# rectangle representant le transcript
    	$cns -> createRectangle(20,400,990,410,-fill => "thistle");
    	my $length = $hash{$transcript}->{'length'};
    	#my $count_x = 0;
    	#my $count_y = 0;
     
    	# positionner les cx sur les transcripts :
    	foreach my $crosslink (@{$hash{$transcript}->{'cx'}}){	
    		my $x1 = (($crosslink*$value_fixe)/$length)+20;
    		my $y1 = 400;
    		my $x2 = $x1+5;
    		my $y2 =410 ;
    		$cns -> createRectangle($x1,$y1,$x2,$y2,-fill => "red");
    	} 
     
    	my $postscript = $cns->postscript(-file=>"$transcript.ps" );	
    	exit 0;
     
     
     
    }
    Quelqu'un aurait la solution à mon problème ?
    Merci d'avance,

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    17 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 17 586
    Points : 492 388
    Points
    492 388

    Par défaut

    Bonsoir,

    As-tu un exemple de fichier pour que l'on puisse tester ?

    Sinon, dans ton code, fais un update avant la création de ton postscript :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    $cns->update;
    my $postscript = $cns->postscript(-file=>"$transcript.ps" );
    Ou bien tu associes la création du postscript après une action sur un bouton. Cela permet de laisser le temps à Tk de créer et afficher le canvas avant la création du postscript, sinon, ce dernier est vide.

    Ensuite, pour lire ton fichier .ps, tu l'ouvres avec PDFCreator qui te le converti en PDF.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  3. #3
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    17 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 17 586
    Points : 492 388
    Points
    492 388

    Par défaut

    Il serait intéressant d'avoir des nouvelles.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

Discussions similaires

  1. enregistrer sous pdf
    Par nouha_79 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 21/06/2007, 13h58
  2. Réponses: 3
    Dernier message: 09/03/2007, 17h54
  3. Utiliser pour publipostage sous pdf
    Par toppich88 dans le forum BIRT
    Réponses: 3
    Dernier message: 12/06/2006, 17h34
  4. [Tkinter] recuperer le contenu d'un canvas sous format image
    Par xavier-Pierre dans le forum Tkinter
    Réponses: 2
    Dernier message: 03/04/2006, 20h07
  5. Imprimer un canvas sous n'importe quelle imprimante
    Par Bily.sdi dans le forum C++Builder
    Réponses: 3
    Dernier message: 13/12/2005, 13h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo