200 likes | 353 Views
installare moduli perl Mysql su windows: ppm install dbi ppm install dbd-mysql. GD Graphics Library
E N D
installare moduli perl Mysql su windows: ppm install dbi ppm install dbd-mysql BIOINFO3 - Lezione 1
GD Graphics Library • La libreria grafica gd permette di creare facilmente e velocemente immagini in modo dinamico. Uno dei vantaggi maggiori di questa libreria e` che puo` essere usata direttamente dal Perl senza la necessita` di richiamare altre applicazioni. BIOINFO3 - Lezione 1
Utilizzo di un modulo use modulo; Nel caso della libreria GD: use GD; Trovare e installare le librerie Un modo semplice di installare librerie e` quello di usare il modulo CPAN. Utilizzandolo in modo interattivo : perl -MCPAN -e shell install GD BIOINFO3 - Lezione 1
Per creare una nuova immagine si usa la seguente sintassi: • $im = new GD::Image($width, $height) • E` possibile aprire un`immagine gia` esistente: • $im = new GD::Image->newFromPng($immagine); • $im = new GD::Image->newFromJpeg($immagine); • $width e $height rappresentano la larghezza e l`altezza dell`immagine. L`immagine viene salvata in $im, che rappresenta un puntatore ad una struttura complessa simile a quella che abbiamo visto con i moduli Mysql. • Creazione dei colori. • $white = $im->colorAllocate(255,255,255); • $black = $im->colorAllocate(0,0,0); • $red = $im->colorAllocate(255,0,0); • $blue = $im->colorAllocate(0,0,255); • I colori sono in RGB, la notazione e` decimale. I tre colori, Red, Green, Blue possono assumere valori che variano da 0 a 255. • Il primo colore che viene definito e` quello che andra` a creare lo sfodo dell`immagine BIOINFO3 - Lezione 1
open(PICTURE,>picture.png") or die("Cannot open file for writing"); Setta la scrittura in un file in modo binario binmode MYFILEHANDLE; e` possibile decidere l`estensione (es gif, jpeg) print PICTURE $im->png; BIOINFO3 - Lezione 1
$im->arc(50,50,50,50,0,360,$black); • $im->fill(50,50,$red); • $im->arc(50,150,30,60,0,360,$black); • $im->fill(50,150,$blue); • $im->arc(50,250,60,30,0,360,$black); • $im->fill(50,250,$red); • $im->arc(150,50,50,50,0,180,$black); • $im->arc(150,150,30,60,90,270,$black); • $im->arc(150,250,30,60,270,90,$black); I primi due parametri definiscono il centro Il terzo la lunghezza dell`asse verticale Il quarto dell`asse orizzontale Il quinto ed il sesto l`angolo di partenza e l`angolo di arrivo BIOINFO3 - Lezione 1
Disegnare del testo Esistono due semplici funzioni per scrivere del testo: # Disegna il testo $im->string($font, $x, $y, $string, $color); # Disegna il testo ruotato di 90 gradi $im->stringUp($font, $x, $y, $string, $color); $x e $y definiscono la coordinata dell`angolo superiore sinistro del rettangolo che virtualmente contiene il testo BIOINFO3 - Lezione 1
Creazione di Grafici utilizzando il modulo GD::Graph Uno script in perl che utilizza la libreria GD::Graph solitamente contiene: -Dati come array di array -Il tipo di grafico $mygraph = GD::Graph::chart->new($width, $height); dove chart puo` essere bars, lines, points, linespoints, mixed o pie. Settare le opzioni necessarie al grafico. Questo implica definire il titolo, un`etichetta per l`asse x e y ... Disegnare il grafico usando la funzione plot $myimage = $mygraph->plot(\@data); BIOINFO3 - Lezione 1
Grafico a linee BIOINFO3 - Lezione 1