Mensajes

busca algo sobre prolog, luego vuelve y explicame en qué se parece a batch.

Bueno, estoy haciendo un lenguaje de programación interpretado que corre sobre una máquina virtual. Hay un timer para la máquina, y otro para dibujar el buffer gráfico. El código puede mandar órdenes gráficas que se dibujan en el buffer, yo quiero que el dibujado de buffer en la superficie no interfiera en el loop principal. (Bueno, también he empezado a coquetear con directX, pero me llevará tiempo crear las clases que necesito...)

Mas práctico si, más provechoso no.

Soy autor, si, aunque la idea de crear el objeto graphics y después destruirlo, en lugar de tener uno fijo para todo la vi en unos códigos de msdn.

Pues yo tengo una colección de funciones para crear, cargar y superponer imágenes así como para escribir texto usando gdi+:

cargar una imágen en una resolución determinada:

Código (vbnet) [Seleccionar] Expandir

       
Public Function read_image_at_res(ByRef file As String, ByRef force_sizex As Integer, ByRef force_sizey As Integer) As System.Drawing.Bitmap
        Dim img As New Bitmap(file)
        Dim b As New Bitmap(force_sizex, force_sizey)
        Dim bg As Graphics = Graphics.FromImage(b)
        Try
            bg.DrawImage(img, New Rectangle(New Point(0, 0), New Size(force_sizex, force_sizey)), New Rectangle(0, 0, img.Width, img.Height), GraphicsUnit.Pixel)
        Catch ex As Exception

        End Try
        bg.Dispose()
        Return b
    End Function


redimensionar una imágen:

Código (vbnet) [Seleccionar] Expandir

       
Public Function resize_bmp(ByRef img As Bitmap, ByRef sizex As Integer, ByRef sizey As Integer) As Bitmap
        Dim b As New Bitmap(sizex, sizey)
        Dim bg As Graphics = Graphics.FromImage(b)
        bg.DrawImage(img, New Rectangle(New Point(0, 0), New Size(sizex, sizey)), New Rectangle(0, 0, img.Width, img.Height), GraphicsUnit.Pixel)
        bg.Dispose()
        Return b
    End Function


superponer dos imágenes sobre un lienzo:

Código (vbnet) [Seleccionar] Expandir

       
Public Function layer_sum(ByRef layer1 As Bitmap, ByRef layer2 As Bitmap) As Bitmap
        Dim bg As Graphics = Graphics.FromImage(layer1)
        bg.DrawImage(layer2, New Point(0, 0))
        bg.Dispose()
        Return layer1
End Function


escribir texto plano(con sombreado rudimentario) en un fondo transparente:

Código (vbnet) [Seleccionar] Expandir

       
    Public Function get_text_layer(ByRef size As System.Drawing.Size, ByRef text As String) As System.Drawing.Bitmap
        Dim img As New Bitmap(size.Width, size.Height)
        Dim bg As Graphics = Graphics.FromImage(img)
        bg.DrawString(text, New Font("Lucida Console", 12, FontStyle.Bold), Brushes.Gray, New Point(1, -1))
        bg.DrawString(text, New Font("Lucida Console", 12, FontStyle.Bold), Brushes.White, New Point(0, 0))
        bg.Dispose()
        Return img
    End Function


dividir la imagen en sectores y devolver el indicado por "index":

Código (vbnet) [Seleccionar] Expandir

       
    Public Function get_portion(ByRef image As System.Drawing.Bitmap, ByRef cuadriculax As Short, ByRef cuadriculay As Short, ByRef index As Integer) As System.Drawing.Bitmap
        Dim img As New Bitmap(CInt(image.Size.Width / cuadriculax), CInt(image.Size.Height / cuadriculay))
        'Dim b As New Bitmap(CInt(image.Size.Width / cuadriculax), CInt(image.Size.Height / cuadriculay))
        Dim bg As Graphics = Graphics.FromImage(img)
        Dim xcount = 0
        Dim ycount = 0
        Do While index >= cuadriculax
            index = index - cuadriculax
            ycount = ycount + 1
        Loop
        xcount = index
        Dim tmpx As Integer = CInt((image.Size.Width / cuadriculax) * xcount)
        Dim tmpy As Integer = CInt((image.Size.Height / cuadriculay) * ycount)
        Dim port As New Rectangle(New System.Drawing.Point(0, 0), New Size(New Point(CInt(image.Size.Width / cuadriculax), CInt(image.Size.Height / cuadriculay))))
        bg.DrawImage(image, port, tmpx, tmpy, CInt(port.Size.Width), CInt(port.Size.Height), GraphicsUnit.Pixel)
        bg.Dispose()
        Return img
    End Function


http://ftp.jaist.ac.jp/pub/sourceforge/f/fd/fd7db.u/Manuales/Historia%20de%20los%20lenguajes%20de%20programaci_n.pdf

espero que te ayude.

El gran problema es que no se trata de gustos, sino de aceptación social. Como los canis que se visten de payasos y ensayan cara de perro para sentirse parte de un grupo. A mi me parecen subnormales, pero no solo estos, normalmente todo tipo de conducta ligada a querer emular una estética para sentirse parte de un grupo me lo parecen. Yo escucho mucho rap, por ejemplo, pero no me disfrazo con gorras planas mal puestas ni pantalones que me quedan grandes, no entiendo porqué tendría que hacerlo.

Por cierto, ¿Punk tropical? BUAJAJAJAJAJAJAJAJ, me parto.

11100
1c

Listo, como dicen en el vínculo tenía que añadir:

<startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0"/>
  </startup>

Una vez hecho esto arranca bien y puedo usar los componentes. Me ha estado dando otros problemas, pero era por culpa mía y ya están solucionados. A darle caña!

Es cierto que es buena película ,  pero me impresionó hasta que punto llega a deteriorarse físicamente, en algunas escenas daba la sensación de que se iba a partir.

Otra que he visto hace poco es the hole (2001)

No está mal pero esperaba algo diferente..., me dijeron que era de muchisimo miedo y sustos  pero nada de nada ...

Le daría un 6 ..(el ambiente es algo asfixiante,  me refieroa la parte que se desarrolla  dentro del bunker)

¿The hole? ostia, si es buenisima, cierto que no es de miedo, no se quien te dijo eso y igual te la fastidió un poco predisponiendote. No es miedo ni nada, pero esa peli es pura psicología, cuando se matan por una cocacola por ejemplo, me parece muy impactante. Yo le daría de 8 para arriba.