EasyTOK Version 1.0

Hi :)

EasyTOK is a library for Blitz3D. With EasyTOK you can add physics to your applications or games in a very easy way.

Toolbox page :
http://www.blitzbasic.com/toolbox/toolbox.php?tool=143

EasyTOK Page :
http://www.blitz3dfr.com/phpfrench/content.php?content.47

Download demo :
http://www.blitz3dfr.com/phpfrench/request.php?31

Examples :

Filax, this is your work?? I mean if it is, I will buy since you treating your costumers on very nice way ;)) good work man...you got me.. ;)

Yes EasyTOK is my work :) i have started this lib a very long
time. But it's stable now :)

well..since I have excellent experiance with your TeraEd, in next few days I will purchase EasyTok too..

Many thanks !!! :) i hope you like it :) I have made this
library to be the more simple possible ! :) like BCF :)

hehehehe...very good..it means I will be able to implement easy TOK in to TeraEd?? I cant wait..huhh

I'm seeying to do this, because i'm planing to make
terrain blitz workable with EasyTOK :)

good, good...any news about TerraED update? I really looking forward to it..and with this EasyTOK, its very interesting tool

for the moment i'm working on the new TerraEd format
because TerraEd format need to be changed at each update :/

I'm working on another solution.

Hehe, Filax, you beat me to it man. I have been writing a wrapper (modified from Sweenies version) that included easy create functions and nibuilt networking.

neat work!

Thanks :)

Wow, amazing stuff!
Would it be possible to see the source code for any of those demos, so we can see how easy it is to implement?

I managed to get a MAV on the Expert Ragdoll 01.EXE by shooting the guy into the corner and making him clib the wall by shooting upwards. Other than that it was totally stable.

Can I specify values for physics in MAX? How does this export? Is it compatible with B3DPipeline?

/me is interested in the source of at least one demo too :)

Looks impressive but shouldn't you have called it "TOK-it-easy"? :P

FABTASTIC work Filax!

IPete2.

That actually means you ARE claiming to be selling Tokamak and Sweenie's wrapper, and EasyTok is the only thing you AREN'T selling!


Try...

I am selling neither Tokamak nor Sweenie's wrapper but only the EasyTok library

...or...

I am not selling either Tokamak or Sweenie's wrapper but only the EasyTok library

[GRIN]

1) Thanks Sledge !

2) "Can I specify values for physics in MAX? How does this export? Is it compatible with B3DPipeline? "

Of course ! you can define Mass, Rotation,Scale, Life etc ..
from 3DS max or other 3D softwares, and, it's of course
fully compatible with pipeline, giles etc... The scene
(screenshot number 7) is made directly under Max => Blitz
and loaded with only one line of code.



Is there an example of code :

Include "Inc_TimeMachine.bb"
Include "Inc_EasyTOK.bb"

; ------------------------
; Freelook cam var
; ------------------------
Global Mouse_X_Speed#
Global Mouse_Y_Speed#
Global Camera_VelX#
Global Camera_VelZ#
Global Camera_Pitch
Global Camera_Yaw

; -------------------------------
; Refresh frame number
; -------------------------------
Global AppFPS =60

; ------------------
; Open screen
; ------------------
Graphics3D 1024, 768,32,0
SetBuffer BackBuffer ()

; ----------------------
; Change font text
; ----------------------
AppFont=LoadFont("Arial",15,1,0,0) 
SetFont AppFont

; -------------------------------------
; Setup camera and Easytok
; -------------------------------------
Global Cam=CreateCamera()
PositionEntity Cam,10,40,-40

Proc_CreateVisor()

TOK_InitWorld(0,-40,0,1000,100)
TOK_CreateGround("Floor",150,255,150,10)

; -----------------------------
; Creating demo world
; -----------------------------
Global Light1=CreateLight(2)
PositionEntity Light1,-50,50,-50
LightColor Light1,250,150,50
LightRange Light1,100

Global Light2=CreateLight(2)
PositionEntity Light2,50,50,50
LightColor Light2,50,150,250
LightRange Light2,100

AmbientLight 80,90,100

TOK_CreateABCube("Wall01",0,90,15,-20,0,0,15,1,15,"",255,255,255,1)
TOK_CreateABCube("Wall02",0,60,-15,20,0,0,15,1,15,"",255,255,255,1)
TOK_CreateABCube("Wall03",0,30,15,-20,0,0,15,1,15,"",255,255,255,1)

; -------------
; Main loop
; -------------
FramePeriod = 1000 / AppFPS
FrameTime = MilliSecs () - FramePeriod
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2

Repeat
	; --------------------------
	; Frame rate limiting

	; --------------------------
	Repeat
		FrameElapsed = MilliSecs () - FrameTime
	Until FrameElapsed

	FrameTicks = FrameElapsed / FramePeriod
	FrameTween# = Float (FrameElapsed Mod FramePeriod) / Float (FramePeriod)

	; -----------------------
	; Update tweening
	; -----------------------
	For FrameLimit = 1 To FrameTicks
		If FrameLimit = FrameTicks Then
			CaptureWorld
		EndIf

		FrameTime = FrameTime + FramePeriod
		
		UpdateGame ()
		UpdateWorld
	Next

	; -------------------
	; Redraw world
	; -------------------
	TOK_RefreshEasyTOK()
	RenderWorld FrameTween
	
	; -----------------------
	; FPS Displaying
	; -----------------------
	Proc_CinemaStrip()
	Color 255,255,255
	Information$="<"+Get_FPS()+" FPS> / "+"<Arrow key to move> / <Mouse left to launch objecst> / <Mouse right to apply impulse Y>"
	Text GraphicsWidth()/2,GraphicsHeight()-30,Information$,True,True
	Flip
Until KeyHit (1)

; -----------
; End App
; -----------
TOK_FreePhysic()
FreeFont  AppFont
End

; -----------------------------------
; Tweening update function
; -----------------------------------
Function UpdateGame ()
	Proc_Freelook(Cam,1.05,0.05)

	If MouseHit(1) Then
		TOK_CreateRBSphere("Toto1",False,0,120,10,0,0,0,2,3,"",255,Rnd(255),255,1,5)
		TOK_CreateRBCylinder("Toto2",False,0,140,10,0,0,Rnd(-90,90),2,4,3,"",Rnd(255),255,255,1,5)
	EndIf
	
	If MouseHit(2) Then
		TOK_ApplyImpulse("",Rnd(-5,5),Rnd(55,165),Rnd(-5,5))
	EndIf

	TOK_RefreshPhysic(1.7/AppFPS,10)
End Function

; -----------------------
; Create the visor
; -----------------------
Function Proc_CreateVisor()
	Visor=LoadSprite("./ETOK_Medias/Target.png")
	PositionEntity Visor,EntityX(Cam),EntityY(Cam),EntityZ(Cam)+2
	ScaleSprite Visor,0.1,0.1
	EntityParent Visor,Cam
	EntityOrder Visor,-1
End Function

; ----------------------------------
; Create the cinema strip
; ----------------------------------
Function Proc_CinemaStrip(Size=60)
	Color 1,1,1
	Rect 0,0,GraphicsWidth(),Size
	Rect 0,GraphicsHeight()-Size,GraphicsWidth(),Size
End Function

; ----------------------
; Camera freelook
; ----------------------
Function Proc_Freelook(CamEntity,Velocity#,Speed#)
	Mouse_X_Speed#=MouseXSpeed()*0.5
	Mouse_Y_Speed#=MouseYSpeed()*0.5

	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	Camera_Pitch=Camera_Pitch+Mouse_Y_Speed#
	Camera_Yaw=Camera_Yaw+Mouse_X_Speed#

	RotateEntity CamEntity,Camera_Pitch,-Camera_Yaw,0

	If KeyDown(203) Then
		Camera_VelX=Camera_VelX-Speed#
	ElseIf  KeyDown(205)
		Camera_VelX=Camera_VelX+Speed#
	EndIf
	
	If KeyDown(208) Then
		Camera_VelZ=Camera_VelZ-Speed#
	ElseIf  KeyDown(200)
		Camera_VelZ=Camera_VelZ+Speed#
	EndIf
 
	Camera_VelX=Camera_VelX/velocity#
	Camera_VelZ=Camera_VelZ/velocity#
	MoveEntity CamEntity,Camera_VelX,0,Camera_VelZ

	If KeyDown(200) Then
		MoveEntity CamEntity,0,0,Speed#
	EndIf

	If KeyDown(208) Then
		MoveEntity CamEntity,0,0,-Speed#
	EndIf

	If KeyDown(205) Then
		MoveEntity CamEntity,Speed#,0,0
	EndIf


	If KeyDown(203) Then
		MoveEntity CamEntity,-Speed#,0,0
	EndIf
End Function

Only 9 lines of code are used to declare and use EasyTOK.

TOK_InitWorld(0,-40,0,1000,100)
TOK_CreateGround("Floor",150,255,150,10)

....

TOK_CreateABCube("Wall01",0,90,15,-20,0,0,15,1,15,"",255,255,255,1)
TOK_CreateABCube("Wall02",0,60,-15,20,0,0,15,1,15,"",255,255,255,1)
TOK_CreateABCube("Wall03",0,30,15,-20,0,0,15,1,15,"",255,255,255,1)


If MouseHit(1) Then
TOK_CreateRBSphere("Toto1",False,0,120,10,0,0,0,2,3,"",255,Rnd(255),255,1,5)	TOK_CreateRBCylinder("Toto2",False,0,140,10,0,0,Rnd(-90,90),2,4,3,"",Rnd(255),255,255,1,5)
EndIf

....

TOK_RefreshEasyTOK()

....

If MouseHit(2) Then
TOK_ApplyImpulse("",Rnd(-5,5),Rnd(55,165),Rnd(-5,5))
EndIf

TOK_RefreshPhysic(1.7/AppFPS,10)

Or "Tok - it- to the Limit" - lol

Filax,

how about meshes and terrain stuff - and how easy is it to set up? Just a few bits of easytok code would do to show us how easy it is...

IPete2.

See below Ipete2, for the Terrain (coming soon) and for the
mesh, it's very easy to use :) I always make library easy to
use...

hm i don't get it, why is:

TOK_CreateABCube("Wall03",0,30,15,-20,0,0,15,1,15,"",255,255,255,1)

simpler then:

ground = TOKAB_Create()
TOKAB_AddBox(ground,30,2,30)
TOKAB_SetPosition(ground,10,5,0)

?

i mean: what is the real advantage of your lib? maybe a function-reference or manual could clarify this, the demo-code doesn't (to me) :/

thanks

One of the big EasyTOK advantage ?? The physic setup
under 3DS max or other ! and many other stuff to create scene
with minimal line of code ! This library was made for
people who want setup quick and easily a Physic world.

EasyTOK is more than 2400 lines of code. If it was only a
stupid functions wrapping, I would never have sold it....

For better use, all sources, with media and 3DS scenes
are packaged with EasyTOK.

Filax,

Thumbs Up!

Setup in MAX, and minimum lines of code wins my vote (I've just ordered it ^_^)

Yep just got it myself will have a play with it over the weekend :)

hm...what about an ODE version? :>

Many thanks guys !! I hope you like it ! and you found it
usefull :)

Congrats Filax!

Just one question,
did you get to add some kind of convex bodies collision
or it is all based on the tokamak primitives?

Of course not ! You can define complex
level collision without using primitive !

EasyTOK keep the level structure for collisions !

My lightmapped demo are directly 3DS MAX => BLITZ

Hi filax,
Looks awesome.

I just bought it as well - will play around with it this weekend.

Thanks!

Many thanks sampyxis :)

Eurythmia : Are you talking about level or object in level
about convex body ? because convex body are very limited ...
255 vertices if i'm remember !

I think that the solution, example, for a space ship is
made the space ship part by part and attach all part with
joints, why ? :) because you can activate or desactivate
joint during game ! to destroy space ship in many part :)

filax,
That sounds great on the space ship - even if it's a combination of boxes - I think your wrapper will make that creation easy.

Nice work filax :)

I got a MAV on the 'Expert - Ragdoll 01.exe' after a few seconds, not sure why? (specs in sig) Otherwise everything ran ok here.

It would be good to see the physics processing time in the demo displays, should be easy enough to add.

Best of luck with EasyTOK ;)

filax,
The spaceship works great. Put together with joints - it falls apart beautifully.

Your wrapper really simplifies Tokamak.

Thanks!

VIP3R : I wish you good luck for your product/soft ! I began
working on EasyTOK one year and a half ago and i must admit
that your software inspired me a lot :)

For the MAV it appear some rare time for a strange reason !
and never to the same moment :) ! Malicious Tokamak Bug ?

I'm happy to see peace between blitz coder's !!!

------------------------------------------------------------

Look at:) another proof of the capacity of EasyTOK This
example was created in 15 minutes and required 1 line of
code to be active !

TOK_CreatePhysicFromMesh("./ETOK_Medias/Demon.b3d")

And 11 lines of code to create flight and break ....

Get the demo

http://www.blitz3dfr.com/tempo/Beginning-Ship01.zip

Really nice work. Good physics added to good looking levels. Congratulations and keep the good work!

Filax,
I mean convex bodies -> to level collision,
for example, I use trimesh collision for the levels and the
rest of the elements are made with combinations of
toka-primitives bodies (box, spheres, ...), similar to what
you said about the space ship,

but then,
how do you get proper collisions for the chain in the first screenshot here above?
Is each circle of the chain made off many rigid bodies?

[EDIT]
ok, looking carefully to the chain, I think it is just a
matter of setting the joints limits correctly, isn't it? :)

EasyTOK use convex to create very complex level, there is no
problems.

For the chain ? only a good joints placing and ... rbbox :)
And a sphere used for the big ball !

I have made in the sample code an example to create this chain
in one line of code :)

Proc_CreateChain("Chaine01","./ETOK_Medias/chain.b3d","./ETOK_Medias/boulet.b3d",15,10,50,5,2)

Hi Filax,

first of all, congratulations for your work,
it seems impressive.

a) I would like to know, if possible, how you can setup
the physics from 3dsmax, from simple objects to more advanced objects like a ragdoll or a car. Could you describe the process in detail?

b) ...and how could I managed a "complex" scenario. I'm talking about a city with no more than 50,000 polys...

it's just an example, I'm refering if exist some kind
of function similar to 'maketokcollider'...

Please, could you say to us more about the advantages
regarding to the simplicity of your library in a more
detailed way?

Thanks in advance and regards!

Hi Pinete

Easy explain ? sure : It's 4 steps for a ragdoll.

1) Under 3DS Max place all body part (head, left leg, right leg etc) in the front view.

2) Connect all part with joints and define the joints angles
+ some easy parameters, under 3DS max.

3) Save you scene

4) Load it in blitz with EasyTOK and one line of code and
all is automatic !

I can't make more easy ! Process time ? hum :)

30 minutes ?

When i say that EasyTOK Simplify the creation of physics
largely, believe me! Why I would lie?

FILAXSTIC :) Great... I think i have to buy this one to..
To support your fantastic work Filax.

/Alienforce

Many thanks to all ! i'm making a tutorial
in the EasyTOK distribution with max example
scene for ragdoll :)

Hi Filax

Will you be doing more tutorials on useing EasyTok???

Also what about those who have already purchased EasyTok, How do we gain access to this ragdoll max example once it is compleat.

Thanks
DESTROYER

This example will be send to all customer :) don't panic :)

Considering to buy it now, it's nice and FAST on my machine ;)

Thanks Filax :)

It is so simple to use EasyTok, I recomend any body wanting to add physics to there game to buy this :).

Thanks

DESTROYER

It's ok ! :)

Check your mail box :)



You have receive the 3DS max scene + The example code

Only one line of code to load this ragdoll :) And 4 lines
to move it :)

Download the demo :)

http://www.blitz3dfr.com/tempo/Beginning-Ragdoll_3DS01.zip

I have bought the system, and I'm very happy with it! However, I have one question. How can I stick primatives together? Is it possible? I would like to overlap two sphere primatives, but I don't know whether this would work. If I wanted to create an 'L' shape from two boxes, how could I stick them together so that they behave as though one object?

Can you give me a simple illustration about the form that you
want ? If i can see really that you would obtain i'll can help
you :)

Cheers

I just want to stick two objects together so they move together completely solid. :) Any idea how?

EDIT: Ah, it looks like I solved it. I used a joint, with 0 degrees of movement. Is this the most optimal way of doing this?

[JOINT=JOINT12] [CONNECT=2] [BODYA=MYBALL07] [BODYB=MYBALL08] [TYPE=3] [VIEW=0][LAngle#=0][UAngle#=0]

Yes it's very simple :

Just put a joints ! TYPE=1 with an :

[UANGLE=0] / [LANGLE=0] and for
[BodyA=SPHERE01] / [BODYB=SPHERE02]
(see EasyTOK documentation : 3D Integration)

Put this joints at the spheres intersection !
And don't forget to apply correct specs for the TWO spheres !

And With Blitz move only one sphere :)

If you have problem send me an email i'll send to you an
example :) This night if possible else tomorow ! But don't
forget to explore 3DS max scene !

Because this night, i drink ! it's my birthday ! i'm 35 years :) I hope not to have a headache tomorrow...

Don't use [LAngle#=0][UAngle#=0] but only [LAngle=0][UAngle=0]

Warning : I have try to make a flexible syntax but carreful:)

Yes it's the good solution ! look the example :

Beginning - Ship 01.bb (and under the max file Demon.max )

All is here :)

Thanks Filax, this is all working fine! :)

Do I need one joint for every object attached? 3 objects = 2 joints, correct?

Happy Birthday! Hope you have a nice evening! ^_^

Yes because joints can attach 1 or 2 objects maximum :)

PS : I hope too :)

Dear filax I've played with your easytok and vipers jv-ode and I gotta say that both of yours are awesome expect for 2 things

filax When I tried out the car physics example in easytok it goes forward ,backwards etc. almost perfect well the only that is messed up in yours was the fact that the car itself
has turn left and turn right response problem don't get me wrong it works but when holding down forward and then pressing left or right to make the wheels turn as it's moving it has a hard time turning the object that represents the car and I wanted to let you know so you update it

I like yours and vipers as well :)

seferey : I have made quickly the physic for the car !
but it's possible to arrange the car steering :)

Hi filax, I bought your system and it's pretty nice but I have a problem I can't seem to get around.
I have a ship that rests on the ground (it will hover eventually with an applied force strong enough to resist gravity) and can be accelerated by applying an impulse to z#. However when I apply the impulse using TOK_ApplyImpulse("Ship",0,0,-200) it simply rotates the ship on the x-axis! What am I doing wrong??

p.s. It is the same when using ApplyForce too.

Hum !! it seem to be an axis problem with your 3D ship !

1) First check the axis orientation under 3DS Max !
try to rotate the axis in the good direction.

Look the 3DS scene : Demon.max the axis is correct on this
ship ! note the axis orientation and apply the same to your
ship :)

2) Apply a RESET X FORM (TOOLS tab under 3DS max)

I think that resolve your problem ! axis are very important
to apply force or impulse in a direction !

PS : Apply force to make flight ! Impulse is used to apply
impulse :)

Thanks for the reply filax.

It is strange isn't it.. I already tried resetting the xform as it's something I'm used to doing with b3d pipeline etc. The axis of the ship and pivot are correctly aligned with the centre of the ship and pointing in the appropriate direction etc.
Just to add to the confusion, the ship does not collide correctly with the static scenery (the node of the craft goes completely through it) or the other ship in the scene when it's pitching.

p.s. I am using force now but same result.

"the ship does not collide correctly with the static scenery"

Do you attach correctly all scenery object + resetxform before export ?

Send me your object i'll try tomorow to look the problem.

Ok dude, I've sent it via your website address.
I hope it isn't something embarrassingly simple!

I have receive you object :) i'll look it this day :)

I can open your max scene ? what version used ? i have the 6.

Oh crap, I have version 7.
I'm at work at the moment so I can't do anything with them.. Do the b3d files work if you do a quick knock-up program with them?

Thanks.

Send me scene in 3DS format !

Promise ! tomorrow i work on physic with blitz terrain !

Looks cool. As I am new to this physics stuff is it possible to use EasyTOK as a complete replacement to Blitz3D`s own collision commands and retain a similar framerate with the added bonus of it being more flexible?

Jason.

I think that the better solution is using Tokamak for physic
and object moving, and continue to use filetype for collisions
because tokamak is a little bit light to detect and process
collisions

For collisions, have you (or has anyone else here) had good results with the Coldet library?

http://www.freewebs.com/elias_t/coldetwrapper.htm

Coldet library ???? What this ?

Thanks filax for the response :)

Jason.

> For collisions, have you (or has anyone else here) had good results with the Coldet library?

Yeah, I use the Coldet library. I´m chucking around 500 to 600 units on a terrain mesh and using coldet for my unit-to-terrain collision detection. Basically I use coldet to replace linepick.

In my program I found coldet is approximately 2x as fast as linepick. I recommend it.

Ok ok ! i'll try it !

Im impressed, great work!

Thanks :)

Note for the customer's : i'm finishing another project at
this time don't panic if you don't receive upgrade for the
moment :)

hurra !!

i've got it and i love it !

http://www.blitzbasic.com/Community/posts.php?topic=55095

New feature coming :)