a una amiga que quiere mucho a su conejita; le reconstrui parte de su cuerpo que no aparecio en la foto; y le agrege un grass ...

Original:


Editada:


alguien sabe como le podria hacer el efecto del pelaje?, para que sea mas real?, tambien los bigotes; que los perdio durante la operacion...

No imagine llegar a apreciar efectos de video de alta calidad como en este video:



tienen idea de como hacer esto? tenia entendido que habian plugins extras (de pago) para el adobe after effects, creo que si se podria hacer esto...


Saludos

me refiero a tutoriales para poder llegar a dibujar esto:





la verdad es que ando muy interesado en poder dibujar y pintar asi....
(claro que en photoshop lo del pintado, tengo entendido que se puede hacer alli)

 

Bueno en vista a que me sorprendio la piramide giratoria que postearon unos dias atras, usando mi matematica basica que aprendi
ahora hice este cubo qe gira, tambien puse una breve explicacion; pero para que pudan entender requiere conocimientos de otro sistema de coordenadas: Coord. Polares
PD: si miran bien el cubo tiene dos sentidos de giro: de derecha a izquierda, y de izquieda a derecha;
tan solo quedense mirando el cubo buscandole forma y se podra apreciar el efecto.
Pues da la impresion de que el cubo esta por debajo de tu mirada, como tambien por encima de tu mirada
(esto fue sin querer)

'#########################################
'                                               ## Teoria ##
'La idea se basa en hacer girar un cuadrado sobre su eje
'Si tenemos dos cuadrados girando a la vez, seria como tener las dos tapas (superior e inferior) del cubo
'para ello haremos uso de coordenadas Polares, para poder propiciar el giro
'Debemos saber que un punto se puede ubicar de varias formas:
'1: Conociendo la posicion en X, y en Y
'2: Conociendo el Angulo y el Radio (Coordenadas Polares), esto usaremos para ubicar cada punto
 
'Si un cuadrado gira sobre su eje, existe una distancia del punto al eje, esto sera nuestro RADIO;
'por lo cual cada punto en movimiento  describira una circunferencia (su trayectoria)
'o una elipse dependiendo de como se mire
 
'Controles: un Timer 
'by Jackl007!
'#########################################
Const PI = 3.141592654
 
Dim Inter As Integer 'Intervalo del Angulo
 
Function AngRad(ByVal a As Double) As Double
'Esta funcion convierte un Angulo Decimal a un angulo en radianes,
'recordar que necesitamos hacer dicho cambio para poder trabajar con los incrementos
'ya que la funcion seno, y coseno recibe en RADIANES
AngRad = (a * PI / 180)
End Function
 
Private Sub Form_Load()
Inter = 0
Me.AutoRedraw = True
Me.BackColor = vbBlack
Me.Height = 6180
Me.Width = 6180
Timer.Interval = 100
 
Scale (-50, 50)-(50, -50) 'Mi escala, en X y en Y normal
 
End Sub
 
Private Sub Timer_Timer()
Cls 'Colocarlo y quitarlo para probar distintos efectos
'recordamos que inter es el ANGULO
 
'##############################
Cubo 30, 15, 0, 0, Inter   'El 30 : radio 1, 15 = radio dos, 0 =eje x, 0 = eje y
Line (0, 40)-(0, 15), vbRed
Line (0, 15)-(0, -15), vbGreen
Line (0, -15)-(0, -40), vbRed
'##############################
 
'Algunos ejemplos Mas...
'#########################################
'Rotar cuadrados en su mismo eje; probar ambas sentencias de este bloque a la vez
'El cero, cero: POSICION
'Rectangulo 30, 30, 0, 0, Inter
'Rectangulo 30, 30, 0, 0, Inter + 20
'Rectangulo 30, 30, 0, 0, Inter + 40
'Rectangulo 30, 30, 0, 0, Inter + 60
'Rectangulo 30, 30, 0, 0, Inter + 80
'#########################################
'#########################################
'Conociendo a un Cuadrado
'Cuadrado 25, 0, 0, 0 'el ultimo parametro es el ANGULO DE INCLINACION
'Cuadrado 25, 0, 0, 45
'Cuadrado 25, 0, 0, 70
'#########################################
 
 
Inter = Inter + 10 'Incremento del Angulo
 
End Sub
Sub Cubo(ByVal R1 As Double, ByVal R2 As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
'R1 = Radio 1 (el algoritmo calcula los giros del cubo en base al radio de una circunferencia circunscrita en el cuadrado
'R2 = radio 2
'eX = Posicion en eje X
'eY = Posicion en eje x
'Ang = angulo de inclinacion, respecto a la horizontal
Dim a, i As Integer
Dim xA, xB, yA, yB As Double 'variables para guardar las posiciones temporales
 
a = Ang + 45 'inclinacion entre cada radio
i = a
'Cambiamos a sistema de coordenadas polares
    For i = a To a + 360 Step 90
        If i = a Then
            xA = R1 * Cos(AngRad(i)) + eX
            yA = R2 * Sin(AngRad(i)) + R1 / 2 + eY
            xB = R1 * Cos(AngRad(i)) + eX
            yB = R2 * Sin(AngRad(i)) - R1 / 2 + eY
        Else
         Line (xA, yA)-(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + R1 / 2 + eY), &HE0E0E0
         Line (xB, yB)-(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) - R1 / 2 + eY), &HE0E0E0
         xA = R1 * Cos(AngRad(i)) + eX
         yA = R2 * Sin(AngRad(i)) + R1 / 2 + eY
         xB = R1 * Cos(AngRad(i)) + eX
         yB = R2 * Sin(AngRad(i)) - R1 / 2 + eY
         Line (xA, yA)-(xB, yB), &HE0E0E0 'Esto dibuja las lineas entre las tapas laterales
         'quitarlo y probar los efectos
 
        End If
 
 
Next i
 
End Sub
Sub Rectangulo(ByVal R1 As Double, ByVal R2 As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
 
Dim a, i As Integer
a = Ang + 45
i = a
    For i = a To a + 360 Step 90
        If i = a Then
            CurrentX = R1 * Cos(AngRad(i)) + eX
            CurrentY = R2 * Sin(AngRad(i)) + eY
    Else
        Line -(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + eY), &HE0E0E0
    End If
Next i
 
End Sub
Sub Cuadrado(ByVal R As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
 
Dim a, i As Integer
a = Ang + 45
i = a
    For i = a To a + 360 Step 90
        If i = a Then
            CurrentX = R * Cos(AngRad(i)) + eX
            CurrentY = R * Sin(AngRad(i)) + eY
    Else
        Line -(R * Cos(AngRad(i)) + eX, R * Sin(AngRad(i)) + eY), &HE0E0E0
    End If
Next i
 
End Sub
 
 
 
 
 

Lo bueno de estas cosas es que aplicas la matematica qe algun dia aprendiste, y no comprendes porque la aprendiste...
aqui se ven los efectos!!
Saludos!!!!

Resulta que a mi padre le prestaron un VCD con videos de una corporation, el cd es del normal que suelen vender aqui en mi pais: Princo, CD-R 700 MB/80 Min (ojo no DVD).
ayer intente copiarlo con el nero,pues queriamos tener una copia del disco, y resulta que vi que tenia copyrigth (ni siquiera era el disco original)...
y cuando inserte el disco en blanco (de la misma marca que el otro), resulta que aparecio un mensaje de un disco con poca capacidad...
digo queeeeeeee.... si es un dsico igual.
El chiste que voy a la carpeta donde estaba el video, y miro en propiedades y tenia 800 megas, me quede pensando lo que la gente hace para evitar que lo copien, pero por fortuna se pudo copiar al Pc, aunq demoro mas de lo normal.

No pense que se podria comprimir un video de 800 megas para que entre en un disco normal...; pero de forma normal... porque el video esta intacto

por cierto los VCDs tienen la extension .dat (claro que si lo abro con el reproductor, normal lo lee), pero este el video tiene este nombre: AVSEQ01.MPG

Alguien sabe del tema en respecto? me he quedado con la duda

Yo estos dias ando queriendo hacer un programa que pueda enviar y recibir, e interpretar los datos que se establecen con una pagina por el protocolo https, ya que esta informacion viaja cifrada.
Como podria establecer una comunicacion con un servidor de HTTPS, ya que al conectarse se establece una contraseña para poder descifrar los datos que se transfieren, alguien tiene idea de como poder hacerlo?

no he encontrado informacion al respecto, estaba con duda si preguntarle a un webmaster de como lo hace en php, para poder buscar una forma de hacerlo en vb

corrigame si estoy equivocado

tenia la necesidad de firmar digitalmente un applet, encontre que se puede usar el     
 keytool, jarsigner, alguien sabe mas al respecto?
( sino que ando de apuros porque tengo que presentar unos trabajos, y el tiempo no me da)

Bueno, queriendo hacer una presentacion de imagenes, me encontre con un proyecto muy simpatico, y le agrege un programita para pre-configurar parte de las imagenes que se mostraran en el, ya que hacerlas manualmente son molestosas, aun mas cuando las imagenes son de distintas resoluciones.

aqui esta la url del proyecto del Autoviewer:
http://www.airtightinteractive.com/projects/autoviewer/

bajamos el paquete del autoviewer (necesario para poder hacer la presentacion):
http://www.airtightinteractive.com/projects/autoviewer/autoviewer.zip
y ya tenemos los archivos necesarios, para lo nuestro.

ejemplo:
http://usuarios.lycos.es/jkbenites29/Auto-viewer



ahora lo mio, abrimos un proyecto y colocamos estos controles como en la imagen:

damos las propiedades al control text2 necesarias: multiline, y bars

Private Declare Function GetObject _
    Lib "gdi32" _
    Alias "GetObjectA" ( _
        ByVal hObject As Long, _
        ByVal nCount As Long, _
        lpObject As Any) As Long
 
'Estructutra necesesaria para la informacion del Bitmap
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
 
'Array de bytes y variable para la estructura
Dim PicBits() As Byte, PicInfo As BITMAP
 
Dim ArchivoXML As String
Dim MAX As Integer
'Variable para almacenar la imagen
Dim Laimagen As IPictureDisp
Function Nombre(path)
Nombre = Mid(path, InStrRev(path, "\") + 1)
End Function
Function Factor(ByVal num As Double)
Dim N As Integer
N = Round(num)
 
If N < 680 Then
Factor = 1
Else
 
    Dim temp As Double
    temp = N / MAX
    If temp > 1 Then
    Factor = N / temp
    Else
    Factor = N
    End If
 
    Factor = Round(temp, 4)
End If
 
End Function
Function Div(numW, numH)
Dim N As Integer
 
N = numW: MAX = 680
If numW < numH Then
N = numH
MAX = 500
End If
 
 
Dim temp As Double
temp = Factor(N)
 
numW = Round(numW / temp)
numH = Round(numH / temp)
'If MAX = 500 Then numH = numH - 100
 
Dim Adicional As Integer
Adicional = 450 - numH
 
 
If Adicional > 0 Then
 
If numH > 350 Then
numW = Round((numW * (numH + Adicional)) / numH)
numH = numH + Adicional
 
End If
End If
 
End Function
 
Function Subfolders(path)
    On Error Resume Next
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim N_w, N_h As Integer
 
    Set Drives = fso.Drives
    newpath = path
    Set Fold = fso.GetFolder(newpath)
    Set Files = Fold.Files
 
    For Each File In Files
 
    Set Laimagen = LoadPicture(File.path)
    GetObject Laimagen, Len(PicInfo), PicInfo
 
        ext = fso.GetExtensionName(File.path)
        ext = LCase(ext)
        If ext = "jpg" Then
       N_w = CLng(PicInfo.bmWidth)
       N_h = CLng(PicInfo.bmHeight)
       test = Div(N_w, N_h)
 
    ArchivoXML = ArchivoXML & vbCrLf & "<image>" & vbCrLf _
                & "     <url>" & Nombre(Text1) & "/" & File.Name & "</url>" & vbCrLf _
                & "     <caption> </caption>" & vbCrLf _
                & "     <width>" & N_w & "</width>" & vbCrLf _
                & "     <height>" & N_h & "</height>" & vbCrLf _
                & "</image>" & vbCrLf
 
                '& "     <width>" & CLng(PicInfo.bmWidth) / 2.4 & "</width>" & vbCrLf
                '& "     <height>" & CLng(PicInfo.bmHeight) / 2.4 & "</height>" & vbCrLf
 
                End If
                DoEvents
    Next
 
End Function
 
Private Sub Command1_Click()
 
 
ArchivoXML = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>" & vbCrLf _
            & "<gallery frameColor=" & Chr(34) & "0xFFFFFF" & Chr(34) & " frameWidth=" & Chr(34) & "15" & Chr(34) & " imagePadding=" & Chr(34) & "20" & Chr(34) & " displayTime=" & Chr(34) & "6" & Chr(34) & " enableRightClickOpen=" & Chr(34) & "true" & Chr(34) & ">" & vbCrLf & vbCrLf
 
Subfolders (Text1.Text)
 
ArchivoXML = ArchivoXML & vbCrLf & "</gallery>"
Text3.Text = ArchivoXML
End Sub
 

Algunas cositas encontre en la web como la forma de obtener la resolucion de una imagen ...

en el text1 se coloca la ruta de las imagenes, y el programa genera el archivo tratando de acomodar la resolucion de las imagenes a una adecuada, por ejemplo, si se colocan imagenes grandes, el programa encuentra el tamaño apropiado en el archivo.
y ahora tendremos el texto del archivo gallery.xml completo, listo para agregar al proyecto.

esto lo hice, porque me daba pereza ponerme a agregar la configuracion de las imagenes manualmente, asi que mejor un programa que lo haga por mi.

ahora agregamos el archivo gallery.xml afuera de la carpeta que contiene las imagenes (salvo que edites el programa, para que lo coloques a tu gusto).

ahora les dejo un ejemplo:
http://usuarios.lycos.es/jkbenites29/Auto-viewer

(las imagenes las tome yo con mi camara, aqui dejo la url del correspondiente post:
http://foro.elhacker.net/fotografia/fotitos_jaen_peru_with_autoviewer-t224361.0.html

de casualidad miro las estadisticas del admin y hay 13 000 posts, y me voy a la ultima pagina:
http://foro.elhacker.net/profiles/elbrujo-u1.html;sa,showPosts;start,8940

y me encuentro con el post numero 8947
y me quede con la duda de donde andaban los demas posts, me quede con las ganas de ver el primer post de el-brujo

Agregado:
Bueno hice en forma de presentacion, para mostrar parte de un aporte...
aqui dejo el link. por si alguien lo quiera ver en esta forma:
http://usuarios.lycos.es/jkbenites29/Auto-viewer

tambien dejo el link donde se enseña a crear esta presentacion
http://foro.elhacker.net/programacion_vb/presentacion_de_imagenes_con_autoviewer-t226897.0.html

Original:
hace unas semanitas estuve por la cuidad de jaen, exactamente por un pueblo llamado charape, y tome fotos al paisaje, entre ellas pongo algunas de las tomas.






















todas por mi

me gusta la fotografia