'Re: [Gambas-user] glu.wireCube or glu.wireSphere'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gambas-user
Subject:    Re: [Gambas-user] glu.wireCube or glu.wireSphere
From:       Girard Henri <girardhenri () free ! fr>
Date:       2011-09-30 20:41:37
Message-ID: 4E862981.1020102 () free ! fr
[Download RAW message or body]

Le 30/09/2011 22:24, Girard Henri a écrit :
Thanks for quick reply !
Works fine :)
regards
Henri
> Le 30/09/2011 19:44, tommyline@eircom.net a écrit :
> Works fine for wirecube but i got an "out of bounds" for the wiresphere at:
> sint1[size] = sint1[0]
> Wiresphere(1.0,5,5) for example
> Need help
> regards
> Henri
> > Hi Henri,
> > 
> > Unfortunately Wire cube, or WireSphere is a part of the GLUT library which is not \
> > implemented in Gambas. But based on Freeglut source, I made my own glut geometry \
> > module. 
> > Public Sub WireCube(dSize As Float)
> > Dim size As Float = dSize * 0.5
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(1.0, 0.0, 0.0)
> > gl.Vertex3f(size, - size, size)
> > gl.Vertex3f(size, - size, - size)
> > gl.Vertex3f(size, size, - size)
> > gl.Vertex3f(size, size, size)
> > gl.End()
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(0.0, 1.0, 0.0)
> > gl.Vertex3f(size, size, size)
> > gl.Vertex3f(size, size, - size)
> > gl.Vertex3f(- size, size, - size)
> > gl.Vertex3f(- size, size, size)
> > gl.End()
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(0.0, 0.0, 1.0)
> > gl.Vertex3f(size, size, size)
> > gl.Vertex3f(- size, size, size)
> > gl.Vertex3f(- size, - size, size)
> > gl.Vertex3f(size, - size, size)
> > gl.End()
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(1.0, 0.0, 0.0)
> > gl.Vertex3f(- size, - size, size)
> > gl.Vertex3f(- size, size, size)
> > gl.Vertex3f(- size, size, - size)
> > gl.Vertex3f(- size, - size, - size)
> > gl.End()
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(0.0, - 1.0, 0.0)
> > gl.Vertex3f(- size, - size, size)
> > gl.Vertex3f(- size, - size, - size)
> > gl.Vertex3f(size, - size, - size)
> > gl.Vertex3f(size, - size, size)
> > gl.End()
> > 
> > gl.Begin(gl.LINE_LOOP)
> > gl.Normal3f(0.0, 0.0, 1.0)
> > gl.Vertex3f(- size, - size, - size)
> > gl.Vertex3f(- size, size, - size)
> > gl.Vertex3f(size, size, - size)
> > gl.Vertex3f(size, - size, - size)
> > gl.End()
> > 
> > End
> > 
> > Public Sub WireSphere(radius As Float, slices As Integer, stacks As Integer)
> > Dim i, j As Integer
> > Dim z, x, r, y As Float
> > Dim sint1, sint2 As New Float[360]
> > Dim cost1, cost2 As New Float[360]
> > Dim size As Integer  ' / * Table size, the sign OF n flips the circle direction * \
> > / Dim angle As Float ' / * Determine the angle between samples * /
> > 
> > '/* Pre - computed circle * /
> > size = - slices
> > angle As Float = 2 * Pi / (size)
> > sint1[0] = 0.0
> > cost1[0] = 1.0
> > For i = 1 To size
> > sint1[i] = Sin(angle * i)
> > cost1[i] = Cos(angle * i)
> > Next
> > sint1[size] = sint1[0]
> > cost1[size] = cost1[0]
> > 
> > size = stacks * 2
> > angle As Float = 2 * Pi / (size)
> > sint2[0] = 0.0
> > cost2[0] = 1.0
> > For i = 1 To size
> > sint2[i] = Sin(angle * i)
> > cost2[i] = Cos(angle * i)
> > Next
> > sint2[size] = sint2[0]
> > cost2[size] = cost2[0]
> > 
> > '/ * Draw a LINE LOOP FOR EACH stack * /
> > 
> > For i = 1 To stacks
> > z = cost2[i]
> > r = sint2[i]
> > 
> > gl.Begin(gl.LINE_LOOP)
> > For j = 0 To slices
> > x = cost1[j]
> > y = sint1[j]
> > gl.Normal3f(x, y, z)
> > gl.Vertex3f(x * r * radius, y * r * radius, z * radius)
> > Next
> > 
> > gl.End()
> > Next
> > 
> > '/ * Draw a LINE LOOP FOR EACH slice * /
> > 
> > For i = 0 To slices
> > gl.Begin(gl.LINE_STRIP)
> > For j = 0 To stacks
> > x = cost1[i] * sint2[j]
> > y = sint1[i] * sint2[j]
> > z = cost2[j]
> > 
> > gl.Normal3f(x, y, z)
> > gl.Vertex3f(x * radius, y * radius, z * radius)
> > Next
> > 
> > gl.End()
> > Next
> > 
> > End
> > 
> > Regards,
> > Tomek
> > 
> > ----- Original Message -----
> > From: "Girard Henri"<girardhenri@free.fr>
> > To: gambas-user@lists.sourceforge.net
> > Sent: Friday, 30 September, 2011 3:11:29 PM
> > Subject: [Gambas-user] glu.wireCube or glu.wireSphere
> > 
> > Hi,
> > Is there a way of doing in gambas opengl glu.wireCube (with example)?
> > I can't find it anywhere ?
> > thanks
> > Henri
> > 
> > 
> > ------------------------------------------------------------------------------
> > All of the data generated in your IT infrastructure is seriously valuable.
> > Why? It contains a definitive record of application performance, security
> > threats, fraudulent activity, and more. Splunk takes this data and makes
> > sense of it. IT sense. And common sense.
> > http://p.sf.net/sfu/splunk-d2dcopy2
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> > 
> > ------------------------------------------------------------------------------
> > All of the data generated in your IT infrastructure is seriously valuable.
> > Why? It contains a definitive record of application performance, security
> > threats, fraudulent activity, and more. Splunk takes this data and makes
> > sense of it. IT sense. And common sense.
> > http://p.sf.net/sfu/splunk-d2dcopy2
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> > 
> > 
> 
> ------------------------------------------------------------------------------
> All of the data generated in your IT infrastructure is seriously valuable.
> Why? It contains a definitive record of application performance, security
> threats, fraudulent activity, and more. Splunk takes this data and makes
> sense of it. IT sense. And common sense.
> http://p.sf.net/sfu/splunk-d2dcopy2
> _______________________________________________
> Gambas-user mailing list
> Gambas-user@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
> 
> 


------------------------------------------------------------------------------
All of the data generated in your IT infrastructure is seriously valuable.
Why? It contains a definitive record of application performance, security
threats, fraudulent activity, and more. Splunk takes this data and makes
sense of it. IT sense. And common sense.
http://p.sf.net/sfu/splunk-d2dcopy2
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user


[prev in list] [next in list] [prev in thread] [next in thread]
Configure | About | News | Add a list | Sponsored by KoreLogic