Entradas para el mes Septiembre de 2007

Herramienta para crear fuentes

Jueves 27 de Septiembre de 2007 a las 0:23

Esta aplicación permite exportar las fuentes instaladas en el sistema como una imagen a un fichero del tipo bmp, gif, png o jpg y un fichero que describe la ubicación y dimensiones de cada carácter dentro de la imagen.

Se permite indicar los caracteres a exportar no teniendo porque exportar todos. Dispone de un menú para seleccionar los caracteres más comunes como las minúsculas, las mayúsculas, los dígitos del 0 al 9, etc. lo que evita al usuario tener que teclear dichos caracteres.

También se permite configurar el tipo de fuente, su tamaño, color, si esta en negrita, cursiva, el formato de la imagen (png, bmp, gif, jpg), las dimensiones de la imagen, el color que será considerado como transparente y el espacio que se dejará entre caracteres. La imagen puede crearse haciendo uso del anti-aliasing, lo cual tiene la ventaja de que los bordes de las caracteres quedan más suavizados.

Todos los datos establecidos en la la herramienta se conservan para la siguiente ejecución, con lo que no es necesario volver a introducir dichos datos.

Se ofrece la posibilidad de previsualizar la imagen antes de proceder a su exportación.

(Pulsad la imagen para verla a tamaño real)
Creador de fuentes.
Creador de fuentes.

Una de las características más interesantes de la herramienta es la enorme flexibilidad para exportar los datos a diferentes formatos y la facilidad para incorporar nuevos formatos personalizados mediante un sistema de plugins.

Independientemente del formato de exportación, los valores que se guardarán en el fichero serán el ancho y el alto de la imagen en pixeles, el espacio entre caracteres y por cada carácter la posición expresada en pixels tanto en X como en Y y el ancho y alto del carácter.

Inicialmente la herramienta cuenta con cinco formatos para exportar las fuentes:
- Fichero CSV: Valores separados por comas (en este paso por ;)
- Fichero XML: XML donde cada carácter es un nodo, que contiene cuatro nodos hijos con los diferentes valores
- Fichero XML Atributos: XML donde cada carácter es un nodo que tiene cuatro atributos con los diferentes valores
- Fichero Binario: Los datos se guardan en un fichero binario
- Fichero Texto: Los datos se guardan como texto plano

La forma de crear plugins para extender la funcionalidad de la herramienta incorporándola nuevos formatos de exportación consiste en crear una dll que contenga la clase o clases con los nuevos formatos. Cada clase que proporcione un nuevo formato debe implementar la interfaz IPersistir que tiene la siguiente definición:

 

VB.NET:
  1. Public Interface IPersistir
  2.  
  3.     ''' <summary>
  4.     ''' Nombre del plugin
  5.     ''' </summary>
  6.     ''' <value></value>
  7.     ''' <returns></returns>
  8.     ''' <remarks></remarks>
  9.     ReadOnly Property Nombre() As String
  10.  
  11.     ''' <summary>
  12.     ''' Escribe en un fichero la información de la fuente
  13.     ''' </summary>
  14.     ''' <param name="ficheroSalidaSinExtension">Ruta del fichero (sin incluir la extension) en el que
  15.     ''' se escribirá la información de los caracteres</param>
  16.     ''' <param name="anchoImagen">Ancho en pixeles de la imagen</param>
  17.     ''' <param name="altoImagen">Alto en pixeles de la imagen</param>
  18.     ''' <param name="separacionEntreCaracteres">Número de pixels de separación entre carácter y carácter</param>
  19.     ''' <param name="caracteres">Carácteres a escribir junto con su información</param>
  20.     ''' <remarks></remarks>   
  21.     Sub Escribir(ByVal ficheroSalidaSinExtension As String, ByVal anchoImagen As Integer, ByVal altoImagen As Integer, ByVal separacionEntreCaracteres As Integer, ByVal caracteres As Dictionary(Of Char, Rectangle))
  22.  
  23. End Interface

 

El nombre del plugin será el que posteriormente se mostrará dentro del menú "Guardar Como" de la herramienta

Como ejemplo se muestra a continuación la implementación del plugin que permite guardar los datos como XML con atributos:

 

VB.NET:
  1. Imports ExportadorFuentes
  2.  
  3. Public Class PersistirXMLAtributos
  4.     Implements IPersistir
  5.  
  6.     Public ReadOnly Property Nombre() As String Implements IPersistir.Nombre
  7.         Get
  8.             Return "XML Atributos"
  9.         End Get
  10.     End Property
  11.  
  12.     Public Sub Escribir(ByVal ficheroSalidaSinExtension As String, ByVal anchoImagen As Integer, ByVal altoImagen As Integer, ByVal separacionEntreCaracteres As Integer, ByVal caracteres As System.Collections.Generic.Dictionary(Of Char, System.Drawing.Rectangle)) Implements IPersistir.Escribir
  13.         Dim w As Xml.XmlTextWriter = Nothing
  14.         Dim c As Char
  15.  
  16.         Try
  17.             w = New Xml.XmlTextWriter(ficheroSalidaSinExtension & ".xml", System.Text.Encoding.UTF8)
  18.             w.Formatting = Xml.Formatting.Indented
  19.  
  20.             w.WriteStartElement("Fuente")
  21.             w.WriteAttributeString("AnchoImagen", anchoImagen.ToString)
  22.             w.WriteAttributeString("AltoImagen", altoImagen.ToString)
  23.             w.WriteAttributeString("SeparacionEntreCaracteres", separacionEntreCaracteres.ToString)
  24.             w.WriteEndElement()
  25.  
  26.             For Each c In caracteres.Keys
  27.                 w.WriteStartElement(c.ToString)
  28.                 w.WriteAttributeString("X", caracteres(c).Left.ToString)
  29.                 w.WriteAttributeString("Y", caracteres(c).Top.ToString)
  30.                 w.WriteAttributeString("Ancho", caracteres(c).Width.ToString)
  31.                 w.WriteAttributeString("Alto", caracteres(c).Height.ToString)
  32.                 w.WriteEndElement()
  33.             Next
  34.  
  35.         Catch ex As Exception
  36.             MsgBox(ex.Message)
  37.         Finally
  38.             If Not w Is Nothing Then
  39.                 w.Close()
  40.             End If
  41.         End Try
  42.     End Sub
  43.  
  44. End Class

 

La dll con el o los plugins debe copiarse en el mismo directorio en que se encuentre el ejecutable de la aplicación.

La herramienta ha sido desarrollada en Visual Basic.NET (VB.NET) y están disponibles para su descarga en la sección de descargas tanto el código fuente como los ejecutables.

La solución cuenta con dos proyectos: el creador o exportador de fuentes y uno para los plugins. El proyecto del exportador o creador de fuentes consta principalmente de dos elementos, el interfaz IPersistir y el formulario que es el que realiza la mayoría de las acciones. El proyecto de los plugins cuenta con cinco clases que implementan otros tantos tipos de formas de exportar los datos.

Heredar de un Singleton

Miércoles 19 de Septiembre de 2007 a las 23:56

En un post anterior ya hablé del patrón de diseño Singleton.

Una de las limitaciones de este patrón es la dificultad de crear una clase singleton base y crear varias clases derivadas o hijas que hereden de ella adquiriendo el comportamiento de la clase Padre, lo cual incluye además del comportamiento como singleton cualquier otra funcionalidad común que se desee añadir.

La dificultad parte del hecho de que si declaramos la variable Instancia como static (en C#) o shared (en VB.NET), dicha variable será compartida por todas las clases derivadas.

El problema de heredar de una clase singleton es que al pertenecer la instancia privada (declarada como shared en VB.NET y como static en C#) a la clase padre será compartida por todas las clases derivadas. Por lo que cuando en cada una de las clases derivadas hagamos el GetInstance obtendremos siempre la misma instancia de la misma clase derivada (que será la que realice el primer GetInstance que es donde se instancia dicha clase.

En este artículo se aporta una posible solución a este problema. Para ello realmente no se utiliza herencia sino Generics, aunque el resultado es similar y se da solución al problema planteado.

Las clases "derivadas" (que como ya hemos comentado realmente no heredan de la clase genérica) el único código adicional al que tuvieran que deben incorporar es declarar un constructor privado para evitar que sean instanciadas con lo que se vulneraría uno de los requisitos básicos del patrón singleton que es que solo puede existir una instancia de la clase.

 

VB.NET:
  1. Public Class SingletonGenerico(Of Tipo)
  2.  
  3.     Private Sub New()
  4.     End Sub
  5.  
  6.     Private Shared _instancia As Tipo
  7.  
  8.     Public Shared ReadOnly Property Instancia() As Tipo
  9.         Get
  10.             If _instancia Is Nothing Then
  11.                 _instancia = CType(Activator.CreateInstance(GetType(Tipo), True), Tipo)             
  12.             End If
  13.  
  14.             Return _instancia
  15.         End Get
  16.     End Property
  17.  
  18. End Class

 

La utilización de una clase "MiClase" que tuviera una propiedad llamada "PropiedadDeMiClase" y que hiciera uso de la clase genérica seria la siguiente:

 

VB.NET:
  1. ConfiguracionGenerica(Of MiClase).Instancia.PropiedadDeMiClase = "¡Funciona!"

 

Simulador de vuelo

Domingo 16 de Septiembre de 2007 a las 23:55

Como comente en un post anterior últimamente he estado realizando unas pruebas con la programación gráfica en 3D.

El resultado es un sencillo simulador de vuelo en el que manejas un avión.

(Pulsad la imagen para verla a tamaño real)
Captura del simulador de vuelo.
Captura del simulador de vuelo.

La cámara puede moverse libremente por el mundo o fijarse a la parte delantera del avión o a su parte posterior.

En la parte inferior izquierda se visualiza el velocímetro analógico y la brújula que indica en que dirección te mueves. También se muestra un indicador de la altitud y de la inclinación con respecto al horizonte para saber si estamos ascendiendo o descendiendo y en que medida.
En la esquina inferior derechas se encuentra un pequeño mapa a escala y un punto rojo parpadeante que nos indica en todo momento en donde estamos y que es muy útil para dirigirnos a nuestro destino.

Esta desarrollado en Visual Basic .NET con el Framework 2.0 y haciendo uso de las DirectX 9.

Los gráficos como se puede observar son extremadamente malos.

(Pulsad la imagen para verla a tamaño real)
Captura del simulador de vuelo.
Captura del simulador de vuelo.

 

Plugin para el wordpress: Manejar las descargas

Martes 11 de Septiembre de 2007 a las 23:55

En el área de descargas tengo varios ficheros disponibles para descargar y tengo pensado ir subiendo nuevas descargas a corto plazo. Hasta ahora no tenía forma de saber el número de veces que se descargaban dichos archivos ni de llevar un control de cuando lo subía ni asociarles una descripción.

Un plugin bastante interesante que he encontrado para el wordpress es el download monitor, que puede encontrarse en la siguiente dirección:

http://blue-anvil.com/archives/wordpress-download-monitor-plugin-v15

Con este plugin podremos realizar fácilmente la subida de ficheros a nuestro blog, tener todos los ficheros bien localizados y saber cuantas veces se descarga cada uno. También permite asociar una versión a cada fichero.

Tanto la instalación del plugin como su uso es muy sencillo.

La ruta por defecto a la que se subieran los ficheros es la siguiente /wp-content/plugins/wp-downloadMonitor/user_uploads/
Probablemente deseemos modificar esta ruta indicando otra que nos parezca más adecuada, para ello debemos modificar el fichero wp-downloadMonitor.php. Dicha ruta aparece cableada en el código (Hard code) en 10 puntos de dicho fichero. Y en esos 10 puntos debemos modificarlo por la ruta que deseemos. No se si el desarrollador del plugin habrá tenido alguna razón para hacerlo así, pero lo razonable parece que hubiera sido meter ese valor en la base de datos y permitir modificarlo desde la pantalla de opciones o en el peor de los casos tenerlo una única vez en el código en vez de diez veces.

Además he tenido que modificar también los tipos de ficheros permitidos para subir y descargar, ya que inicialmente solo se permitían los .zip y los .pdf

Un plugin muy recomendable de incorporar a nuestro blog y con el que de momento no he tenido ningún problema.

Herramienta para obtener el color de un pixel de la pantalla.

Domingo 9 de Septiembre de 2007 a las 23:56

Esta sencilla herramienta la desarrollé hace algo más de dos años y permite conocer el color de un determinado pixel de la pantalla. Dicho color es expresado por sus componentes ARGB tanto en hexadecimal como en decimal.
Esta herramienta puede ser útil si por ejemplo queremos poner un control de una pagina html o de una aplicación windows de un determinado color (que aparezca en otra pagina web o en una imagen) y no sabemos su representación para reproducirlo.

Su funcionamiento es muy sencillo. Tiene dos modos, capturar y no capturar. En el modo capturar se obtendrá el color del pixel sobre el cual posicionemos el ratón. Para cambiar de modo se debe pulsar la tecla "Espacio". También se puede pulsar con el ratón sobre el check de capturar, pero entonces se modificará el color obtenido ya que cambiamos de posición el ratón.

Esta desarrollada en Visual Basic.NET haciendo uso del Framework 1.1. Para implementarlo hice uso del API de windows.

En la sección de descargas podréis obtener tanto el código fuente como los binarios de al aplicación.

Este es el aspecto que tiene la herramienta:

Herramienta Color.
Herramienta Color.

 

Primeros pasos en 3D

Martes 4 de Septiembre de 2007 a las 23:59

Hasta el momento no había realizado ninguna incursión en el mundillo de las 3D con DirectX. Recientemente me ha picado el gusanillo y me he puesto a realizar un pequeño experimento en 3D. La idea es crear una especie de simulador de vuelo muy básico ya que no pretendo crear un juego decente sino simplemente aprender algo sobre la programación en 3D.

Por lo tanto de momento voy a aparcar el desarrollo de la aventura gráfica y me voy a centrar en este sencillo juego.

Según vaya realizando avances colocaré algunas capturas.

Punto contenido dentro de un póligono

Lunes 3 de Septiembre de 2007 a las 23:59

Una necesidad muy común en el desarrollo de videojuegos es la de determinar si un punto esta contenido dentro de un polígono irregular. Por ejemplo en el caso de una aventura gráfica es necesario para averiguar si el usuario ha pulsado sobre una determinada región que podría ser un objeto, otro personaje, etc.

Dentro de la librería matemática que he creado se encuentra la clase polígono que implementa dicha funcionalidad. Así como una serie de clases que también son utilizadas en el algoritmo como la clases Vector o la clase Angulo

El algoritmo para determinar si el punto esta incluido dentro del área del polígono es bastante sencillo, pero requiere algunos cálculos.

Inicialmente se une el punto que se quiere averiguar si esta dentro o fuera del polígono con cada uno de los vértices del polígono, con lo cual se obtendrán tantos segmentos como vértices tenga el polígono.
Después hay que ir sumando los ángulos que forman esos segmentos. La suma hay que realizarla en orden, es decir primero sumar el ángulo que forma el segmento del punto al vertice1 con el segmento del punto al vertice2 con el ángulo que forma el segmento del punto al vertice2 con el segmento del punto al vertice3. Y así sucesivamente en orden hasta terminar sumando el ángulo que forma el segmento del último vértice con el del primer vértice.
Si el ángulo total resultante de la suma de ángulos es 0 grados entonces el punto estará fuera del polígono, si es 2PI entonces estará dentro.
Al realizar los cálculos probablemente se acumulen errores de redondeo así que a lo mejor el resultado no es exactamente 0 o 2 PI, por lo que no se debe comparar con 0 o 2PI si no ver si esta cerca de esos valores.

El código del método que determina si el punto pertenece al polígono es el siguiente:

 

VB.NET:
  1. ''' <summary>
  2.     ''' Devuelve si el punto pertenece al poligono
  3.     ''' </summary>
  4.     ''' <param name="pPunto"></param>
  5.     ''' <returns></returns>
  6.     ''' <remarks></remarks>
  7.     Public Function Incluye(ByVal pPunto As Point) As Boolean
  8.         Dim a As New Angulo(0)
  9.         Dim v1 As Vector
  10.         Dim v2 As Vector
  11.         Dim i As Integer
  12.  
  13.         If Vertices.Count <3 Then
  14.             Throw New ApplicationException("El polígono debe tener al menos tres vértices y tiene " & Vertices.Count & " vertices.")
  15.         End If
  16.  
  17.         'Trazamos un vector desde el punto a cada uno de los
  18.         'vertices
  19.         'Calculamos el angulo que forma cada vector con el
  20.         'vector del vertice adyacente (el vector del ultimo
  21.         'vertice formará un angulo con el vector primer vertice)
  22.         'Sumamos todos los angulo
  23.         For i = 0 To Vertices.Count - 1
  24.             v1 = New Vector(pPunto, Vertices(i))
  25.             v2 = New Vector(pPunto, Vertices((i + 1) Mod Vertices.Count))
  26.             a = a + Vector.Angulo(v1, v2)
  27.         Next
  28.  
  29.         'Si el angulo resultante es 360º entones el punto estará
  30.         'dentro del poligono
  31.         'Si el angulo es 0 grados estará fuera.
  32.         'Como se han podido acumular pequeños errores al hacer
  33.         'los calculos establecemos que si el valor absoluto
  34.         'de los grados es menor de 180 esta fuera (realmente
  35.         'será cercano a 0º) y si no dentro (estará cercano a 360)
  36.  
  37.         Return Math.Abs(a.Grados)> 180
  38.  
  39.     End Function

 

El polígono viene dado por una lista de puntos que representan los vértices.

Para determinar el ángulo entre dos vectores utilizamos la siguiente función:

 

VB.NET:
  1. ''' <summary>
  2.     ''' Devuelve el angulo que forman los dos vectores expresado en radianes
  3.     ''' </summary>
  4.     ''' <param name="v1"></param>
  5.     ''' <param name="v2"></param>
  6.     ''' <returns>El angulo expresado en radianes</returns>
  7.     ''' <remarks></remarks>
  8.     Public Shared Function Angulo(ByVal v1 As Vector, ByVal v2 As Vector) As Angulo
  9.         If Vector.ModuloDelProductoVectorialConSigno(v1, v2)> 0 Then
  10.             Return New Angulo(Math.Acos((Vector.ProductoEscalar(v1, v2) / (v1.Modulo * v2.Modulo))))
  11.         Else
  12.             'Si el modulo del producto vectorial es negativo
  13.             'el angulo será negativo
  14.             Return New Angulo(-1 * Math.Acos((Vector.ProductoEscalar(v1, v2) / (v1.Modulo * v2.Modulo))))
  15.         End If
  16.  
  17.     End Function

 

El cálculo del producto escalar de dos vectores y del módulo del producto vectorial es muy sencillo:

 

VB.NET:
  1. ''' <summary>
  2.     ''' Devuelve el producto escalar de dos vectores
  3.     ''' </summary>
  4.     ''' <param name="v1"></param>
  5.     ''' <param name="v2"></param>
  6.     ''' <returns></returns>
  7.     ''' <remarks></remarks>
  8.     Public Shared Function ProductoEscalar(ByVal v1 As Vector, ByVal v2 As Vector) As Integer
  9.         Return ((v1.X * v2.X) + (v1.Y * v2.Y))
  10.     End Function
  11.  
  12.     ''' <summary>
  13.     ''' Devuelve el módulo del vector resultante de hacer el
  14.     ''' productor vectorial de dos vectores
  15.     ''' </summary>
  16.     ''' <param name="v1"></param>
  17.     ''' <param name="v2"></param>
  18.     ''' <returns></returns>
  19.     ''' <remarks></remarks>
  20.     Public Shared Function ModuloDelProductoVectorialConSigno(ByVal v1 As Vector, ByVal v2 As Vector) As Integer
  21.         Return ((v1.X * v2.Y) - (v1.Y * v2.X))
  22.     End Function