Michael Fabian Dirks
67 lines
1.6 KiB
BlitzBasic
67 lines
1.6 KiB
BlitzBasic
Global Example_Timer
|
|
; Camera
|
|
Global Example_Camera_YawPivot
|
|
Global Example_Camera_PitchPivot
|
|
Global Example_Camera
|
|
; Scene
|
|
Global Example_SceneRoot
|
|
Global Example_SceneLight
|
|
Global Example_Floor
|
|
Global Example_Block
|
|
|
|
Function ExampleInit()
|
|
Example_Timer = CreateTimer(60)
|
|
|
|
Graphics3D 1024, 768, 32, 2
|
|
SetBuffer BackBuffer()
|
|
|
|
Example_Camera_YawPivot = CreatePivot()
|
|
Example_Camera_PitchPivot = CreatePivot(Example_Camera_YawPivot)
|
|
Example_Camera = CreateCamera(Example_Camera_PitchPivot)
|
|
MoveEntity Example_Camera, 0, 0, -20
|
|
TurnEntity Example_Camera_PitchPivot, 30, 0, 0
|
|
|
|
Example_SceneRoot = CreatePivot()
|
|
|
|
AmbientLight 51, 51, 51
|
|
Example_SceneLight = CreateLight(1, Example_SceneRoot)
|
|
RotateEntity Example_SceneLight, 70, 30, 0
|
|
|
|
Example_Floor = CreateCube(Example_SceneRoot)
|
|
EntityColor Example_Floor, 153, 255, 153
|
|
EntityShininess Example_Floor, 1.0
|
|
ScaleEntity Example_Floor, 100, 0.001, 100
|
|
|
|
;Example_Block = CreateCube(Example_SceneRoot)
|
|
;MoveEntity Example_Block, 0, 1, 0
|
|
End Function
|
|
|
|
Function ExampleUpdate()
|
|
Local MX#, MY#
|
|
|
|
MX = (MouseX() - 512) / 512.0
|
|
MY = (MouseY() - 384) / 384.0
|
|
|
|
If MouseHit(1) Then
|
|
MoveMouse 512, 384
|
|
ElseIf MouseDown(1) Then
|
|
TurnEntity Example_Camera_YawPivot, 0, -MX, 0
|
|
TurnEntity Example_Camera_PitchPivot, MY, 0, 0
|
|
;MoveMouse 512, 384
|
|
EndIf
|
|
|
|
If MouseHit(2) Then
|
|
MoveMouse 512, 384
|
|
ElseIf MouseDown(2) Then
|
|
MoveEntity Example_Camera, 0, 0, MY
|
|
;MoveMouse 512, 384
|
|
EndIf
|
|
|
|
RenderWorld
|
|
End Function
|
|
|
|
Function ExampleLoop()
|
|
Flip 0:Cls:WaitTimer(Example_Timer)
|
|
End Function
|
|
;~IDEal Editor Parameters:
|
|
;~C#Blitz3D |