laser (tbgl) collision example

a) I am looking for an old example how to catch with a laser an object (or not) / cube or a primitive. I cannot find this example on my hd or here at board. perhaps anybody has a link? the work was done by petr so far as I can remember.

b) it's possible to make a simple particle line running from left to right side (linear) ?

best regards, frank

Hi Frank
i am the librarian, for the first question may be this what you want "laser chamber" attached below and it is found here___ by Petr (unformatted when the forum moved from the old one)

Quote:

---

Originally Posted by zak

(unformatted when the forum moved from the old one)

---

Code formatting fixed in the referred post.

thanks zak, but I was looking for another example, doesn't matter :) I know the laser example of kent ;) sometimes it's hard do get the right example here by searching the forum. I will have a closer look at my notebook hd, thanks. nice week-end and sunny days, frank

Quote:

---

b) it's possible to make a simple particle line running from left to right side (linear) ?

---

my first approach for a particle cloud starting from left to right site. my ideas was a) to change camera position and b) particle born position. it's an old radial particle example from petr I have token.

Code:

---

 
' test for particle movement from left to right site, simple  '  #MINVERSION 1.6.0.10  Uses "TBGL"    dim i as long  Dim SpeedFactor As Single = 64  dim FrameRate as single  dim EmitterX,EmitterY,EmitterZ,EmitterPulse as single    %EFFECT_QUALITY = 24                          %PARTICLE    = 1  %EFFECT      = 3  %MAXPARTICLES = 12'32                        Dim ParticleX(%MAXPARTICLES) As Single      Dim ParticleY(%MAXPARTICLES) as single  Dim ParticleZ(%MAXPARTICLES) as single  Dim ParticleSize(%MAXPARTICLES) as single  Dim ParticleSpeed(%MAXPARTICLES) as single  Dim ParticleFade(%MAXPARTICLES) as single  Dim ParticleR(%MAXPARTICLES) as single      Dim ParticleG(%MAXPARTICLES) as single  Dim ParticleB(%MAXPARTICLES) as single    dim desktopX, desktopY, desktopDepth as long      tbgl_GetDesktopInfo desktopX, desktopY, desktopDepth    Dim hWnd As Dword        If MsgBox( 0, "Your current desktop settings are:"+Format$(desktopX)+"x"+Format$(desktopY)+" with"+Str$(desktopDepth)+" bits of color information"+ _                  $CRLF+"Do you want to go fullscreen with this settings?", %MB_YESNO Or %MB_ICONQUESTION, "Question") = %IDYES Then  '---------------------------------------------- 1 //          hWnd = TBGL_CreateWindowEx(" Radial particles test for particle movements", desktopX, desktopY, desktopDepth, %TBGL_WS_FULLSCREEN)      TBGL_ShowCursor 1  else      hWnd = TBGL_CreateWindowEx(" Radial particles test for particle movements", 640, 480, desktopDepth, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX)        end if    TBGL_LoadTexture APP_SourcePath+"Textures\Cloud.bmp",1,%TBGL_TEX_MIPMAP    TBGL_UseTexturing %TRUE    TBGL_BindTexture 1                        TBGL_BlendFunc %GL_SRC_ALPHA , %GL_ONE  TBGL_UseDepth %FALSE  TBGL_UseDepthMask %FALSE                                      InitParticles                  TBGL_NewList %PARTICLE          ParticleCode  TBGL_EndList    TBGL_ResetKeyState              WHILE TBGL_IsWindow(hWnd)                            FrameRate = TBGL_GETFRAMERATE    TBGL_ClearFrame                                                  '---------------------------------------------------- //    'here's the solution I am thinking :)    TBGL_Camera -1,0,2,0,0,-1 ' only for a test, I am not sure if that's right!    'original: 3,3,3,0,0,0                  'here's the solution I am thinking :)    '---------------------------------------------------- //          EmitterX      = 0.25 '0.5'sin(GetTickCount/2000)/2    EmitterZ      = 0    'cos(GetTickCount/5000)/2    EmitterY      = 0    'cos(GetTickCount/6000)/2        EmitterPulse  = 0.75 '+cos(GetTickCount/500)      TBGL_UseBlend %TRUE    TBGL_NewList %EFFECT          RenderParticles    TBGL_EndList          ' The next smoke-threads are just clone of the first    For i = 1 To %EFFECT_QUALITY      'TBGL_Rotate GetTickCount/1000+1/%EFFECT_QUALITY,1,1,1          tbgl_CallList %EFFECT    next            TBGL_UseBlend %FALSE      TBGL_DeleteList %EFFECT                  TBGL_DrawFrame                                if TBGL_GetWindowKeyState( hWnd, %VK_ESCAPE) then EXIT WHILE  Wend        TBGL_DestroyWindow                        '--------------------------------------------------- 2 //  ' This function serves to initialize all particles  Function InitParticles( ) as long      For i = 1 To %MAXPARTICLES      BornParticle(i)    next          end function  '------------------------------------------------- 3 //  ' This will prepare one particle  Function BornParticle( index as long ) as long    ParticleSize(index) = 0.00125 '+ Rnd * 0.06 '0.0125 '+ rnd * 0.06          ParticleX(index)    = EmitterX/4'+Rndf(0,1) 'EmitterX/2'+rndf(0,1)    'ParticleY(index)    = EmitterY/3'+rndf(0,1)    'ParticleZ(index)    = EmitterZ/4'+rndf(0,1)    ParticleR(index)    = EmitterX*255    ParticleG(index)    = EmitterY*255    ParticleB(index)    = EmitterZ*255          ParticleSpeed(index)= 0.01 + Rnd *0.01'0.01 + Rnd *0.01        end function    '-------------------------------------- 4 //  Function RenderParticles () As Long      For i = 1 To %MAXPARTICLES        ParticleSize(i) += SpeedFactor/600/FrameRate      ParticleX(i)    += (ParticleSpeed(i) * SpeedFactor)/FrameRate          'ParticleY(i)    += ParticleY(i)/100      If ParticleX(i) > 4 Then BornParticle(i)                  DrawParticle(i)      next    End Function    '---------------------------------------------- 5 //  Function DrawParticle ( index As Long) As Long      TBGL_PushMatrix                      '(!)'      TBGL_Translate -2.0+ParticleX(index), ParticleY(index), ParticleZ(index)      'TBGL_Rotate ParticleSpeed(index) * GetTickCount,0,0,1        ' Slow rotation of the "smokie" looks good      TBGL_Scale ParticleSize(index),ParticleSize(index),1      TBGL_ColorAlpha ParticleR(index),ParticleG(index),ParticleB(index),255-(ParticleY(index)/2)*255' The particle will fade out        TBGL_CallList %PARTICLE          TBGL_PopMatrix        end function    '---------------------------------------------- 6 //  Function ParticleCode() As Long      TBGL_BeginPoly %GL_Quads            TBGL_TexCoord2D 0,1        TBGL_Vertex -1,1,0              TBGL_TexCoord2D 1,1        TBGL_Vertex  1,1,0        TBGL_TexCoord2D 1,0        TBGL_Vertex  1,-1,0        TBGL_TexCoord2D 0,0        TBGL_Vertex -1,-1,0            TBGL_EndPoly    end function

---

I am sitting in an internet cafe and working with textwriter. the code tags above doesn't work as I can see, sorry.

frank

Now I need an entity or new unit script example for particles or similar things at the board, I've found nothing today.

here's my next silly approach, but that's not working. It's needed to make entity for particle effects and entity for start/init particles too? I am not familar with these new techniques (not yet) ;)

Code:

---


' test example how to convert old particle example into entity modus
' febr/march 2012 by lionheart

Uses "TBGL"

' -- Scene-Entity constants
BEGIN CONST
  ' -- Scene IDs
  %sScene  = 1
 
  ' -- Entity IDs
  %eCamera = 1
  %eParticles     
  %eEffects
END CONST

' -- Display list constants
BEGIN CONST
  %lTriangle  = 1
  %lParticles
  %lParticles_test 'only for test
  %lEffects
END CONST


  Dim i As Long
  Dim SpeedFactor As Single = 64
  Dim FrameRate As Single
  Dim EmitterX,EmitterY,EmitterZ,EmitterPulse As Single

  %EFFECT_QUALITY = 24                     

  %PARTICLE    = 1
  %EFFECT      = 3
  %MAXPARTICLES = 12'32                     
  Dim ParticleX(%MAXPARTICLES) As Single   
  Dim ParticleY(%MAXPARTICLES) As Single
  Dim ParticleZ(%MAXPARTICLES) As Single
  Dim ParticleSize(%MAXPARTICLES) As Single
  Dim ParticleSpeed(%MAXPARTICLES) As Single
  Dim ParticleFade(%MAXPARTICLES) As Single
  Dim ParticleR(%MAXPARTICLES) As Single   
  Dim ParticleG(%MAXPARTICLES) As Single
  Dim ParticleB(%MAXPARTICLES) As Single

'---------------------------------------------- // main
Function TBMain() As Long
  LOCAL hWnd As DWORD
  LOCAL FrameRate AS DOUBLE
 
  ' -- Create and show window
  hWnd = TBGL_CreateWindowEx("TBGL Entity Particles test", 640, 480, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX)
  TBGL_ShowWindow

  TBGL_EntityCreateCamera(%sScene, %eCamera)
    TBGL_EntitySetPos(%sScene, %eCamera, 0, 0, 5)
    TBGL_EntitySetTargetPos(%sScene, %eCamera, 0, 0, 0) 
   
'---------------------------------------------------------// 1
    'New Entity DLSlot ?'
    EmitterX      = 0.25 '0.5'sin(GetTickCount/2000)/2
    EmitterZ      = 0    'cos(GetTickCount/5000)/2
    EmitterY      = 0    'cos(GetTickCount/6000)/2   
    EmitterPulse  = 0.75 '+cos(GetTickCount/500)

    TBGL_UseBlend %TRUE
   
    'New Entity DLSlot ?'
    TBGL_NewList %EFFECT   
      RenderParticles
    TBGL_EndList   

    For i = 1 To %EFFECT_QUALITY 
      TBGL_CallList %EFFECT
    Next 
   
    TBGL_UseBlend %FALSE

    TBGL_DeleteList %EFFECT           
    TBGL_DrawFrame                     
'---------------------------------------------- // 2

  ' ---- only for display test
  TBGL_NewList %lParticles_test
    TBGL_BeginPoly %GL_POINTS
      TBGL_Color 255,  0,  0 
      TBGL_Vertex -1, -1,  0
     
      TBGL_Color  0, 255,  0 
      TBGL_Vertex  1, -1,  0
             
      TBGL_Color  0,  0, 255 
      TBGL_Vertex  0,  1,  0       
    TBGL_EndPoly 
  TBGL_EndList   

'---------------------------------------------- // 3

  TBGL_NewList %lParticles
      myParticleCode()
  TBGL_EndList   

'---------------------------------------------- // 4

  TBGL_EntityCreateDLSlot(%sScene, %eParticles, 0, %lParticles)
    TBGL_EntitySetPos(%sScene, %eParticles, 0, 0, 0)
 
  TBGL_EntityCreateDLSlot(%sScene, %eEffects, 0, %lEffects) '?
    TBGL_EntitySetPos(%sScene, %eEffects, 0, 0, 0)          '?
   
  ' -- Resets status of all keys
  TBGL_ResetKeyState()

  ' -- Main loop
  While TBGL_IsWindow(hWnd)
    FrameRate = TBGL_GetFrameRate

    TBGL_ClearFrame
'---------------------------------------------- // 5
      TBGL_SceneRender(%sScene)
     
    TBGL_DrawFrame

'---------------------------------------------- // 6

    ' -- ESCAPE key to exit application
    If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Exit While

    ' -- Entity turn has parameters for rotation in x, y and z axis
    If TBGL_GetWindowKeyState(hWnd, %VK_UP)    Then TBGL_EntityTurn(%sScene, %eParticles, -1, 0, 0)
    If TBGL_GetWindowKeyState(hWnd, %VK_DOWN)  Then TBGL_EntityTurn(%sScene, %eParticles,  1, 0, 0)
    If TBGL_GetWindowKeyState(hWnd, %VK_RIGHT) Then TBGL_EntityTurn(%sScene, %eParticles,  0, 1, 0)
    If TBGL_GetWindowKeyState(hWnd, %VK_LEFT)  Then TBGL_EntityTurn(%sScene, %eParticles,  0,-1, 0)
    If TBGL_GetWindowKeyState(hWnd, %VK_PGDN)  Then TBGL_EntityTurn(%sScene, %eParticles,  0, 0, 1)
    If TBGL_GetWindowKeyState(hWnd, %VK_PGUP)  Then TBGL_EntityTurn(%sScene, %eParticles,  0, 0,-1)

  Wend

  TBGL_DestroyWindow
END FUNCTION

  '---------------------------------------------- 7 //
  Function myParticleCode() As Long
    TBGL_LoadTexture APP_SourcePath+"Textures\Cloud.bmp",1,%TBGL_TEX_MIPMAP 
    TBGL_UseTexturing %TRUE
    TBGL_BindTexture 1                   
    TBGL_BlendFunc %GL_SRC_ALPHA , %GL_ONE
    TBGL_UseDepth %FALSE
    TBGL_UseDepthMask %FALSE   
                             
    InitParticles             

    TBGL_BeginPoly %GL_QUADS
   
      TBGL_TexCoord2D 0,1
      TBGL_Vertex -1,1,0
     
      TBGL_TexCoord2D 1,1
      TBGL_Vertex  1,1,0

      TBGL_TexCoord2D 1,0
      TBGL_Vertex  1,-1,0

      TBGL_TexCoord2D 0,0
      TBGL_Vertex -1,-1,0
     
    TBGL_EndPoly
   
    EmitterX      = 0.25 '0.5'sin(GetTickCount/2000)/2
    EmitterZ      = 0    'cos(GetTickCount/5000)/2
    EmitterY      = 0    'cos(GetTickCount/6000)/2   
    EmitterPulse  = 0.75 '+cos(GetTickCount/500)

  End Function

'---------------------------------------------- // 8 
  Function InitParticles( ) As Long
    For i = 1 To %MAXPARTICLES
      BornParticle(i)
    Next 
  End Function

'------------------------------------------------- 9 //
  ' This will prepare one particle
  Function BornParticle( index As Long ) As Long
    ParticleSize(index) = 0.00125 '+ Rnd * 0.06 '0.0125 '+ rnd * 0.06
   
    ParticleX(index)    = EmitterX/4'+Rndf(0,1) 'EmitterX/2'+rndf(0,1)
    'ParticleY(index)    = EmitterY/3'+rndf(0,1)
    'ParticleZ(index)    = EmitterZ/4'+rndf(0,1)
    ParticleR(index)    = EmitterX*255
    ParticleG(index)    = EmitterY*255
    ParticleB(index)    = EmitterZ*255
   
    ParticleSpeed(index)= 0.01 + Rnd *0.01'0.01 + Rnd *0.01
   
  End Function

  '-------------------------------------- 10 //
  Function RenderParticles () As Long
    FrameRate = TBGL_GetFrameRate
    For i = 1 To %MAXPARTICLES 
      ParticleSize(i) += SpeedFactor/600/FrameRate
      ParticleX(i)    += (ParticleSpeed(i) * SpeedFactor)/FrameRate   
      'ParticleY(i)    += ParticleY(i)/100
      If ParticleX(i) > 4 Then BornParticle(i)   
     
      DrawParticle(i)

    Next 
  End Function

  '---------------------------------------------- 11 //
  Function DrawParticle ( index As Long) As Long

    TBGL_PushMatrix
                    '(!)'
      TBGL_Translate -2.0+ParticleX(index), ParticleY(index), ParticleZ(index)
      'TBGL_Rotate ParticleSpeed(index) * GetTickCount,0,0,1        ' Slow rotation of the "smokie" looks good
      TBGL_Scale ParticleSize(index),ParticleSize(index),1
      TBGL_ColorAlpha ParticleR(index),ParticleG(index),ParticleB(index),255-(ParticleY(index)/2)*255' The particle will fade out

      TBGL_CallList %PARTICLE
   
    TBGL_PopMatrix
   
  End Function

---

any help like script example or link would be great. thanks, nice day, frank

Hi Lionheart,

you might want to read through the User defined entities to see, how to design custom entity.

The first thing you need to do is to identify:

• which properties it should have (from the example you posted we can see speed, fade factor, ...) and transform it to custom TYPE
• which behavior they should have and transform it to custom FUNCTIONs

Petr

thanks petr for the link and infos. I have it totally forgotten to answer here! If there is time I will check new tbgl unit's and your examples. regards, frank