Hola amigos Hoy les he traído algunos tips para poder leer manga en el papyre 6.13, con explicaciones
Nota: para poder realizar todos los pasos devén poseer de los siguientes software que algunos los proveo yo por que son GNU y otro como mathlab no por derechos de auto sepan disculpar pero como saben google y paciencia lo resuelve todo
Software necesarios:
MathLab con el tool box (caja de herramientas) de procesamiento de imagen preferiblemente la ultima versión yo tengo MATLAB(7.14) con Image Processing Toolbox (8.0).
irfanview (ultima vercion con pluglins completos) exelente visor de imágenes ya les diré para que lo usaremos.
http://www.irfanview.com/
Djvu libre http://sourceforge.net/projects/djvu/files/DjVuLibre_Windows/3.5.25%2B4.9
Pdf a Djvu (un extra muy util)
MathLab con el tool box (caja de herramientas) de procesamiento de imagen preferiblemente la ultima versión yo tengo MATLAB(7.14) con Image Processing Toolbox (8.0).
irfanview (ultima vercion con pluglins completos) exelente visor de imágenes ya les diré para que lo usaremos.
http://www.irfanview.com/
Djvu libre http://sourceforge.net/projects/djvu/files/DjVuLibre_Windows/3.5.25%2B4.9
Pdf a Djvu (un extra muy util)
Una vez listo los programas descargados hay que armar la careta de trabajo en la cual construiremos un archivo en formato DJVU que el papyre lee con mejor facilidad pero hay que agregarle unos procesos para llegar a formar un archivo de calidad aceptable (Eso es lo que aremos es un solo trabajo pasas todo a djvu como a continuación indico pero es de mucha utilidad ya lo verán)
Primero: dentro de la carpeta con todo los programas lo primero que hay que hacer es descomprimir PdfToDjvuGUIwin32.zip le pones Extraer aquí , se creara una carpeta llamada PdfToDjvuGUI
Segundo: instala todos los programas en la carpeta en donde se descomprimió el programa (haremos un potable)
Tercero: tenemos que crear unos batch en el caso de Windows para automatizar el proceso de conversión, Para eso abrimos opciones de carpetas del explorador de Windows y ponemos mostrar extensión de archivos conocidos
Luego dentro de la carpeta PdfToDjvuGUI creamos un archivo de texto y le cambiamos el nombre y la extensión a de_imagen_a_djvu.cmd
Luego presiona click derecho sobre el archivo y presiona editar y ponle el siguiente código
IF EXIST *.png (
i_view32.exe *.png /convert=*.jpg
del *.png
)
IF EXIST *.gif (
i_view32.exe *.gif /convert=*.jpg
del *.gif
)
IF EXIST *.bmp (
i_view32.exe *.bmp /convert=*.jpg
del *.bmp
)
for %%X in (*.jpg) do c44 "%%X"
ren *.djvu *.thq
djvm -c Y_Pv_mS_O.djvu *.thq
del *.thq
del *.jpg
i_view32.exe *.png /convert=*.jpg
del *.png
)
IF EXIST *.gif (
i_view32.exe *.gif /convert=*.jpg
del *.gif
)
IF EXIST *.bmp (
i_view32.exe *.bmp /convert=*.jpg
del *.bmp
)
for %%X in (*.jpg) do c44 "%%X"
ren *.djvu *.thq
djvm -c Y_Pv_mS_O.djvu *.thq
del *.thq
del *.jpg
Cuarto paso: acomodar la carpeta para poder trabajarla para eso nos situamos en la carpeta PdfToDjvuGUI como de costumbre y lo que tenemos que hacer es pasar el contenido de la carpeta DjVuLibre y IrfanView en la PdfToDjvuGUI remplazando todo si así lo requiere, Es decir que las carpetas DjVuLibre y IrfanView quedaran bacías y su contenido en PdfToDjvuGUI. todo mezclado
Ahora toco ocultar lo que no queremos ver seleccionamos casi todo y le ponemos propiedades ocultar. Excepto (El archivo que creamos de_imagen_a_djvu.cmd, djview.exe, Pdf To Djvu GUI.exe, i_view32.exe)
Pausa intermedia: es para chequear el progreso y si no se atascaron en algún paso,
Revisemos que herramienta hemos creado asta el momento y de que utilidad es
Pdf To Djvu GUI.exe Nos sirve para convertir de PDF a DJVU que en el papyre este formato trae mas beneficios que el pdf por ejemplo cuando agrandamos el texto también se agrandan las imágenes sin desaparecer
i_view32.exe excelente visor de imágenes de todo tipo también abre el formato djbu en este caso nos sirve para transformar imágenes a jpj por comando necesario para el proceso de transformar cualquier imagen a djvu
djview.exe visor exclusivo de djvu para chequear el trabajo final en este caso
de_imagen_a_djvu.cmd pequeño escrip que cree para poder transformar los las imágenes o grupo de imágenes como veremos a continuación en un archivo djbu
luego
Bien sigamos adelante por que emos resuelto la mitad del problema (que es poder visualizar imágenes y archivos correctamente en papyre 6.13 con zoom y todo). Ya podemos usar el zoom tranquilamente, pdf se ven bien pero las imágenes se deforman y adema al pasarlas como paso previo a jpg se comprime y pierden calidad .no hay problema ya he resuelto el problema con nuestro amigo matlab, les contare como con matlab recorto las imágenes a relación aspecto de la pantalla del papyre y no las comprimo en absoluto eso evita perdidas de calidad, luego las meto al djbu con el escrip.
Nota algunos archivos png no todos pero algunos se oscurecen al pasarlos por mathlab creen otro archivo de texto y pongalen por nombre a_jpg_para_matlab.cmd, editarlo e inserten el siguiente código
IF EXIST *.png (
i_view32.exe *.png /convert=*.jpg
del *.png
)
IF EXIST *.gif (
i_view32.exe *.gif /convert=*.jpg
del *.gif
)
IF EXIST *.bmp (
i_view32.exe *.bmp /convert=*.jpg
del *.bmp
)
mi sugerencia es que primero prueben con matlab primero si les quedan imágenes oscuras el cod anterior si no no lo hagan
IF EXIST *.png (
i_view32.exe *.png /convert=*.jpg
del *.png
)
IF EXIST *.gif (
i_view32.exe *.gif /convert=*.jpg
del *.gif
)
IF EXIST *.bmp (
i_view32.exe *.bmp /convert=*.jpg
del *.bmp
)
mi sugerencia es que primero prueben con matlab primero si les quedan imágenes oscuras el cod anterior si no no lo hagan
quinto paso: Lo que hay que hacer es elegir varias imágenes puede ser una serie de anime lo que sea que quieres disfrutar en papyre he usa matlab con el siguiente código (nota he echo que matlab me de imágenes en escala de 16 grises por que el display solo lee 16 escalas de grises pero si prefieren pueden quitar dicho fragmento)
Para un archivo de imagen (código matlab)
clear all
[filename, pathname] = ...
uigetfile({'*.*';'*.gif';'*.png';'*.jpg'},'elija el tipo e imagen');
if isequal(filename,0)
else
RGB = imread(fullfile(pathname, filename));
e='.jpg';
listo=strcat(pathname,'listo ',filename,'');
if isdir(listo) == 0
mkdir(listo);
end
try
RGB = rgb2gray(RGB);
[X, map] = gray2ind(RGB, 16);
RGB = ind2rgb(X,map);
catch str
[X, map] = gray2ind(RGB, 16);
RGB = ind2rgb(X,map);
end
dim = size(RGB);
no=strrep(filename,'.jpg','');
no=strrep(no,'.png','');
no=strrep(no,'.gif','');
no=strrep(no,'.bmp','');
if (dim(1) < (dim(2)*4/3)+5)&&(dim(1) > (dim(2)*4/3)-5)
imwrite (RGB, strcat(listo, no,'0',e));
else
if dim(1) > (dim(2)*4/3)
max=round(dim(2)*4/3)-1;
maxi=round(dim(1)/(max-1))-1;
for i = 1:maxi,
B = RGB((1+(max*(i-1))) : (max*i), : );
imwrite (B, strcat(listo, no, num2str(i), e),'Quality',100);
end
if dim(1)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( (1+(max*(maxi-1))) : (max*maxi), : );
imwrite (B, strcat(listo, no, num2str(maxi), e),'Quality',100);
end
if dim(1)>(max*maxi)
B = RGB((dim(1)-max) : dim(1), : );
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e),'Quality',100);
end
else
max=round(dim(1)*3/4)-1;
maxi=round(dim(2)/(max-1))-1;
for i = 1:maxi,
B = RGB( :,(1+(max*(i-1))) : (max*i));
imwrite (B, strcat(listo, no, num2str(i), e),'Quality',100);
end
if dim(2)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( :,(1+(max*(maxi-1))) : (max*maxi));
imwrite (B, strcat(listo,no, num2str(maxi),e),'Quality',100);
end;
if dim(2)>(max*maxi)
B = RGB( :,(dim(2)-max) :dim(2));
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e),'Quality',100);
end
end
end
end
clear all
[filename, pathname] = ...
uigetfile({'*.*';'*.gif';'*.png';'*.jpg'},'elija el tipo e imagen');
if isequal(filename,0)
else
RGB = imread(fullfile(pathname, filename));
e='.jpg';
listo=strcat(pathname,'listo ',filename,'');
if isdir(listo) == 0
mkdir(listo);
end
try
RGB = rgb2gray(RGB);
[X, map] = gray2ind(RGB, 16);
RGB = ind2rgb(X,map);
catch str
[X, map] = gray2ind(RGB, 16);
RGB = ind2rgb(X,map);
end
dim = size(RGB);
no=strrep(filename,'.jpg','');
no=strrep(no,'.png','');
no=strrep(no,'.gif','');
no=strrep(no,'.bmp','');
if (dim(1) < (dim(2)*4/3)+5)&&(dim(1) > (dim(2)*4/3)-5)
imwrite (RGB, strcat(listo, no,'0',e));
else
if dim(1) > (dim(2)*4/3)
max=round(dim(2)*4/3)-1;
maxi=round(dim(1)/(max-1))-1;
for i = 1:maxi,
B = RGB((1+(max*(i-1))) : (max*i), : );
imwrite (B, strcat(listo, no, num2str(i), e),'Quality',100);
end
if dim(1)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( (1+(max*(maxi-1))) : (max*maxi), : );
imwrite (B, strcat(listo, no, num2str(maxi), e),'Quality',100);
end
if dim(1)>(max*maxi)
B = RGB((dim(1)-max) : dim(1), : );
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e),'Quality',100);
end
else
max=round(dim(1)*3/4)-1;
maxi=round(dim(2)/(max-1))-1;
for i = 1:maxi,
B = RGB( :,(1+(max*(i-1))) : (max*i));
imwrite (B, strcat(listo, no, num2str(i), e),'Quality',100);
end
if dim(2)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( :,(1+(max*(maxi-1))) : (max*maxi));
imwrite (B, strcat(listo,no, num2str(maxi),e),'Quality',100);
end;
if dim(2)>(max*maxi)
B = RGB( :,(dim(2)-max) :dim(2));
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e),'Quality',100);
end
end
end
end
clear all
Lo mejor es copien el código a un bloc de notas y pónganle por nombre papyre.m en el directorio de trabajo de su mathlab o agregan el directorio al matla y lo pueden usar con el nombre del archivo como si fuera una función (solo para usuarios avanzados)
código para varios archivo resultado un poco distinto
[filename, pathname] = ...
uigetfile({'*.jpg';'*.gif';'*.png';'*.*'},'elija el tipo e imagen');
if isequal(filename,0)
else
e='.jpg';
listo=strcat(pathname,'listo');
if isdir(listo) == 0
mkdir(listo);
end
for torta = 0:38,
if torta < 10
RGB = imread(strcat(pathname, '0',num2str(torta), e));
no=strrep(strcat('0',num2str(torta), e),'.jpg','');
else
RGB = imread(strcat(pathname,num2str(torta), e));
no=strrep(strcat(num2str(torta), e),'.jpg','');
end
try
RGB = rgb2gray(RGB);
catch err
end
%RGB = dither(RGB);
dim = size(RGB);
if (dim(1) < (dim(2)*4/3)+5)&&(dim(1) > (dim(2)*4/3)-5)
imwrite (RGB, strcat(listo, no,'0',e));
else
if dim(1) > (dim(2)*4/3)
max=round(dim(2)*4/3)-1;
maxi=round(dim(1)/(max-1))-1;
for i = 1:maxi,
B = RGB((1+(max*(i-1))) : (max*i),: );
imwrite (B, strcat(listo, no, num2str(i), e));
end
if dim(1)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( (1+(max*(maxi-1))) : (max*maxi),: );
imwrite (B, strcat(listo, no, num2str(maxi), e));
end
if dim(1)>(max*maxi)
B = RGB((dim(1)-max) : dim(1),: );
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e));
end
else
max=round(dim(1)*3/4)-1;
maxi=round(dim(2)/(max-1))-1;
for i = 1:maxi,
B = RGB( :,(1+(max*(i-1))) : (max*i));
imwrite (B, strcat(listo, no, num2str(i), e));
end
if dim(2)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( :,(1+(max*(maxi-1))) : (max*maxi));
imwrite (B, strcat(listo,no, num2str(maxi),e));
end;
if dim(2)>(max*maxi)
B = RGB( :,(dim(2)-max) :dim(2));
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e));
end
end
end
end
clear all
end
uigetfile({'*.jpg';'*.gif';'*.png';'*.*'},'elija el tipo e imagen');
if isequal(filename,0)
else
e='.jpg';
listo=strcat(pathname,'listo');
if isdir(listo) == 0
mkdir(listo);
end
for torta = 0:38,
if torta < 10
RGB = imread(strcat(pathname, '0',num2str(torta), e));
no=strrep(strcat('0',num2str(torta), e),'.jpg','');
else
RGB = imread(strcat(pathname,num2str(torta), e));
no=strrep(strcat(num2str(torta), e),'.jpg','');
end
try
RGB = rgb2gray(RGB);
catch err
end
%RGB = dither(RGB);
dim = size(RGB);
if (dim(1) < (dim(2)*4/3)+5)&&(dim(1) > (dim(2)*4/3)-5)
imwrite (RGB, strcat(listo, no,'0',e));
else
if dim(1) > (dim(2)*4/3)
max=round(dim(2)*4/3)-1;
maxi=round(dim(1)/(max-1))-1;
for i = 1:maxi,
B = RGB((1+(max*(i-1))) : (max*i),: );
imwrite (B, strcat(listo, no, num2str(i), e));
end
if dim(1)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( (1+(max*(maxi-1))) : (max*maxi),: );
imwrite (B, strcat(listo, no, num2str(maxi), e));
end
if dim(1)>(max*maxi)
B = RGB((dim(1)-max) : dim(1),: );
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e));
end
else
max=round(dim(1)*3/4)-1;
maxi=round(dim(2)/(max-1))-1;
for i = 1:maxi,
B = RGB( :,(1+(max*(i-1))) : (max*i));
imwrite (B, strcat(listo, no, num2str(i), e));
end
if dim(2)>(max*(maxi+1))
maxi=maxi+1;
B = RGB( :,(1+(max*(maxi-1))) : (max*maxi));
imwrite (B, strcat(listo,no, num2str(maxi),e));
end;
if dim(2)>(max*maxi)
B = RGB( :,(dim(2)-max) :dim(2));
imwrite (B, strcat(listo, no, num2str(round(maxi+1)), e));
end
end
end
end
clear all
end
nota: El único problema es que las imágenes devén llamarse 1.* , 2 3 ….... 28 pueden ampliar el rango si quieren el código es sencillo para el que sabe algo si no sben limiten se a usarlo con 28 imágenes por vez es decir la renombre por ejemplo 1.jpg 2.jpg 3.jpg ….. 28.jpg
Y por ultimo paso devén procesarla por el pequeño scrip que les he pasado osea para que funcionen lo ponen en la carpeta PdfToDjvuGUI y le dan doble clics a de_imagen_a_djvu.cmd y eso les tira un archivo Y_Pv_mS_O.djvu que es el que devén poner en el papyre o cualquier otro dispositivo que lea djvu, cualquier cosa me consultan por mp puede que tarde un poco en contestar pero les responderé lo antes posibles, los códigos son obra mía puede llegar a tener algún bug por favor avísenme
Imagen de prueba
Resultado después de matlab
Que se ve en relación de aspecto del papyre ojo el papyre le actualise el firmaware de la pagina de gramata si no les lee djvu actualicen su papyre
y resultado final en papyre
Bueno amigos ahora a leer manga y libros con zoom, mas velocidad de carga, mas liviano y practico y sobre todo echo de trabajo propio