Reference to DirectX? - GameCreators Forum

Author

Message

MoomanFL

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 7th Feb 2009 08:10

Link

Is there a way to get a reference to Direct3D through DGDK.NET? If so, where do I look and what is the best method to utilize it?

Design documents?!? What design documents??? I thought we were just going to wing it!!!

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 7th Feb 2009 09:32

Link

The command you need is

+ Code Snippet

DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice()

Back to top

Profile PM Email Website

MoomanFL

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 7th Feb 2009 10:20 Edited at: 7th Feb 2009 14:28

Link

Thanks Cloggy. After posting, but before checking here I found it.

For future reference for anyone wanting to know the same thing you need to add a reference to the Microsoft.DirectX.Direct3D assembly and the DGDKPlugins assembly mentioned above in Cloggy's post..

The following 2 lines of code will get your reference to the Direct3D device:

+ Code Snippet

Dim dgdkD3DDevice As Microsoft.DirectX.Direct3D.Device
dgdkD3DDevice = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Of course you can use Import Microsoft.DirectX.Direct3D at the top of your code to shorten this a bit.

@Cloggy:

As a side note, the point of wanting to do this was to see if I could replicate your plugin functionality as I am currently in need of quicker drawing of fonts and boxes etc. I read in another post that you were looking into converting your plugin for DGDK.NET. Is that still in the works?

Also I have seen mention that you have completed the conversion for DGDK but I haven't seen a download for it. Any chance you could put it up on your site with the downloads for the DBP plugin?

EDIT: Nevermind on that. You have posted it on your site since the last time I checked. Heh heh.

Lastly, thanks for that awesome plugin... I have already gotten tons of use out of it in DBP. The unfortunate side effect is that it has spoiled me and I can't do without it now.

EDIT: One last thing... would it be possible to add an overload to the D3D_INIT function in the DBP plugin to allow a person to optionally pass a D3D Device reference for it to use rather than having it get DBP's reference automatically? I wanted to use your plugin in another plugin I was making but kept getting access denied errors which I suspect were due to it trying to get a reference to the D3D Device third hand.

Design documents?!? What design documents??? I thought we were just going to wing it!!!

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 8th Feb 2009 21:37

Link

MoomanFL,

Personally I've used SlimDX in my .Net (yet to be finished) plugin conversion. As soon as ApexNow adds the extra functionality I need I will complete the .net version. BTW has anyone heard from ApexNow lately as I haven't seen any posts from him for ages?

The DGDK library is on my website now.

Exactly how are you attempting to access my plugin from your plugin.

It may be better for me to add a SetD3DDevice method to the dll which is only callable from other plugins.

Back to top

Profile PM Email Website

MoomanFL

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 9th Feb 2009 04:26

Link

Since posting my questions to you I have been going through your original C++ code for the DBP plugin and have converted the code for the D3D_Box command and the D3D_Color command into a small class that can be added directly to my projects without need for a Class Library assembly. I didn't use SlimDX, but since it is just a Class.vb file it should compile with whatever version of DirectX the programmer is using.

Since I still use DBP some though I would really like to get a version of the D3D_Init function in the original plugin that accepts a Direct3D reference. I am still relatively new to C++ and have only used DevC++ for the plugins I have made. I haven't been able to get your source to compile, even without changes, for the DBP plugin or I would have added it myself.

Design documents?!? What design documents??? I thought we were just going to wing it!!!

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 10th Feb 2009 20:54

Link

Do you have a real aversion to MSVC++ 2008 Express as I'm sure it should compile in that?

I'm still not 100% sure how you a calling this plugin from your plugin. Could you post some example code and I may be able to help.

Back to top

Profile PM Email Website

MoomanFL

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 11th Feb 2009 02:39

Link

Quote: "Do you have a real aversion to MSVC++ 2008 Express as I'm sure it should compile in that?"

Considering that my main computer bit the dust and I have limited space on my laptop... installing yet another development platform would be a big problem. Any reason why it wouldn't have compiled "out of the box" using MSVC++ 2008 Pro under Vista (32 bit)?

While I used Dev-C++ for making my plugin I used MSVC++ 2008 Pro for compiling yours.

As for the plugin I was working on... the code is below:

In a file called CloggyCommands.h

+ Code Snippet

#define CLOG1 void( __stdcall* )( void )
#define CLOG20 void( __stdcall* )( int )

HINSTANCE hDLL;

static void (__stdcall* d3dfInit)( void ); //D3D_INIT

static void (__stdcall* d3dfMakeTeapot)( int ); //D3D_MAKE_TEAPOT

HINSTANCE LoadPlugin( void ){
    hDLL = LoadLibrary("D3DFunc.dll");
	if(hDLL == NULL)
	{
		//give an error if the DLL didn't load.
	    char errstr[50]="Couldn't find ";
	    strcat(errstr,"D3DFunc.dll");
	    strcat(errstr,". Terminating program.");
	    MessageBox(NULL,errstr,"DLL missing",MB_ICONERROR);
	    return hDLL;
	} 
    return NULL; 
}

void InitCloggy( ){
     hDLL = LoadPlugin( );
	//Get a pointer to the InitD3D command.
	d3dfInit = (CLOG1) GetProcAddress(hDLL,"InitD3D");
	d3dfMakeTeapot = (CLOG20) GetProcAddress(hDLL,"MakeObjectTeapot");
}

void UnloadCloggy( void ) {
	//free up our resources.
	FreeLibrary(hDLL);
}

in main.cpp

+ Code Snippet

#include "header.h"
#include "CloggyCommands.h"

DLLCMDC void InitConsole( void)
{
     d3dfInit();
     d3dfMakeTeapot(1);
     UnloadCloggy();
}

my string table entry for the one command

+ Code Snippet

1 "MOOINIT%0%InitConsole"

It compiles with no errors. The DBP use of it follows:

+ Code Snippet

MOOINIT
wait key
end

function dummy()
	d3d_init
endfunction

As you can see, I include a command from your plugin to make sure it is included. The program compiles without an error, but when run the window comes up and gives an Access Violation.

I am not ruling out the possibility that I have done something wrong in the way I call your DLL. Keep in mind this was compiled with Dev-C++.

Design documents?!? What design documents??? I thought we were just going to wing it!!!

Back to top

Profile PM Email

APEXnow

Retired Moderator

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: On a park bench

Posted: 11th Feb 2009 13:42

Link

Cloggy, apologies for my lack of posts. I've been building a new PC recently and has kept me busy. Also, there are things in the pipeline related to the toolkit that are urgently needed to be finished. If I'm not here posting, I'm busy working lol.

I'll jump in as much as possible whenever I can.

Paul.

---- The Meridian Culmination ----

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 11th Feb 2009 13:51

Link

To be honest I'm not a big c++ expert, but I don't think you could access my dll in this way as it is dependent on the core DBPro dll's. You could use my GDK library, but I dont think you can use the GDK to produce plugins.

Maybe you just need to pull out the code from the dll that you require.

Back to top

Profile PM Email Website

APEXnow

Retired Moderator

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: On a park bench

Posted: 14th Feb 2009 05:28

Link

Cloggy, if I understand your plugin design correctly, you basically need access to the internal data structures provided by both DarkBASIC Professional or DarkDGK (C++) right? Both of these requirements is possible via a CLR based DarkGDK.NET plugin. But if you are using a set of undocumented DLL Exports, i.e. the ones that were exposed in the DBPro DLLs, I can make these available in DarkGDK.NET. It does become a big issue when dealing with unmanaged structures such as the (sObject) structure in .NET.

Plugins written for DarkGDK.NET really need to be written in /CLR based C++ DLL projects because this allows for mixed pointer/structure access that both VB.NET and C#.NET restrict.

Paul.

---- The Meridian Culmination ----

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 14th Feb 2009 14:24

Link

ApexNow,

You're right I'm using structure provided by DGDK. smesh & scamera are the particular ones I use.

Back to top

Profile PM Email Website

MoomanFL

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 16th Feb 2009 01:08 Edited at: 16th Feb 2009 14:16

Link

In the meantime I have these functions that I ported over from D3DFunc and put in a Class.vb to be included in a project. They include the Box, Line, Dot, and RoundedRectangle functions. Incidentally, I had to use a bit of a workaround for RoundRectFilled function because I couldn't figure out how to get it not to draw that first line in the outline... so I had it make two Vector4 arrays: One for the TriangleFan and one for the LineList. The nice part about this is that I was able to include one more overload that lets you set separate colors for the outline and the fill on the RoundedRect.

Of course you will have to included a reference in your project to DirectX and Direct3D. Full credit to Cloggy for the original functions in C++. Most of my work was just translation:

Imports System.Drawing
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D

Public Class Drawing

Private g_Foreground As Color

Public Sub New()
        g_Foreground = Color.White
    End Sub

Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer)
        GradientBox(Left, Top, Right, Bottom, g_Foreground, g_Foreground, g_Foreground, g_Foreground)
    End Sub

Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal Color As Color)
        GradientBox(Left, Top, Right, Bottom, Color, Color, Color, Color)
    End Sub

Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal LeftTopColor As Color, ByVal RightTopColor As Color, ByVal LeftBottomColor As Color, ByVal RightBottomColor As Color)
        GradientBox(Left, Top, Right, Bottom, LeftTopColor, RightTopColor, LeftBottomColor, RightBottomColor)
    End Sub

Private Sub GradientBox(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal LeftTopColor As Color, ByVal RightTopColor As Color, ByVal LeftBottomColor As Color, ByVal RightBottomColor As Color)

Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Dim vertices As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 3) {} 'create an array of vertices
        vertices(0).Position = New Vector4(Left, Top, 0, 1)
        vertices(0).Color = LeftTopColor.ToArgb
        vertices(1).Position = New Vector4(Right, Top, 0, 1)
        vertices(1).Color = RightTopColor.ToArgb
        vertices(2).Position = New Vector4(Left, Bottom, 0, 1)
        vertices(2).Color = LeftBottomColor.ToArgb
        vertices(3).Position = New Vector4(Right, Bottom, 0, 1)
        vertices(3).Color = RightBottomColor.ToArgb

device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 2, vertices)
    End Sub

Public Overloads Sub Dot(ByVal X As Integer, ByVal Y As Integer)
        ColorDot(X, Y, g_Foreground)
    End Sub

Public Overloads Sub Dot(ByVal X As Integer, ByVal Y As Integer, ByVal DotColor As Color)
        ColorDot(X, Y, DotColor)
    End Sub

Private Sub ColorDot(ByVal X As Integer, ByVal Y As Integer, ByVal DotColor As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Dim vertex As CustomVertex.TransformedColored = New CustomVertex.TransformedColored

vertex.Position = New Vector4(X, Y, 0, 1)
        vertex.Color = DotColor.ToArgb

device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.PointList, 1, vertex)

End Sub

Public Overloads Sub line(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
        GradientLine(X1, Y1, X2, Y2, g_Foreground, g_Foreground)
    End Sub

Public Overloads Sub Line(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal LineColor1 As Color, ByVal LineColor2 As Color)
        GradientLine(X1, Y1, X2, Y2, LineColor1, LineColor2)
    End Sub

Private Sub GradientLine(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal LineColor1 As Color, ByVal LineColor2 As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Dim vertices As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 1) {} 'create an array of vertices
        vertices(0).Position = New Vector4(X1, Y1, 0, 1)
        vertices(0).Color = LineColor1.ToArgb
        vertices(1).Position = New Vector4(X2, Y2, 0, 1)
        vertices(1).Color = LineColor2.ToArgb
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.LineList, 1, vertices)
    End Sub

Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, g_Foreground)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, g_Foreground, g_Foreground)
        End If
    End Sub

Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal RectColor As Color, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor, RectColor)
        End If
    End Sub

Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal OutlineColor As Color, ByVal RectColor As Color, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, OutlineColor, RectColor)
        End If
    End Sub

Private Sub RoundRectUnfilled(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal iRadius As Integer, ByVal RectColour As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Dim iVertexCount As Integer = 32

If Width > Height Then
            If iRadius * 2 > Height Then
                iRadius = Height  2
            End If
        Else
            If iRadius * 2 > Width Then
                iRadius = Width  2
            End If
        End If

If iRadius < 1 Then
            iRadius = 1
        End If

If iRadius < 20 Then
            iVertexCount = 16
        End If

' Line list, batch draw everything
        Dim g_lineList As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 4)) {}

' Check memory was allocated successfully
        If g_lineList Is Nothing Then
            Return
        End If

' Position data
        Dim iAX As Single = 0
        Dim iAY As Single = 0
        Dim iBX As Single = 0
        Dim iBY As Single = 0

' Angle of current vert.
        Dim fAngle As Single

'g_lineList(0).Position = New Vector4(CSng(iX + iW / 2), CSng(iY + iH / 2), 1, 1)
        'g_lineList(0).Color = dwColour.ToArgb

Dim VertsPerCorner As Integer = (iVertexCount + 4) / 4

For i As Integer = 0 To VertsPerCorner - 1
            fAngle = i / CSng(iVertexCount) * 6.2831853071795862
            iAX = ((Math.Sin(fAngle) * iRadius))
            iAY = ((Math.Cos(fAngle) * iRadius))

g_lineList(i).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_lineList(i).Color = RectColour.ToArgb

If i = 0 Then
                g_lineList(iVertexCount + 4).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_lineList(iVertexCount + 4).Color = RectColour.ToArgb
            End If

g_lineList(VertsPerCorner * 2 - 1 - i).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(VertsPerCorner * 2 - 1 - i).Color = RectColour.ToArgb

g_lineList(i + VertsPerCorner * 2).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(i + VertsPerCorner * 2).Color = RectColour.ToArgb

g_lineList(VertsPerCorner * 4 - 1 - i).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_lineList(VertsPerCorner * 4 - 1 - i).Color = RectColour.ToArgb

Next i

' Draw
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.LineStrip, (iVertexCount + 4), g_lineList)

' Delete allocated memory
        g_lineList = Nothing
    End Sub

Private Sub RoundRectFilled(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal iRadius As Integer, ByVal OutlineColor As Color, ByVal RectColour As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

Dim iVertexCount As Integer = 32

If Width > Height Then
            If iRadius * 2 > Height Then
                iRadius = Height  2
            End If
        Else
            If iRadius * 2 > Width Then
                iRadius = Width  2
            End If
        End If

If iRadius < 1 Then
            iRadius = 1
        End If

If iRadius < 20 Then
            iVertexCount = 16
        End If

' Line list, batch draw everything
        Dim g_triangleFan As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 5)) {}
        Dim g_lineList As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 4)) {}
        ' Check memory was allocated successfully
        If g_triangleFan Is Nothing Then
            Return
        End If

' Position data
        Dim iAX As Single = 0
        Dim iAY As Single = 0
        Dim iBX As Single = 0
        Dim iBY As Single = 0

' Angle of current vert.
        Dim fAngle As Single

g_triangleFan(0).Position = New Vector4(CSng(X + Width / 2), CSng(Y + Height / 2), 1, 1)
        g_triangleFan(0).Color = RectColour.ToArgb

Dim VertsPerCorner As Integer = (iVertexCount + 4) / 4

For i As Integer = 0 To VertsPerCorner - 1
            fAngle = i / CSng(iVertexCount) * 6.2831853071795862
            iAX = ((Math.Sin(fAngle) * iRadius))
            iAY = ((Math.Cos(fAngle) * iRadius))

g_triangleFan(i + 1).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_triangleFan(i + 1).Color = RectColour.ToArgb
            g_lineList(i).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_lineList(i).Color = OutlineColor.ToArgb

If i = 0 Then
                g_triangleFan(iVertexCount + 5).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_triangleFan(iVertexCount + 5).Color = RectColour.ToArgb
                g_lineList(iVertexCount + 4).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_lineList(iVertexCount + 4).Color = OutlineColor.ToArgb
            End If

g_triangleFan(VertsPerCorner * 2 - 1 - i + 1).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_triangleFan(VertsPerCorner * 2 - 1 - i + 1).Color = RectColour.ToArgb
            g_lineList(VertsPerCorner * 2 - 1 - i).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(VertsPerCorner * 2 - 1 - i).Color = OutlineColor.ToArgb

g_triangleFan(i + VertsPerCorner * 2 + 1).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_triangleFan(i + VertsPerCorner * 2 + 1).Color = RectColour.ToArgb
            g_lineList(i + VertsPerCorner * 2).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(i + VertsPerCorner * 2).Color = OutlineColor.ToArgb

g_triangleFan(VertsPerCorner * 4 - 1 - i + 1).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_triangleFan(VertsPerCorner * 4 - 1 - i + 1).Color = RectColour.ToArgb
            g_lineList(VertsPerCorner * 4 - 1 - i).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_lineList(VertsPerCorner * 4 - 1 - i).Color = OutlineColor.ToArgb

Next i

' Draw
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.CullMode, Cull.Clockwise)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.TriangleFan, (iVertexCount + 4), g_triangleFan)
        device.DrawUserPrimitives(PrimitiveType.LineStrip, (iVertexCount + 4), g_lineList)

' Delete allocated memory
        g_triangleFan = Nothing
    End Sub

End Class

+ Code Snippet

Imports System.Drawing
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D

Public Class Drawing

    Private g_Foreground As Color

    Public Sub New()
        g_Foreground = Color.White
    End Sub

    Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer)
        GradientBox(Left, Top, Right, Bottom, g_Foreground, g_Foreground, g_Foreground, g_Foreground)
    End Sub

    Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal Color As Color)
        GradientBox(Left, Top, Right, Bottom, Color, Color, Color, Color)
    End Sub

    Public Overloads Sub Box(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal LeftTopColor As Color, ByVal RightTopColor As Color, ByVal LeftBottomColor As Color, ByVal RightBottomColor As Color)
        GradientBox(Left, Top, Right, Bottom, LeftTopColor, RightTopColor, LeftBottomColor, RightBottomColor)
    End Sub

    Private Sub GradientBox(ByVal Left As Integer, ByVal Top As Integer, ByVal Right As Integer, ByVal Bottom As Integer, ByVal LeftTopColor As Color, ByVal RightTopColor As Color, ByVal LeftBottomColor As Color, ByVal RightBottomColor As Color)

        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

        Dim vertices As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 3) {} 'create an array of vertices
        vertices(0).Position = New Vector4(Left, Top, 0, 1)
        vertices(0).Color = LeftTopColor.ToArgb
        vertices(1).Position = New Vector4(Right, Top, 0, 1)
        vertices(1).Color = RightTopColor.ToArgb
        vertices(2).Position = New Vector4(Left, Bottom, 0, 1)
        vertices(2).Color = LeftBottomColor.ToArgb
        vertices(3).Position = New Vector4(Right, Bottom, 0, 1)
        vertices(3).Color = RightBottomColor.ToArgb

        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 2, vertices)
    End Sub

    Public Overloads Sub Dot(ByVal X As Integer, ByVal Y As Integer)
        ColorDot(X, Y, g_Foreground)
    End Sub

    Public Overloads Sub Dot(ByVal X As Integer, ByVal Y As Integer, ByVal DotColor As Color)
        ColorDot(X, Y, DotColor)
    End Sub

    Private Sub ColorDot(ByVal X As Integer, ByVal Y As Integer, ByVal DotColor As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

        Dim vertex As CustomVertex.TransformedColored = New CustomVertex.TransformedColored

        vertex.Position = New Vector4(X, Y, 0, 1)
        vertex.Color = DotColor.ToArgb

        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.PointList, 1, vertex)

    End Sub

    Public Overloads Sub line(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
        GradientLine(X1, Y1, X2, Y2, g_Foreground, g_Foreground)
    End Sub

    Public Overloads Sub Line(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal LineColor1 As Color, ByVal LineColor2 As Color)
        GradientLine(X1, Y1, X2, Y2, LineColor1, LineColor2)
    End Sub

    Private Sub GradientLine(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal LineColor1 As Color, ByVal LineColor2 As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

        Dim vertices As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 1) {} 'create an array of vertices
        vertices(0).Position = New Vector4(X1, Y1, 0, 1)
        vertices(0).Color = LineColor1.ToArgb
        vertices(1).Position = New Vector4(X2, Y2, 0, 1)
        vertices(1).Color = LineColor2.ToArgb
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.LineList, 1, vertices)
    End Sub

    Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, g_Foreground)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, g_Foreground, g_Foreground)
        End If
    End Sub

    Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal RectColor As Color, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor, RectColor)
        End If
    End Sub

    Public Overloads Sub RoundRectangle(ByVal iX1 As Integer, ByVal iY1 As Integer, ByVal iX2 As Integer, ByVal iY2 As Integer, ByVal iRadius As Integer, ByVal OutlineColor As Color, ByVal RectColor As Color, ByVal Filled As Boolean)
        If Filled = False Then
            RoundRectUnfilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, RectColor)
        Else
            RoundRectFilled(iX1, iY1, iX2 - iX1, iY2 - iY1, iRadius, OutlineColor, RectColor)
        End If
    End Sub

    Private Sub RoundRectUnfilled(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal iRadius As Integer, ByVal RectColour As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

        Dim iVertexCount As Integer = 32

        If Width > Height Then
            If iRadius * 2 > Height Then
                iRadius = Height  2
            End If
        Else
            If iRadius * 2 > Width Then
                iRadius = Width  2
            End If
        End If

        If iRadius < 1 Then
            iRadius = 1
        End If

        If iRadius < 20 Then
            iVertexCount = 16
        End If

        ' Line list, batch draw everything
        Dim g_lineList As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 4)) {}

        ' Check memory was allocated successfully
        If g_lineList Is Nothing Then
            Return
        End If

        ' Position data
        Dim iAX As Single = 0
        Dim iAY As Single = 0
        Dim iBX As Single = 0
        Dim iBY As Single = 0

        ' Angle of current vert.
        Dim fAngle As Single

        'g_lineList(0).Position = New Vector4(CSng(iX + iW / 2), CSng(iY + iH / 2), 1, 1)
        'g_lineList(0).Color = dwColour.ToArgb

        Dim VertsPerCorner As Integer = (iVertexCount + 4) / 4

        For i As Integer = 0 To VertsPerCorner - 1
            fAngle = i / CSng(iVertexCount) * 6.2831853071795862
            iAX = ((Math.Sin(fAngle) * iRadius))
            iAY = ((Math.Cos(fAngle) * iRadius))

            g_lineList(i).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_lineList(i).Color = RectColour.ToArgb

            If i = 0 Then
                g_lineList(iVertexCount + 4).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_lineList(iVertexCount + 4).Color = RectColour.ToArgb
            End If

            g_lineList(VertsPerCorner * 2 - 1 - i).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(VertsPerCorner * 2 - 1 - i).Color = RectColour.ToArgb

            g_lineList(i + VertsPerCorner * 2).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(i + VertsPerCorner * 2).Color = RectColour.ToArgb

            g_lineList(VertsPerCorner * 4 - 1 - i).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_lineList(VertsPerCorner * 4 - 1 - i).Color = RectColour.ToArgb

        Next i


        ' Draw
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.LineStrip, (iVertexCount + 4), g_lineList)

        ' Delete allocated memory
        g_lineList = Nothing
    End Sub

    Private Sub RoundRectFilled(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal iRadius As Integer, ByVal OutlineColor As Color, ByVal RectColour As Color)
        Dim device As Microsoft.DirectX.Direct3D.Device
        device = New Microsoft.DirectX.Direct3D.Device(DGDKPlugins.CDarkGDK.oDBDisplay.GetDirect3DDevice)

        Dim iVertexCount As Integer = 32

        If Width > Height Then
            If iRadius * 2 > Height Then
                iRadius = Height  2
            End If
        Else
            If iRadius * 2 > Width Then
                iRadius = Width  2
            End If
        End If

        If iRadius < 1 Then
            iRadius = 1
        End If

        If iRadius < 20 Then
            iVertexCount = 16
        End If

        ' Line list, batch draw everything
        Dim g_triangleFan As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 5)) {}
        Dim g_lineList As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To (iVertexCount + 4)) {}
        ' Check memory was allocated successfully
        If g_triangleFan Is Nothing Then
            Return
        End If

        ' Position data
        Dim iAX As Single = 0
        Dim iAY As Single = 0
        Dim iBX As Single = 0
        Dim iBY As Single = 0

        ' Angle of current vert.
        Dim fAngle As Single

        g_triangleFan(0).Position = New Vector4(CSng(X + Width / 2), CSng(Y + Height / 2), 1, 1)
        g_triangleFan(0).Color = RectColour.ToArgb

        Dim VertsPerCorner As Integer = (iVertexCount + 4) / 4

        For i As Integer = 0 To VertsPerCorner - 1
            fAngle = i / CSng(iVertexCount) * 6.2831853071795862
            iAX = ((Math.Sin(fAngle) * iRadius))
            iAY = ((Math.Cos(fAngle) * iRadius))


            g_triangleFan(i + 1).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_triangleFan(i + 1).Color = RectColour.ToArgb
            g_lineList(i).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
            g_lineList(i).Color = OutlineColor.ToArgb

            If i = 0 Then
                g_triangleFan(iVertexCount + 5).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_triangleFan(iVertexCount + 5).Color = RectColour.ToArgb
                g_lineList(iVertexCount + 4).Position = New Vector4(CSng(iAX + X + Width - iRadius), CSng(iAY + Y + Height - iRadius), 1.0, 1.0)
                g_lineList(iVertexCount + 4).Color = OutlineColor.ToArgb
            End If

            g_triangleFan(VertsPerCorner * 2 - 1 - i + 1).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_triangleFan(VertsPerCorner * 2 - 1 - i + 1).Color = RectColour.ToArgb
            g_lineList(VertsPerCorner * 2 - 1 - i).Position = New Vector4(CSng(X + iAX + Width - iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(VertsPerCorner * 2 - 1 - i).Color = OutlineColor.ToArgb

            g_triangleFan(i + VertsPerCorner * 2 + 1).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_triangleFan(i + VertsPerCorner * 2 + 1).Color = RectColour.ToArgb
            g_lineList(i + VertsPerCorner * 2).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y - iAY + iRadius), 1, 1)
            g_lineList(i + VertsPerCorner * 2).Color = OutlineColor.ToArgb

            g_triangleFan(VertsPerCorner * 4 - 1 - i + 1).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_triangleFan(VertsPerCorner * 4 - 1 - i + 1).Color = RectColour.ToArgb
            g_lineList(VertsPerCorner * 4 - 1 - i).Position = New Vector4(CSng(X - iAX + iRadius), CSng(Y + iAY + Height - iRadius), 1, 1)
            g_lineList(VertsPerCorner * 4 - 1 - i).Color = OutlineColor.ToArgb

        Next i


        ' Draw
        device.SetTexture(0, Nothing)
        device.SetTexture(1, Nothing)
        device.SetRenderState(RenderStates.AlphaBlendEnable, True)
        device.SetRenderState(RenderStates.SourceBlend, Blend.SourceAlpha)
        device.SetRenderState(RenderStates.DestinationBlend, Blend.InvSourceAlpha)
        device.SetRenderState(RenderStates.CullMode, Cull.Clockwise)
        device.SetRenderState(RenderStates.FillMode, FillMode.Solid)
        device.SetRenderState(RenderStates.ZEnable, 0)
        device.VertexFormat = CustomVertex.TransformedColored.Format
        device.DrawUserPrimitives(PrimitiveType.TriangleFan, (iVertexCount + 4), g_triangleFan)
        device.DrawUserPrimitives(PrimitiveType.LineStrip, (iVertexCount + 4), g_lineList)

        ' Delete allocated memory
        g_triangleFan = Nothing
    End Sub

End Class

Design documents?!? What design documents??? I thought we were just going to wing it!!!

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark GDK .NET / Reference to DirectX?