EXPORTS

spCreateDevice
...

int _stdcall spCreateDevice( int blablubb )
{
    ...
}

MyStruct* BlaBlubb( )
{
    MyStruct* s = new MyStruct;
    return s;
}

.lib "BlubbLib.dll"
BlaBlubb%( )

; SoftPixel Engine Wrapper Test 1 (20.5.2008)

Include "C:\Programme\Blitz3D\userlibs\SoftPixelEngineWrapper.bb"

Const Test = 2

; Main device
spCreateDevice(640, 480, 32, "SoftPixel Engine Wrapper for BlitzBasic", False, False, True)

; Scene manager, Animator, Control, Textureloader & StencilManager
driver   = spGetVideoDriver()
smngr   = spGetSceneManager()
anim8or   = spGetAnimator()
control   = spGetUserControl()
texload   = spGetTextureLoader()
stencil   = spGetStencilManager()

; Camera & light
cam      = spCreateCamera()
light   = spCreateLight(LIGHT_DIFFUSE)

spSetLighting(True)
spSetNodePosition(light, 5, 0, 0, False)

; Model
obj = spLoadModel("C:\Programme\Blitz3D\samples\mak\dragon\model\dragon.md2", "", 0)
tex1 = spLoadTexture("C:\Programme\Blitz3D\samples\mak\dragon\model\dragon.bmp", 0, False)
spAddEntityTexture(obj, tex1, 0)
spSetNodeScale(obj, 0.1, 0.1, 0.1, False)

; Environement
cube = spCreateModel(ENTITY_CUBE, 0, 1, 0, False)
spSetNodePosition(cube, 0, 22.75, 0, False)
spSetNodeScale(cube, 25, 25, 25, False)
spFlipMesh(cube, False)

tex2 = spLoadTexture("C:\Programme\Blitz3D\samples\mak\dragon\Chorme-2.BMP", 0, False)
spAddEntityTexture(cube, tex2, 0)
spDoEntityTextureTransform(cube, 0, 3, 3)

If Test = 2 Or Test = 3
   light_obj = spCreateModel(ENTITY_SPHERE, 9, 0.5, 0, False)
   spSetNodeParent(light_obj, light)
   spSetEntityMaterial(light_obj, MATERIAL_NOLIGHTING)
EndIf

; Normals smooth
spSetEntityNormalsType(obj, NORMALS_SMOOTH)
spUpdateNormals(obj)

; Animation
anim = spGetAnimation(obj)

If Test = 1
   spDoAnimate(anim, ANIM_LOOP, 150, 0, 0)
ElseIf Test = 3
   spDoAnimate(anim, ANIM_LOOP, 25, 0, 0)
EndIf

; Realt-time shadow
If Test = 2 Or Test = 3
   spAddEntityCastCloud(obj)
   spAddLightShadowSource(light)
   spSetStencilEffects(True)
EndIf

cam_x# = 0.0 : cam_y# = -5.0 : cam_z# = -15.0
light_deg# = 0.0 : light_radius# = 15.0

While spUpdateEvent() And spIsKeyHit(27) = False
   
   spClearBuffers()
   
   spUpdateAnimations()
   
   If Test = 3
      spUpdateStencilShadow(obj) ; (very slow)
   EndIf
   
   spRenderScene()
   
   spFlipBuffers()
   
   If spIsKeyPressed(KEY_RIGHT)   Then cam_x = cam_x + 2
   If spIsKeyPressed(KEY_LEFT)      Then cam_x = cam_x - 2
   If spIsKeyPressed(KEY_UP)      Then cam_y = cam_y - 2
   If spIsKeyPressed(KEY_DOWN)      Then cam_y = cam_y + 2
   If spIsKeyPressed(KEY_PAGEUP)   Then cam_z = cam_z + 0.5
   If spIsKeyPressed(KEY_PAGEDOWN)   Then cam_z = cam_z - 0.5
   
   If (cam_z < -30) Then cam_z = -30
   If (cam_z > -10) Then cam_z = -10
   If (cam_y < -90) Then cam_y = -90
   If (cam_y >   0) Then cam_y =   0
   
   If Test = 2 Or Test = 3
      light_deg = light_deg + 1.0
      light_radius = 20 + Sin(light_deg)*10
      spSetNodePosition(light, Sin(light_deg)*light_radius, 3+Cos(light_deg/2)*5, Cos(light_deg)*light_radius, False)
   EndIf
   
   spSetNodePosition(cam, 0.0, 0.0, 0.0, False)
   spSetNodeRotation(cam, cam_y, cam_x, 0.0, False)
   spDoNodeMove(cam, 0, 0, cam_z)
   
   If spIsKeyHit(KEY_RETURN)
      isLighting = 1 - isLighting
      spSetLighting(isLighting)
   EndIf
   
Wend

spDeleteDevice()

End

Function Func(Param = 0)
    Value = Param
End Function

Func() ; Default-Parameter ist 0
Func(5) ; Parameter wird mit 5 gefüllt