[FLUG] scanniamoci

Mailing List del Fortunae LUG
=============================

il mio scanner ora funziona, con un programmino da riga di comando,
quindi niente anteprima e niente selezione dell'area di scansione come
su window
al programma tocca dargli la dimensione del file di uscita in pixel, ad
esempio 640x480, bisogna dargli la risoluzione, ad esempio 150 dpi, e il
nome di uscita del file
ovviamente se io faccio 640x480 a 150 dpi non e' uguale se lo faccio a
300 dpi, quindi ho scritto questo comodo programma in perl che,
passandogli le dimensioni della foto (e/o altra roba da scannare) in cm,
e la risoluzione che vogliamo, resituisce i due valori delle dimensioni
del file da passare al programma per la scansione

#!/usr/bin/perl

print "DimScan.pl 0.0.1 by Gecco\n";
print "Please report bugs at gecco\@napodano.com\n";
$inch="2.54";

print "\nInsert l\'altezza : ";
chomp($dimH = <STDIN>);
print "\nInsert la larghezza : ";
chomp($dimL = <STDIN>);
print "\nInsert DPI (write 150 for 150x150) :";
chomp($dpi =  <STDIN>);

$H=int(($dimH/$inch)*$dpi);
$L=int(($dimL/$inch)*$dpi);

print "\nWeight is $H\nHeight is $L\n";

la prossima versione includera' l'inglobazione con l'altro software, e
forse la conversione in diretta in jpeg

il risultato puo' essere visionato all'url
http://www.johndeere.bbk.org/shibuya.jpg
imperdibile foto di me con la maglietta di debian nella piazza di
shibuya (tokyo)

bau
-- 
Machine gave me some freedom.
--
http://www.perl.org/ThePerlReview/

Other related posts: