tokamak physics thread 4

Hmm. Well I just did a test on the sensors and they appear to *not* work on static meshs :'(. You can try using blitz's linepick.

Does terragen work off hightmaps? If so that may be one way to make your own super fast linepick method. Figure out the point on the bitmap your lander is above and take the red value of it (readpixel and then take the result And $FF), then multiply this by the amount your map is scaled in the y direction. Take the y of the lander subtacted by the terrain y.

Even easier would be to use a blitz terrain, load up the heightmap and use landery-TerrainY(). However you would still need a triangle version because you can't pass a terrain to tokamak.

;************************
;Geometry visualization commands
;With these, stay away from rotation as it introduces really wierd stuff in the visuals. If
;someone knows how to fix this, please post on the Blitz-Tokamak forum,
;http://playerfactory.proboards25.com/index.cgi?board=tokamak
;************************
Function addbox(mesh,RigidBody,x#,y#,z#,Width#,Height#,Depth#,Pitch#=0,Yaw#=0,Roll#=0,alpha#=1)
	TOKGEOM_SetPositionAndRotation TOKRB_AddBox(RigidBody,Width#,Height#,Depth#),x#,y#,z#,Pitch#,Yaw#,Roll#
	If mesh Then c=CreateCube(mesh) Else c=CreateCube()
	ScaleEntity c,Width#/2,Height#/2,Depth#/2,1
	PositionEntity c,x#,y#,z#,1
	RotateEntity c,Pitch#,Yaw#,Roll#,1
	EntityAlpha c,alpha#
End Function

Function addcylinder(mesh,RigidBody,x#,y#,z#,Diameter#,Height#,Pitch#=0,Yaw#=0,Roll#=0,alpha#=1)
	TOKGEOM_SetPositionAndRotation TOKRB_AddCylinder(RigidBody,Diameter#,Height#),x#,y#,z#,Pitch#,Yaw#,Roll#
	If mesh Then c=CreateCylinder(8,True,mesh) Else c=CreateCylinder(8,True)
	EntityAlpha c,alpha#
	ScaleEntity c,Diameter#/2,Height#/2,Diameter#/2,1
	sp1=CreateSphere(8,c)
	ScaleEntity sp1,Diameter#/2,Diameter#/2,Diameter#/2,1
	PositionEntity sp1,0,Height#/2,0,1
	EntityAlpha sp1,alpha#
	sp2=CreateSphere(8,c)
	ScaleEntity sp2,Diameter#/2,Diameter#/2,Diameter#/2,1
	PositionEntity sp2,0,Height#/-2,0,1
	PositionEntity c,x#,y#,z#,1
	RotateEntity c,Pitch#,Yaw#,Roll#,1
	EntityAlpha sp2,alpha#
End Function

Function addsphere(mesh,RigidBody,x#,y#,z#,Diameter#,Pitch#=0,Yaw#=0,Roll#=0,alpha#=1)
	TOKGEOM_SetPositionAndRotation TOKRB_AddSphere(RigidBody,Diameter#),x#,y#,z#,Pitch#,Yaw#,Roll#
	If mesh Then c=CreateSphere(8,mesh) Else c=CreateSphere(8)
	ScaleEntity c,Diameter#/2,Diameter#/2,Diameter#/2,1
	PositionEntity c,x#,y#,z#,1
	RotateEntity c,Pitch#,Yaw#,Roll#,1
	EntityAlpha c,alpha#
End Function

These might help as far as positioning the pads/sphere right. Just twiddle with it until its close to right.