-+Y
;**** glDrawElements example
sr = 100
kr = 100
ksmps = 1
nchnls = 1
GLfps 30,.5
GLpanel "OpenGL panel", 512, 512
GLpanel_end
FLrun
#include "OpenGL.h"
giSine ftgen 1,0,128,10, 1
giArray1 ftgen 10,0,32,-2, -325,0,0, 0,325,0, 325,0,0, -175,-25,0, 0,-325,0, 175,-25,0
giArray2 ftgen 11,0,32,-2, 1.0,0.4,0.4,1, 0.4,0.4,1.0,1, 0.8,1.0,0.2,1, 0.75,0.75,1,1, 0.35,.5,0.35,1, .6,0.8,0.8,1
giIndexs1 ftgen 12,0,32,-2, 0,1,2,3,4,5
giIndexs2 ftgen 13,0,32,-2, 0,3,5,2,4,1
giIndexs3 ftgen 14,0,32,-2, 0,1,4,3,2,1
giIndexs4 ftgen 15,0,32,-2, 5,2,1,3,2,4
;---> Start GL
glEnableClientState $GL_COLOR_ARRAY
glEnableClientState $GL_VERTEX_ARRAY
glVertexPointer 0,0,giArray1
glColorPointer 0,0,giArray2
GLinsert_i $GL_INIT
glMatrixMode $GL_PROJECTION
glLoadIdentity
gluPerspective 120,.1,100
glMatrixMode $GL_MODELVIEW
glLoadIdentity
glClearColor .5,.5,.5,1
GLinsert_i $GL_NOT_VALID
glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT
GLinsert_i 1
;///////////////////////////////////////////////////
instr 1
;///////////////////////////////////////////////////
k1 oscili 1,.02,giSine
k2 oscili 1,.012345,giSine
;---> Start GL
glClearColor (1+k1)/2,(1+k2)/2,.5,1
glLoadIdentity
glTranslate 0,0,-4
glPushMatrix
glScale .015*k2,.015*k2,.015*k2
glRotate k1*360, 1,0,0
glRotate k1*360, 0,1,0
glRotate k1*360, 0,0,1
glDrawElements $GL_TRIANGLES, 6, giIndexs1+p4
glPopMatrix
GLinsert 1.1
endin
i1 0 3600 0
i1 5 3600 1
i1 10 3600 2
i1 15 3600 3
i1 20 3600 0
i1 25 3600 1