Prácticamente dependíamos de un programa comercial (privativo) que el Dr tenia en su laboratorio para guardar una copia de la imagen en algún formato mas universal. No contentos con llevar nuestro GB de imágenes en raw con los datos de la practica, teníamos que viajar con una copia de la imagen en jpg para poder escribir nuestro reporte.

Fue entonces cuando mi amiga Etna, me presento con ImageMagick.

Y que es ImageMagick…

Es un conjunto de programas libres que sirven para convertir, transformar, y procesar imágenes en casi cualquier formato (y lo digo en serio). Lo que lo hace tan poderoso y flexible es que su interfaz es en linea de comandos, por lo que es ideal para desarrollar programas que ocupen ImageMagick y procesen imágenes (de hecho hay bindings para varios lenguajes de programación).

Una de las chucherias de ImageMagick es convertir de formato raw a cualquier formato.

Por que lo querría usar uno normalmente.

La segunda vez que me encontré con la necesidad de procesar un montón de imágenes y que me motivo a escribir este post fue regresando de las vacaciones en Oaxaca. Yo no llevaba mi cámara, pero Erika y Mag me pasaron sus fotos.

Ya saben tenia cientos de imágenes con títulos bien descriptivos como IMG_2379.JPG que pesaban algo así como 600Kb y median como 3072×2304 píxeles. Lo cual si hubiera querido subir en mi blog, conllevan un montón de trafico de red, y además seria un desperdicio, por que quien tiene un monitor con esa resolución (Vamos los que las vieran las tendrían que rescalar antes de verlas).

La solución de nuevo es ImageMagick

Como se usa ImageMagik

Pues el comando convert (que no es el único que conforma ImageMagick), nos da toda la versatilidad que queremos.

Escalando una imagen

Al escalar una imagen debemos de tener cuidado de hacerlo de una manera de que conserve su proporción (su aspect ratio), la mayoría del SW nos deja hacerlo si le decimos que no queremos deformaciones, también se puede hacer en ImageMagick

convert -resize 50% input.jpg output.jpg

Al darle en porcentaje el tamaño, Imagemagick sabe que no debe modificar el aspect ratio.

Reduciendo la calidad de la imagen

Hay dos tipos de compresión una donde no se pierde información llamada lossless, y otra llamada lossy compresión que es cuando un imagen pierde parte de su información al comprimirse. Cuando guardamos una imagen en formato jpg se esta haciendo una compresión con pérdida (lossy). El algoritmo del jpg es lo suficientemente flexible para dejarnos controlar la perdida con un parámetro de calidad. Mientras menos sea la calidad menor sera la perdida y mayor el tamaño de la imagen.

Sin embargo el algoritmo es tan bueno que bajar un poco la calidad de la imagen, suele bajar en mucho el tamaño (en bytes) de la misma, aproximadamente una imagen al 90% de calidad mide una cuarta parte que la imagen original. El estándar para publicar en una web es del 85%.

Para hacerlo en ImageMagick se ocupa el siguiente comando

convert -quality 85% input.jpg output.jpg

Corrigiendo la orientación

Otra cosa interesante es que ImageMagick puede corregir la orientación de una imagen de una cámara si los metadatos de la foto tienen esa orientación con el comando

convert -auto-orient input.jpg output.jpg

Ojo esto no siempre funciona (a veces los metadatos de la cámara no están bien), por lo que siempre es bueno darle una checada a la imagen de salida. También recuerda que en muchos navegadores de archivos se aplica esta corrección, pero eso no quiere decir que la imagen este volteada, si no que el visor de imágenes la esta transformando para que la veas.

Eso puede provocar que en tu máquina tu veas la imagen al derecho y cuando la subas a un sitio web, la veas al revés. La única forma de saberlo es viendo el tamaño de la imagen y ver si es mas alta que ancha o viceversa.

Y desde luego todos estos pasos se pueden llevar a cabo al mismo tiempo. Por ejemplo:

convert -auto-orient -quality 85% -resize 50% input.jpg output.jpg

Y poniendo todo en un script

Aprovechando que tuve que aprender un poco de bash, para un programa de la tesis, escribí el siguiente scrip en bash, para hacer las operaciones antes descritas sobre una carpeta con muchas imágenes.

El script tiene las siguientes características:

• Siempre trata de hacer la corrección de orientación
• Acepta opcionalmente los siguientes parámetros
• -q quality Para reducir de calidad las imágenes, el parámetro debe ser entero y estar en el intervalo (0, 100)
• -s size Para reducir el tamaño en un porcentaje, (en ImageMagick esto no necesariamente tiene que especificarse así, pero en el scrip valido que solo se pueda cambiar el tamaño en un porcentaje) que acepta enteros en el intervalo (0, 100)
• -n name Para especificar un patrón de nombre de la imagen de salida, en caso de que este parámetro no se le proporcione, las imágenes de salida tendrán el mismo nombre que las de salida (puede que las sobrescriban), con la única excepción que valido que en la imagen de salida la extensión siempre sea en minúsculas (odio que en la mayoría de las cámaras, las extensiones de las imágenes estén en mayúsculas DSC_001.JPG)

En resumen el scrip corrido en su forma completa por ejemplo:

photo2wp.sh -q 85 -s 50  –name Vacaciones

Tomara todas las imágenes con extensión jpg ó JPG que haya en el directorio actual. A cada una de ellas las escalará al 50% respetando su aspect ratio, las comprimirá en jpg, con el 85% de calidad y las imágenes de salida tendrán el nombre VacacionesXXX.jpg. Donde XXX es un numero progresivo que depende de la cantidad de imágenes que haya en la carpeta.

Es posible pasar mas de una palabra en el nombre pero entonces hay que encerrarlo en comillas:

photo2wp.sh -q 85 -s 50  –name “Mis Vacaciones”

Todos los argumentos son opcionales:

photo2wp.sh -q 85  –name Vacaciones

Por ejemplo comprime todas las imágenes al 85% y las renombra como VacacionesXXX.jpg, sin escalar su tamaño.

En un abuso de las opciones, puede usarse sin argumentos

photo2wp.sh

Que toma todas las imágenes, trata de corregir su orientación, y las guarda con el mismo nombre pero asegurándose que la extensión sea en minúsculas (si las imágenes originales tienen su extensión en minúsculas, las va a sobrescribir)

Por ultimo algunas recomendaciones:

• No he testeado el script al 100%, así que siempre ten una copia de tus imágenes originales. (Aún cuando no uses mi script esto es buena practica)
• Recuerda que el script solo funciona cuando ya tienes instalado el ImageMagick en tu maquina.
• Si quieres usar el script, recuerda que antes que nada debes darle permisos de ejecución.
• Recuerda que el script solo actúa sobre el directorio en el que esta siendo ejecutado. No se mete recursivamente en carpetas.

Finalmente el script esta aqui (copia y pega en un archivo de texto yo lo llame photo2wp.sh, pero pon el nombre que quieras):

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157

#!/bin/bash
 
#Este scrip toma todas las fotos de la carpeta donde se ejecute y las
#procesa. Primero la pone al derecho dependiendo de los metadatos, 
#les cambia de nombre y las guarda con un tamaño y una calidad 
#determinadas por las opciones
 
 
function dameNumero {
 
	if [ $total -lt 100 ]; then
 
		if [ $cont -lt 10 ]; then
			number="0$cont"
		else
			number="$cont"
		fi
 
	elif [ $total -lt 1000 ]; then
 
		if [ $cont -lt 10 ]; then
			number="00$cont"
		elif [ $cont -lt 100 ]; then
			number="0$cont"
		else
			number="$cont"
		fi
 
	else
 
		if [ $cont -lt 10 ]; then
			number="000$cont"
		elif [ $cont -lt 100 ]; then
			number="00$cont"
		elif [ $cont -lt 1000 ]; then
			number="0$cont"
		else
			number="$cont"
		fi
 
	fi 
 
}
 
#Aqui parseamos las opciones
qflag=0
sflag=0
nflag=0
 
while getopts 'q:s:n:' OPTION
do
  case $OPTION in
  q)	qflag=1
		quality="$OPTARG"
		;;
  s)	sflag=1
		size="$OPTARG"
		;;
  n)	nflag=1
		nameBase="$OPTARG"
		;;
  *)	printf "Usage: photo2wp.sh [-q <quality>] [-s <size>] [-n <name>]" >&2
		exit 2
		;;
  esac
done
 
#Si no nos dieron quality asume el 100
if [ $qflag -ne 1 ]; then
	quality=100
fi
 
#Si no nos dieron size asume el 100
if [ $sflag -ne 1 ]; then
	size=100
fi
 
 
#Checamos que quality sea valido
if [[ $quality =~ ^[0-9]+$ ]]; then
    if [ $quality -gt 100 -o $quality -lt 0 ]
    then
		echo "El parámetro quality debe se un número entero en el intervalo [0, 100]" >&2
		exit 3
    fi
else 
	echo "El parámetro quality debe se numérico y entero" >&2
    exit 3
fi
 
#Ahora validamos el valor de size
if [[ $size =~ ^[0-9]+$ ]]; then
    if [ $size -gt 100 -o $size -lt 0 ]
    then
		echo "El parámetro size debe se un número entero en el intervalo [0, 100]" >&2
		exit 3
    fi
else 
	echo "El parámetro size debe se numérico y entero" >&2
    exit 3
fi
 
#Contamos cuantas imagenes hay
total=`ls *.[jJ][pP][gG] 2>/dev/null | wc -l`
 
if [ $total -eq 0 ]; then
	echo "No hay imagenes que procesar en esta carpeta"
	exit 1
fi
 
#Calculemos las opciones y avisemos al usuario que vamos a hacer
opciones="-auto-orient"
 
echo "Hay $total fotos"
 
if [ $sflag -eq 1 ]; then
	echo "Se van a escalar a un tamaño de: $size%"
	opciones="$opciones -resize $size%"
fi
 
if [ $qflag -eq 1 ]; then
	echo "Se van a comprimir con una calidad de: $quality%"
	opciones="$opciones -quality $quality%"
fi
 
if [ $nflag -eq 1 ]; then
	echo "Se guardaran con el nombre: $nameBase[XXX].jpg"
fi
 
#Todo correcto empezamos a procesar
cont=0
number=""
output_file=""
images=*.[jJ][pP][gG]
 
#Ciclo principal sobre todas las imagenes de entrada
for input_file in $images
do
	#Calculamos el nombre de la imagen de salida
	cont=`expr $cont + 1`
	dameNumero
	if [ $nflag -eq 1 ]; then
		output_file="$nameBase$number"
	else
		output_file=${input_file%%.*}
	fi
 
	#Realizamos la conversion
	if convert $opciones "$input_file" "$output_file.jpg" 2>/dev/null ; then
		echo "Imagen $cont de $total"
	else
		echo "$input_file no pudo ser procesada..." >&2
	fi
 
done
 
exit 0

Eso no fue todo, Fatima me hizo la corrección y me sorprende tanto, es un código que a todas luces es equivalente al mio (o debería de ser para cualquier programador) y pues resulta que lo es en una maquina que no tenga procesador intel (o bueno al menos es mi conjetura).

El caso es que Pixie, solo lo acepta de una forma y que en Ometochtli (la maquina servidor en la que trabajamos), con un procesador AMD chorrocientas veces mas poderoso funciona a la perfección de ambas maneras).

Para no enojarme mas reduzco mi programa mas grande a un caso de prueba, para que vean de lo que hablo:

int factor = 1000;
 
cout << "factor * 1.345 = " << (int)(factor * 1.345) << endl;
cout << "factor * 2.344 = " << (int)(factor * 2.344) << endl;
 
cout << "1000 * 1.345 = " << (int)(1000 * 1.345) << endl;
cout << "1000 * 2.344 = " << (int)(1000 * 2.344) << endl;

La cosa es que las primeras lineas escriben:

factor * 1.345 = 1344
factor * 2.344 = 2343

Mientras que las segundas escriben:

1000 * 1.345 = 1345
1000 * 2.344 = 2344

Este error parece que solo esta presenta cuando los números en cuestión tienen en su parte decimal y 3 seguido de un cuatro. Es increíble pero si cambian el numero por 1.253, todo funciona perfectamente. Desde luego con cualquier caso en un procesador AMD parece que funciona bien.

!!!Es cierto!!! se que no me lo van a creer así que pongo el pantallazo, se que con todo y eso algunos no me van a creer. Pero ya no hay mas que pueda hacer.

Y eso no es lo mas triste del asunto, lo mas triste es la manera como lo corrigió Fatima:

double aux;
aux = (double)(factor * 1.345);
cout << "factor * 1.345 = " << (int)(aux) << endl;

¡¡¡Y así si funciona!!!, Aun cuando el código es equivalente al mio. Desde luego el programa que queremos hacer es mucho mas extenso que esto, pero no me deja de molestar, que cosas así pasen, me pone muy nervioso.

Ya para seguir en el tono pongo un poema que vi en mi clase de ingles, que escribió Lord Cromer, que seguro en su momento se sintió como yo ahora.

Our Queer Language

When the English tongue we speak,
Why is “break” not rhymed with “freak”?
Will you tell me why it’s true
We say “sew” but likewise “few”;

And the maker of a verse
Cannot cap his “horse” with “worse”?
“Beard” sounds not the same as “heard”;
“Cord” is different from “word”;
Cow is “cow,” but low is “low”;
“Shoe” is never rhymed with “foe.”

Think of “hose” and “dose” and “lose”;
“Doll” and “roll” and “home” and “some.”
And since “pay” is rhymed with “say,”
Why not “paid” with “said,” I pray?

We have “blood” and “food” and “goo d”;
“Mould” is not pronounced as “could.”
Wherefore “done” but “gone” and “lone”?
Is there any reason known?
And, in short, it seems to me,
Sounds and letters disagree.

La canción es: Me and Bobby McGee, y fue escrita por Kris Kristofferson y Fred Foster. Al primer interprete en hacerla famosa fue Roger Miller.

En la versión original Bobby es una chica, que cantaba el blues. Sin embargo a nosotros nos ha llegado una versión interpretada por la bruja blanca donde Bobby es hombre (que tiene también mucho sentido). Lo curioso es que aunque Janice y Kris Kristofferson, fueron amigos y amantes, el dijo que la canción no se la escribió a ella, aunque en la parte de Somewhere near Salinas, Lord, I let her slip away. si esta asociada de alguna manera a Janice.

Lo que convierte esta canción en una leyenda es que Janice escucho de Kris la canción y decidió grabarla en su álbum Perl, pero no le dijo nunca a Kris que lo había hecho. Janice murió como toda una leyenda del rock (por una sobredosis) unos días antes de que el álbum saliera a la venta y el sencillo se convirtió en la segunda canción póstuma en entrar a las listas de popularidad en EU.

Janice adapto la canción cambiando un poco de la letra, para que Bobby fuera hombre. Y ésta versión interpretada por Janice estuvo en las lista del 2004 de las 500 mejores canciones en la historia. En la película de Watchmen, la canción se escucha en el fondo en la escena donde al terminar la guerra de Vietnam, The comedian y Dr. Manhatan están en un bar y una mujer se acerca al The Comedian y le dice que es momento que reconozca al hijo que tuvo con ella, la mujer lo ataca dejándole una cicatriz y este la mata ante la mirada del Dr Manhatan, sin que este ultimo oponga ninguna acción.

A mi me gustaba mucho esta canción por la letra y siempre pensé en Bobby como hombre. Ahora que se la historia me preguntó como no me dí cuenta antes, es tan obvio. Que sea una chica la que hace el auto stop, que sea una chica la que canta mientras Kirs toca la guitarra y que este último extrañe tanto a Bobby que cambiara todas sus mañanas por un solo ayer.

Busted flat in Baton Rouge, waiting for a train
And I’s feeling nearly as faded as my jeans.
Bobby thumbed a diesel down just before it rained,
It rode us all the way to New Orleans.

I pulled my harpoon out of my dirty red bandanna,
I was playing soft while Bobby sang the blues.
Windshield wipers slapping time, I was holding Bobby’s hand in mine,
We sang every song that driver knew.

Freedom’s just another word for nothing left to lose,
Nothing don’t mean nothing honey if it ain’t free, now now.
And feeling good was easy, Lord, when he sang the blues,
You know feeling good was good enough for me,
Good enough for me and my Bobby McGee.

From the Kentucky coal mines to the California sun,
Hey, Bobby shared the secrets of my soul.
Through all kinds of weather, through everything we done,
Hey Bobby baby? kept me from the cold.

One day up near Salinas,I let him slip away,
He’s looking for that home and I hope he finds it,
But I’d trade all of my tomorrows for just one yesterday
To be holding Bobby’s body next to mine.

Freedom is just another word for nothing left to lose,
Nothing, that’s all that Bobby left me, yeah,
But feeling good was easy, Lord, when he sang the blues,
Hey, feeling good was good enough for me, hmm hmm,
Good enough for me and my Bobby McGee.

La la la, la la la la, la la la, la la la la
La la la la la Bobby McGee.
La la la la la, la la la la la
La la la la la, Bobby McGee, la.

La La la, la la la la la la,
La La la la la la la la la, ain`t no bumb on my bobby McGee yeah.
Na na na na na na na na, na na na na na na na na na na na
Hey now Bobby now, Bobby McGee, yeah.

Lord, I’m calling my lover, calling my man,
I said I’m calling my lover just the best I can,
C’mon, hey now Bobby yeah, hey now Bobby McGee, yeah,
Lordy Lordy Lordy Lordy Lordy Lordy Lordy Lord
Hey, hey, hey, Bobby McGee, Lord!

Yeah! Whew!

Lordy Lordy Lordy Lordy Lordy Lordy Lordy Lord
Hey, hey, hey, Bobby McGee.

Me And Bobby McGee

Por un lado fue muy divertido para mi, la misma maestra nos había dicho que escogiéramos un tema de nuestro agrado. Sin embargo teníamos la limitante del tiempo: una presentación de 5 minutos. Al principio no me preocupo, finalmente uno dice muchas cosas muy rápido al hablar. Pero ayer que estaba haciendo la presentación me empecé a poner nervioso.

La cantidad de material que yo tenia era enorme; después de todo, al ser uno de mis temas favorito había consultado mas de 7 libros diferentes del tema. (si lo se, es mas de los que usualmente consulto para un trabajo de a de veras de la maestría) y la presentación que el principio pensé en hacer en beamer. Pero después de ver la enorme cantidad de información no me quedo mas remedio que usar Open Office Presentation.

Al terminar la presentación, decidí exportarla a pdf y ppt. Uno nunca sabe en que maquina va a presentar. Pero cuando me quedaron 25 diapositivas me frikie un poco.

Llego el lunes del examen, yo tenia mucho sueño pues no había dormido bien, y no había tenido tiempo de bañarme (estúpido posgrado que me deja sin tiempo ). Se me olvidaron mis notas en casa y como de costumbre no tenia tiempo de regresar por ellas. Llegando al auditorio la maestra llego tarde y tardaron muchísimo en conectar el proyector y anexos. Finalmente la maestra pregunto si hacíamos un sorteo para determinar el orden de las presentaciones. Antes (o en vez) de hacer el sorteo nos pusimos de acuerdo: yo pedí el primer turno.

A principio panique un poco por que algunas palabras se me olvidaron y la verdad es que al improvisar tome mucho mas tiempo, creo que la presentación duro casi 10 minutos. Al momento de las preguntas ya estaba muy relajado y me tomo otro tanto contestar. Pero al final creo que la presentación salio bien, no se aburrieron mucho y Majo y Marco me dijeron después que había estado bien.

Durante la presentación deje muchos cabos sueltos con la esperanza de que me preguntaran de eso, pero no sucedió y al final las preguntas que me hicieron fueron sorpresivas. Pero pude contestar mas o menos bien. Por ejemplo deje en el aire la historia de Galois, la de Ramanujan, la de Erdos y la de Nicolas Burbaki (nadie me preguntó por que no existió).

Aquí esta la presntacion en pdf, por si a alguien le sirviera de algo. La maestra quedo de dar DVD con las presentaciones grabadas; si lo hace, quizás me anime a subir el vídeo.

El libro, situado en un México de los principio de los 70s trata de la historia de David Valenzuela, un autentico tipo X, que vive en un pueblito del norte de México. Que si querer mata a un narcotraficante. De ahí en adelante vive una serie de aventuras, relacionadas con el narco, la guerrilla, y el beisbol.

El personaje principal es en toda la extensión de la palabra un tonto con suerte, de esos que de entrada te caen bien, es inocente y de pensamientos simples. aunque durante todo el libro es manipulado por mucha gente termina teniendo un no se que que que se yo, que le permite salir vivo de muchas situaciones peligrosas. Es algo así como un Forres Gump, pero a la mexicana.

Los demas personajes son memorables y pintorescos, sobre todo sus amigos el Chato y el Cholo. La lectura es simple y entre una mezcla de literatura trash, con nueva narrativa mexicana. Es segun mi opinion como leer las aevnturas de Belascorane Shane, con el plus que el personaje es mucho mas agradable.

Erika lo leyo como parte de una clase que tomo en su facultad, donde conocio tambien al autor. Espero no perjudicar a nadie en el intento, pero precisamente documentandome para al post, me encontre cn que el pdf es ridiculamente sencillo de conseguir aqui.

Sin duda alguna esta es una lectura muy recomendada.

Que es LaTeX

Es un lenguaje de marcado y de preparación de textos. Creado por Donal Knuth, el lenguaje TeX, fue después extendido, es decir se la añadieron un conjunto de macros, para hacer el TeX, mas fácil de usar para el usuario común. Estas fueron introducidas por Leslie Lamport y de ahí que ahora el lenguaje Tex extendido con las macros se llama .

LaTex es un lenguaje ampliamente usado en la comunidad científica, sobre todo para preparar documentos donde hay muchas formulas matemáticas. sin embargo aun cuando queramos hacer un escrito donde no haya matemáticas LaTeX es una muy buena opción pues podemos beneficiarnos de su gran calidad en el formato y en la facilidad con la que se pueden hacer documentos académicos, por ejemplo con un montón de citas bibliográficas.

Latex en GNU/Linux

Primero pretendía escribir una guía de como instalar y configurar correctamente LaTeX en Ubuntu. Pero me encontré que ya hay una excelente referencia en este blog, así que mejor pongo la cita. Y algunos tips

• Es ampliamente recomendable usar codificación utf-8, para todos tus documentos en LaTeX.
• En conjunto con el utf-8, e uso del paquete inputec y del paquete babel, para hacer los documentos en español de manera mas simple.
• En Linux no hay nada mejor que usar Kile (conste que lo digo yo, que no me gusta KDE), y ahora es muy fácil configurarlo para usarlo con GNOME.
• Nada mejor que tener correctamente configurado el KIle, es decir, sustituir los programas de KDE de visualización por sus respectivos en GNOME y el corrector ortográfico.
• Ampliamente recomendado instalar los extras, para que tengamos beamer.

Cosas extras

Una cosa bastante interesante es instalar el plugin para poder escribir LateX en wordpress, como comenté en un post pasado.
Nada mejor que poder instalar el plugin de LaTeX para Pidgin y así poder escribir y chatear a gusto con tus compas con un montón de matemáticas. (vaya que se oyo geek).
la instalación me fue mas o menos sencilla, make , sudo make install, ojo que debemos de tener instalado, tanto el Latex, como el Image Magick. Después de la instalación tuve problemas pues al parecer mi Image Magick se reusaba a convertir un .dvi en un .png, pero lo pude seleccionar agregando una linea al archivo de confguración de image magic como dice este post.

Bibliografía recomendada

Yo aprendí con este libro, pero honestamente creo que ya esta un poco pasado de moda, Laura me recomendó éste otro libro excelente, y además recuerden que la documentación oficial de LaTeX así como excelentes manuales-tutoriales, viene en los repositorios en los paquetes texlive-doc-base y texlive-doc-es. Así que no hay excusa además hay un montón de documentación en la red.

Una de las cosas que también expandí fueron mis horizontes de las tiras comicas en internet, entiéndase webcomics. Estas publicaciones periódicas en formato de strips, al parecer son de vital importancia para cualquiera que estudie un posgrado XD. Así que aquí esta mi top 5. (disculpa a los compas que me recomendaron alguna que no este aquí, por que el único criterio es mi mera apreciación personal)

1.- XKCD

Es el cómic geek por antonomasia, en palabras de su propio autor es un web cómic de romance, sarcasmo, matemáticas y lenguaje. Se publica cada lunes, miércoles y viernes. Y tiene hasta una tienda de artículos geeks basados en el cómic. Es punto de encuentro de los geeks a nivel mundial y ha causado una que otra revuelta en la vida real, si no me creen miren la entrada wikipedia.

2.- Bunsen

Narra las aventuras de unos científicos mexicanos y sus animales de laboratorio. Su personaje principal, el Dr Adel Ortega es una leyenda viviente entre nuestro clan. es simplemente genial. Sale también cada lunes, miércoles y viernes.

3.- Cindy la regia

Las aventuras de Cindy Garza una chica bien, de San Pedro Garza Monterrey. Cindy es el estereotipo de toda chica rubia, adinerada, fresa, racista, ignorante y sobre todo muy cool. Sale cada lunes ha tenido tanto éxito que ahora también se publica en cierto periódico del norte del país.

4.- PHD Comics

Las situaciones que viven un grupo de estudiantes de doctorado en un laboratorio de cierta universidad gringa. Llena de sarcasmo y de geekesmo, lo peor de todo es que muchas de estas situaciones se antojan tan reales… hasta me da miedo XD. Se publica religiosamente

5.- Ecol

Mi primer web comic, las aventuras de un trio de geeks Ecol, Nano, y Bilo. Creada en la madre patria y emblema del foro oficial de Ubuntu en español. Solía ser una de las mas grandes, pero su autor la ha estado dejando caer un poco. Ahora también se publica religiosamente.

Para la trivia: tanto Bunsen como Cindy la regia, se publican en wordpress, con un plugin para hacer web comics, llamado comicpress.

Como si de alguna manera todo pareciera ocurrir dentro de uno y no hubiera manera de exteriorizarlo.

Vaya entonces este poema, por todas las veces que lo hemos necesitado.

A dream

Once a dream did weave a shade
O’er my Angel-guarded bed,
That an Emmet lost its way
Where on grass methought I lay.

Troubled, wildered, and forlorn,
Dark, benighted, travel-worn,
Over many a tangle spray,
All heart-broke, I heard her say:

“Oh my children! do they cry,
Do they hear their father sigh?
Now they look abroad to see,
Now return and weep for me.”

Pitying, I dropped a tear;
But I saw a glow-worm near,
Who replied, “What wailing wight
Calls the watchman of the night?

“I am set to light the ground,
While the beetle goes his round:
Follow now the beetle’s hum;
Little wanderer, hie thee home.”

Escrito por William Blake, aquí hay una traducción que no es mía, pero no encontré crédito alguno en el sitio de donde la saque.

Cierta vez un sueño tejió una sombra
sobre mi cama que un ángel protegía:
era una hormiga que se había perdido
por la hierba donde yo creía que estaba.

Confundida, perpleja y desesperada,
oscura, cercada por tinieblas, exhausta,
tropezaba entre la extendida maraña,
toda desconsolada, y le escuché decir:

“¡Oh, hijos míos! ¿Acaso lloran?
¿Oirán cómo suspira su padre?
¿Acaso rondan por ahí para buscarme?
¿Acaso regresan y sollozan por mí?”

Compadecido, solté una lágrima;
pero cerca vi una luciérnaga,
que respondió: “¿Qué quejido humano
convoca al guardián de la noche?”

“Me corresponde iluminar la arboleda
mientras el escarabajo hace su ronda:
sigue ahora el zumbido del escarabajo;
pequeña vagabunda, vuelve pronto a casa.”

La bruja

Ay que bonito es volar,
a las once de la noche.
A las once de la noche,
Ay que bonito es volar.

Ay mamá

Subirse y dejarse caer,
en los tirantes de un coche.
En los tirantes de un coche,
que hasta quisiera llorar.

Ay mamá

Me agarra la bruja,
me lleva a su casa,
me vuelve maceta y una calabaza.
Me agarra la bruja,
me lleva a al cuartel,
me vuelve maceta y me da de comer.

Y digame, digame usted
¿Cuantas criaturitas se ha chupado usted?
Señora ninguna, ninguna no se
Ando en pretenciones de chuparme a usted.

A una bruja me encontré
por el aire va volando.
Por el aire va volando
a una bruja me encontré.

Ay mamá.

Entonces le pregunte
A quien andaba buscando…
Me dice: ¿Quien es usted?
Soy cantador del huapango

Ay mamá.

Levantate Chucha, levantate Juana
Que viene la bruja detras de hermana.
Levantate Pepa, levantate Adela
Que viene la bruja detras de Abuela.

Y digame, digame usted
¿Cuantas criaturitas se ha chupado usted?
Señora ninguna, ninguna no se,
Ando en pretenciones de chuparme a usted.

Ahora si maldita bruja,
ya te chupaste a mi hijo.
Ya te chupaste a mi hijo,
ahora si maldita bruja

Ay mamá

Ahora le vas a chupar
a tu marido el ombligo
a tu marido el ombligo
y hasta quisiera llorar.

Cuando a tu marido le encuentro durmiendo,
le arranco las piernas y me voy corriendo.
Cuando a tu marido le encuentro dormido,
le arranco las piernas y me voy contigo.

Y digame, digame usted
¿Cuantas criaturitas se ha chupado usted?
Señora ninguna, ninguna no se,
Ando en pretenciones de chuparme a usted.

Y como siempre aqui esta la descarga conjunto-jardin-la-bruja en formato ogg vorvis.

Al principio me gustó la idea, después de todo, traía fresco lo de la graficada y el programa parecía ser muy sencillo, le dije que solo preparara la recurrencia matemática y que después pasaría a ayudarle, después de una semana pase a verlo y como suele suceder no había hecho nada ni yo ni el, sin embargo el programa resulto ser lo bastante simple para que solo me llevara un par de horas terminarlo.

Pueden descargar el código aquí. Y para probar mis últimos dos plugines agregados al blog me decidí a escribir este post. los dos plugines de los que hablo son el WP-sintax que permite poner código de algún lenguaje de programación en tus post y el WP-LaTeX que agregar una fórmula escrita en LaTeX, (en forma de imagen) a tus post.

Copo de Koch

La primeras lineas solo incluyen las dos bibliotecas que vamos a usar, la primera es la glut estandar para levantar OpenGL y la otra es math.h, para hacer cálculos.

Veamos después de eso que hay:

6
7
8

typedef struct {
	float x, y, z;
}Punto;

Con estas lineas definimos un nuevo tipo de dato, lo bautizamos como Punto y tiene adentro tres flotantes, para representar coordenadas, aunque el programa es en esencia bidimensional, como el OpenGL trabaja en 3D, me gusta declarar todo como si estuviera dibujando en 3D.

Después se declaran algunas variables globales, y el prototipo de las funciones, las variables globales son:

• xMax, yMax: Guardan el tope de las coordenadas del mundo, es decir de donde a donde corre la parte visible de la ventana en X y en Y, con respecto al origen (situada al centro de la ventana)
• vertices: Es un arreglo de tres puntos, que guardara la única información que necesitamos para empezar a generar el copo de nieve, la posición de tres vértices.
• numPtos: Este guarda el número de vértices proporcionados por el usuario, es un contador para poner la siguiente lógica: “Si ya tienes tres puntos, empieza a hacer el fractal, si tienes menos de tres puntos, continua esperando…”
• fondo: Otro entero que guardará la profundidad máxima para hacer el fractal, donde un cero, pinta un triangulo, un uno la estrella de David y así en adelante. Es si lo quieren ver así el numero de veces que se manda a llamar recursivamente el fractal.

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

int main(int argc, char** argv) {
 
   glutInit(&argc, argv);
   glutInitDisplayMode (GLUT_SINGLE | GLUT_RGBA);
   glutInitWindowSize (640, 480);
   glutInitWindowPosition (100, 105);
   glutCreateWindow (argv[0]);
   inicializar();
 
   glutDisplayFunc(dibuja);
   glutReshapeFunc(redimensiona);
   glutKeyboardFunc(teclado);
   glutSpecialFunc(tecladoEspecial);
   glutMouseFunc(raton);
 
   glutMainLoop();
 
   return 0;
}

La función main, no mucho que decir, es muy estándar en el estilo glut, pone la maquina de estados en el estado adecuado, manda llamar a inicializar, registra cinco funciones de callback y por ultimo manda al loop principal de glut. Utilizo un solo buffer por que no voy a hacer animación, y ocupo el nombre del programa para el titulo de la ventana.

47
48
49
50
51
52

void inicializar () {
   glClearColor(0.0f, 0.0f, 0.0f, 0.0f);
   glPointSize(5.0);
   numPtos = 0;
   fondo = 1;
}

La primer función en ser ejecutada, pone el color del fondo en negro, a los puntos les da tamaño 5, inicializa el contador de puntos y a profundidad.

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

void redimensiona (int ancho, int alto) {
   float aspect;
 
   glViewport (0, 0, ancho, alto);
   glMatrixMode (GL_PROJECTION);
   glLoadIdentity ();
 
   if (alto == 0){
   	  alto = 1;
   }
 
   aspect = (float) ancho / (float) alto;
 
   if (ancho <= alto) {
   	  glOrtho(-MUNDO, MUNDO, -MUNDO/aspect, MUNDO/aspect, -MUNDO, MUNDO);
   	  xMax = MUNDO;
   	  yMax = MUNDO / aspect;
 
   } else {
   	  glOrtho(-MUNDO * aspect, MUNDO * aspect, -MUNDO, MUNDO, -MUNDO, MUNDO);
   	  xMax = MUNDO * aspect;
   	  yMax = MUNDO;
   }
 
   glMatrixMode(GL_MODELVIEW);
   glLoadIdentity();
}

La función redimensiona, es llamada al inicio del programa, (el estándar de glut así lo indica) y cada vez que hay un evento de resize a la ventana. es una función muy común en estilo glut, lo único raro, quizás es que guarda en variables globales el valor de la máxima coordenada Y y la máxima coordenada X. Por lo demás es muy normal, da una proyección ortogonal, i.e: pone el sistema de referencia.

82
83
84
85
86
87
88
89
90
91
92
93

void teclado (unsigned char key, int cx, int cy) {
 
	switch (key) {
		case 27:
		   exit(0);
		break;
 
		default: break;
	}
 
	glutPostRedisplay();
}

La función teclado es muy simple, si detecta un evento de la tecla “Esc”, termina el programa con codigo 0.

95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

void tecladoEspecial (int key, int cy, int cx) {
 
	switch (key) {
		case GLUT_KEY_PAGE_UP:
		   fondo++;
		break;
 
		case GLUT_KEY_PAGE_DOWN:
		   if (fondo > 1) fondo--;
		break;
 
		default: break;
	}
 
	glutPostRedisplay();
}

Está función sirve para cachar eventos de las teclas PgUp y PgDn, y en respuesta aumenta el valor de la variable global fondo, es decir hace que el fractal itere mas o menos veces, después de poner el nuevo valor en fondo, avisa a la ventana que necesita volver a dibujarse.

112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

void raton (int boton, int estado, int cx, int cy) {
	float x, y;
 
	/* Calculamos las coordenadas de mundo (relativas) apartir de 
	 * las de ventana (absolutas) */
 
	x = ((GLfloat)cx * 2.0 * xMax) / glutGet(GLUT_WINDOW_WIDTH) - xMax;
	y = yMax - ((GLfloat)cy * 2.0 * yMax) / glutGet(GLUT_WINDOW_HEIGHT);
 
	if (boton == GLUT_LEFT_BUTTON && estado == GLUT_DOWN) {
 
		if (numPtos < 3) {
		   vertices[numPtos].x = x;
		   vertices[numPtos].y = y;
		   vertices[numPtos].z = 0.0;
		   ++numPtos;
	    }
	    else {
	       numPtos = 0;
	       vertices[numPtos].x = x;
		   vertices[numPtos].y = y;
		   vertices[numPtos].z = 0.0;
		   numPtos++;
	    }
	}
 
	glutPostRedisplay();
}

Este código cacha las acciones del ratón, las lineas 118 y 119, calculan la posicion en x y en y en donde el usuario realizo el click, recordemos que el glut, nos pasa como parámetros dos enteros que representan el pixel en el que se hizo el click, pero para la lógica de nuestro programa lo queremos en coordenadas de mundo.

En las lineas siguientes, se pregunta si el mouse dio click izquierdo de ser así, preguntamos cuantos puntos llevamos, si son menos de tres, seguimos esperando si no que este sea el primero, de esta manera cada cuarto punto se resetea, el estado del programa, así que si después de pintar un fractal queremos pintar otro simplemente damos un nuevo click y ese es el primer punto de un nuevo fractal.

142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170

void dibuja (void) {
	int i;
 
	glClear(GL_COLOR_BUFFER_BIT);
 
	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
 
 
	if (numPtos != 3) {
	   glColor3f(1.0, 1.0, 1.0);
	   glBegin(GL_POINTS);
	      for (i = 0; i <numPtos; i++) {
	   	     glVertex3f(vertices[i].x, vertices[i].y, vertices[i].z);
	      }
	   glEnd();
	}
 
	if (numPtos == 3) {
	   glColor3f(1.0, 1.0, 0.0);
	   glBegin(GL_LINE_STRIP);
	      koch(vertices[0], vertices[1], 0);
	      koch(vertices[1], vertices[2], 0);
	      koch(vertices[2], vertices[0], 0);
	   glEnd();
	}	
 
	glFlush();
}

Esta función se encarga de dibujar el fractal, primero limpia la pantalla, luego pone el estado de dibujar y pregunta si tenemos algún numero de puntos que no sea tres (por la lógica de la función anterior esto solo puede pasar cuando son menos que tres) de ser así solo pone los puntos que llevamos. En caso contrario se prepara a dibujar el fractal, para esto hace uso de la función auxiliar koch, que da los vértices de una curva de koch, así que para hacer el copo de koch, pinta tres curvas de koch: Una del vértice 0, al vértice 1, otra del vértice 1 al vértice 2 y por ultimo una que cierra el copo del vértice 2 al vértice 0.

Dibujando la curva de Koch

Ahora viene la parte mas interesante: ¿Como se dibuja la curva de Koch?
La función encargada de hacerlo es la función koch, pide como argumento dos puntos y un entero, que es el nivel de profundidad en la recursividad del algoritmo, es decir: la primera vez que se llame tendrá valor 0, la segunda vez que se llame tendrá valor 1 y así sucesivamente. Aquí esta el código de la función:

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202

void koch (Punto p0, Punto p1, int profundidad) {
	Punto a, b, p2;
 
	if (profundidad < fondo) {
		a.x = 2.0 / 3.0 * p0.x + 1.0 / 3.0 * p1.x;
		a.y = 2.0 / 3.0 * p0.y + 1.0 / 3.0 * p1.y;
		a.z = 0.0;
 
		b.x = 1.0 / 3.0 * p0.x + 2.0 / 3.0 * p1.x;
		b.y = 1.0 / 3.0 * p0.y + 2.0 / 3.0 * p1.y;
		b.z = 0.0;
 
		p2.x = 0.5 * p0.x + 0.5 * p1.x + a.y - b.y;
		p2.y = 0.5 * p0.y + 0.5 * p1.y + b.x - a.x;
		p2.z = 0.0;
 
		glVertex3f(p0.x, p0.y, p0.z);
		koch(p0, a, profundidad + 1);
		glVertex3f(a.x, a.y, a.z);
		koch(a, p2, profundidad + 1);
		glVertex3f(p2.x, p2.y, p2.z);
		koch(p2, b, profundidad + 1);
		glVertex3f(b.x, b.y, b.z);
		koch(b, p1, profundidad + 1);
		glVertex3f(p1.x, p1.y, p1.z);
 
	} 
 
	return;
}

En la linea 176, se pregunta cuantas veces se ha ejecutado esta función en la recursión, si es mas que lo que vale la variable fondo, regresa sin hacer ninguna operación, poniendo fin a la recursión. Sin embargo si aun es menor, se ejecutan los cálculos necesarios (se hace otra iteración) y dentro del procedimiento se llama recursivamente la función koch aumentando el nivel de profundidad.

La lógica de la función koch se explica a continuación:

La idea principal es que como entrada tenemos dos puntos (p0 y p1), los cuales representan un segmento y queremos a partir de ellos calcular tres puntos mas (a, b y p2). Como se ve en la figura:

Segmento de recta

Para calcular cada uno de estos puntos, se hace uso de la ecuación paramétrica de un segmento de recta. Si tenemos dos puntos p y q entonces la ecuación paramétrica en t, del semento de recta entre p y q es: con con esta ecuación podemos calcular fácilmente tanto a, como b. Sin embargo para calcular p2 tendremos que hacer algunas cosas mas.

Puntos a calcular en el nuevo segmento de koch

Primero calculamos el punto medio del segmento, a ese vector hay que sumarle la elevación del nuevo punto, para calcularla necesitamos sumarle un nuevo vector que sea perpendicular al segmento, para esto utilizamos el hecho de que el producto punto de dos vectores perpendiculares entre si, siempre es cero. Así que construimos el vector que va de a a b y de ahí lo volteamos es decir:

Dado un vector:

Es perpendicular a el vector v dado por:

Por lo que podemos encontrar el punto p2 de la siguiente manera:

Recordemos que el vector que va de a a b se puede ver como b-a.

Descargas

• Código fuente el programa
• Ejecutable de win32

¿Por que solo pongo el ejecutable para Windows, si yo siempre uso GNU/Linux?, por que los usuarios del lado luminoso de la fuerza les conviene mas compilar el fuente, que al cabo es solo uno, recuerden que deberán tener instalado OpenGL y glut.

Pantallazos

[Show as slideshow]