BCF Gui editor Visual BCF for Free :)

Blitz3D Forums/Blitz3D Programming/BCF Gui editor Visual BCF for Free :)

Filax

(Posted 2004) [#1]

Hi :)

One of my customer (Seyhajin) have made a powerfull GUI designer
for the gui (BCF 3.0) :)

you can download it here :)

http://bond357.free.fr/down/Visual_BCF.zip

You can design your GUI , and save your form ! and of
course export blitzbasic code :)

http://www.3dgametool.com/library.htm

Mousey

(Posted 2004) [#2]

Many thanks Seyhajin, I am sure this will come in useful.

IPete2

(Posted 2004) [#3]

WOW wonderful thanks!

IPete2.

OrcEpic

(Posted 2004) [#4]

Nice!

Great Work, Seyhajin

Thank.

seyhajin

(Posted 2005) [#5]

Thanks to use it ! :o)

Ching

(Posted 2005) [#6]

It looks like just what I've been after.

AdrianT

(Posted 2005) [#7]

this looks pretty nice :)

Damien Sturdy

(Posted 2005) [#8]

This is excelent :D

seyhajin

(Posted 2005) [#9]

Version 1.3 is available

bug fix :

- when you quit, application freezed.

boblol

(Posted 2013) [#10]

Im sorry but why did you make it to where it covers the whole entire screen? + it has a 4 second delay when moving the mouse :(

LineOf7s

(Posted 2013) [#11]

Dude. Eight years. Eight. Years.

stayne

(Posted 2013) [#12]

Oh to be 35 again.

Rroff

(Posted 2013) [#13]

BTW IIRC (its a long time ago) that delay is due to image scaling using a very slow built in command - if you convert it to using fastext or fastimage or write a quick and dirty scaling function theres a massive speed increase.

The BCF UI needed a pretty big overhaul for performance anyhow when I last looked at it - its being rebuilt and re-rendered every single frame as fast as possible but you only need to update parts of it and update it into a screen buffer and render that every frame and only do actual updates and re-rendering at a slower rate say 20-30Hz - requires some additional code to handle input.

Doggie

(Posted 2013) [#14]

Useless without the include file

Charrua

(Posted 2013) [#15]

bcf becames free

http://blitzbasic.com/Community/posts.php?topic=98760#1156315

edit
hmmm link is broken!

LineOf7s

(Posted 2013) [#16]

Here you go: http://downloads.lineof7s.com/BCF3.1.zip

Aussie

(Posted 2013) [#17]

Thanks LineOf7s for uploading this. I have decided to use this with the project i am working on. Just have one question for anyone who still uses it.
With the file requester, when i open it & use 2 renderworlds() it leaves duplicate images trailing behind it when dragged.
Here is an example.

Graphics3D 800,600,0,2


SetBuffer BackBuffer()


;;;;;;;;;Include files;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Include "Inc_bcf3.bb"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


BCF_InitBCF(2,2)

Obj_Win% = BCF_CreateWindow(250,200,300,150,BCF_GuiStyle,0,"",True,False,False)
	But_New% = BCF_CreateButton(Obj_Win,120,25,60,20,"New")



camera = CreateCamera()


	PositionEntity camera,50,50,-50
	RotateEntity camera,35,45,0

create_grid()
lines = createLine(-100,0,0,    100,0,0)
EntityColor(lines, 255,0,0)


lines = createLine(0,0,100,    0,0,-100)
EntityColor(lines, 0,0,255)

lines = createLine(0,-100,0, 0,100,0)
EntityColor (lines,0,255,0)


While Not KeyDown (1)

	If BCF_TestButton(But_New) Then
		BCF_FileRequester("Select 3D file","Open","Cancel",".B3d|.X|.3ds","c:\","")
	EndIf 

	CameraClsMode(camera, 1, 1)
	Wireframe(1)
	RenderWorld()
	
	CameraClsMode(camera, 0, 0)
	Wireframe(0)
	
	RenderWorld()
	
	BCF_RenderBCF()
		
	Flip 
		
Wend

BCF_KillBCF()
End







Function createline(x1#,y1#,z1#, x2#,y2#,z2#, mesh=0)
	
	If mesh = 0 Then 
		mesh=CreateMesh()
		EntityFX(mesh,16)
		surf=CreateSurface(mesh)	
		verts = 0	
	
		AddVertex surf,x1#,y1#,z1#,0,0
	Else
		surf = GetSurface(mesh,1)
		verts = CountVertices(surf)-1
	End If
	
	AddVertex surf,(x1#+x2#)/2,(y1#+y2#)/2,(z1#+z2#)/2,0,0 
	; you could skip creating the above vertex and change the line below to
	; AddTriangle surf,verts,verts+1,verts+0
	; so your line mesh would use less vertices, the drawback is that some videocards (like the matrox g400)
	; aren't able to create a triangle with 2 vertices. so, it's your call :)
	AddVertex surf,x2#,y2#,z2#,1,0
	
	AddTriangle surf,verts,verts+2,verts+1
	
	Return mesh
End Function

Type Grid
	Field GXneg_Line
	Field GX_Line
	Field GZneg_Line
	Field GZ_Line
End Type

Function create_grid()
Local Xneg% = -50
Local Zneg% = -50
Local X% = 1
Local Z% = 1
	For Q = 0 To 49
		G.Grid = New Grid
		G\GXneg_Line = createLine(Xneg,0,50,Xneg,0,-50)
			EntityColor G\GXneg_Line,100,100,100
			Xneg = Xneg + 1
		G\GX_Line = createLine(X,0,50,X,0,-50)
			EntityColor G\GX_Line,100,100,100
			X = X + 1
		G\GZneg_Line = createLine(-50,0,Zneg,50,0,Zneg)
			EntityColor G\GZneg_Line,100,100,100
			Zneg = Zneg + 1
		G\GZ_Line = createLine(-50,0,Z,50,0,Z)
			EntityColor G\GZ_Line,100,100,100
			Z = Z + 1

	Next
End Function

Any ideas on how to stop it from doing it?

Rroff

(Posted 2013) [#18]

I ended up substantially rewriting parts of BCF then eventually abandoning it due to performance issues even after using a trick to only update the UI at 30hz but redraw it more often and replacing slow functions with fastext stuff.

Dunno if this ever got fixed but I seem to remember a bug with sorting order or something that caused me to do this:

; ----------------------------------------
; Permet de cacher une fenetre
; ----------------------------------------
Function BCF_HideWindow(Id)
	BCF.TWindow = Object.TWindow(Id)
	If (BCF <> Null) Then
		BCF\Visible=False
		Insert BCF Before First TWindow ; fixed by Rroff
		BCF_WindowActive = 0
	EndIf	
End Function

; ------------------------------------------
; Permet de montrer une fenetre
; ------------------------------------------
Function BCF_ShowWindow(Id)
	BCF.TWindow = Object.TWindow(Id)

	If (BCF <> Null) Then
		BCF\Visible=True
		BCF_ActiveWindow(Id)
		Insert BCF After Last TWindow ; fixed by Rroff
	EndIf

End Function

Buts its a long time ago so I can't really remember what it was I was doing.

I also modified the listbox function quite a lot with some code for efficent entry purging but again so long ago I don't really remember the details.

One of the functions I changed to use fastext:

Function BCF_ScaleImageFast(Image,Newwidth,Newheight,Frame=0)
	Local dest = CreateImage(Newwidth,Newheight)
	
	CopyRectStretch 0,0,ImageWidth(Image),ImageHeight(Image),0,0,Newwidth,Newheight,ImageBuffer(Image,Frame),ImageBuffer(dest)
	
	Return dest

End Function

Doggie

(Posted 2013) [#19]

Thank you!
I'm going to check this out. Might be just what I need.
Thanks again.

DOG