D3DFunc V3.0 - GameCreators Forum

Author

Message

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 16th Mar 2008 17:25 Edited at: 16th Mar 2008 18:14

Link

I can trigger this consistently with a simple piece of code. In test 1, you can reduce the step right down to 1, thus creating hundreds of display resizes. As soon as you hit a number of D3D_inits in the 2nd test, it falls over with a "Inavlid parameter" message on the Display resize.

I've started with STEP 20 in the first test, feel free to reduce it to 1 or 2, and see that the crash is consistent in test 2.

` Setup
dim msg(10) as string

SYNC ON: SYNC RATE 20

` Debug data
file$ = "c:d3d_debug.txt"
if file exist(file$) then delete file file$
open to write 1, file$

` test 1 - resize display mode
write string 1,"TEST 1 - No D3D"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    msg(1) = "Test 1: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(1) = "Test 1: Complete"
MySync() 
wait 1000

` test 2 - resize display mode with D3D
write string 1,"TEST 2 - With D3D"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    d3d_init
    msg(2) = "Test 2: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(2) = "Test 2: Complete"
MySync() 
wait 1000

` test 2 - resize display mode, draw d3d lines
write string 1,"TEST 3 - With D3D Lines"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    d3d_init
    d3d_line 100 + n,100,700 - n,200
    msg(3) = "Test 3: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(3) = "Test 3: Complete"
MySync() 
wait 1000

` Close Debug file
close file 1

` Wait for key to end program
msg(10) = "Tests Complete : Press a key to end"
while inkey$() = ""
   MySync() 
endwhile
end

function MySync()

for n = 1 to 10
        if msg(n) <> ""
            text 5, 10 + (n *20), msg(n) 
        endif
    next n
    sync
    
endfunction

+ Code Snippet

` Setup
dim msg(10) as string

SYNC ON: SYNC RATE 20

` Debug data
file$ = "c:d3d_debug.txt"
if file exist(file$) then delete file file$
open to write 1, file$

` test 1 - resize display mode
write string 1,"TEST 1 - No D3D"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    msg(1) = "Test 1: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(1) = "Test 1: Complete"
MySync() 
wait 1000

` test 2 - resize display mode with D3D
write string 1,"TEST 2 - With D3D"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    d3d_init
    msg(2) = "Test 2: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(2) = "Test 2: Complete"
MySync() 
wait 1000

` test 2 - resize display mode, draw d3d lines
write string 1,"TEST 3 - With D3D Lines"
write string 1,"================================="
for n = 100 to 600 step 20
    set display mode n,n,32
    flush video memory
    d3d_init
    d3d_line 100 + n,100,700 - n,200
    msg(3) = "Test 3: Display Mode " + str$(n) + "," + str$(n) 
    MySync()
    write string 1, "Display Mode resized:" + str$(n) + "," + str$(n)
next n
msg(3) = "Test 3: Complete"
MySync() 
wait 1000

` Close Debug file
close file 1

` Wait for key to end program
msg(10) = "Tests Complete : Press a key to end"
while inkey$() = ""
   MySync() 
endwhile
end

function MySync()

    for n = 1 to 10
        if msg(n) <> ""
            text 5, 10 + (n *20), msg(n) 
        endif
    next n
    sync
    
endfunction

This isn't the exact same problem, as it generates a DBP error. But in all likelihood, it's got the same root cause.

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 16th Mar 2008 21:52 Edited at: 16th Mar 2008 21:52

Link

I've had a look and it appears that when d3d_init is called it initializes all 20 possible fonts as Arial. Fonts were not being released properly and I think this is what was causing the problem.

I have made a temporary fix for you to try and have attached it to this message.

Note that when you call D3D_Init you have to redefine any D3D fonts you have used with the D3D_Font command.

Let me know how you get on.

D3DFunc - Superfast Antialiased text & much much more

Attachments

Login to view attachments

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 16th Mar 2008 22:28

Link

You are a star - excellent service on a free product!

Tested on the sample code and worked perfectly. I've now hammered my project and it's also working just fine.

Thanks again, can this DLL be used on a permanent basis or is it a special build?

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 16th Mar 2008 22:32

Link

No problem.

I will create a new version 3.6.6 and stick it on my website as soon as I get the chance.

For all intents and purposes it will be the same.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Ian T

21

Years of Service

User Offline

Joined: 12th Sep 2002

Location: Around

Posted: 16th Mar 2008 23:26

Link

Thanks for the excellent extension to DBP, Cloggy. It's come in handy in basically all of my projects.

This is hardly a huge bug, but when you disable zdepth and set wireframe on any given object, it seems to make all d3d_box's wireframe as well.

+ Code Snippet

sync on : sync rate 0

make object cube 1,1
disable object zdepth 1
set object wireframe 1,1

do
	d3d_box 1,1,200,200
	sync
loop

Back to top

Profile PM

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th Mar 2008 02:07

Link

Ian,

I've looked at this and have fixed it. All filled rectangles and polygons now remain solid regardless of the object settings.

I will release a patch shortly.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Ian T

21

Years of Service

User Offline

Joined: 12th Sep 2002

Location: Around

Posted: 17th Mar 2008 05:31

Link

Talk about quick support. Thanks

Back to top

Profile PM

Olby

20

Years of Service

User Offline

Joined: 21st Aug 2003

Location:

Posted: 17th Mar 2008 18:37 Edited at: 17th Mar 2008 18:38

Link

Hey Cloggy is it possible for you to add the "round box corner" parameter I mentioned in this thread earlier? It's okay if you cant - I do understand you are busy and can not fulfill everyones needs.

ACER Aspire 5920G: Core2Duo 2.2GHZ, 2GB, GeForce 8600M GT 1280MB, DirectX10, DBPro 6.7

Back to top

Profile PM Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th Mar 2008 20:57

Link

Olby,

I'll have a look. unfilled rounded corners would be ok, filled is a bit more awkward as you would need 4 quadrants plus 2 rectangles. I may be able to implement something fairly quickly and inefficiently by creating 1 filled circle in each corner rather than a quadrant.

I'll release V3.6.6 tonight and have a look after that.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Olby

20

Years of Service

User Offline

Joined: 21st Aug 2003

Location:

Posted: 17th Mar 2008 22:15

Link

Thank you for looking at this. This is great.

ACER Aspire 5920G: Core2Duo 2.2GHZ, 2GB, GeForce 8600M GT 1280MB, DirectX10, DBPro 6.7

Back to top

Profile PM Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th Mar 2008 22:58

Link

I've uploaded 3.6.6 to my website. Having extreme internet connection problems at the moment. I've been trying for about an hour to send this message.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 17th Mar 2008 23:16

Link

@Cloggy
An extremely easy way to do curved corner rectangles is to just copy your filled circle code, and add a bit that adds an offset to every point depending on its quadrant

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 18th Mar 2008 10:11

Link

Diggsey,

I have done some experimenting and the method you mention does work correctly, the problem is that things look ok if you have large radius corners, but as soon as you reduce them they start looking very dodgy.

I have looked at Bresenham's Circle Algorithm and the circles look much better but it plots the circle dot by dot and so is slower and is not easily converted to make polygons.

I'll have more of a look when I get back home tonight.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 18th Mar 2008 18:52

Link

Duplicate the vertex that appears on the edge of each quadrant. You can keep a running total of the current vertex index.

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 18th Mar 2008 21:10

Link

Diggsey,

Here is an example of 2 rounded rectangles. one has a radius of 5 and the other has a radius of 50.

To me the both look a little dodgy on the corners. It's the same with normal circles. The smaller the radius the more pronounced are the problems. It's all due to rounding the floating point positions of the vertices to integers.

D3DFunc - Superfast Antialiased text & much much more

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 20th Mar 2008 16:04

Link

@Cloggy
Have you tied using a smaller number of vertices for the curves? I see what you mean now, and it looks like if you do that, plus some antialiasing it would look good

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 20th Mar 2008 17:08

Link

I just thought of an awesome command!

If you don't add it, I certainly will! A command to use a memblock or pointer to draw a shape from. Basically a wrapper for DrawPrimitiveUP, where we could set the type (point list/line list/line strip/tri list/tri strip/tri fan). Commands to optionally change the FVF as well as the texture and the render state would be nice

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 4th Apr 2008 01:51

Link

Just a post to let you know I've updated my website. It should be a little kinder on the eyes.

I'm hoping to expand on the code snippets over the next few weeks.

If anyone has any d3d related snippets and is happy for them to go on the site, please let me know. Obviously full credit will be given to any contributors.

Here's hoping my new sig works

Back to top

Profile PM Email Website

Duffer

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: chair

Posted: 5th Apr 2008 12:08

Link

Hi Cloggy,

Could you say a little more about the isometric camera function and how it might possibly help with rpg projects etc in 3d

a long time dabbler with DBC and DBPro with no actual talent but lots of enthusiasm...

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 5th Apr 2008 13:33

Link

@Duffer,

What exactly do you want to know?

Games like 'Knight Lore' are displayed from and isometric view point.

Attached is a Early stage X model viewer I have written that uses the isometric functions of d3dfunc. Just drag a .x file onto the exe and it will display it.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 6th Apr 2008 01:37

Link

For those interested I have got rounded boxes working both filled and unfilled with various radius corners.

Screenshot

Here is the code for this screenshot

+ Code Snippet

do

d3d_rounded_box 100,10,500,75,10,0,rgb(255,255,255)
d3d_rounded_box 100,100,500,200,10,0,rgb(255,0,0)

d3d_rounded_box 100,220,500,320,30,1,rgb(255,0,0)
d3d_rounded_box 100,220,500,320,30,0,rgb(255,255,255)

d3d_starttext
  d3d_boxtext 1,100,10,400,65,1,1,"d3d_rounded_box x1,y1,x2,y2,radius,filled,colour",rgb(255,255,255)
  d3d_boxtext 1,100,100,400,100,1,1,"d3d_rounded_box x1,y1,x2,y2,radius,filled,colour"+chr$(13)+chr$(10)+"d3d_rounded_box 100,100,200,200,10,0,rgb(255,0,0)",rgb(255,255,255)
  d3d_boxtext 1,100,220,400,100,1,1,"d3d_rounded_box 100,220,500,320,30,1,rgb(255,0,0)" +chr$(13)+chr$(10)+"d3d_rounded_box 100,220,500,320,30,0,rgb(255,255,255)",rgb(255,255,255)
d3d_endtext

loop

It will be a few days before it will be available as I'm looking to add d3d_polygon rotation as well.

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 6th Apr 2008 14:17 Edited at: 6th Apr 2008 14:18

Link

@Cloggy
While your updating it, could you fix the bug where filled polygons (and therefore, filled circles, and probably now filled rounded corner rectangles) do not draw if a command from Basic3D is used. The reason is because they do not turn off back face culling before drawing, and the vertex order is the wrong way around, causing them to be culled. This a very serious bug, and incredibly easy to to fix, just add this line to the functions:

[d3d device]->SetRenderState(D3DRS_CULLMODE,D3DCULL_NONE);

I apologise if you have already done this, but it effectively makes you plugin almost useless in 3d

(unless you just want to draw unfilled stuff or boxes)

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 6th Apr 2008 14:28

Link

@diggsey

I've done that already

I'm addint the polygon rotation command, but it looks like I'll have to remove the following commands:-

+ Code Snippet

D3D_POLYGON X, Y, RadiusX, RadiusY, Point Count, Filled
D3D_POLYGON X, Y, RadiusX, RadiusY, Point Count, Filled, Colour

as they cause problems with darkbasic and the string table. The compiler doesn't see the difference between int, DWORD and Float in the string table when the same command is redefined.

I wouldn't imagine anyone is using those commands because they produce elipses which are already handled by the d3d_ellipse command.

Back to top

Profile PM Email Website

BiggAdd

Retired Moderator

19

Years of Service

User Offline

Joined: 6th Aug 2004

Location: != null

Posted: 9th Apr 2008 19:53 Edited at: 9th Apr 2008 20:00

Link

Hi Cloggy!
I have only been using your plugin for a week, but I have to say it is absolutely incredible!
Good job!

I'm having a little trouble when I am using multiple cameras however.
I think it is just with Batch rendering. It seems if I add a batch to a camera, it will mask sprites and text to that view. In this example the text seems to be unaffected... No idea why, but it has been in the past.
Before Batch:

After Batch:

Code:

+ Code Snippet

Sync On
Sync Rate 60

Make Camera 1
Set Camera view 1,100,100,540,380
Set Camera Aspect 1,1.57
D3D_INIT
set camera range 0,0.001,1000
set camera range 1,0.001,1000
make object cube 1,1
position camera 1,3,3,3
position camera 0,3,3,3
Point Camera 1,0,0,0
Point Camera 0,0,0,0

Global Complete
Complete=0

Load Image "HowElse.png",1,1
Sprite 1,0,0,1
paste Sprite 1,0,0
do

Text 0,120,"TESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTEST"
If Complete=1 then D3D_BATCH_DRAW_Line3D 1,1,0
If spacekey()=1 and Complete=0 then gosub Batch_Draw
Sync
Loop

Batch_draw:
D3D_BATCH_SET_LINE3D 6
Col=D3D_RGBA(255,0,0,255)
D3D_BATCH_ADD_LINE3D 0,0,0,10,0,0,Col
D3D_BATCH_ADD_LINE3D 0,0,0,0,10,0,Col
D3D_BATCH_ADD_LINE3D 0,0,0,0,0,10,Col

D3D_BATCH_ADD_LINE3D 0,0,0,-10,0,0,Col
D3D_BATCH_ADD_LINE3D 0,0,0,0,-10,0,Col
D3D_BATCH_ADD_LINE3D 0,0,0,0,0,-10,Col

Complete=1

Return

I've had a look through this thread and I'm unable to find an answer. Sorry if I have overlooked anything!

I'm Running WinXP Pro x64. and DBP 6.4 [EDIT]Just updated to 6.7, but the problem still persists.[/EDIT]

Thanks for your time!

Back to top

Profile PM

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 9th Apr 2008 22:04

Link

@BigAdd

I've had a look and it's the camera viewport that needs resetting. I've made a temporary change and attached the test dll. Could you see how it works on your system. It seems good here.

This problem effects alot of areas so well done for finding it. I'll make the permanent change to the new version which would be ready if it wasn't for me trying to add some new examples for the help file.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

BiggAdd

Retired Moderator

19

Years of Service

User Offline

Joined: 6th Aug 2004

Location: != null

Posted: 9th Apr 2008 22:15

Link

Thats smashing! Works a treat. Thank you very much for your support.
Amazingly fast work!

Back to top

Profile PM

BiggAdd

Retired Moderator

19

Years of Service

User Offline

Joined: 6th Aug 2004

Location: != null

Posted: 10th Apr 2008 01:02

Link

Actually noticed another issue similar to the first.
Calling the command D3D_Circle3D produces similar effects if you specify a camera number. But the problem is removed by calling D3D_Line3D with a specific camera number.

Thanks again!

Back to top

Profile PM

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 10th Apr 2008 01:16

Link

Here is the version with the viewport fixed for all 3d drawing commands. This is how the final version will work providing no other bugs are found/corrected.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

BiggAdd

Retired Moderator

19

Years of Service

User Offline

Joined: 6th Aug 2004

Location: != null

Posted: 10th Apr 2008 01:53

Link

Works like a charm! Great work again Cloggy!

Back to top

Profile PM

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 10th Apr 2008 12:18

Link

Now, how about a DrawPrimitiveUP wrapper

(Along with commands such to pick a 2d viewport, or a 3d one from a camera)

That way, we are no longer limited to drawing standard shapes

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 10th Apr 2008 14:30

Link

@Diggsey

I've been looking at a command to do the DrawPrimative wrapper.

There is a D3D_CURSOR_IN_CAMERA which when called tels you which viewport your mouse cursor is.

If this isn't what you mean then please expand a little on your explaination.

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 12th Apr 2008 02:58

Link

@Diggsey

I've done some preliminary coding to create a Primative from an array of points (unfilled only at the moment).

+ Code Snippet

backdrop on:color backdrop 0:sync on

dim a#() as float

clicked=0

do

if mouseclick()=1
    if clicked=0
        clicked=1
        gosub Addpoint
    endif
else
    clicked=0
endif

if Array Count (a#(0))>2 then D3D_Draw_Primative a#(0)

sync

loop

Addpoint:

array insert at bottom a#(0)
index=Array Count (a#(0))

a#(index)=mousex()

array insert at bottom a#(0)
index=Array Count (a#(0))

a#(index)=mousey()

return

I have attached an exe for you to try. Is this what you have in mind?

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 12th Apr 2008 19:17

Link

@Cloggy
Kind of, yes

But let us optionally provide much more data than just positions

(UDTs in an array could be created to be a valid D3D vertex struct, and we could pass in the FVF it uses)

Also, could you make it so that it will take a pointer to memory as well, that way we can use memblocks and raw memory access with it

Thanks for doing this

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 12th Apr 2008 22:56

Link

@Diggsey,

That may have to wait for a later version. I've only just started to get my head around accessing DBPro Arrays in c++

I want to concentrate on getting some more samples coded and getting all the latest bug fixes out there.

Cheers,

Cloggy

Back to top

Profile PM Email Website

draknir_

17

Years of Service

User Offline

Joined: 19th Oct 2006

Location: Netherlands

Posted: 12th Apr 2008 23:54

Link

argh!! dont remove D3D_polygon! please

I use it for a 2d hex-based wargame without media

Back to top

Profile PM Email

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Apr 2008 00:07

Link

@draknir_
D3D_Polygon is not being removed

It is an overloaded function, and two of its overloads are being removed. They were never usable anyway, because DBP couldn't tell whether or not it should call them (they have the same parameter types as other D3D_Polygon functions)

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 13th Apr 2008 01:23

Link

@draknir_

You will need to make a slight modification to your usage of the command.

+ Code Snippet

D3D_Polygon X,Y,Radius,Point Count,Filled,Rotation[,Colour]

Rotation is 0 if you want to retain the way things work now.

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 13th Apr 2008 03:25

Link

@Diggsey,

Is this more like it?

#Constant D3DFVF_XYZ                2
#Constant D3DFVF_XYZRHW             4
#Constant D3DFVF_NORMAL             16
#Constant D3DFVF_PSIZE              32
#Constant D3DFVF_DIFFUSE            64
#Constant D3DFVF_SPECULAR           128
#Constant D3DFVF_TEX1               256

#Constant D3DPT_POINTLIST           1
#Constant D3DPT_LINELIST            2
#Constant D3DPT_LINESTRIP           3
#Constant D3DPT_TRIANGLELIST        4
#Constant D3DPT_TRIANGLESTRIP       5
#Constant D3DPT_TRIANGLEFAN         6

type typVertex
    X#              as float
    Y#              as float
    Z#              as float
    Colour          as DWORD
endtype

dim My3DVertex(2) as typVertex

type Transformed
    X#              as float
    Y#              as float
    Z#              as float
    W#              as float
    colour          as DWORD
endtype

dim My2DVertex(2) as Transformed

My2DVertex(0).X#=50.0
My2DVertex(0).Y#=0.0
My2DVertex(0).Z#=1.0
My2DVertex(0).W#=1.0
My2DVertex(0).Colour=RGB(255,0,0)
My2DVertex(1).X#=200.0
My2DVertex(1).Y#=100.0
My2DVertex(1).Z#=1.0
My2DVertex(1).W#=1.0
My2DVertex(1).Colour=RGB(255,255,0)
My2DVertex(2).X#=100.0
My2DVertex(2).Y#=100.0
My2DVertex(2).Z#=1.0
My2DVertex(2).W#=1.0
My2DVertex(2).Colour=RGB(255,0,0)

My3DVertex(0).X#=0.0
My3DVertex(0).Y#=0.0
My3DVertex(0).Z#=0.0
My3DVertex(0).Colour=RGB(255,0,0)
My3DVertex(1).X#=-1.0
My3DVertex(1).Y#=1.0
My3DVertex(1).Z#=0.0
My3DVertex(1).Colour=RGB(255,0,0)
My3DVertex(2).X#=-1.0
My3DVertex(2).Y#=0.0
My3DVertex(2).Z#=1.0
My3DVertex(2).Colour=RGB(255,255,0)

backdrop on:color backdrop 0

make object cube 1,.1

ca#=0

do

Position camera sin(ca#)*10,5,cos(ca#)*10
point camera 0,0,0
ca#=wrapvalue(ca#+.01)

Rem D3D_DrawPrimative FVF,Primative Type,Array

D3D_Draw_Primative D3DFVF_DIFFUSE or D3DFVF_XYZRHW,D3DPT_TRIANGLELIST,My2DVertex(0)

D3D_Draw_Primative 0,0,D3DFVF_XYZ or D3DFVF_DIFFUSE,D3DPT_LINESTRIP,My3DVertex(0)

loop

+ Code Snippet

#Constant D3DFVF_XYZ                2
#Constant D3DFVF_XYZRHW             4
#Constant D3DFVF_NORMAL             16
#Constant D3DFVF_PSIZE              32
#Constant D3DFVF_DIFFUSE            64
#Constant D3DFVF_SPECULAR           128
#Constant D3DFVF_TEX1               256

#Constant D3DPT_POINTLIST           1
#Constant D3DPT_LINELIST            2
#Constant D3DPT_LINESTRIP           3
#Constant D3DPT_TRIANGLELIST        4
#Constant D3DPT_TRIANGLESTRIP       5
#Constant D3DPT_TRIANGLEFAN         6

type typVertex
    X#              as float
    Y#              as float
    Z#              as float
    Colour          as DWORD
endtype

dim My3DVertex(2) as typVertex

type Transformed
    X#              as float
    Y#              as float
    Z#              as float
    W#              as float
    colour          as DWORD
endtype

dim My2DVertex(2) as Transformed

My2DVertex(0).X#=50.0
My2DVertex(0).Y#=0.0
My2DVertex(0).Z#=1.0
My2DVertex(0).W#=1.0
My2DVertex(0).Colour=RGB(255,0,0)
My2DVertex(1).X#=200.0
My2DVertex(1).Y#=100.0
My2DVertex(1).Z#=1.0
My2DVertex(1).W#=1.0
My2DVertex(1).Colour=RGB(255,255,0)
My2DVertex(2).X#=100.0
My2DVertex(2).Y#=100.0
My2DVertex(2).Z#=1.0
My2DVertex(2).W#=1.0
My2DVertex(2).Colour=RGB(255,0,0)

My3DVertex(0).X#=0.0
My3DVertex(0).Y#=0.0
My3DVertex(0).Z#=0.0
My3DVertex(0).Colour=RGB(255,0,0)
My3DVertex(1).X#=-1.0
My3DVertex(1).Y#=1.0
My3DVertex(1).Z#=0.0
My3DVertex(1).Colour=RGB(255,0,0)
My3DVertex(2).X#=-1.0
My3DVertex(2).Y#=0.0
My3DVertex(2).Z#=1.0
My3DVertex(2).Colour=RGB(255,255,0)

backdrop on:color backdrop 0

make object cube 1,.1

ca#=0

do

Position camera sin(ca#)*10,5,cos(ca#)*10
point camera 0,0,0
ca#=wrapvalue(ca#+.01)

Rem D3D_DrawPrimative FVF,Primative Type,Array

D3D_Draw_Primative D3DFVF_DIFFUSE or D3DFVF_XYZRHW,D3DPT_TRIANGLELIST,My2DVertex(0)

D3D_Draw_Primative 0,0,D3DFVF_XYZ or D3DFVF_DIFFUSE,D3DPT_LINESTRIP,My3DVertex(0)

loop

dll attached for testing. Can't texture yet plus you can't change anything like CULL MODE etc. I;ll wait to perfect this before adding memblock version.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Apr 2008 11:42

Link

Yes

That's awesome

ViewGUI - FREE GUI plugin + WYSIWYG editor
Curious? CLICK HERE!

Back to top

Profile PM Email Website

draknir_

17

Years of Service

User Offline

Joined: 19th Oct 2006

Location: Netherlands

Posted: 13th Apr 2008 14:35

Link

ah ok good! you scared me there

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 14th Apr 2008 23:00

Link

Found a wierd problem. If I set a d3d_font to a size of 10 pixels or lower the d3d_text command is slower than it's equivalent dbpro version.

It seems that below a size of 15 pixels d3d fonts are not anti aliased and that makes them slower. Very Peculiar

Can anyone shed any light on this?

Back to top

Profile PM Email Website

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 27th Apr 2008 20:30 Edited at: 27th Apr 2008 20:30

Link

I get the error:

Quote: "This application has failed to start because d3dx9_35.dll was not found. Re-installing the application may fix this problem."

followed by

Quote: "Failed to load DLL (3: D3DFunc.dll)"

I'm running vista sp1.

Thanks

Back to top

Profile PM

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 29th Apr 2008 02:20

Link

@Xlaydos

The problem is due to d3dfunc being compiled with the August 2007 DirectX SDK. I am compiling the new version with October 2004 which will eradicate the problem. I am trying to compile some new demos to go with the help files so this could be a week or so off.

You could ensure that you have the very latest directX runtime from the microsoft website. That may well include the file.

Back to top

Profile PM Email Website

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 30th Apr 2008 18:18

Link

Okay thanks

I'll have a look at that, otherwise i'll wait

Back to top

Profile PM

Lover of games

19

Years of Service

User Offline

Joined: 17th Apr 2005

Location:

Posted: 15th May 2008 11:14

Link

where can i get the DLL with the rounded boxes? and can you do slanted boxes? also, what's your secret? i've been trying for ever to make a box plug in for DBPro and so far, nothing!

"Originally I was going to have a BS on it but you know how that would be. I can't walk around with the letters BS on me." More or less a qoute by Syndrome from Jack, Jack, attack

Back to top

Profile PM Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th May 2008 22:27

Link

@All

I've just put the latest version (3.7) of the dll on my website (see sig.)

Here is the readme showing new updated commands:-

+ Code Snippet

New Commands
============

D3D_Rounded_Box - Draws both filled and outlined rounded boxes
D3D_Progress Bar - Draws a progress bar from a given sprite
D3D_Get_Camera_Up - Get the camera's up vector
D3D_Get_Camera_Right - Get the camera's right vector
D3D_Draw_Fustrum - Draw the requested camera's fustrum
D3D_Draw_Primitive - A basic wrapper for the DirectX DrawPrimitiveUp commadn

Enhancements
============

Removed redundant versions of D3D_Polygon command
Added new option to D3D_Polygon to allow specification of a rotation angle for the polygon
Amended D3D_init to allow optional maximum font count parameter to allow more than 20 fonts. Defaults to 20.
Renamed D3D_Camera_Vector_X with D3D_Vector_X
Renamed D3D_Camera_Vector_Y with D3D_Vector_Y
Renamed D3D_Camera_Vector_Z with D3D_Vector_Z

Updated command showcase
Added new command examples

Any problems post them here. Sorry for the delay but I've been a little sidetracked. I hoped to add some more examples but thought I release it as is for the moment.

Back to top

Profile PM Email Website

cyangamer

15

Years of Service

User Offline

Joined: 2nd Jun 2008

Location: Houston, TX, USA

Posted: 17th Jul 2008 11:07 Edited at: 17th Jul 2008 11:13

Link

Hi Cloggs.

I'm using your d3d_text to improve the speed of my game. I don't know if you (or anyone else here) will be able to answer this but I'll try anyway.

For some reason, my text isn't anti-aliasing and it looks really bad:

I'm pretty sure I'm using the right code. There it is below:

function message_display(goX,goY,MesStart,cvnNumber,milseconds)

rem Text data
global dim htext$(5)
 global message_display_time=MesStart
 D3D_INIT
 d3d_font 1, "Arial",16,0,0,0
rem Main loop
global begin=1
global nar$=""
global forward=0
while escapekey()=0
set cursor 0,100
print "Go on: " + str$(forward)
print "Kafua: " + str$(kafua_talk)
D3D_STARTTEXT
d3d_text 1,0,140,0, "Paragraph Number: " + str$(message_display_time)
D3D_ENDTEXT

~~~

~Message script~

~~~
 basey=screen height()-40
 for h=1 to 4
   hud_display()
   hud_checker()
   D3D_STARTTEXT
   d3d_text 1, 32,basey-(h*16),0,htext$(h)
   D3D_ENDTEXT
 next h
 D3D_STARTTEXT
 d3d_text 1,32,basey,0,text$
 D3D_ENDTEXT

rem Update screen
 sync

rem End loop
endwhile

rem Narration:
narration:
data 1,"cyangamer: Welcome to the letter-by-letter message script"
data 1,"by yours truly!"
data 2,"Using this, I will now be able to use character"
data 2,"dialogues and have RPG-style conversations."
data 3,"Yay me!"
data 4,""
data 4,""

rem Kafua speaking
kafua_speak:
data 1,"Hello, player. My name is Kafua. I am a Po-Matoran soldier who is in"
data 1,"charge of protecting Po-Koro, my native village, from attacks."
data 2,"I was chosen by Luka to aid him in this dangerous quest to the"
data 2,"Western Region to stop the Zuto Nuiians from incasing the universe"
data 2,"in eternal darkness."
data 3,"Will we be victorious? I sure hope so."
data 4,""

endfunction

+ Code Snippet

function message_display(goX,goY,MesStart,cvnNumber,milseconds)

rem Text data
global dim htext$(5)
 global message_display_time=MesStart
 D3D_INIT
 d3d_font 1, "Arial",16,0,0,0
rem Main loop
global begin=1
global nar$=""
global forward=0
while escapekey()=0
set cursor 0,100
print "Go on: " + str$(forward)
print "Kafua: " + str$(kafua_talk)
D3D_STARTTEXT
d3d_text 1,0,140,0, "Paragraph Number: " + str$(message_display_time)
D3D_ENDTEXT


~~~

~Message script~

~~~
 basey=screen height()-40
 for h=1 to 4
   hud_display()
   hud_checker()
   D3D_STARTTEXT
   d3d_text 1, 32,basey-(h*16),0,htext$(h)
   D3D_ENDTEXT
 next h
 D3D_STARTTEXT
 d3d_text 1,32,basey,0,text$
 D3D_ENDTEXT


 rem Update screen
 sync

rem End loop
endwhile

rem Narration:
narration:
data 1,"cyangamer: Welcome to the letter-by-letter message script"
data 1,"by yours truly!"
data 2,"Using this, I will now be able to use character"
data 2,"dialogues and have RPG-style conversations."
data 3,"Yay me!"
data 4,""
data 4,""


rem Kafua speaking
kafua_speak:
data 1,"Hello, player. My name is Kafua. I am a Po-Matoran soldier who is in"
data 1,"charge of protecting Po-Koro, my native village, from attacks."
data 2,"I was chosen by Luka to aid him in this dangerous quest to the"
data 2,"Western Region to stop the Zuto Nuiians from incasing the universe"
data 2,"in eternal darkness."
data 3,"Will we be victorious? I sure hope so."
data 4,""

endfunction

This function is in a seperate DBA that's #included in the main file. It's only about 133 lines (the main program is 591 lines) so that shouldn't be an issue. Any way to make my text look like everyone else's?

EDIT: Here's another, more simple, example:

+ Code Snippet

Sync On: Sync Rate 60
SET WINDOW SIZE 640, 480
d3d_font 1, "Arial",16,0,0,0
Do
D3D_STARTTEXT
d3d_text 1,0,140,0, "Does this work?"
D3D_ENDTEXT

sync
Loop
end

a total noob.
Currently working on - A letter-by-letter Message Script

Back to top

Profile PM Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th Jul 2008 13:02

Link

cyangamer,

This problem normally occurs when the backdrop isn't being cleared. The second example could also be because you are using a resolution doesn't match your desktop ie desktop res is 1024x768 but you are using 640x480.

Back to top

Profile PM Email Website

cyangamer

15

Years of Service

User Offline

Joined: 2nd Jun 2008

Location: Houston, TX, USA

Posted: 17th Jul 2008 14:22 Edited at: 17th Jul 2008 14:43

Link

Which command clears the backdrop? Also, what do the minimum, maximum, and value parameters mean in D3D_PROGRESS_BAR? For texture, that refers to an image file am I correct?

a total noob.
Currently working on - D3D_Text

Back to top

Profile PM Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 17th Jul 2008 15:04

Link

set backdrop on will clear after each sync.cls will also clear the screen.

minimum is the minimum value of the progress bar, maximum is the maximum value and value is the current value.

For example, if you have a progress bar showing a percentage value, minimum would be 0, maximum would be 100 and value would be the current percentage.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Program Announcements / D3DFunc V3.0

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments