Page 1 of 2 12 LastLast
Results 1 to 10 of 12

Thread: New program... parametric surfaces

  1. #1
    Member sblank's Avatar
    Join Date
    Feb 2010
    Location
    Wayne City, Illinois
    Posts
    80
    Rep Power
    16

    New program... parametric surfaces

    Just a new program using some raw OpenGL and Petr's great example code. This program plots a crosscap using 3 parametric equations.

    My intention is to add trackball mouse interaction at some point.

    n0 is the x function
    n1 is the y function
    n2 is the z function

    Stan
    Attached Files Attached Files

  2. #2
    thanks for your example, it is enriching the available examples about using classic OpenGL in thinbasic.
    in this link:
    http://psch.thinbasic.com/old/tbgl_lesson6.html
    download the example "Lesson 6 source code", it is a zip file; and inside it there are 3 code files one of them are interesting; it is Lesson6_TBGL_LightWithMouse.tbasic : whenever you move the mouse pointer (without clicking) the light move toward it. i think it is what needed
    the most important functions in the example is TBGL_MouseGetPosX, and TBGL_MouseGetPosY
    there is also a less significant example (in the context of your example) called TBGL_Demo19_MouseDemo.tbasic it is in "C:\thinBasic\SampleScripts\TBGL\Basic"
    i will try these after recovering from the flu and cold.
    best regards

  3. #3
    this my rude version adding some mouse code to sblank version
    i hope i will not get zero/100 , may be 5 enough, especially i have a cold symptoms ( as if i am better without )
    the figure rotate as the mouse pointer move, but can't make it continue rotation like it is intended. and also resorting to
    While TBGL_IsWindow(hWnd) ... wend
    ' Empty GUI script created on 11-16-2010 20:15:22 by  (ThinAIR)
    Uses "TBGL"    
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_gl.inc"
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_glu.inc"
     
    Global angle As Double
    Global dx, dy, theta, Alpha, n0, n1, n2,a,b As Double
    Global wd, ht, i, th, ta As Long
    Global mouseX, mouseY As Single
    wd = 600
    ht = 600
     
    Global hWnd As DWord
    Global x, y As DWord
    Function TBMain()
      Local hWnd      As DWord
      Local FrameRate As Double
     
      ' -- Create and show window
      hWnd = TBGL_CreateWindowEx("Parametric Plots - press ESC to quit", wd, ht, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
      TBGL_ShowWindow 
     
      ' -- Initialize lighting
      TBGL_UseLighting(%TRUE)
      TBGL_UseLightSource(%GL_LIGHT0, %TRUE)
      While TBGL_IsWindow(hWnd)
       TBGL_ResetKeyState()
       mouseX = TBGL_MouseGetPosX
       mouseY = TBGL_MouseGetPosY
       dx=mouseX: dy=mouseY 
       funRender()
       'dx += 10
       'dy += 10
       If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Exit While    
      Wend
     TBGL_DestroyWindow 
     End Function 
    ' -- Do any calculations here
    Function funIdle( hWnd As DWord, frameRate As Double )
     
      dx += 10
      dy += 10
     
    End Function
    ' -- Handle input here
    Function funInput( hWnd As DWord, frameRate As Double )
      If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then 
        TBGL_UnBindPeriodicFunction(hWnd)
        Exit Function
      End If
    End Function
     
    Function drawtor() 
     glBegin(%GL_TRIANGLE_STRIP)
     For th = 0 To 360 Step 15
      For ta = 0 To 360 Step 15
       drawvert(th,ta)
       drawvert(th+12,ta)
     
      Next
     Next
     glEnd
    End Function
    Function drawvert (ByVal th As Integer, ByVal ta As Integer) 
     theta = th*0.01745
     Alpha = ta*0.01745  
     
      a = 1.5
      n0 = 0.5*a*Sin(alpha)*Sin(2*theta)
      n1 = a*Sin(2*alpha)*Sin(theta)*Sin(theta)
      n2 = a*Cos(2*alpha)*Sin(theta)*Sin(theta)
     
     glColor3f(n0,Sin(n1),Cos(n2))
     glVertex3f(n0,n1,n2)
    End Function 
     
    Function funRender()
      Dim hWnd As DWord = TBGL_CallingWindow
      Dim FrameRate As Double
     
      frameRate = TBGL_GetFrameRate    
     
      ' -- Process input
      funIdle( hWnd, FrameRate)
     
      ' -- Process calculations
      funInput( hWnd, FrameRate )
     
      FrameRate = TBGL_GetFrameRate
      TBGL_ClearFrame 
        TBGL_Camera(3, 3, 3, 0, 0, 0)
        TBGL_GetWindowClient( hWnd, x, y )      
     
        TBGL_Rotate(dx,0.0, 1.0, 0.0)
        TBGL_Rotate(dy, 1.0, 0.0, 0.0)
     
        TBGL_SetLightParameter(%GL_LIGHT0, %TBGL_LIGHT_POSITION, 100, 100, 100, 1)
     
        drawtor()
      TBGL_DrawFrame   
    End Function
    

  4. #4
    Member sblank's Avatar
    Join Date
    Feb 2010
    Location
    Wayne City, Illinois
    Posts
    80
    Rep Power
    16
    That's a great addition Zak... thanks!

    I'll give you an "A" for the example

    I can use your mouse code I think. What I want to do is develop a trackball movement with inertia... continuous rotation in the direction of the mouse pointer. I'll keep working on it.

    Thanks again... I appreciate the feedback and the example!

    Stan

  5. #5
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    6,790
    Blog Entries
    3
    Rep Power
    693
    Very nice examples,

    thanks a lot for them


    Petr
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 7 64bit - Intel Core 2 Duo T6600 @ 2.2GHz - 4 GB RAM - NVIDIA GeForce G210M 512MB
    Windows 8 64bit - Intel Core i5-3350P @ 3.1GHz - 8 GB RAM - NVIDIA GeForce GT640 3GB

  6. #6
    Member sblank's Avatar
    Join Date
    Feb 2010
    Location
    Wayne City, Illinois
    Posts
    80
    Rep Power
    16
    Hi Petr!

    This is fun... thinBasic runs the graphic very smoothly (using your TBGL module, of course ). Once I get the mouse tracking working as I want, then I'll try to optimize a bit.

    Stan

    Quote Originally Posted by Petr Schreiber View Post
    Very nice examples,

    thanks a lot for them


    Petr

  7. #7
    Member sblank's Avatar
    Join Date
    Feb 2010
    Location
    Wayne City, Illinois
    Posts
    80
    Rep Power
    16
    Some progress... the mouse moves the crosscap and inertia exists, however this is not trackball rotation yet.

    Zak gave me some good ideas (thanks Zak!). I tweaked his mouse statements a bit.

    Still working on it... take a look if anyone is interested!

    Stan
    Attached Files Attached Files

  8. #8
    yes it is a big improvment, i have looked at your original freebasic code and noticed that there is function:
    glutPassiveMotionFunc @mousemotion
    in the doc http://www.opengl.org/documentation/...c3/node51.html
    it is said: "The passive motion callback for a window is called when the mouse moves within the window while no mouse buttons are pressed".
    by luck i found that there is %WM_MOUSEMOVE in thinbasic fired only when the mouse move without click, something like:
    Case %WM_MOUSEMOVE
    mouseX = TBGL_MouseGetPosX
    mouseY = TBGL_MouseGetPosY
    so this resembles the freebasic GL code:
    glutPassiveMotionFunc @mousemotion
    sub mousemotion CDECL(byval x as integer, byval y as integer)
    mouseX = x
    mouseY = y
    end sub
    but %WM_MOUSEMOVE needs a UI module (i think so), and for luck Eros and Petr have cooked UI with TBGL together so we can use TBGL in a canvas or in a Label. this is good since we may need to control the figure with sliders, buttons, etc.
    i have stripped down Petr example:
    http://www.thinbasic.com/community/s...-windowed-mode
    to show just the skeleton we need, here is the skeleton: and after that i will proceed to sblank example: look at the coordinated x,y in the TextBox when the mouse moves:

    Uses "UI", "TBGL"
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_gl.inc"
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_glu.inc"
     
    Global angle As Double
    Global dx, dy, theta, Alpha, n0, n1, n2,a,b As Double
    Global wd, ht, i, th, ta As Long
    Global x, y, mouseX, mouseY As Single
    wd = 600
    ht = 600
    ' -- ID numbers of controls
    Begin Const
    %lCanvas = %WM_USER + 1
    %tbOutput 
    %bClose = %IDCANCEL
    %myTimer 
    %timeOut = 20 ' -- Determines graphics refresh rate in milliseconds
    End Const
    Function TBMain()
    Local hDlg As DWord 
    Local height As Long
    Dialog New 0, "Please type in text",-1,-1, 320, 320, _
    %WS_POPUP Or %WS_VISIBLE Or _
    %WS_CLIPCHILDREN Or %WS_CAPTION Or _
    %WS_SYSMENU Or %WS_MINIMIZEBOX, 0 To hDlg
    ' -- Place controls here 
    ' -- This will be used as render surface
    Control Add Label, hDlg, %lCanvas, "", 0, 0, 320, 250
    Control Set Color hDlg, %lCanvas, %BLACK, %BLACK
    Control Set Resize hDlg, %lCanvas, 1, 1, 1, 1
    Control Add Textbox, hDlg, %tbOutput, "", 5, 250, 60, 14, %ES_AUTOHSCROLL Or %ES_AUTOVSCROLL Or %ES_LEFT Or %WS_BORDER Or %WS_TABSTOP Or %ES_MULTILINE Or %ES_WANTRETURN
    Control Set Resize hDlg, %tbOutput, 0, 1, 0, 1  
    Control Add Button, hDlg, %bClose, "Close", 255, 250, 60, 14
    Control Set Resize hDlg, %bClose, 0, 1, 0, 1 
    Control Set Focus hDlg, %tbOutput 
    Dialog Show Modal hDlg, Call dlgCallback
    End Function 
    CallBack Function dlgCallback()
    Static hCtrl As DWord
    Select Case CBMSG
    Case %WM_INITDIALOG
    Dialog Set Timer CBHNDL, %myTimer, %timeOut, %NULL
    Control Handle CBHNDL, %lCanvas To hCtrl
    ' -- Init OpenGL
    TBGL_BindCanvas(hCtrl) 
    Case %WM_SIZE, %WM_SIZING
    TBGL_UpdateCanvasProportions(hCtrl)
    RenderMyImage(hCtrl, CBHNDL)
    Case %WM_TIMER
    RenderMyImage(hCtrl, CBHNDL)
    Case %WM_MOUSEMOVE
       x = TBGL_MouseGetPosX
       y = TBGL_MouseGetPosY 
       Control Set Text CBHNDL, %tbOutput, Str$(x)+", "+Str$(y)
     
    Case %WM_CLOSE 
    TBGL_ReleaseCanvas(hCtrl) 
    Dialog Kill Timer CBHNDL, %myTimer
    Case %WM_COMMAND
    Select Case CBCTL
    Case %bClose
    If CBCTLMSG = %BN_CLICKED Then Dialog End CBHNDL
    End Select
    End Select
    End Function
    Function RenderMyImage( hCtrl As DWord, hDlg As DWord )
    Static FrameRate As Double 
    Static row As Long 
    If TBGL_CanvasBound(hCtrl) Then
    FrameRate = TBGL_GetFrameRate
    TBGL_ClearFrame 
    ' -- Render some image to prove we really draw in 3D
    TBGL_RenderMatrix3D 
    TBGL_Translate 0, 0, -5
    TBGL_Rotate GetTickCount/10,1,1,1
    TBGL_BeginPoly %GL_TRIANGLES
    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_DrawFrame 
    End If 
    End Function
    
    now for the sblank example, his Function funRender is replaced by Function RenderMyImage, almost i copied his example in the file crosscap.tbasic above. it is working exactly like the non windows example but without the strips, may be it is a problem with lighting, i will keep trying, the picture of the example:


    Uses "UI", "TBGL"
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_gl.inc"
    #INCLUDE Once "%APP_INCLUDEPATH%\thinbasic_glu.inc"
     
    Global angle As Double
    Global dx, dy, theta, Alpha, n0, n1, n2,a,b As Double
    Global wd, ht, i, th, ta As Long
    Global  mouseX, mouseY As Single
    wd = 500
    ht = 300
    ' -- ID numbers of controls
    Begin Const
    %lCanvas = %WM_USER + 1
    %tbOutput 
    %bClose = %IDCANCEL
    %myTimer 
    %timeOut = 20 ' -- Determines graphics refresh rate in milliseconds
    End Const
    Function TBMain()
    Local hDlg As DWord 
    Local height As Long
    Dialog New 0, "experiments ...",-1,-1, 500, 320, _
    %WS_POPUP Or %WS_VISIBLE Or _
    %WS_CLIPCHILDREN Or %WS_CAPTION Or _
    %WS_SYSMENU Or %WS_MINIMIZEBOX, 0 To hDlg
    ' -- Place controls here 
    ' -- This will be used as render surface
    Control Add Label, hDlg, %lCanvas, "", 0, 0, wd, ht
    Control Set Color hDlg, %lCanvas, %BLACK, %BLACK
    Control Set Resize hDlg, %lCanvas, 1, 1, 1, 1
    Control Add Textbox, hDlg, %tbOutput, "", 5, 300, 60, 17, %ES_AUTOHSCROLL Or %ES_AUTOVSCROLL Or %ES_LEFT Or %WS_BORDER Or %WS_TABSTOP Or %ES_MULTILINE Or %ES_WANTRETURN
    Control Set Resize hDlg, %tbOutput, 0, 1, 0, 1  
    Control Add Button, hDlg, %bClose, "Close", 400, 300, 60, 20
    Control Set Resize hDlg, %bClose, 0, 1, 0, 1 
    Control Set Focus hDlg, %tbOutput 
    Dialog Show Modal hDlg, Call dlgCallback
    End Function 
    CallBack Function dlgCallback()
    Static hCtrl As DWord
    Select Case CBMSG
    Case %WM_INITDIALOG
    Dialog Set Timer CBHNDL, %myTimer, %timeOut, %NULL
    Control Handle CBHNDL, %lCanvas To hCtrl
    ' -- Init OpenGL
    TBGL_BindCanvas(hCtrl) 
    Case %WM_SIZE, %WM_SIZING
    TBGL_UpdateCanvasProportions(hCtrl)
    RenderMyImage(hCtrl, CBHNDL)
    Case %WM_TIMER
    RenderMyImage(hCtrl, CBHNDL)
    Case %WM_MOUSEMOVE
       mouseX = TBGL_MouseGetPosX
       mouseY = TBGL_MouseGetPosY 
       Control Set Text CBHNDL, %tbOutput, Str$(mouseX)+", "+Str$(mouseY)
     
    Case %WM_CLOSE 
    TBGL_ReleaseCanvas(hCtrl) 
    Dialog Kill Timer CBHNDL, %myTimer
    Case %WM_COMMAND
    Select Case CBCTL
    Case %bClose
    If CBCTLMSG = %BN_CLICKED Then Dialog End CBHNDL
    End Select
    End Select
    End Function 
    ' -- Do any calculations here
    Function funIdle( hWnd As DWord, frameRate As Double )
      '..................
     
    End Function 
    ' -- Handle input here
    Function funInput( hWnd As DWord, frameRate As Double )
      ' ............
    End Function
    Function drawtor() 
     glBegin(%GL_TRIANGLE_STRIP)
     For th = 0 To 360 Step 15
      For ta = 0 To 360 Step 15
       drawvert(th,ta)
       drawvert(th+12,ta)
     
      Next
     Next
     glEnd
    End Function
    Function drawvert (ByVal th As Integer, ByVal ta As Integer) 
     theta = th*0.01745
     Alpha = ta*0.01745  
     
      a = 1.5
      n0 = 0.5*a*Sin(alpha)*Sin(2*theta)
      n1 = a*Sin(2*alpha)*Sin(theta)*Sin(theta)
      n2 = a*Cos(2*alpha)*Sin(theta)*Sin(theta)
     
     glColor3f(n0,Sin(n1),Cos(n2))
     glVertex3f(n0,n1,n2)
    End Function
    Function RenderMyImage( hCtrl As DWord, hDlg As DWord )
    Static FrameRate As Double 
    If TBGL_CanvasBound(hCtrl) Then
    FrameRate = TBGL_GetFrameRate
    dx+=(mouseX-wd/2)/128: dy+=(mouseY-ht/2)/128
    TBGL_ClearFrame 
    ' -- Render some image to prove we really draw in 3D
    TBGL_RenderMatrix3D 
    'TBGL_Translate 0, 0, -5
    'TBGL_Rotate GetTickCount/10,1,1,1
    Dim hWnd As DWord = TBGL_CallingWindow
      'Dim FrameRate As Double
     
      frameRate = TBGL_GetFrameRate    
     
      ' -- Process input
      'funIdle( hWnd, FrameRate)
     
      ' -- Process calculations
      funInput( hWnd, FrameRate )
     
      FrameRate = TBGL_GetFrameRate
      TBGL_ClearFrame 
        TBGL_Camera(3, 3, 3, 0, 0, 0)
        'TBGL_GetWindowClient( hWnd, x, y )      
     
        TBGL_Rotate(dx,0.0, 1.0, 0.0)
        TBGL_Rotate(dy, 1.0, 0.0, 0.0)
     
        TBGL_SetLightParameter(%GL_LIGHT0, %TBGL_LIGHT_POSITION, 100, 100, 100, 1)
     
        drawtor()
      TBGL_DrawFrame   
    End If 
    End Function
    
    Attached Files Attached Files

  9. #9
    yes it is the lighting, i forgot to add after Case %WM_TIMER
    TBGL_UseLighting(%TRUE)
    TBGL_UseLightSource(%GL_LIGHT0, %TRUE)




    below is the modified code, now it is the physics and inertia problem.
    indeed big thanks for Eros and Petr for their marvelous creations. and the facilities available in thinbasic, which are used in this sblank program.

    PS: to use 2D graphics with the above skeleton just delete TBGL_RenderMatrix3D and add
    TBGL_RenderMatrix2D
    in the doc: TBGL_RenderMatrix2D[( leftX, bottomY, rightX, topY )]
    TBGL_RenderMatrix2D resembeles the gluOrtho2D(..... )
    wich allows to define the virtual window; in wich it will projected to real opengl frame dimensions
    note: the order of gluOrtho2D( left , right , bottom , top ) in C are different from TBGL_RenderMatrix2D , in TBGL_RenderMatrix2D it is more natural leftX, bottomY, rightX, topY )
    Attached Files Attached Files
    Last edited by zak; 22-11-2010 at 09:44.

  10. #10
    Member sblank's Avatar
    Join Date
    Feb 2010
    Location
    Wayne City, Illinois
    Posts
    80
    Rep Power
    16
    Thanks Zak... I appreciate the added features of the UI...

    I've attached the latest of my non-UI efforts. I now have rotation with inertia AND a well-behaved motion when the mouse pointer is outside the window.

    What I do NOT yet have is trackball rotation. At the moment, mouse rotations are specific to the frame of reference of the model (the crosscap). I want the frame of reference to be specific to the viewer so the mathematical objects ALWAYS rotates in the direction of the mouse point... in other words, rotates toward the mouse point.

    In the freebasic example code, this was accomplished by the chaptrack() function and the matrix commands prior to the actual rendering. I have been unable to figure this rotation scheme out for thinBasic.

    Can this be done without resorting to quaternions?

    Petr?

    Thanks,

    Stan
    Attached Files Attached Files

Page 1 of 2 12 LastLast

Similar Threads

  1. Example: Section 4.3 (page 28), My First OGL Program (second program)
    By kryton9 in forum ThinBASIC programming in OpenGL/TBGL
    Replies: 2
    Last Post: 26-02-2010, 06:01
  2. Invoking One .tbasic Program From Another .tbasic Program
    By gungadout in forum thinBasic General
    Replies: 46
    Last Post: 23-11-2009, 12:01

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •