bueno, el tema es q qiero dibujar un bmp en el render, sin usar grh

se me ocurrio hacerlo como los textos de vbgore, pero es largo, y creo q habia una forma mas corta de hacerlo.

seguro es una boludez, pero no me acuerdo como hacia

gracias

Fijate hace una cosa... al sub Device_box_textured_render_advance, en la linea que le da la textura, dice algo asi como: GrhList(GrhIndex).FileNum no me acuerdo bien como era.
La cuestion es que tenes que sacar eso, que te quede solamente el GrhIndex

Despues en el sub Draw_Grh, o DDrawtransghrtosurface.. no me acuerdo como era en la variable del grh, no se como se llamaba. Ponele q tambien sea GrhIndex, entonces lo dejas asi: GrhList(GrhIndex).FileNum

Entonces tranquilamente podes hacer llamados del device_box_textured_render_advance y ponerle directamente el numero de grafico, en vez de numero de grh.
Jajaj capaz que no me entendiste una chota ... tengo una paja para explicar jaja estoy cansado

Te explico lo q hace.. en vez de buscar el numero de grafico en el grh, desde el device_box_textured_render_advance, lo busca antes.. en el draw_grh o como se llame , entonces podes ya dibujar bmps tranquilamente con el device_box_textured_render_advance.. no se si se entendio

Saludos!

Static d3dTextures As D3D8Textures

Set d3dTextures.texture = GetTexture(NUMERO, d3dTextures.texwidth, d3dTextures.texheight)

D3DDevice.SetTexture 0, d3dTextures.texture

algo así jaja

ok, ahora pruebo con eso, sabia q venia por lo de d3d8textures la mano, pero no m acordaba.

gracias

No se como lo tendrá fenix pero debe tener para cargar una textura surfacedb.surface o algo por el estilo, tiene que venir siameze por acá jaj

Dunkan escribió:No se como lo tendrá fenix pero debe tener para cargar una textura surfacedb.surface o algo por el estilo, tiene que venir siameze por acá jaj

no existe surfacedb en fenix por eso

en 13.0 es facil hacerlo, pero aca no me acordaba como era



eso estaba en bwao , igual, era como decian uds

GoDKeR escribió:

Dunkan escribió:No se como lo tendrá fenix pero debe tener para cargar una textura surfacedb.surface o algo por el estilo, tiene que venir siameze por acá jaj

no existe surfacedb en fenix por eso

en 13.0 es facil hacerlo, pero aca no me acordaba como era

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub Device_Box_Textured_Render_Image(ByVal FileNum As Long, ByVal dest_x As Integer, ByVal dest_y As Integer, ByVal src_width As Integer, _
2.                                             ByVal src_height As Integer, ByRef rgb_list() As Long, ByVal src_x As Integer, _
3.                                             ByVal src_y As Integer, Optional ByVal alpha_blend As Boolean, Optional ByVal Angle As Single, Optional ByVal Shadow As Boolean = False)
4. '**************************************************************
5. 'Author: Juan Martín Sotuyo Dodero
6. 'Last Modify Date: 2/12/2004
7. 'Just copies the Textures
8. '**************************************************************
9.     Static src_rect As RECT
10.     Static dest_rect As RECT
11.     Static temp_verts(3) As TLVERTEX
12.     Static d3dTextures As D3D8Textures
13.     Static light_value(0 To 3) As Long
14.    
15.     If FileNum = 0 Then Exit Sub
16.     Set d3dTextures.Texture = GetTexture(FileNum, d3dTextures.texwidth, d3dTextures.texheight)
17.  
18.         If rgb_list(0) = 0 Then rgb_list(0) = Base_Light
19.         If rgb_list(1) = 0 Then rgb_list(1) = Base_Light
20.         If rgb_list(2) = 0 Then rgb_list(2) = Base_Light
21.         If rgb_list(3) = 0 Then rgb_list(3) = Base_Light
22.  
23.        
24.     'Set up the source rectangle
25.     With src_rect
26.         .bottom = src_y + src_height
27.         .left = src_x
28.         .Right = src_x + src_width
29.         .top = src_y
30.     End With
31.                
32.     'Set up the destination rectangle
33.     With dest_rect
34.         .bottom = dest_y + src_height
35.         .left = dest_x
36.         .Right = dest_x + src_width
37.         .top = dest_y
38.     End With
39.    
40.     'Set up the TempVerts(3) vertices
41.     Geometry_Create_Box temp_verts(), dest_rect, src_rect, rgb_list(), d3dTextures.texwidth, d3dTextures.texheight, Angle
42.    
43.     If Shadow Then
44.         temp_verts(1).X = temp_verts(1).X + src_width / 2
45.         temp_verts(1).Y = temp_verts(1).Y - src_height / 2
46.    
47.         temp_verts(3).X = temp_verts(3).X + src_width
48.         temp_verts(3).Y = temp_verts(3).Y - src_width
49.        
50.   '      temp_verts(1).X = temp_verts(1).X - src_width / 2
51.   '      temp_verts(1).Y = temp_verts(1).Y + src_height / 2
52.   '      temp_verts(3).X = temp_verts(2).X + src_width
53.   '      temp_verts(3).Y = temp_verts(2).Y - src_width
54.        
55.     End If
56.    
57.    
58.     'Set Textures
59.     D3DDevice.SetTexture 0, d3dTextures.Texture
60.    
61.     If alpha_blend Then
62.        'Set Rendering for alphablending
63.         D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_ONE
64.         D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_ONE
65.     End If
66.    
67.  
68.     'Draw the triangles that make up our square Textures
69.     D3DDevice.DrawPrimitiveUP D3DPT_TRIANGLESTRIP, 2, temp_verts(0), Len(temp_verts(0))
70.    
71.     If alpha_blend Then
72.         'Set Rendering for colokeying
73.         D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
74.         D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
75.     End If
76.    
77.    
78. End Sub
79.  

eso estaba en bwao , igual, era como decian uds

jeje es medio al pedin tener otro sub que cambie una cosita nomas , podrias hacerlo todo en uno solo ... aunque si.. es asi como lo dejaste el sub practicamente