bOGL-2/CollisionTest.bb at master · AlexCeleste/bOGL-2 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
;Include bOGL
Include "bOGL\bOGL.bb"
;Inlcude action addon
Include "bOGL-Addons\Collision.bb"

InitCollisionAddon

Graphics3D "bOGL", 1024, 600, 32, 2
AmbientLight 128, 128, 128

Local camera = CreateCamera()
CameraClsColor camera, 32, 32, 64
Local light = CreateLight(255, 255, 255, BOGL_LIGHT_DIR)
PositionEntity light, 2, 6, -6
PointEntity light, 0, 0, -6

CameraDrawMode camera, BOGL_CAM_ORTHO
ScaleEntity camera, 10, 10, 1

Local piv = CreatePivot()
;PositionEntity piv, 0, 0, -10
;ScaleEntity piv, 2, 0.25, 2

Local cube = CreateCube(piv)
PaintEntity cube, 255, 0, 0
PositionEntity cube, 0, 0, -10
ScaleEntity cube, 2, 0.25, 2
TurnEntity cube, 0, 0, 20

Local c2 = CreateCube()
PaintEntity c2, 0, 0, 255
ScaleEntity c2, 0.5, 0.5, 0.5
PositionEntity c2, 3, -2, -10


Local listener = CreateBank()
SetCollisionListener listener

MakeBlocker cube, 4,0.5,4, COLL_RESPONSE_POST + COLL_RESPONSE_STOP
MakeCollider c2, 0.5

Local out#[2], c3 = CreateCube()
ScaleEntity c3, 0.05, 0.05, 0.5
RayPick 3, -2, -10, 0, 0, -10, out
PositionEntity c3, out[0], out[1], out[2]
DebugLog out[0]
DebugLog out[1]
DebugLog out[2]


Include "bOGL-Addons\Draw2D.bb"
InitDraw2D : Local f = LoadFont2D("Media\Blitz.png") : SetFont2D f

Const SC_FPS = 60, SPD# = 0.04 : Local rTime = Floor(1000.0 / SC_FPS)

While Not KeyHit(1)
	Local cTime = MilliSecs()

	MoveEntity c2, (KeyDown(205) - KeyDown(203)) * SPD, (KeyDown(200) - KeyDown(208)) * SPD, 0

	UpdateCollisions
	RenderWorld

	BeginDraw2D
	If BankSize(listener)
		Text2D 10, 10, "Collided"
	Else
		Text2D 10, 10, "No collision"
	EndIf
	EndDraw2D

	SwapBuffers(bOGL_hMainDC)
	Delay rTime - (MilliSecs() - cTime) - 1
Wend

EndGraphics3D
End


;~IDEal Editor Parameters:
;~C#BlitzPlus