PersistentWorld3D - A Blitz Community Project.

Welcome,

PersistentWorld3D is a Multi-User Online Level Builder for the Blitz Community. The purpose is to develop a FREE full featured Level Editor in which multiple users can colloborate online to build 3D worlds in realtime for their games and applications.

The Project is open to the community for contribution. See the Rules for details. For the lastest updates, Check Out the TODO List!

News

Starter Feature List:

Network
* Full Featured Chat and Instant Messaging
* Media/Logic Data Update Manager
* Asset Ownership Manager
* Database Support

Rendering
* Constructive Solid Geometry (CSG)
* Lighting and Global Illumination Engine

Editing
* Scripting Engine
* Layers
* Full B3D Import/Export

oh now this could be bloody good.

/me adds the thread to his watch list.

Will this one get finished like Plasma... er... didn't?

And what's with the super-wide banner?

GfK

Plasma continues. Have you made a contribution? A FPS is not for everyone. Perhaps you can contribute to this project.

this is good
but, itll be good only for teams not individuals. But goodluck

WHY? Whats better than getting realtime help on your level. Just imagine, you are working on your level, need a little help, goto the lobby spread the word, give access to those who want to assist in to building your 'world'. Once there, edit real-time, see the effects instantly. And of course you would be able to build worlds/levels without networking.

PersistentWorld3D is for everyone.

w00tness! If this works, this'll be awesome!

Whoa! I've thought of something this a year ago, but I knew I wouldn't be able to make it work... I was too stupid...

How about voice chat?

This will be good.


What rules?

And it should be password protected, so not just a random person can come in and work on it. You should have your own "server" or something.

Whats a community project, if its not open to the community?

I'm glad you realise this fact. Perhaps you can point this out to the moderators and they can stop cluttering up the forums with stickytopics about things that don't interest 99% of people?

Or get them to add a 'Community Projects' forum. Then I simply don't have to see it.

oh my god. are you people serious.

Frank Taylor wrote:


It should be open, but moderated.. someone should be in control of who gets to change what parts and when, since else you'd get lots of "kids" in there ruining what other people have made.

A members list should be maintained, but be open to public. You'd need to be made aware of the rules and terms of the project..

A nice idea though :)

sounds like fun

you want
1. Good community network
2. Than 3D Editor network ;)

cu

Interesting. There are <3 stickies cluttering forums. But, I would agree 100% with a Community Projects Forum. Community Projects are for the community and they should be aware of them.

I truly appreciate the moderators for allowing Project Plasma FPS and others community projects to stick where everyone can see, however, a dedicated forum to Community Projects be more efficient.

Either way, I only started the project thread. Others can take part, moderate and contribute. Taking Action, Not Smack'n - is the resolution for 2005.

Anybody with ideas or source code for chat/IM system?

Imagine me in the corner of the level, building a nice litle shed or something. Someone on line tries to make the shed a different colour , so I turn around and blast em with a quake 1 nailgun. muaahhh!!

Need more positive Ideas on features. What would you like to see in PersistentWorld3D Level Builder.

Ive started a Work Area in which I can Moderate. The forum thread is open to the public.

...Here's an idea to prevent people destroying other people's work. Buying land. One person selects a region of the world map to work with, and if nobody else owns that land, it is theirs to edit. If someone else has that land, they must buy the land from the current owner. People can only own a limited amount of land at a time. When they finish some section and wish to start another, they have to give up their current land so they can buy elsewhere. The owners of the land may also give rights to other people to edit the land they own.

You might have to work out a system that returns land if the owners haven't logged in for a month or something, and have offline-style emails for members to read, in the event someone wishes to buy / edit a piece of land when the owners aren't logged in.

What do ya think? Worth a shot?

Hey, this project looks cool!
And i think the land-buying idea is a good one...
I wanna help!!

Yep, i'm steal the same crazy, delirious guy, but i do know how to code... ;)

Ummm... b the way... WHERE THE HELL'S THE CODE!!!

This sounds like a great community project =) If there's any media needed I can try helping with that.

perhaps land owner 'a' could hire land owner 'b' to improve bits of their level, kind of co operative system.
Obviously there would have to be some kind of payment system.

Or you could give each participant a job, so someone does the decorating/texturing for payment, which means they can then buy more land and decide what goes there.

If someone loses interest in the project, their land/level can be auctioned off ebay style and 'bulldozed' if necessary
or just carried on by someone else.

payment?...starts to sound well :) (if real money)

Anyway, I see a problem if...well, what it's all about, a full modeller wich also allows to coperate in same virtual 3d space? what about Uv coords? Is it supposed to generate automatic ones? giving just some basic gizmos is not enough (cilindrice, plannar, etc.)

Dunno...I wouldn't risk to share my meshes that way...Unless...I entered there to get a payment editing someone else mesh, hehe.

If it is all just for fun...that is, like a online painting board...The best one I knew was the one at polycount, but as usual in these boards, too much silly kiddies wrecking your drawing...or painting dumb stuff, insulting, etc...

The for fun idea is curious, too. Just I see it all a bit hard to be made...

Mostly, what would prevent someone to steal others work? Supposing there would be a possible way to extract the meshes from the editor. (and if not...the only existence and destiny of it would be virtual? )

From the discussion I gather that PersistentWorld3D could offer two modes of operation: Application and Game.

Application Mode: 3D Artists collaborate online to build levels that will be used in other games. Its a Full Powered Level Editor with Networking. No GamePlay Elements.

Game Mode: Its a Limited Powered Level Editor with GamePlay Elements. As a Player, your objective is to acquire the largest amount of real estate to Build. You can Buy, Sale, Steal, and Destroy it. Harvest Scraps and recycle them to produce raw materials, weapons, and defenses. Sortof RTS like.

Project Ownership. The person who starts a Project in the editor holds full access Ownership to the geometry and data created with in it. The Project Owner can grant access to others. Upon granting access into the Project to others a license/term of use is agreed upon. The Project Owner can assign levels of access for edit and export. Project Ownership can be transfered as well.

Editing Ownership. A user is assigned ownership upon selecting a Mesh to edit. This prevents two users from attempting to edit the same mesh at once. The owner is only allowed to edit or export the meshes depending on access granted by the Project Owner.

Are you guys coding this thing yet? or is it just a bunch of words and ideas???

Are you guys coding this thing yet? No
or is it just a bunch of words and ideas??? Yes
Check Out the TODO List!

Oh, well, wake me up when you start coding!! ;)

You forgot to add www.tournamentblitz.com to your list of unfinished vapourw... er... I mean.... community projects.

Gfk: don't read stuff that doesn't interest you.

Gfk,

Tournamentblitz.com is a personal endeavor and I've released a INSECTIODS (TournamentBlitz Edition) Demo. Only the TBSDK was made available to public.

As far as Project PLASMA FPS there is plenty to download and my final contribution will be my BlitzScript3D Scripting Engine. Ultimately I only moderate the project, I'm not responsible for the community making contributions. The same position applies this project.

when did plasma start? 2003 I guess. why don't you dig it. Would be honest at least.

Does this remind anyone of CUBE?

I'm just bloody sick to death of the same old people making 'the next big thing', and never having the balls to actually finish anything. Ever.

Its like they NEED to be in control of people... almost as if they're doing it to try and earn some sort of misguided respect.

There are people here who are far more able (Flack, for one) and have actually COMPLETED entire games - they don't get stickytopics to themselves. Why does Frankie Taylor? Plasma will never EVER get finished, just like this project, and TournamentBlitz, and everybody here (inlcuding the moderators I suspect) knows it.

I'm sorry if this offends (actually, no - I make no apologies for my point of view), its how I feel.

This sounds like an interesting project but at the moment is seems like anther vaporware project. Such has plasma, I think community projects are a good idea but unless there is something to show when they are announced. thay seldom seem to work

I wish you luck with this one. And I hope it works out

jfk

Yes, 2003 is correct. The project is still alive and well. I can assure you that none of the work in the project has gone to waste. Its there for the download and view. Project PLASMA FPS will contnue to exist until the gap is filled: A Modular, High Performance FPS Engine with Source Code developed with Blitz3D. If someone desires a game engine like this, then they should be in on this project. If your not than you need to question yourself.

All in all, the community is responsible for a Community Project's life and demise, not just one person (like myself - hint). If I have to accept failure alone, then I should be able to accept reward alone as well. So go back and read through the 600+ post. Find your own faults. I've admitted to mine and have learned from them.

So the bottomline is this: If you want to be part of any community project than introduce your ideas, code, media, etc. Its true that they may not be agreed to, heck, you may get some nasty reponses, but at least you expressed yourself. Accept it and continue to brainstorm and collaborate, dont quit! Perhaps your ideas will be included in the bonus feature or next project.

Many want a community project. Many want a moderator, a coordinator, a organizer of the project. Ok you've got one! I've stepped to the plate and bring some experience in community projects, Blitz3D Programming, and Web Development.

I'm not developing the game or app, we are as a community. So lets get it together. We need a list of features before any coding takes place, its that simple. With the list of features we can devise a plan. Without it, what in the hell are we coding for?

Once we have a solid list, we can prioritize and divide coding task amongst those who accept the task. Once a task is accepted it should be focused on til near perfect. It is much easier for a person to focus, document, and perfect a single task than two or more. Not to mention less stress.

There are four guidelines in place. Follow them, then everyone is on the same page. If you cant follow them - then this project is not for you. Its that simple.

I'm contributing my fastest scripting engine to date to this project and PPF. I've have focused on it exclusively for the past 3 months and I intend to perfect it. It will be the Scripting Systems of all Scripting Systems and it will be free. Thats what community projects are about.

So, with all this said, "what are you contributing?"

Nothing. Because its a waste of time, just like plasma and tournamentblitz was. You'll never finish it. You never finish anything.

'Its like they NEED to be in control of people... almost as if they're doing it to try and earn some sort of misguided respect.'

Jeez , thats a bit harsh, Frank is always the perfect Gentleman.

Perhaps you should learn a lesson from him in terms of people skills

And stop behaving like a 2 year old. You are really losing it you know!

I don't demand or require respect. People have their own opinions and that's absolutely fine. I do my own thing. If people like it, fine. If they don't, fine. I'm completely indifferent. I don't need mass pimpage and stickytopics, unlike some people. Finished products, quality and income is what counts. I have a family to provide for. You get £0.00 for endless unfinished ideas.

I accept your right to your opinion. Please accept my right to mine.

<edit> Oh, and stop trolling.

"Ruz" you are still alive.

It's me - "puki".

Woof-it

Agreed. You get £0.00 for free ideas as well.

I accept your right to your opinion, but not to to troll and flame like you have been doing.

You don't think that your response in this thread is just a tad over the top?

Well, its my opinion regardless of whether or not you agree with it.

And on that note, and on the basis that I've never had a problem with you in the past, we'll leave it at that. I've said my bit anyway. No point going on about it any more.
Perhaps. But its merely an extension of what I said about Plasma 2004 when that was first announced (i.e. It'll never get finished). It didn't, as well.

yo Puki, happy new year mate. I thought you were lost in
the Blitzmax forums forever

GFk, you should try and be more like Puki

'Well, its my opinion regardless of whether or not you agree with it.'

Well thats fine, but you were a bit nasty about it all the same.Surely you can get an opinion across without being offensive.

If you don't like it don't post in the thread, which has now turned in to a troll fest.

I've been here for almost five years. I'm straight-talking and don't beat about the bush. Most people here know that.

Need more input on features guys!

Good Luck with it Frank anyway.
Even if you 'don't' finish it, I am sure some good stuff will come out of it.
My only advice ( not that I am qualified to give it) is that you should knock up more demos along the way to keep the interest up.

Thanks friend. But, let it be known the community should finish it. I'm just here to help guide and moderate. Contributions, Ideas, Discussions, and Demos are at the mercy of the community.

Frank - if anything, then make a new thread. This one's getting clogged with random spam:





So...let's start!

My ideas:
The combined processes of the actual map maker:
Terrain Editor
Dropper
Building Maker (I dunno - I think this would be kinda cool)

Well, this is going to be really cool, even if we don't finish it.

Let me ask one question:
What is so important about finishing it anyway?

I have to agree with GFK. This is not about trolling, it's a fair notice for people who didn't watch these projects trough the years. Some of us did and most of us used to quit due to the same reason.


so you say there is a demo game to download? Hmm, maybe then I wrote my engine for no reason.


You say the Community is responsible for the result, but you wanna be the CEO who makes the rules. I think the rules have a remarkable inpact on the result.


Wow, huge lot of pardon. But let us now carefully study the following lines:


This is the problem. You think everybody wants you to be the project leader. But did yo actually ask them? Well, you didn't ask me. Instead, long time after PLASMA 1 was dead, I
sponatously started talking about a new FPS Community Project and a hand full of coders immediately were interested. This was the point when you re-joined, opened the grave of plasma and declared yourself to be the project maximo lider. I spent dozens of hours for nothing, or worse, to hear that my "style does not fit in the modular architecture" aka "your code sucks". So you where the Project leader and this was the beginning of the end of my membership. a few weeks later I used to quit.


Yes, sometimes I really think you are only doing feature lists, plans, pseudo-code and superwide project bars.


we can? or you can?


I didn't read these guidelines and I honestly don't want to join anyway, but this statement was real symptomatic. "Hey, this is a community project. I make the rules, eat them or die".


Will it? Prediction _and_ Leadership, you maybe better build a new world religion in this case.



Well, I tried to be part of one of your projects and my contribution was ejected by _you_. So I decided to contribute to the code archives instead.

Sorry, I had to reply to your statements because they provocated me personally. Usually I am not that offensive, but I wanted to say this since a long time.

I wish you good look for this project, but I suggest to give the leadership out of hands to any other talented blitz programmer.

Jfk,

I should have put a stopping point in my rant above. Perhaps after my first string of sentences. It was not all directed at you.

All I can say is this, its a community project, if you dont like the way im handling things you can vote me out or start another community thread, there is always something you can do - just take action. All I know, is that I tried to bring organization where none existed.

I have not attacked anyone, nor their views. I've only stated my case, noone elses. But, let it be known this debate is an example of what you will experience in a community project. If you do not, there is truly a problem...

Optimistic,

I agree 200% with using existing libs and tools. It would be nice to combine the processes of: Terrain Editor, Dropper, Building Maker into one tool. I would also suggest throwing a GUI Lib and BlitzPlay on top of the pile. Assuming we use libs available, we will need to work out the licensing of these products with the authors.

I'm not familar with Terrain Editor, Dropper, Building Maker. Can you provide some details on their features for discussion?

Modular Architecture:

Refers to the design of any system composed of separate components that can be connected together. The beauty of modular architecture is that you can replace or add any one component (module) without affecting the rest of the system. The opposite of a modular architecture is an integrated architecture, in which no clear divisions exist between components.

The term modular can apply to both hardware and software. Modular software design, for example, refers to a design strategy in which a system is composed of relatively small and autonomous routines that fit together. -webopedia.com

About the idea:
People are rarely willing to help when 10 lines of code are bugging you, why would most people help most people with BUILDING WORLDS , online? Yea it might be great for teams but for the community, not sure unless everyone starts believing in communism and builds the community for free and community projects start to rule and everyone is cooperating like crazy. Now its capitalism, every man for himself (most of the time) and it works.

I do wish you good luck however.

Wow, communism?

Hang on a second - why does everyone here assume that EVERY community project ever started NEVER gets finished? I mean, look at Jump Around - that was a great community project, and the end result was a very playable and appealing game.

I think the main reason it got finished is because it was simple. People felt like it was possible to complete, and it was.

In my opinion, we make this project a game - making something which is designed to be fun is surely easier than trying to create an elaborate online collaborative 3d engine.

Besides, if the game gets finished, and the code is easy enough to edit, it can have features added - maybe even enough features to become the 'far-fetched' online level editor originally proposed.

Just my opinion, but it seems to make sense, to me at least ;)

I like the idea alot but based on frank taylors past history and judgement I dont think he would be the best project leader for this. I dont have enough time to help out with the code but I would love to. I have nothing against frank but a persons track record will usually tell us how they will act in the same position. I have seen a couple community projects under franks leadership die off. I dont intend to sound negitive towards this community project at all I encourage this i know the blitz community is pretty famous for tearing down people's ideas and putting people down in general i'm just stating the facts so dont get angry with me frank :)

Dropper, Terrain Editor, and Building Maker are just some stuff I made up.

First, you create your terrain in a terrain editor, and it would be nice if it had a "tile seamlessly" option. The terrain editor should have texture layers, etc.

Then, you make a couple buildings in Building Maker, a separate part of Persistant World 3D. You simply choose the shape of your building, and it exports a previously-made UV map that you can easily texture yourself. Once you've finished with the UV map, you just load it into Building Maker and apply the texture. Voila! You have a building.

After creating a building, you load up the Dropper, click "Terrain" and load in a terrain. Then you import or merge in the building that you made and you've got a terrain with a building on it!

Good other features would include an automatic physics engine, where you just modify some settings and you apply physics to everything. And there could be other features, such as building roads, dirt paths, etc.

These are all things we have to code, but if we could get our hands on the code of terrain editors such as FLE, CLE, etc, then we could use all the features into this.

Just stating some ideas. Tell me if you like them.

It looks as if I'm one of the few that are actually interested in this project.

BTW: Game mode sounds a bit like Monopoly! I like the idea!

If you want me to, I can go ahead and start coding the Game mode thing. I have already started a project within No Enemies Development about it. I'm creating a game exactly like that. Once I am finished, I'd be more than happy to use it. Although my game will most likely be selling for money, so we'd have to discuss some legal issues.....

"Jump around" and "Alien breed" are a success/becoming a success, because Rob Farley was in charge (offically?) Alot of people contributed alot, but it was easy to contribute to them. I wouldn't dare contribute to plasma because of how complicated it sounded. Too many techy words flying about, scared me off before i tried anything.

Frank Taylor - did you join my forums?

techlord be me.

Yay.

Optomistic I've been hunting for free source code and open source modellers, terrain editors, GUI Libs, and Network. I've had some success in locating BlitzPlay Lite by Surreal and Gnet for networking. BlitzPlay has a modular code lib, great documentation, and fan base already putting it to use. GNET will obvously be used to track game worlds in progress. A nice chat client could complete the networking side of things.

There are several very good looking 3D sprite-based GUI Libs, but, unfortunately most are not free. I've been checking out Epilon (Ngui 2.0) by mouss38 but its not in english:(. I'm seeking a translation. IMHO if we find a good gui to work with now (someone?) could immediately start building the Application and Game interfaces. This will produce the fastest results.

The BlitzScript3D Scripting Engine can be implemented now. I'm currently working on 'Functions', which is the final basic feature and top priority. I will continue to improve Loops, Boolean Expressions, and Conditions. Combining a GUI, BlitzPlayLite, and BlitzScript3D provides a good Starting framework.

I have not had very good luck with finding a Free Open Source Constructive Solid Geometry (CSG) Based Modeller. CSG is common modeling method that combines simple solid shapes called PRIMITIVES to build more complex models, using the BOOLEAN OPERATORS: UNION, DIFFERENCE, and INTERSECTION. If we have to write code from scratch, I managed to locate some excellent CSG Functions by David Dawkins and Markus Rauch in the code archives.

; ID: 560
; Author: Markus Rauch
; Date: 2003-01-26 09:44:33
; Title: CSG Functions another edition
; Description: 02.11.03 Use Boolean Union/Subtraction/Intersection ,  with UV and multiple Surfaces

; MR 02.11.2003 

;####################################################################################################

;Csg Engine 

;Thanks to David Dawkins(Starfox) for the bb code example ;-)

;MR 19.01.2003
;tuned and optimized , now by cube subtract sphere 2 seconds + :-)
;MR 25.01.2003
;add uvmapping :-) slow down but works
;MR 26.01.2003
;Multiple Surfaces :-)
;MR 02.11.2003
;Repaint target Surfaces , need BB 3D => V 1.85 !

;Features: Union, Subtraction, Intersect, Fast enough, Removes bad triangles
;Call the CSG(mesha,meshb,booltype) to do the actual functions

;Limits: Not to fast with many tris
;It works only if all Entity have no Pickmode !

;What CSG() returns is the result mesh, not the actual meshes you send to it
;so you might want to delete those.

;NOTE:AddMesh add no surfaces :-( , and with CopyMesh you became only 1 surface :-(

;####################################################################################################

;Here are the globals
Global csgscale#=1,csgpiv ;The world scale (1- Normal, 2-2x Normal)
Global csgmesh[2] ;Different surface holders for different opereations

;-----------------------

Type CSGVectorType
 Field x#
 Field y#
 Field z#

 Field u# ;Texture Coords !
 Field v#
 Field w#
End Type

;-----------------------

Type CSGTriangleTYPE

 Field id
 Field tarid            ;See Split
 Field del              ;Can be deleted
 Field mindex           ;Mesh Index (NOT a Handle)
 Field sindex						;Surface Index			
 Field tindex 					;Triangle Index

 Field v1x#           ;Edge Vertex 1
 Field v1y#
 Field v1z#
 Field u1#
 Field v1#
 Field w1#

 Field v2x#           ;Edge Vertex 2
 Field v2y#
 Field v2z#
 Field u2#
 Field v2#
 Field w2#

 Field v3x#           ;Edge Vertex 3
 Field v3y#
 Field v3z#
 Field u3#
 Field v3#
 Field w3#

 Field mix#   ;Middle Vector from all Edge Vertices
 Field miy# 
 Field miz#

 Field normx# ;Normal of Triangle
 Field normy# 
 Field normz# 

End Type

;###############################################################################################

.CSGTestIt

;Commend the two lines if you include this CSG file !

CSGExample()
End

;###############################################################################################

Function CSG(mesh1,mesh2,mode=2)

 ;MR 02.11.2003

 ;mode 1 - Union, mode 2 - Subtraction, mode 3 - Intersection

 Local x1#,y1#,z1#
 Local x2#,y2#,z2#
 Local x3#,y3#,z3#

 Local vi1,vi2,vi3    ;Only VertexIndex

 ;-------------------------------------------------------------------------------------- Memory Position and Angles

 Local ex#,ey#,ez#

 ex=EntityX(mesh1,1)
 ey=EntityY(mesh1,1)
 ez=EntityZ(mesh1,1)

 Local epitch#,eyaw#,eroll#

 epitch=EntityPitch(mesh1,1)
 eyaw  =EntityYaw  (mesh1,1)
 eroll =EntityRoll (mesh1,1)

 ;--------------------------------------------------------------------------------------

 Local curmesh
 Local mindex
 Local surf,sindex
 Local SurfaceBrush
 Local tindex
 Local idstate=0
 Local t.CSGTriangleTYPE
 Local t1.CSGTriangleTYPE
 Local t2.CSGTriangleTYPE

 Local ve1.CSGVectorType
 Local ve2.CSGVectorType
 Local ve3.CSGVectorType

 For mindex = 1 To 4

 If mindex = 1 Then curmesh = mesh1
 If mindex = 2 Then curmesh = mesh2
 If mindex = 3 Then curmesh = mesh1
 If mindex = 4 Then curmesh = mesh2

 ;Now copy all 4 Meshes to Buffer

 For sindex = 1 To CountSurfaces(curmesh)

  ;DebugLog "sindex "+sindex

	surf = GetSurface(curmesh,sindex)
	For tindex = 0 To CountTriangles(surf)-1
   
   ;---------------------------------------
  
	 vi1 = TriangleVertex(surf,tindex,0)
	 vi2 = TriangleVertex(surf,tindex,1)
	 vi3 = TriangleVertex(surf,tindex,2)

   ve1=CSGGetVertexRealPosition(curmesh,surf,vi1)
   ve2=CSGGetVertexRealPosition(curmesh,surf,vi2)
   ve3=CSGGetVertexRealPosition(curmesh,surf,vi3)

   t=CSGTriAdd(ve1,ve2,ve3)

	 t\mindex = mindex
	 t\sindex = sindex 
	 t\tindex = tindex
	 t\tarid = -1

   ;---------------------------------------

	Next ;Triangles
 Next ;Surfaces
 Next ;1-4

 CSGTriRemoveDel

 ;--------------------------------------------------------------------------------------

 ;Create the reuse objects
 csgmesh[0] = CreateMesh()
 surf = CreateSurface(csgmesh[0])
 vi1 = AddVertex(surf,-1,0,1)
 vi2 = AddVertex(surf,1,0,1)
 vi3 = AddVertex(surf,1,0,-1)
 AddTriangle(surf,vi1,vi2,vi3)

 ;----------------------------------------

 csgmesh[1] = CreateMesh()
 surf = CreateSurface(csgmesh[1])
 vi1 = AddVertex(surf,-1,0,1)
 vi2 = AddVertex(surf,1,0,1)
 vi3 = AddVertex(surf,1,0,-1)
 AddTriangle(surf,vi1,vi2,vi3)

 ;----------------------------------------

 csgmesh[2] = CreateCube()
 ScaleMesh csgmesh[2],100000*csgscale,0,100000*csgscale ;<--- mesh vertices must be in range of float !

 ;----------------------------------------

 ;Time to split the a polys
 For t1.CSGTriangleTYPE = Each CSGTriangleTYPE
 If t1\mindex = 2
	For t2.CSGTriangleTYPE = Each CSGTriangleTYPE
	If t2\mindex = 1 And t2\tarid <> t1\id
	 If t2\del = 0
	  If CSGTrisIntersect(t1,t2) = 1
	 	 CSGSplit t1,t2
	  EndIf
	 EndIf
	EndIf
	Next
 EndIf
 Next

 ;----------------------------------------

 ;Now split the b poly's
 For t1.CSGTriangleTYPE = Each CSGTriangleTYPE
 If t1\mindex = 3
	For t2.CSGTriangleTYPE = Each CSGTriangleTYPE
	If t2\mindex = 2 And t2\tarid <> t1\id
	 If t2\del = 0
	  If CSGTrisIntersect(t1,t2) = 1
		 CSGSplit t1,t2
	  EndIf
	 EndIf
	EndIf
	Next
 EndIf
 Next

 ;----------------------------------------

 ;Step 2 of reuse
 surf = GetSurface(csgmesh[0],1)
 AddTriangle(surf,2,1,0)

 FreeEntity csgmesh[1]
 FreeEntity csgmesh[2]

 csgpiv = CreatePivot()

 ;----------------------------------------

 ;Setting a flag to delete all the triangles without normals
 For t1.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t1\normx = 0.0 And t1\normy = 0.0 And t1\normz = 0.0 ;And t1\del = 0
   ;DebugLog "NORM=0 : "+t1\normx+" "+t1\normy+" "+t1\normz+" MIndex="+t1\mindex
   Delete t1
  EndIf
 Next

 ;----------------------------------------

 Local epsilon#=0.000001

 ;MeshA
 For t1.CSGTriangleTYPE = Each CSGTriangleTYPE
 If t1\mindex = 1 And t1\del = 0
  cosangle# = -1
  inter = 0
  intermode = 0 ;1 - inside, 2 - shared, 3 - Not inside
  quickdist# = 100000

	For t2.CSGTriangleTYPE = Each CSGTriangleTYPE
	 If t2\mindex = 4
	  res = CSGRayIntersect(t2,t1)
	  If res = 1
	   intx# = PickedX()
	   inty# = PickedY()
	   intz# = PickedZ()
	   dist# = Sqr((intx-t1\mix)*(intx-t1\mix)+(inty-t1\miy)*(inty-t1\miy)+(intz-t1\miz)*(intz-t1\miz))
	   If dist < quickdist
	    quickdist = dist
	    inter = 1
	    cosangle# = (t1\normx*t2\normx)+(t1\normy*t2\normy)+(t1\normz*t2\normz)
	   EndIf
	  EndIf
	 EndIf
	Next
	
	If inter = 1
	 If cosangle > 0 Then intermode = 1
	 If cosangle < 0 Then intermode = 3
	 If quickdist < epsilon ;If the triangle is shared
	  intermode = 2
	 EndIf
	Else
	 intermode = 3
	EndIf

  Select mode
  Case  2
	 If intermode = 1 Or intermode = 2
	  t1\del = 1
	 EndIf
  Case 1
	 If intermode = 1 Or intermode = 2
	  t1\del = 1
	 EndIf
  Case  3
	 If intermode = 3 Or intermode = 2
	  t1\del = 1
	 EndIf
  End Select

  If t1\del=1 Then Delete t1

 EndIf ;Mesh A
 Next ;Tri

 ;----------------------------------------

 ;MeshB
 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
 If t\mindex = 2 And t\del = 0
  cosangle = -1
  inter = 0
  intermode = 0;1 - inside, 2 - shared, 3 - not inside
  quickdist# = 100000
	For tr.CSGTriangleTYPE = Each CSGTriangleTYPE
	 If tr\mindex = 3
	  res = CSGRayIntersect(tr,t)
	  If res = 1
	   intx# = PickedX()
	   inty# = PickedY()
	   intz# = PickedZ()
	   dist# = Sqr((intx-t\mix)*(intx-t\mix)+(inty-t\miy)*(inty-t\miy)+(intz-t\miz)*(intz-t\miz))
	   If dist < quickdist
	    quickdist = dist
	    inter = 1
	    cosangle# = (t\normx*tr\normx)+(t\normy*tr\normy)+(t\normz*tr\normz)
	   EndIf
	  EndIf
	 EndIf
	Next
	
	If inter = 1
	 If cosangle > 0 Then intermode = 1
	 If cosangle < 0 Then intermode = 3
	 If quickdist < epsilon
	  intermode = 2
	 EndIf
	Else
	 intermode = 3
	EndIf
	
  If mode = 2
	 If intermode = 3 Or intermode = 2
	  t\del = 1
	 EndIf
  ElseIf mode = 1
	 If intermode = 1
	  t\del = 1
	 EndIf
  ElseIf mode = 3
	 If intermode = 3
	  t\del = 1
	 EndIf
  EndIf

  If t\del=1 Then Delete t

 EndIf
 Next

 ;----------------------------------------

 FreeEntity csgpiv
 FreeEntity csgmesh[0]

 ;----------------------------------------

 ;Now delete the polys that don't belong(loose polys)

 CSGClearlTris 1 
 CSGClearlTris 2

 ;----------------------------------------------- New Mesh

 Local mesh=CSGMakeNewMesh()
 
 CSGAddTheTriangles mesh,1

 ;Now add Mesh 2 to Mesh 1
 If mode = 2
  CSGAddTheTriangles mesh,2,True ;Flips all the triangles in a mesh
 Else
  CSGAddTheTriangles mesh,2,False
 EndIf

 ;----------------------------------------------- Repaint !

 CSGRepaint mesh,mesh1,mesh2

 ;----------------------------------------------- Reposition Mesh

 PositionMesh   mesh,-ex,-ey,-ez
 PositionEntity mesh, ex, ey, ez

 RotateMesh mesh,      0,-eyaw,0
 RotateMesh mesh,-epitch,    0,0
 RotateMesh mesh,      0,    0,-eroll

 RotateEntity mesh,epitch,eyaw,eroll

 ;-----------------------------------------------

 Delete Each CSGTriangleTYPE ;Free the whole Triangle Collection

 Return mesh

End Function

;###############################################################################################

Function CSGVec.CSGVectorType(x#,y#,z#,u#,v#,w#) 

 ;MR 25.01.2003 

 ;Simple Return a Vector as type :-)

 Local ve.CSGVectorType = New CSGVectorType

 ve\x=x#
 ve\y=y#
 ve\z=z#

 ve\u=u#
 ve\v=v#
 ve\w=w#

 Return ve

End Function

;###############################################################################################

Function CSGTriAdd.CSGTriangleTYPE(v1.CSGVectorType,v2.CSGVectorType,v3.CSGVectorType)

 ;MR 02.11.2003

 Local newid=0
 Local tr.CSGTriangleTYPE = Last CSGTriangleTYPE
 If tr<>Null Then newid = tr\id + 1

 ;------------------------------------------

  t.CSGTriangleTYPE = New CSGTriangleTYPE

  t\id = newid

 ;------------------------------------------ Copy Parameters V1,V2,V3

	t\v1x = v1\x
	t\v1y = v1\y
	t\v1z = v1\z

	t\v2x = v2\x
	t\v2y = v2\y
	t\v2z = v2\z

	t\v3x = v3\x
	t\v3y = v3\y
	t\v3z = v3\z

 ;------------------------------------------ Memory UVW for Vertex V1,V2,V3

	t\u1 = v1\u
	t\v1 = v1\v
	t\w1 = v1\w

	t\u2 = v2\u
	t\v2 = v2\v
	t\w2 = v2\w

	t\u3 = v3\u
	t\v3 = v3\v
	t\w3 = v3\w

 ;------------------------------------------ Middle

  t\mix = (t\v1x + t\v2x + t\v3x) / 3.0
  t\miy = (t\v1y + t\v2y + t\v3y) / 3.0
  t\miz = (t\v1z + t\v2z + t\v3z) / 3.0

 ;------------------------------------------ Normal

  Local ax#,ay#,az#
  Local bx#,by#,bz#

  ax#=t\v2x-t\v1x
  ay#=t\v2y-t\v1y
  az#=t\v2z-t\v1z
	
  bx#=t\v3x-t\v2x
  by#=t\v3y-t\v2y
  bz#=t\v3z-t\v2z

  t\normx=(ay#*bz#)-(az#*by#)
  t\normy=(az#*bx#)-(ax#*bz#)
  t\normz=(ax#*by#)-(ay#*bx#)

  Local normlen# = Sqr#((t\normx*t\normx)+(t\normy*t\normy)+(t\normz*t\normz))
  If normlen > 0.0
   t\normx = t\normx/normlen 
   t\normy = t\normy/normlen 
   t\normz = t\normz/normlen
  Else
   t\del = 1
  EndIf

 ;------------------------------------------

 Return t

End Function

;###############################################################################################
	
Function CSGTrisIntersect(t1.CSGTriangleTYPE,t2.CSGTriangleTYPE)

 ;MR 19.01.2003

 ;if one triangle in another triangle

 Local surf

 surf = GetSurface(csgmesh[0],1) ;Dummy Mesh with one triangle :-)

 VertexCoords(surf,0,t1\v1x,t1\v1y,t1\v1z)
 VertexCoords(surf,1,t1\v2x,t1\v2y,t1\v2z)
 VertexCoords(surf,2,t1\v3x,t1\v3y,t1\v3z)

 surf = GetSurface(csgmesh[1],1)

 VertexCoords(surf,0,t2\v1x,t2\v1y,t2\v1z)
 VertexCoords(surf,1,t2\v2x,t2\v2y,t2\v2z)
 VertexCoords(surf,2,t2\v3x,t2\v3y,t2\v3z)

 Return MeshesIntersect(csgmesh[0],csgmesh[1])

End Function

;###############################################################################################

Function CSGRayIntersect(t1.CSGTriangleTYPE,t2.CSGTriangleTYPE)

 ;MR 02.11.2003

 ;i think it used to find the triangles that can be deleted

 Local surf = GetSurface(csgmesh[0],1) ;Dummy Mesh with one triangle :-)

 VertexCoords(surf,0,t1\v1x,t1\v1y,t1\v1z)
 VertexCoords(surf,1,t1\v2x,t1\v2y,t1\v2z)
 VertexCoords(surf,2,t1\v3x,t1\v3y,t1\v3z)

 Local piv = csgpiv
 RotateEntity piv,0,0,0 ;!?
 PositionEntity(piv,t2\mix  ,t2\miy  ,t2\miz)
 AlignToVector (piv,t2\normx,t2\normy,t2\normz,3)
 MoveEntity piv,0,0,100000.0*csgscale ;<--- !

 EntityPickMode csgmesh[0],2

 Local distx# = EntityX(piv)-t2\mix
 Local disty# = EntityY(piv)-t2\miy
 Local distz# = EntityZ(piv)-t2\miz
 Local picked = LinePick(t2\mix,t2\miy,t2\miz,distx,disty,distz)

 EntityPickMode csgmesh[0],0

 If picked Then
  Return 1
 Else
  Return 0
 EndIf

End Function

;###############################################################################################

Function CSGSplit(t1.CSGTriangleTYPE,t2.CSGTriangleTYPE)

 ;MR 02.11.2003

 ;if CSGTrisIntersect = true than split it to new triangles

 ;now the new triangles are in menory triangle type collection !

 If t1 = Null Or t2 = Null Then Return 0

;------------------------------------------------------------

 Local newvx#[3]
 Local newvy#[3]
 Local newvz#[3]

 Local newu#[3]
 Local newv#[3]
 Local neww#[3]

 Local v.CSGVectorType 

 Local edge1,edge2,edge3

 Local epsilon#=0.000001 

;------------------------------------------------------------

 Local cube = csgmesh[2]
 EntityPickMode cube,2
 PositionEntity cube,t1\mix,t1\miy,t1\miz
 RotateEntity cube,0,0,0
 AlignToVector(cube,t1\normx,t1\normy,t1\normz,2)

;------------------------------------------------------------

 ;Edge1 to 2

 distx# = t2\v1x-t2\v2x
 disty# = t2\v1y-t2\v2y
 distz# = t2\v1z-t2\v2z

 picked = LinePick(t2\v2x,t2\v2y,t2\v2z,distx,disty,distz)
 If picked = cube
  newvx[1] = PickedX()
  newvy[1] = PickedY()
  newvz[1] = PickedZ()

  v=CSGPickedUVW(t2)

  newu[1]=v\u
  newv[1]=v\v
  neww[1]=v\w
 
  distx# = newvx[1] - t2\v2x
  disty# = newvy[1] - t2\v2y
  distz# = newvz[1] - t2\v2z
  cdist# = Sqr(distx*distx + disty*disty + distz*distz)
  If cdist <= epsilon
   edge1 = False
  Else
   edge1 = True
  EndIf

 EndIf

;------------------------------------------------------------

 ;Edge2 to 3

 distx# = t2\v2x-t2\v3x
 disty# = t2\v2y-t2\v3y
 distz# = t2\v2z-t2\v3z

 picked = LinePick(t2\v3x,t2\v3y,t2\v3z,distx,disty,distz)
 If picked = cube
  newvx[2] = PickedX()
  newvy[2] = PickedY()
  newvz[2] = PickedZ()

  v=CSGPickedUVW(t2)

  newu[2]=v\u
  newv[2]=v\v
  neww[2]=v\w

  distx# = newvx[2] - t2\v3x
  disty# = newvy[2] - t2\v3y
  distz# = newvz[2] - t2\v3z
  cdist# = Sqr(distx*distx + disty*disty + distz*distz)
  If cdist <= epsilon
   edge2 = False
  Else
   edge2 = True
  EndIf

 EndIf

;------------------------------------------------------------

 ;Edge3 to 1

 distx# = t2\v3x-t2\v1x
 disty# = t2\v3y-t2\v1y
 distz# = t2\v3z-t2\v1z

 picked = LinePick(t2\v1x,t2\v1y,t2\v1z,distx,disty,distz)
 If picked = cube
  newvx[3] = PickedX()
  newvy[3] = PickedY()
  newvz[3] = PickedZ()

  v=CSGPickedUVW(t2)

  newu[3]=v\u
  newv[3]=v\v
  neww[3]=v\w

  distx# = newvx[3] - t2\v1x
  disty# = newvy[3] - t2\v1y
  distz# = newvz[3] - t2\v1z
  cdist# = Sqr(distx*distx + disty*disty + distz*distz)
  If cdist <= epsilon
   edge3 = False
  Else
   edge3 = True
  EndIf

 EndIf

;------------------------------------------------------------

 EntityPickMode cube,0

 If edge1=0 And edge2=0 And edge3=0 Then Return 0

;------------------------------------------------------------

 Local v1.CSGVectorType = New CSGVectorType
 Local v2.CSGVectorType = New CSGVectorType
 Local v3.CSGVectorType = New CSGVectorType
 Local v4.CSGVectorType = New CSGVectorType
 Local v5.CSGVectorType = New CSGVectorType

 Local mindex = t2\mindex
 Local sindex = t2\sindex
 Local tm.CSGTriangleTYPE

;------------------------------------------------------------

 If edge1 And edge2

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(newvx[1],newvy[1],newvz[1],newu[1],newv[1],neww[1])
  v3 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v4 = CSGVec(newvx[2],newvy[2],newvz[2],newu[2],newv[2],neww[2])
  v5 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)

  tm = CSGTriAdd(v1,v2,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v4,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v3,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 ElseIf edge1 And edge3

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(newvx[1],newvy[1],newvz[1],newu[1],newv[1],neww[1])
  v3 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v4 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)
  v5 = CSGVec(newvx[3],newvy[3],newvz[3],newu[3],newv[3],neww[3])

  tm = CSGTriAdd(v1,v2,v5) ;1,2,5
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v4,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v3,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 ElseIf edge2 And edge3

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v3 = CSGVec(newvx[2],newvy[2],newvz[2],newu[2],newv[2],neww[2])
  v4 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)
  v5 = CSGVec(newvx[3],newvy[3],newvz[3],newu[3],newv[3],neww[3])

  tm = CSGTriAdd(v1,v2,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v3,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v3,v4,v5)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 ElseIf edge2

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v3 = CSGVec(newvx[2],newvy[2],newvz[2],newu[2],newv[2],neww[2])
  v4 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)

  tm = CSGTriAdd(v1,v2,v3)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v1,v3,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 ElseIf edge1

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(newvx[1],newvy[1],newvz[1],newu[1],newv[1],neww[1]) 
  v3 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v4 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)

  tm = CSGTriAdd(v1,v2,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v3,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 ElseIf edge3

  t2\del = 1

  v1 = CSGVec(t2\v1x,t2\v1y,t2\v1z,t2\u1,t2\v1,t2\w1)
  v2 = CSGVec(t2\v2x,t2\v2y,t2\v2z,t2\u2,t2\v2,t2\w2)
  v3 = CSGVec(t2\v3x,t2\v3y,t2\v3z,t2\u3,t2\v3,t2\w3)
  v4 = CSGVec(newvx[3],newvy[3],newvz[3],newu[3],newv[3],neww[3])

  tm = CSGTriAdd(v1,v2,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

  tm = CSGTriAdd(v2,v3,v4)
  tm\mindex= mindex
  tm\sindex= sindex
  tm\tarid = t1\id

 EndIf

 If t2\del=1 Then Delete t2

End Function

;###############################################################################################

Function CSGTriRemoveDel()

 ;MR 19.01.2003

 ;-----------------------------------------------

 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t\del=1 Then Delete t  
 Next

End Function

;###############################################################################################

Function CSGMakeNewMesh()

 ;MR 26.01.2003

 ;----------------------------------------------- New Mesh

 Local m=CreateMesh()

 ;----------------------------------------------- Find Max Surfaces for Mesh 1

 Local smax1=0

 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t\mindex=1 Then
   If t\sindex>smax1 Then smax1=t\sindex  
  EndIf
 Next

 ;----------------------------------------------- Find Max Surfaces for Mesh 2

 Local smax2=0

 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t\mindex=2 Then
   If t\sindex>smax2 Then smax2=t\sindex  
  EndIf
 Next

 ;----------------------------------------------- Add Max Surface Index from Mesh 1 to Mesh 2

 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t\mindex=2 Then
   t\sindex=t\sindex+smax1
  EndIf
 Next

 ;----------------------------------------------- Create all Surfaces

 Local smax=smax1+smax2 ;all needed surfaces

 Local si

 Local surf

 For si=1 To smax

  surf=CreateSurface(m)
 
 Next

 ;-----------------------------------------------

 Return m

End Function

;###############################################################################################

Function CSGAddTheTriangles(m,mindex,FlipTriangles=0)

 ;MR 02.11.2003

 ;----------------------------------------------- Bring Triangle to Surface

 Local v1,v2,v3 ;VertexIndex

 Local surf=0

 Local si

 ;-----------------------------------------------

 For si=1 To CountSurfaces(m)

  For t.CSGTriangleTYPE = Each CSGTriangleTYPE
   If t\del=0 And t\mindex=mindex And t\sindex=si Then

    surf=GetSurface(m,si)  

    v1=AddVertex(surf,t\v1x,t\v1y,t\v1z)
    v2=AddVertex(surf,t\v2x,t\v2y,t\v2z)
    v3=AddVertex(surf,t\v3x,t\v3y,t\v3z)

    VertexNormal surf,v1,t\normx,t\normy,t\normz 
    VertexNormal surf,v2,t\normx,t\normy,t\normz 
    VertexNormal surf,v3,t\normx,t\normy,t\normz 

    VertexTexCoords surf,v1,t\u1,t\v1,t\w1 ;Set UV Coords !
    VertexTexCoords surf,v2,t\u2,t\v2,t\w2 
    VertexTexCoords surf,v3,t\u3,t\v3,t\w3 

    If FlipTriangles=0 Then
     AddTriangle surf,v1,v2,v3
    Else
     AddTriangle surf,v3,v2,v1
    EndIf

    Delete t ;Remove the Triangle from Collection !

   EndIf  
  Next

 Next ;All Surfaces

 ;-----------------------------------------------

 UpdateNormals m

End Function

;###############################################################################################

Function CSGRepaint(meshnew,mesh1,mesh2)

 ;MR 02.11.2003

 ;Repaint all Surfaces :-)

 ;----------------------------------------------------------------------------------------------

  Local cc1=0 ;New SurfaceCount !

  Local c1

  ;Paint New Surfaces from Mesh A  

  If CountSurfaces (mesh1)=>1 Then 
   For c1=1 To CountSurfaces(mesh1)
    cc1=cc1+1
   
    If CountSurfaces(meshnew)=>cc1 Then 
     PaintSurface GetSurface(meshnew,cc1),GetSurfaceBrush(GetSurface(mesh1,c1))
    EndIf 

   Next
  EndIf ;CountSurfaces=>1

 ;----------------------------------------------------------------------------------------------

  ;Paint New Surfaces from Mesh B  

  If CountSurfaces(mesh2)=>1 Then 
   For c1=1 To CountSurfaces(mesh2)
    cc1=cc1+1
   
    If CountSurfaces(meshnew)=>cc1 Then 
     PaintSurface GetSurface(meshnew,cc1),GetSurfaceBrush(GetSurface(mesh2,c1))
    EndIf 

   Next
  EndIf ;CountSurfaces=>1

 ;----------------------------------------------------------------------------------------------

End Function

;###############################################################################################

Function CSGClearLTris(mindex)

 ;MR 26.01.2003

 ;Clears the triangles that have no partners
 Local epsilon#=0.000001 

 Local count=0
 Local full
 Local car

 Local distx#
 Local disty#
 Local distz#
 Local cdist#

 Local vax#
 Local vay#
 Local vaz#

 Local vbx#
 Local vby#
 Local vbz#

 For t.CSGTriangleTYPE = Each CSGTriangleTYPE
  If t\mindex = mindex And t\del = 0
   count=0
   For full = 0 To 2
    Select full
    Case 0
     vax#=t\v1x
     vay#=t\v1y
     vaz#=t\v1z
    Case 1
     vax#=t\v2x
     vay#=t\v2y
     vaz#=t\v2z
    Case 2
     vax#=t\v3x
     vay#=t\v3y
     vaz#=t\v3z
    End Select

 	  For tom.CSGTriangleTYPE = Each CSGTriangleTYPE
 	   If t\id<>tom\id And tom\del = 0 And tom\mindex = mindex
	    cdist = 0
	    For car = 0 To 2
       Select car
       Case 0
        vbx#=tom\v1x
        vby#=tom\v1y
        vbz#=tom\v1z
       Case 1
        vbx#=tom\v2x
        vby#=tom\v2y
        vbz#=tom\v2z
       Case 2
        vbx#=tom\v3x
        vby#=tom\v3y
        vbz#=tom\v3z
       End Select
		   distx# = vbx - vax
		   disty# = vby - vay
		   distz# = vbz - vaz 
		   cdist# = Sqr(distx*distx + disty*disty + distz*distz)
		   If cdist <= epsilon Then Exit
	    Next
 	    If cdist >= 0.0 Then count = count + 1:Exit
	   EndIf
	  Next
   Next

   If count < 3
    Delete t
   EndIf
  EndIf
 Next

End Function

;############################################################################################################

Function CSGGetVertexRealPosition.CSGVectorType(entity,surf,vindex)

 Local pivot1=CreatePivot()
 Local pivot2=CreatePivot(pivot1)

 Local vreal.CSGVectorType =New CSGVectorType

 PositionEntity pivot1,0,0,0
 PositionEntity pivot2,VertexX(surf,vindex),VertexY(surf,vindex),VertexZ(surf,vindex)
 RotateEntity pivot1,EntityPitch(entity,True),EntityYaw(entity,True),EntityRoll(entity,True)
 
 vreal\x=EntityX(pivot2,True)+EntityX(entity,True)
 vreal\y=EntityY(pivot2,True)+EntityY(entity,True)
 vreal\z=EntityZ(pivot2,True)+EntityZ(entity,True)

 vreal\u=VertexU(surf,vindex)
 vreal\v=VertexV(surf,vindex)
 vreal\w=VertexW(surf,vindex)

 FreeEntity pivot2
 FreeEntity pivot1

 Return vreal

End Function

;#################################################################################################### UVW

Function CSGPickedUVW.CSGVectorType(t2.CSGTriangleTYPE)

  ;MR 25.01.2003

  Local ve.CSGVectorType = New CSGVectorType

  Local px#=PickedX()
  Local py#=PickedY()
  Local pz#=PickedZ() 

  Local pnx#=t2\normx
  Local pny#=t2\normy
  Local pnz#=t2\normz

  ;DebugLog "Picked XYZ "+px+" "+py+" "+pz
		
		; Select which component of xyz coordinates to ignore
		Local coords = 3

		If Abs(PNX) > Abs(PNY)
			If Abs(PNX)>Abs(PNZ) Then coords = 1
		Else
			If Abs(PNY)>Abs(PNZ) Then coords = 2
		EndIf

    ;DebugLog "coords "+coords
		
		Local a0#,a1#,b0#,b1#,c0#,c1#
		
		If (coords = 3)

 		  ;xy components

			; edge 1
			a0# = t2\v2x - t2\v1x
			a1# = t2\v2y - t2\v1y
		
			; edge 2
			b0# = t2\v3x - t2\v1x
			b1# = t2\v3y - t2\v1y

			; picked offset from triangle vertex 1
			c0# = px - t2\v1x
			c1# = py - t2\v1y
		Else		
			If (coords = 2)
				; xz components

				; edge 1
				a0# = t2\v2x - t2\v1x
				a1# = t2\v2z - t2\v1z
		
				; edge 2
				b0# = t2\v3x - t2\v1x
				b1# = t2\v3z - t2\v1z

				; picked offset from triangle vertex 1
				c0# = px - t2\v1x
				c1# = pz - t2\v1z
			Else
				; yz components

				; edge 1
				a0# = t2\v2y - t2\v1y
				a1# = t2\v2z - t2\v1z
		
				; edge 2
				b0# = t2\v3y - t2\v1y
				b1# = t2\v3z - t2\v1z

				; picked offset from triangle vertex 1
				c0# = py - t2\v1y
				c1# = pz - t2\v1z
			End If
		End If
						
		;
		; u and v are offsets from vertex 0 along edge 0 and edge 1
		; using these it is possible to calculate the Texture UVW coordinates
		; of the picked XYZ location
		;
		; a0*u + b0*v = c0
		; a1*u + b1*v = c1
		;
		; solve equation (standard equation with 2 unknown quantities)
		; check a math book to see why the following is true
		;
		Local u# = (c0*b1 - b0*c1) / (a0*b1 - b0*a1)
		Local v# = (a0*c1 - c0*a1) / (a0*b1 - b0*a1)

    ;DebugLog "U "+u+" V "+v
				
		; Calculate picked uvw's 
		ve\u = (t2\u1 + ((t2\u2 - t2\u1) * u) + ((t2\u3 - t2\u1) * v))
		ve\v = (t2\v1 + ((t2\v2 - t2\v1) * u) + ((t2\v3 - t2\v1) * v))
		ve\w = (t2\w1 + ((t2\w2 - t2\w1) * u) + ((t2\w3 - t2\w1) * v))
		
    ;DebugLog "U "+ve\u+" V "+ve\v

 Return ve
		
End Function

;###############################################################################################

Function CSGExample()

 ;MR 02.11.2003

 AppTitle "CSG Test"

 Graphics3D 640,480

 ;---------------------------------------------------------------------------------------

 Local texture=LoadTexture("ch1.bmp")
 Local brush=CreateBrush(255,255,255)

 BrushTexture brush,texture

 ;cube =CSGAddMyMeshCubeX(   0,0,0,0,20, 4,20,1,1,1,brush,brush,brush,brush,brush,brush)
 ;cube =CSGAddMyMeshCubeX(cube,0,0,0,10,10,10,1,1,1,brush,brush,brush,brush,brush,brush)

 cube = CreateCube()
 ScaleMesh cube,10,2,10
 For s=1 To CountSurfaces(cube)
  PaintSurface GetSurface(cube,s),brush
 Next 
 EntityFX cube,16

 ;TurnEntity cube,90,0,0
 ;MoveEntity cube,0,5,0

 ;---------------------------------------------------------------------------------------

 Local tex2=CreateTexture(64,64)
 SetBuffer TextureBuffer(tex2) 
 Color 128,0,0
 Rect 0,0,64,64 
 Color 255,0,0
 Rect 0,0,32,32
 Rect 32,32,32,32
 SetBuffer BackBuffer()
 Local br2=CreateBrush()
 BrushTexture br2,tex2
 ScaleTexture tex2,.25,.25

 ;cube2 = CreateSphere(8)
 ;cube2 = CreateCube()
 cube2 = CreateCylinder(16)
 
 ScaleMesh cube2,6,6,6
 For s=1 To CountSurfaces(cube2)
  PaintSurface GetSurface(cube2,s),br2
 Next 

 ;---------------------------------------------------------------------------------------

 cam = CreateCamera()
 MoveEntity cam,0,10,-20
 PointEntity cam,cube2
 CameraClsColor cam,0,0,80 
 CameraRange cam,1,2000

 ;---------------------------------------------------------------------------------------

 Local light=CreateLight()
 TurnEntity light,45,1,0
 LightRange light,50
 PositionEntity light,0,50,-50

 ;---------------------------------------------------------------------------------------

 UpdateNormals cube
 UpdateNormals cube2
 EntityAlpha cube2,.5

 ;---------------------------------------------------------------------------------------

 Local wire=0
 Local Mode=2

 Color 255,255,255
 While Not KeyHit(1) ;ESC

  If KeyHit(2) Then Mode=1 ;1
  If KeyHit(3) Then Mode=2 ;2
  If KeyHit(4) Then Mode=3 ;3

  If KeyDown(205) Then TranslateEntity cube2,.1,0,0
  If KeyDown(203) Then TranslateEntity cube2,-.1,0,0

  If KeyDown(30)  Then TranslateEntity cube2,0,0,.1
  If KeyDown(44)  Then TranslateEntity cube2,0,0,-.1 ;Y German

  If KeyDown(200) Then TranslateEntity cube2,0,.1,0
  If KeyDown(208) Then TranslateEntity cube2,0,-.1,0

  If KeyDown(37) Then ;K
   ;ClearSurface GetSurface(cube,7),True,True ;TEST
  EndIf

  If KeyDown(18) Then ;E
   TurnEntity cube,-1,0,0   
  EndIf

  If KeyDown(19) Then ;R
   TurnEntity cube,0,-1,0   
  EndIf

  If KeyDown(20) Then ;T
   TurnEntity cube,0,0,-1   
  EndIf

  If KeyHit(21) Then ;Z    German
   TurnEntity cube2,-45,0,0   
  EndIf

  If KeyHit(31) Then ;S = Screenshot
   SaveBuffer FrontBuffer(),"screenshot.bmp"
  EndIf

  If KeyHit(17) ;W
   wire = 1 - wire
   WireFrame wire
  EndIf
 
  If KeyHit(57) ;Space
   Cls
   RenderWorld
   Text 0,0,"Wait ..."
   Flip 
   e = MilliSecs()
   man = csg(cube,cube2,Mode) ;1 Add , 2 Sub , 3 Diff
   e = MilliSecs() -e
   FreeEntity cube
   cube = man
   ;PaintEntity cube,brush
   EntityFX cube,16
   FlushKeys
  EndIf

  UpdateWorld
  RenderWorld
  Text 0,0,"Time: "+e+" ms"
  Text 0,15*1,"Arrows to Move Left/Right/Up/Down"
  Text 0,15*2,"A/Z to move Forward and Back"
  Text 0,15*3,"Tris All : "+TrisRendered()
  Text 0,15*4,"Tris 1 : "+CSGCountAllTriangles(cube )+" Surfaces : " +CountSurfaces(cube)
  Text 0,15*5,"Tris 2 : "+CSGCountAllTriangles(cube2)
  Text 0,15*6,"Mode: "+Mode
  Text 0,15*7,"E,R,T Rotate Obj. 1"
  Text 0,15*8,"Y Rotate Obj. 2"
  Text 0,15*9,"S Screenshot"
  Flip
 Wend

End Function

;#################################################################################################### 

Function CSGCountAllTriangles(mesh) ;only for example

 ;without child entitys

 Local si

 If mesh=0 Then Return 0

 Local c=0

 For si=1 To CountSurfaces(mesh)
  c=c+CountTriangles(GetSurface(mesh,si))
 Next 

 Return c

End Function

;#################################################################################################### 

Function CSGAddMyMeshCubeX(m,x1#,y1#,z1#,x2#,y2#,z2#,cx,cy,cz,br_top,br_bottom,br_left,br_right,br_front,br_back,o_top=1,o_bottom=1,o_left=1,o_right=1,o_front=1,o_back=1)

 ;MR 31.10.2002

 ;Create a Cube centered

 ;m       =Entity Handle 0=Create a new one :-)
 ;x1,x2   =From X1 To X2
 ;cx,cy,cy=Center  
 ;br_     =Brush  Handle
 ;o_      =Optional 1=Create 0=No Create  
 
  Local w#,h#,d#

 ;w#=witdh  (X)
 ;h#=height (Y)
 ;d#=depth  (Z)

  w#=x2#-x1#
  h#=y2#-y1#
  d#=z2#-z1#

  ;--------------------- Center ?

  If cx=1 Then 
   x1=x1-w/2.0
   x2=x2-w/2.0
  EndIf

  If cy=1 Then 
   y1=y1-h/2.0
   y2=y2-h/2.0
  EndIf

  If cz=1 Then 
   z1=z1-d/2.0
   z2=z2-d/2.0
  EndIf

  ;-----------------------------

  If m=0 Then
	 m=CreateMesh()
  EndIf

  ;-----------------------------

	;top face
	If o_top=1 Then 
	 s=CreateSurface( m , Br_Top)
	 AddVertex s,x1,y2,z2,0,1:AddVertex s,x2,y2,z2,0,0
	 AddVertex s,x2,y2,z1,1,0:AddVertex s,x1,y2,z1,1,1
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf

	;bottom face	
  If o_bottom=1 Then
	 s=CreateSurface( m , Br_Bottom)
	 AddVertex s,x1,y1,z1,1,0:AddVertex s,x2,y1,z1,1,1
	 AddVertex s,x2,y1,z2,0,1:AddVertex s,x1,y1,z2,0,0
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf

	;left face
  If o_left=1 Then
	 s=CreateSurface( m , Br_Left)
	 AddVertex s,x1,y2,z2,0,0:AddVertex s,x1,y2,z1,1,0
	 AddVertex s,x1,y1,z1,1,1:AddVertex s,x1,y1,z2,0,1
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf 

	;right face
  If o_right=1 Then
	 s=CreateSurface( m , Br_Right)
	 AddVertex s,x2,y2,z1,0,0:AddVertex s,x2,y2,z2,1,0
	 AddVertex s,x2,y1,z2,1,1:AddVertex s,x2,y1,z1,0,1
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf

	;front face
  If o_front=1 Then
	 s=CreateSurface( m , Br_Front)
	 AddVertex s,x1,y2,z1,0,0:AddVertex s,x2,y2,z1,1,0
	 AddVertex s,x2,y1,z1,1,1:AddVertex s,x1,y1,z1,0,1
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf

	;back face
  If o_back=1 Then
	 s=CreateSurface( m , Br_Back)
	 AddVertex s,x2,y2,z2,0,0:AddVertex s,x1,y2,z2,1,0
	 AddVertex s,x1,y1,z2,1,1:AddVertex s,x2,y1,z2,0,1
	 AddTriangle s,0,1,2:AddTriangle s,0,2,3
  EndIf

  UpdateNormals m
	  
  ;EntityPickMode m,2 ;Poly

  Return m  

End Function

;####################################################################################################

if u go to markus rauch's website you can download the complete source to his 3d modeler.
http://home.kamp.net/home/r15502/blitz/basic/

Wings3d is open source. No booleans (other than some trick)
But is all about solids.

BSD Open source. (probably the most generous license)

Blender is a full thing. It has booleans, also. And since recently, quite better than before.
Is open source BSD license, also.

The integration of Blender maybe better, as it also would benefit the projects the fact it has animation, with bones and weights export for characters. I suppose the experience on it and Python language for making the script exporter (actually the only thing to do, been done for cal3d, and for many engines, like Crystal Space) for levels, would help when making an animation exporter...

Blender needs Python coding, and Wings, u should use Erlang code.

But they're already made...

I prefer Wings to model, but it'd probably be better to support Blender, as u can allways import an obj into blender, but wings has no animation or some other advanced scenery building features.

Both are totally free and widely documented (specially Blender)

There are already many exporter plugins(actually text files: python scripts, usually quite short code) done, like md2, md3, x, cal3d, md5, milkshape3d(no animation yet for this exporter, only levels, objects), OBJ, 3ds, etc...

I've been working with Ngui all the time. I know how to work it - you don't need a translation. I can't speak French or whatever that is, but I've been able to find use of it.

If been look at Wui as well

Yeah. You could to that too, although I'd have to get used to it....

Frank,
"I've been checking out Epilon (Ngui 2.0) by mouss38 but its not in english:(. I'm seeking a translation."

Hell, I can translate, been studying french since 13!

Frank, here is a simple recepie on how to start a decent community project that stands great chances of being finished:

1-Find a forum with polling capabilities
2-Make a new thread and in that thread include at least 10 ideas, listed from 1 to 10, give each ideas description in the thread, and on top let people vote if they would work on a CP like that, and the last option if they wouldnt work on any one of those.
3-Spread the link to that poll/thread
4-If you get enough people, start the most voted project. Let people change/add to it.
5-Make a web page that contains precise design document and schedule of what needs to be done and a huge disclaimer at the top saying "FEATURE CREEP NOT ALLOWED".
6-Each time someone does something, post it on that single web page so that people can look and see the structure they are building. Thats motivating.
7-Get done and be happy.

(edit)
Another very possible but complicated method would be to let lots of people add lots of ideas to the thread and everyone can give certain 'points' to an idea on how likely they would be to participate in it so that the community decides what to do.

As for 'communism' in my last post :P figure it out for yourself!

I wonder GfK what you would say to Linus Torwald. Probly that he shouldn't spend any time on his pet project, that will never get finished, that nobody cares and that it's pointless. You can't tell people what dreams to chase. Chasing dreams is more important to some people then you realise. So stop being negative and be more supportive or if you don't have anything positive to say don't say it at all, go into your corner bad boy and bite your tounge cos it's not doing any good ;)

I'd say "Who the hell are you? I've never heard of you". (Don't tell me who it is - I honestly don't care)

Dreams are all in the mind. You said it all, really.

Or to put it another way "You're not allowed to think its a shit idea"? Actually its a fair enough idea - its just the fact that nothing Frank Taylor starts ever gets finished that I have an issue with. New people here might want to help out with this, without realising his track record and end up wasting months of their valuable time. That's the problem.

Leave the guy alone man, some people are better at getting motivated and dreaming, some at executing what they think up, some are both. You said you think what you think and thats enough.

The subject was closed until Maximo chose to dig it all up again. So have a go at him, not me.

Oh I'm so sorry. I appologize Wize Blitz Elder. Yes you are wize and you got experince, you have produced more with Blitz then many can dream here. You are wize, but the really wize person knows that you can't tell someone great lesson by words. Sometimes leasson is learned by attempting and failing, it may take 1 month or it may take 100 months. In the end person has learned.

You screaming at them doesn't help situation. Perhaps you should work on developing some understanding cos once you were in their clothes and though you could do impossible things and wouldn't listen to anyone else that told you that you couldn't. The more the were negative more driven were you.

We're all in the same boat at one time or another...

Long as its not the titanic he he

PersistentWorld3D v010305

I thought it was Torwald Linus...not Linus torwald...whatever.

The creator of Linux. :)

I know you didn't to know who he is. But I wanted to write it ;)

There could even exist another person not knowing who he is. XD

I think he posted he had something new or the like, when he invented it. In a newsgroup or mailing list, can't remember.

I'd agree in insisting all the time in the "get it done quick" concept. :)

In the other side, it doesn't need to go bad allways.

I think the key thing here, and in any comunity project is just this :

- contributting authors (yep, even if they made just one model, or one succesfull routine...I would consider contributor anyone that has created some work for it ) should be able to vote, just in same weitght in decissions arised from the polls, that the project leader. yep. There would be no need of project leader. I trust in comunism for these things, at least ;) In these things, the leader is mor someone that actually is a bit more active than the rest as is the one who probably started moving the idea, but no more. this way, the comunity decides.

I am not saying a or b moderator/leader were bad or good. Just that is the way to go. If all fail, the fault is comunity's, not leader. If all goes well, everyone in comunity have the same portion of satisfaction: their leading to what they democratically decided. (true that some times the majority can lead to a ver wrong decission: the reason why I suggest only contributor authors to vote is...a random wanderer may care less about the project, and often...know less of it. Not as info being less available (at least between contributors, all info MUST be available), but because the typical wanderer, or visitor, have not spent months inmaking and reading about it.)

So, imho is just this one point. The idea of that persona suggesting one forum with voting polls, and making decissions with an equal weight of each member.

Frank would never ever be accused again: his decission would be as heavy as any other. Sometimes the easiest thing is to blame the leader; some other times, the leader is really acting wrongly. This way you avoid both dangers. Comunity is responsible.

I am not saying Frank is one way or another. I think he'd be a great member like any other. i only say in general, this method tend to work well, and avoids those problems. When people think they work together, equally, deciding all in common, all works. (even in the cases the leader is acting well, there are allways ppl suspecting. This avoids that.)

My 200000 $.


XDDD

>My 200000$

i want 20% of that ;)

What should I start on?

I got the same question as Optomistic

Optomistic, Conan

Did you try the demo? If so. Whats your opinion thus far? Using existing Libraries and snippets is gonna save us tons of time and frustration. Not to mention produce faster results.

I admit the scripts are lil rough. Its due to how they're updated in the main loop. They sort of behave like functions. This behavior will be improved when Functions are implemented.



I've been focused on the Application Mode of the PW3D, the Editor. The Game Mode will inherit many features of the Application Mode, thus, IMHO its more logical to start on this aspect of the project. I can only suggest taking a gander at the TODO List. I'm sure there are several features missing from the list. If you see a missing feature please post. You can also select any of the TBD features that noone else is working. Following the Conventions, it should be relatively easy to add your code to the application engine.

A very simple Editor could be written in few paragraphs of code. The GUI interface just makes life more easier. We can possibily start laying out the interfaces for Editing shapes, Camera Views/Controls, etc. A a simple intuitive design is desired. I have the tendacy of make things complex so we need more input on this.

I will be playing around with BPLite. From what I see so far, Multiuser support can be implemented just like it is in a game, the user can host a 'Project' or join one. GNet will serve as 'Project' Tracker.

I'm not sure how Users will be represented in the Application Mode. Perhaps a side bar with advatar pic or name? Or perhaps a 3D Advatar that represents their camera location. Each user could probably have a specific color or something to identify what meshes they own in project. Not sure at this point.

I think I'll start on the building maker.

Building Maker is a simple application partnered with PersistantWorld3D. It lets you create buildings, import objects to put on your landscape, and add built-in add-ons. Once you have completed your building, export a pre-made UV map to texture your building. It will export directly to PW3D file format, or B3D file format.

That's basically what I've got planned. If anyone wants to help me with it, just tell me.

Optomistic,

Building Maker Sounds Good! Will it employ Constructive Solid Geometry? Its not mandatory, but will save us time if you can play with the CSG functions and get them working. Located some cool functions for loading and saving B3D. May come in handy.

Load B3D Function by Halo

; ID: 524
; Author: halo
; Date: 2002-12-07 15:52:04
; Title: LoadB3D()  (updated)
; Description: Load a .b3d file, with access to all the texture data, and some other options.

;LoadB3D( file$, [parent], [texturedir$], [flags] )

;file$ - file to load
;parent (optional) - mesh parent.
;texturedir$ (optional) - directory to load textures from.
;flags (optional) - none yet.

;No support for animations or bones.
;Hierarchies now supported.

Function LoadB3D(file$,parent,texturedir$="",flags=0)
f=ReadFile(file)
If Not f Return
tag$=ReadStringN(f,3)
chunksize=ReadInt(f)
endchunkpos=chunksize+FilePos(f)
texbank=CreateBank()
brushbank=CreateBank()
vertbank=CreateBank()
trisbank=CreateBank()
If tag="BB3D" Return loadchunk("BB3D",f,endchunkpos,parent,texbank,brushbank,vertbank,trisbank,texturedir$)
For n=0 To (BankSize(texbank)-1)/4
	texture=PeekInt(texbank,n*4)
	If texture FreeTexture texture
	Next
For n=0 To (BankSize(brushbank)-1)/4
	brush=PeekInt(brushbank,n*4)
	If brush FreeBrush brush
	Next
FreeBank texbank
FreeBank brushbank
FreeBank vertbank
FreeBank trisbank
End Function

Function loadchunk(tag$,f,endchunkpos,parent=0,texbank,brushbank,vertbank,trisbank,texturedir$)
DebugLog tag
Select tag
	Case "BB3D"
		version=ReadInt(f)
		DebugLog "	version: "+version	
	Case "TEXS"
		name$=ReadStringN(f)
		name=findfile(name,texturedir$)
		flags=ReadInt(f)
		blend=ReadInt(f)				
		x#=ReadFloat(f)		
		y#=ReadFloat(f)			
		scalex#=ReadFloat(f)		
		scaley#=ReadFloat(f)		
		rotation#=ReadFloat(f)		
		texture=LoadTexture(name,flags)
		If texture
			If 65536 And flags TextureCoords texture,1
			TextureBlend texture,blend
			PositionTexture texture,x,y
			ScaleTexture texture,scalex,scaley
			RotateTexture texture,rotation
			EndIf
		ResizeBank texbank,BankSize(texbank)+4
		PokeInt(texbank,BankSize(texbank)-4,texture)
		DebugLog "	name: "+name
		DebugLog "	flags: "+flags
		DebugLog "	blend: "+blend
		DebugLog "	position: "+x+", "+y			
		DebugLog "	scale: "+scalex+", "+scaley	
		DebugLog "	rotation: "+rotation	
	Case "BRUS"
		textures=ReadInt(f)
		name$=ReadStringN(f)
		red=ReadFloat(f)*255	
		green=ReadFloat(f)*255		
		blue=ReadFloat(f)*255		
		alpha#=ReadFloat(f)			
		shininess#=ReadFloat(f)	
		blend=ReadInt(f)			
		fx=ReadInt(f)	
		brush=CreateBrush()
		BrushColor brush,red,green,blue
		BrushAlpha brush,alpha
		BrushShininess brush,shininess
		BrushBlend brush,blend
		BrushFX brush,fx	
		For n=1 To textures
			textureindex=ReadInt(f)
			If textureindex*4+4<=BankSize(texbank)
				texture=PeekInt(texbank,textureindex*4)
				Else
				RuntimeError "Texture does not exist."
				EndIf
			If texture
				BrushTexture brush,texture,0,n-1
				EndIf
			Next
		ResizeBank brushbank,BankSize(brushbank)+4
		PokeInt brushbank,BankSize(brushbank)-4,brush
		;DebugLog "	name: "+name
		;DebugLog "	color: "+red+", "+green+", "+blue
		;DebugLog "	alpha: "+alpha			
		;DebugLog "	shininess: "+shininess	
		;DebugLog "	blend: "+blend
		;DebugLog "	fx: "+fx	
	Case "NODE"
		lastmeshendchunkpos=endchunkpos
		name$=ReadStringN(f)
		DebugLog name
		x#=ReadFloat(f)
		y#=ReadFloat(f)
		z#=ReadFloat(f)
		width#=ReadFloat(f)
		height#=ReadFloat(f)
		depth#=ReadFloat(f)			
		w#=ReadFloat(f)
		pitch#=ReadFloat(f)
		yaw#=ReadFloat(f)
		roll#=ReadFloat(f)
		;DebugLog "	name: "+name
		;DebugLog "	position: "+x+", "+y+", "+z
		;DebugLog "	scale: "+width+", "+height+", "+depth
		;DebugLog "	rotation: "+pitch+", "+yaw+", "+roll+", "+w	
		;If FilePos(f)=endchunkpos
			mesh=CreateMesh(parent);this is more compatible than inserting a pivot.
			parent=mesh
			NameEntity mesh,name
			PositionEntity mesh,x,y,z		
			ScaleEntity mesh,width,height,depth
			RotateEntity mesh,pitch,yaw,roll;how do b3d rotations work?								
		;	EndIf
	Case "MESH"
		brush=ReadInt(f)
		;mesh=CreateMesh(parent)
		;parent=mesh
		;NameEntity mesh,name
		;PositionEntity mesh,x#,y#,z#
		;ScaleEntity mesh,width,height,depth
		;RotateEntity mesh,pitch,yaw,roll;how do b3d rotations work?
	Case "VRTS"
		flags=ReadInt(f)
		texcoordsets=ReadInt(f)
		texcoords=ReadInt(f)
		;DebugLog "	flags: "+flags
		;DebugLog "	texturecoord sets: "+texcoordsets	
		;DebugLog "	texturecoords:"+texcoords			
		ResizeBank vertbank,0
			While FilePos(f)<endchunkpos
				x#=ReadFloat(f)
				y#=ReadFloat(f)
				z#=ReadFloat(f)
				;TFormPoint x,y,z,0,parent
				;x=TFormedX()
				;y=TFormedY()
				;z=TFormedZ()
				If texcoords>0
					u0#=ReadFloat(f)
					If texcoords>1
						v0#=ReadFloat(f)
						If texcoords>2
							w0#=ReadFloat(f)
							EndIf
						EndIf
					EndIf
				If texcoordsets>1
					If texcoords>0
						u1#=ReadFloat(f)
						If texcoords>1
							v1#=ReadFloat(f)
							If texcoords>2
								w1#=ReadFloat(f)
								EndIf
							EndIf
						EndIf					
					EndIf
					;DebugLog "		position: "+x+", "+y+", "+z
					;DebugLog "		texturecoords:"+u0+", "+v0+", "+w0
					;DebugLog "		texturecoords:"+u1+", "+v1+", "+w1
					;DebugLog ""
				ResizeBank vertbank,BankSize(vertbank)+4*10
				PokeFloat vertbank,BankSize(vertbank)-4*10,x
				PokeFloat vertbank,BankSize(vertbank)-4*9,y
				PokeFloat vertbank,BankSize(vertbank)-4*8,z
				PokeFloat vertbank,BankSize(vertbank)-4*7,u0				
				PokeFloat vertbank,BankSize(vertbank)-4*6,v0
				PokeFloat vertbank,BankSize(vertbank)-4*5,w0
				PokeFloat vertbank,BankSize(vertbank)-4*4,u1				
				PokeFloat vertbank,BankSize(vertbank)-4*3,v1
				PokeFloat vertbank,BankSize(vertbank)-4*2,w1
				PokeInt vertbank,BankSize(vertbank)-4*1,0		
				Wend
		Case "TRIS"
			brush=ReadInt(f)
			;DebugLog "	brush: "+brush
			ResizeBank trisbank,0
			For n=1 To (BankSize(vertbank))/(4*10)
				PokeInt vertbank,36+(n-1)*(4*10),0
				Next
			While FilePos(f)<endchunkpos
				a=ReadInt(f)
				b=ReadInt(f)
				c=ReadInt(f)
				If a*(4*10)<BankSize(vertbank) PokeByte vertbank,36+a*(4*10),1 Else RuntimeError "Vertex does not exist."
				If b*(4*10)<BankSize(vertbank) PokeByte vertbank,36+b*(4*10),1 Else RuntimeError "Vertex does not exist."
				If c*(4*10)<BankSize(vertbank) PokeByte vertbank,36+c*(4*10),1 Else RuntimeError "Vertex does not exist."
				;DebugLog "		vertices: "+a+", "+b+", "+c
				ResizeBank trisbank,BankSize(trisbank)+12
				PokeInt trisbank,BankSize(trisbank)-12,a
				PokeInt trisbank,BankSize(trisbank)-8,b
				PokeInt trisbank,BankSize(trisbank)-4,c
				triscount=triscount+1			
				Wend
			If triscount
				surf=CreateSurface(parent)
				If brush>-1
					If brush*4+4<=BankSize(brushbank)
						PaintSurface surf,PeekInt(brushbank,brush*4)
						Else
						RuntimeError "Brush does not exist." 
						EndIf
					EndIf
				EndIf
			vertcount=0
			For n=1 To (BankSize(vertbank))/(4*10)
				If PeekInt(vertbank,36+(n-1)*(4*10))
					x#=PeekFloat(vertbank,(n-1)*(4*10))
					y#=PeekFloat(vertbank,4+(n-1)*(4*10))							
					z#=PeekFloat(vertbank,8+(n-1)*(4*10))
					u0#=PeekFloat(vertbank,12+(n-1)*(4*10))
					v0#=PeekFloat(vertbank,16+(n-1)*(4*10))
					w0#=PeekFloat(vertbank,20+(n-1)*(4*10))
					u1#=PeekFloat(vertbank,24+(n-1)*(4*10))
					v1#=PeekFloat(vertbank,28+(n-1)*(4*10))
					w1#=PeekFloat(vertbank,32+(n-1)*(4*10))
					AddVertex surf,x,y,z,u0,v0,w0
					VertexTexCoords surf,CountVertices(surf)-1,u1,v1,w1,1
					vertcount=vertcount+1
					PokeInt vertbank,36+(n-1)*(4*10),vertcount
					EndIf
				Next
			For n=1 To (BankSize(trisbank))/12
				a=PeekInt(trisbank,(n-1)*12)
				b=PeekInt(trisbank,4+(n-1)*12)
				c=PeekInt(trisbank,8+(n-1)*12)
				For i=1 To (BankSize(vertbank))/(4*10)
					If i-1=a a=PeekInt(vertbank,36+(i-1)*(4*10))-1
					If i-1=b b=PeekInt(vertbank,36+(i-1)*(4*10))-1
					If i-1=c c=PeekInt(vertbank,36+(i-1)*(4*10))-1
					Next
				AddTriangle surf,a,b,c
				Next
			UpdateNormals parent
		Default
			SeekFile f,endchunkpos	
	End Select
While FilePos(f)<endchunkpos
	tag$=ReadStringN(f,3)
	chunksize=ReadInt(f)
	childendchunkpos=chunksize+FilePos(f)
	m=loadchunk(tag,f,childendchunkpos,parent,texbank,brushbank,vertbank,trisbank,texturedir$)	
	If Not parent parent=m
	Wend
Return parent
End Function

Function ReadStringN$(f,maxlength=0)
Repeat
	ch=ReadByte(f)
	If ch=0 Return t$
	If maxlength
		If Len(t$)=maxlength Return t$+Chr(ch)
		EndIf
	t$=t$+Chr$(ch)
	Forever
End Function

Function countfiles(dirname$)
dir=ReadDir(dirname)
If Not dir RuntimeError dirname
n=-1
Repeat
n=n+1
Until NextFile(dir)=""
CloseDir dir
Return n
End Function

Function findfile$(file$,root$)
If FileType(root+file)=1 Return root+file
d=ReadDir(root)
For n=1 To countfiles(root)
	tfile$=NextFile(d)
	If FileType(root+tfile)=2
		If tfile<>"." And tfile<>".."
			test$=findfile(file,root+tfile+"")	
			If test<>"" Return test
			EndIf
		EndIf
	Next
CloseDir d
End Function

LoadB3D by jfk

; ID: 866
; Author: jfk
; Date: 2003-12-24 01:23:50
; Title: SaveB3D
; Description: Save multisurface textured Mesh as .B3D

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

meshname$="testsurf.3ds" ; Mesh to save... (one that is using textures)

; BTW: you should run this from inside the folder where the Mesh resides, unless you edit the
; Part labeled by "<<<<<<<<<<<<"

Include "b3dfile.bb"
; this file can be found here: <a href="http://www.blitzbasic.com/sdkspecs/sdkspecs/b3dfile_utils.zip" target="_blank">http://www.blitzbasic.com/sdkspecs/sdkspecs/b3dfile_utils.zip</a>
cam=CreateCamera()
TranslateEntity cam,0,0,-10
mesh=LoadMesh(meshname$)
Global c_surfs=CountSurfaces(mesh)

Print "Mesh "+meshname$+" has "+ c_surfs+" Surfaces, using the following textures:"

Dim c_surf(c_surfs)
Dim c_brush(c_surfs)
Dim c_tex(c_surfs)
Dim c_tex_name$(c_surfs)

; track down used textures (thanks Mark!)
For i=1 To c_surfs
 c_surf(i)= GetSurface(mesh,i)
 c_brush(i)=GetSurfaceBrush( c_surf(i) )
 c_tex(i)=GetBrushTexture( c_brush(i) )
 c_tex_name$(i)=Lower$(TextureName$( c_tex(i))) ; Full (!) Texture Path
 curdir$=Lower$(CurrentDir$()) 
 c_tex_name$(i)= Replace$(c_tex_name$(i),curdir$,"") ;<<<<<<<<<<<<<<<<<<<
 Print c_tex_name$(i)
 If c_tex_name$(i)="" Then Print "Error: Surface No."+i+" has no Texture"
 If FileType(c_tex_name$(i))<>1 Then Print "Warning: Surface No."+i+" uses nonexistant Texture ("+c_tex_name$(i)+")."
Next

Print "Press any key to save this Mesh as TEMP.B3D"


WaitKey()

; end

WriteBB3D( "temp.b3d",mesh )

For i=1 To c_surfs
 FreeBrush c_brush(i); release memory
 FreeTexture c_tex(i)
Next


; test if it worked...
FreeEntity mesh
mesh2=LoadMesh("temp.b3d")
While Not KeyDown(1)
 TurnEntity mesh2,1,2,3
 RenderWorld()
 Text 0,0,"TEMP.B3D"
 Flip
Wend
End


Function WriteBB3D( f_name$,mesh )

	file=WriteFile( f_name$ )

	b3dSetFile( file )
	
	b3dBeginChunk( "BB3D" )
		b3dWriteInt( 1 )	;version

		b3dBeginChunk( "TEXS" ) ; list all textures used by the mesh
		For i=1 To c_surfs
			b3dWriteString( c_tex_name$(i) ) 	;texture file
			b3dWriteInt( 1 )					;flags
			b3dWriteInt( 2 )					;blend
			b3dWriteFloat( 0 )					;x in tex 0 (hu?)
			b3dWriteFloat( 0 )					;y in tex 0
			b3dWriteFloat( 1 )					;x scale 1
			b3dWriteFloat( 1 )					;y scale 1
			b3dWriteFloat( 0 )					;rotation 0
			
		Next
		b3dEndChunk()	;end of TEXS chunk

		
		For i=1 To c_surfs
			b3dBeginChunk( "BRUS" ) ; describe all brushes used by the mesh
		
			b3dWriteInt( 1 )					;number of textures per brush ; (eg 2 with lightmap)
			b3dWriteString( "brush"+(i-1) )		;brushname
			b3dWriteFloat( 1 )					;red
			b3dWriteFloat( 1 )					;green
			b3dWriteFloat( 1 )					;blue
			b3dWriteFloat( 1 )					;alpha
			b3dWriteFloat( 0 )					;shininess
			b3dWriteInt( 1 )					;blendmode
			b3dWriteInt( 0 )					;FX
			b3dWriteInt( i-1 )					;used texture index 
;			b3dWriteInt( ? )					;additional texture index (eg lightmap), but here we only use 1 (see above)

			b3dEndChunk()	;end of BRUS chunk
		Next
		
		b3dBeginChunk( "NODE" )
			b3dWriteString( "entity_name_here!" )
			b3dWriteFloat( 0 )	;x_pos
			b3dWriteFloat( 0 )	;y_pos
			b3dWriteFloat( 0 )	;z_pos
			b3dWriteFloat( 1 )	;x_scale
			b3dWriteFloat( 1 )	;y_scale
			b3dWriteFloat( 1 )	;z_scale
			b3dWriteFloat( 1 )	;rot_w
			b3dWriteFloat( 0 )	;rot_x
			b3dWriteFloat( 0 )	;rot_y
			b3dWriteFloat( 0 )	;rot_z
			WriteMESH( mesh )
		b3dEndChunk()	;end of NODE chunk
		
	b3dEndChunk()	;end of BB3D chunk
	
	CloseFile file
End Function

Function WriteMESH( mesh )

	n_surfs=CountSurfaces( mesh )
	
	b3dBeginChunk( "MESH" )
		b3dWriteInt( -1 )				;no 'entity' brush -1
		
		b3dBeginChunk( "VRTS" )
			b3dWriteInt( 0 )			;flags - 0=no normal/color
			b3dWriteInt( 1 )			;number of tex_coord sets (eg: 2 with lightmap)
			b3dWriteInt( 2 )			;coords per set (u,v,w?) 2 with uv, 3 with uvw
			
			For k=1 To n_surfs
				surf=GetSurface( mesh,k )
				n_verts=CountVertices( surf )-1
				
				For j=0 To n_verts
					b3dWriteFloat( VertexX( surf,j ) )
					b3dWriteFloat( VertexY( surf,j ) )
					b3dWriteFloat( VertexZ( surf,j ) )
					b3dWriteFloat( VertexU#( surf,j,0 ) )
					b3dWriteFloat( VertexV#( surf,j,0 ) )
;					b3dWriteFloat( VertexW#( surf,j,0 ) )
;;					b3dWriteFloat( VertexU#( surf,j,1 ) ) ; lightmap uv
;;					b3dWriteFloat( VertexV#( surf,j,1 ) ) ; lightmap uv
;					b3dWriteFloat( VertexW#( surf,j,1 ) )
				Next
			Next
		b3dEndChunk()	;end of VRTS chunk
		
		first_vert=0
		For k=1 To n_surfs
			surf=GetSurface( mesh,k )
			n_tris=CountTriangles( surf )-1
			
			b3dBeginChunk( "TRIS" )
				b3dWriteInt( k-1 )		;brush for these triangles (surf -1 !!!)
				
				For j=0 To n_tris
					b3dWriteInt( first_vert+TriangleVertex( surf,j,0 ) )
					b3dWriteInt( first_vert+TriangleVertex( surf,j,1 ) )
					b3dWriteInt( first_vert+TriangleVertex( surf,j,2 ) )
				Next
				
			b3dEndChunk()	;end of TRIS chunk
			
			first_vert=first_vert+CountVertices( surf )
			
		Next
		
	b3dEndChunk()	;end of MESH chunk
	
End Function


;-------------------------------------------------------------------------------------------------

Requires b3dfile_utils.zip

Application GUI Interface (Concept Only). If you have ideas make changes and repost.

@Frank - I'd prefer to have the import and export options in the 'file' list. It seems more conventional and makes more sense to me.

The rest of the options seem to be in the right place =)

elseano ,

Please feel free to modify the html file, repost, and I'll update. I'm sure theres a few options missing.

@Frank

I'll start working on the chat system and the menus.

BTW, It's too slow, not sure wether it's the engine or the GUI, tho.

Also, I reccomend BlitzUI rather than WUI

Yeah - the GUI is REALLY slow.

Darn, Frank - you beat me. But you titled the second one, SaveB3D, "LoadB3D."

BTW - Building Maker is NOT an online application.

Frank, just coded a NEW Gui for the pw3d. Uses blitzUI And the WinXP Colour Scheme. Just save it in a Sub-Folder in the BlitzUI folder:

Graphics3D 640, 480, 16, 2
SetBuffer BackBuffer(  )
HidePointer

Include "../blitzui.bb"
Include "../extras/opensavedialog.bb"
Include "../icons.bb"

AppTitle "PersistentWorld 3D"

cam=CreateCamera()

Global OpenProject$, SaveProject$, SaveProjectAs$

;Graphics 640,480,32,2

LoadColourScheme( "../Schemes/WinXP.cs" )
;Load fonts and mouse cursors
;and collect inFormation
Initialise(  )

;Window
MainWindow = Window( 0, 0, 640, 50, "PersistentWorld 3D", "0", 1, 1, 0, 1 )
	Project = MenuTitle( "Project" )
		NewProject = MenuItem( Project, "New", "CTRL + N", imgNew, 0, 0, 0 )
		Open = MenuItem( Project, "Open", "CTRL + O", imgOpen, 0, 0, 0 )
		Save = MenuItem( Project, "Save", "CTRL + S", imgSave, 0, 0, 0 )
		SaveAs = MenuItem( Project, "Save As...", "", imgSave, 0, 0, 0 )
		Revert = MenuItem( Project, "Revert", "", "0", 0, 0, 0 )
		Terminate = MenuItem( Project, "Terminate", "", "0", 0, 0, 0 )
		MenuBar( )
		Host = MenuItem( Project, "Host", "", "0", 0, 0, 0 )
		Permisions = MenuItem( Project, "Permisions", "", "0", 0, 0, 0 )
		Join = MenuItem( Project, "Join", "", "0", 0, 0, 0 )
		Search = MenuItem( Project, "Search", "", "0", 0, 0, 0 )
		MenuBar( )
		Properties = MenuItem( Project, "Properties", "", "0", 0, 0, 0 )
	Edit = MenuTitle( "Edit" )
		Import = MenuItem( Edit , "Import", "", "0", 0, 0, 0 )
		Export = MenuItem( Edit , "Export", "", "0", 0, 0, 0 )
		MenuBar( )
		Cut = MenuItem( Edit , "Cut", "", "0", 0, 0, 0 )
		Paste = MenuItem( Edit , "Paste", "", "0", 0, 0, 0 )
		Clone = MenuItem( Edit , "Clone", "", "0", 0, 0, 0 )
		Mimic = MenuItem( Edit , "Mimic", "", "0", 0, 0, 0 )
		Del = MenuItem( Edit , "Delete", "", "0", 0, 0, 0 )
	Entity = MenuTitle( "Entity" )
		Box = MenuItem( Entity, "Box", "", "0", 0, 0, 0 )
		Cone = MenuItem( Entity, "Cone", "", "0", 0, 0, 0 )
		Cylinder = MenuItem( Entity, "Cylinder", "", "0", 0, 0, 0 )
		Sphere = MenuItem( Entity, "Sphere", "", "0", 0, 0, 0 )
		Plane = MenuItem( Entity, "Plane", "", "0", 0, 0, 0 )
		Mesh = MenuItem( Entity, "Mesh", "", "0", 0, 0, 0 )
		Terrain = MenuItem( Entity, "Terrain", "", "0", 0, 0, 0 )
		Prefab = MenuItem( Entity, "Prefab", "", "0", 0, 0, 0 )
		EntityProperties = MenuItem( Entity, "Properties", "", "0", 0, 0, 0 )
	Objects = MenuTitle( "Objects" )
		Custom = MenuItem( Objects, "Custom", "", "0", 0, 0, 0 )
		MenuBar( )
		Add = MenuItem( Objects, "Add", "", "0", 0, 0, 0 )
		DeleteObject = MenuItem( Objects, "Delete", "", "0", 0, 0, 0 )
		ObjectProperties = MenuItem( Objects, "Properties", "", "0", 0, 0, 0 )
	Camera = MenuTitle( "Camera" )
		Mode = MenuItem( Camera, "Mode", "", "0", 0, 0, 0 )
		Front = MenuItem( Camera, "Front", "", "0", 0, 0, 0 )
		Back = MenuItem( Camera, "Back", "", "0", 0, 0, 0 )
		Top = MenuItem( Camera, "Top", "", "0", 0, 0, 0 )
		LeftView = MenuItem( Camera, "Left", "", "0", 0, 0, 0 )
		RightView = MenuItem( Camera, "Right", "", "0", 0, 0, 0 )
		MenuBar( )
		AddCamera = MenuItem( Camera, "Add", "", "0", 0, 0, 0 )
		DeleteCamera = MenuItem( Camera, "Delete", "", "0", 0, 0, 0 )
		HideCamera = MenuItem( Camera, "Hide", "", "0", 0, 0, 0 )
		ShowCamera = MenuItem( Camera, "Show", "", "0", 0, 0, 0 )
		Merge = MenuItem( Camera, "Merge", "", "0", 0, 0, 0 )
		CameraProperties = MenuItem( Camera, "Properties", "", "0", 0, 0, 0 )
	Tools = MenuTitle( "Tools" )
		Chat = MenuItem( Tools, "Chat", "", "0", 0, 0, 0 )
		Boolean = MenuItem( Tools, "Boolean", "", "0", 0, 0, 0 )
		Lighting = MenuItem( Tools, "Lighting", "", "0", 0, 0, 0 )
		Plugin = MenuItem( Tools, "Plugin", "", "0", 0, 0, 0 )
		Script = MenuItem( Tools, "Script", "", "0", 0, 0, 0 )
		Keyboard = MenuItem( Tools, "Keyboard", "", "0", 0, 0, 0 )
	Help = MenuTitle( "Help" )
		About = MenuItem( Help, "About", "", "0", 0, 0, 0 )
		Reference = MenuItem( Help, "Reference", "", "0", 0, 0, 0 )



Repeat

	RenderWorld
	
	;Draw the GUI and update the mouse
	UpdateGUI(  )
	
	;Event Handling
	Select app\Event
		Case EVENT_WINDOW
			Select app\WindowEvent
				Case MainWindow
					Select app\WindowEventData
						Case "Closed"
							app\Quit = True
					End Select
			End Select
		Case EVENT_MENU
			Select app\MenuEvent
				;Project Menu
				Case NewProject
				Case Open
					OpenProject$ = FileDialog( "Open File", CurrentDir(), ".3ds;.x;.md2" )
				Case Save
					SaveProject$ = FileDialog( "Open File", CurrentDir(), ".3ds;.x;.md2" )
				Case SaveAs
					SaveProjectAs$ = FileDialog( "Open File", CurrentDir(), ".3ds;.x;.md2" )
				Case Revert
				Case Terminate
					app\Quit = True
				Case Host
				Case Premisions
				Case Join
				Case Search
				Case Properties
				;Edit Menu
				Case Import
				Case Export
				Case Cut
				Case Paste
				Case Clone
				Case Mimic
				Case Del
				;Entity Menu
				Case Box
				Case Cone
				Case Cylinder
				Case Sphere
				Case Plane
					plane=CreatePlane()
					PointEntity cam,plane
				Case Mesh
				Case Terrain
				Case Prefab
				Case EntityProperties
				;Objects Menu
				Case Custom
				Case Add
				Case DeleteObject
				Case ObjectProperties
				;Camera Menu
				Case Mode
				Case Front
				Case Back
				Case Top
				Case LeftView
				Case RightView
				Case AddCamera
				Case DeleteCamera
				Case HideCamera
				Case ShowCamera
				Case Merge
				Case CameraProperties
				;Tools Menu
				Case Chat
				Case Boolean
				Case Lighting
				Case Plugin
				Case Script
				Case Keyboard
				;Help Menu
				Case About
				Case Reference
			End Select
		Case EVENT_GADGET
			Select app\GadgetEvent
			End Select
	End Select
	
	If KeyHit(1) Then app\Quit=True
	;Draw the mouse
	DrawMouse(  )
	
	;Reset all GUI events
	ResetEvents(  )

	Flip
	Cls

Until app\Quit = True
;Free all images and controls created by BlitzUI
Destroy(  )
End