| |
 Mostrar Mensajes
|
|
Páginas: 1 2 3 4 5 [6]
|
|
53
|
Media / Diseño Gráfico / Re: Ponerle alas a mi gato
|
en: 15 Mayo 2008, 17:35 pm
|
Que foto? sube la foto y que tipo de alas quiere ponerle? ya que hay muchos tipos de alas http://www.mercadolibre.com.mx/jm/img?s=MLM&f=19684348_8574.jpg&v=P
http://cuentosdeprincesas.blogia.com/upload/20080212050514-alas-de-hada.jpg
http://www.unitedmaskandparty.com/Halloween/images/adult_angel_wings.jpg
http://i226.photobucket.com/albums/dd144/SciTecWeb/quimera2.jpg
http://www.solociencia.com/biologia/07031604.jpg
http://www.casamerica.es/var/casamerica.es/storage/images/otras-miradas/impacto-visual/armando-reveron/alas-de-murcielago/65867-1-esl-ES/alas_de_murcielago_fullblock.jpg[/ode]
Lo primero es sacarle foto al gato de tal forma que puedas montar las alas, o sea, en la misma perspectiva que necesites o que tengas a las alas, o tambien pudieras ahcer el modelo en 3D de las alas con pespectiva como la foto del gato...
Y luego para exturizar podrias ver este post
[url=https://foro.elhacker.net/diseno_grafico/montajes_de_animales_con_photoshop-t209269.0.html][b]MONTAJES DE ANIMALES CON PHOTOSHOP[/b][/url] <click
:D El problema con el tuto del montage de animales esque se nota el montaje se parece a este mi mascota  http://www.diset.com/admin/uploads/juegos/cas/8/gato050034.jpg |
|
|
|
|
58
|
Programación / Programación Visual Basic / Re: programa para simular movimiento parabolico
|
en: 29 Abril 2008, 18:26 pm
|
Option Explicit
Dim vx, vy, t, alto, ancho, xpos As Double
Private Sub cmd_lanzar_Click()
vx = Val(txt_v.Text) * Cos(Val(txt_a.Text) * 3.141592 / 180#)
vy = Val(txt_v.Text) * Cos(Val(txt_a.Text) * 3.141592 / 180#)
Me.Timer1.Interval = 50
Me.Timer1.Enabled = True
t = 0
Me.txt_v = ""
Me.txt_a = ""
End Sub
Private Sub cmd_salir_Click()
End
End Sub
Private Sub Form_Load()
frm_1.pct.Scale (0, 100)-(200, 0)
t = 0
Me.txt_v.Text = 35
Me.txt_a.Text = 50
'para la circunferenci
frm_1.pct.Circle (190, 10), 10, vbRed
'para dibujar el obstaculo
frm_1.pct.Line (100, 0)-(120, 50), vbRed, BF
'ALTO OBTACULO
alto = 50
vs_obstaculo.Value = 100 - alto
'ANCHO OBSTACULO
ancho = 20
hs_ancho.Value = ancho
'POSICION
xpos = 100
hs_posicion.Value = xpos
End Sub
Private Sub hs_ancho_Change()
ancho = hs_ancho.Value
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
End Sub
Private Sub hs_posicion_Change()
'posicion y borar pantalla
xpos = hs_posicion.Value
frm_1.pct.Cls
'circulo
frm_1.pct.Circle (190, 10), 10, vbRed
'linea
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
End Sub
Private Sub Timer1_Timer()
Dim x, y, distancia As Double
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
t = t + 0.1
x = vx * t
y = vy * t - 9.87 / 2# * t * t
frm_1.pct.DrawWidth = 5
frm_1.pct.PSet (x, y), vbBlue
frm_1.pct.DrawWidth = 1
If (x > xpos) Then
If (y > 0) Then
If (x < xpos + ancho) Then
If (y < alto) Then
MsgBox ("PERDEDOR"), vbCritical
Me.Timer1.Enabled = False
Else
End If
End If
End If
End If
distancia = Sqr((x - 190) ^ 2 + (y - 10) ^ 2)
If (distancia < 10) Then
Beep
MsgBox ("GANAS"), vbExclamation
Timer1.Enabled = False
End If
End Sub
Private Sub vs_obstaculo_Change()
alto = 100 - vs_obstaculo
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
End Sub
|
|
|
|
|
|
| |
|
