-+Y
sr = 100
kr = 100
ksmps = 1
nchnls = 1
GLfps 40, .5
GLpanel "OpenGL panel", 512, 512
GLpanel_end
FLrun
#include "OpenGL.h"
gi1 ftgen 1,0,256,19,1,1,0,1
gi10 ftgen 10,0,256,10,1
giTess1 ftgen 20,0,256, -2, \
0.0, 1.0, 1.0 , \
-0.5, -1.0, .5.0 , \
-0.4, -1.0, .5.0 , \
-0.2, -0.1, .5.0 , \
0.2, -0.1, .5.0 , \
0.4, -1.0, .5.0 , \
0.5, -1.0, .5.0
giTess2 ftgen 21,0,256, -2, \
0.0, 0.6, 0.0 , \
-0.1, 0.1, 0.0 , \
0.1, 0.1, 0.0
glMatrixMode $GL_PROJECTION
glLoadIdentity
gluPerspective 45,.1,1000
glMatrixMode $GL_MODELVIEW
glLoadIdentity
glClearColor 0,0,0,1
glColor3 0,1,1
GLinsert_i $GL_NOT_VALID
glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT
GLinsert_i 1
;///////////////////////////////////////////////////
instr 1
;///////////////////////////////////////////////////
k1 oscili 1,.05,1,.75
k2 oscili 1,.023456,1
k3 oscili 1,.043215,1
glLoadIdentity
glTranslate 0,0,-3
glPushMatrix
glRotate k1*360,1,1,0
glRotate k2*360,1,0,0
gluTessBeginPolygon
gluTessBeginContour
gluTessVertexv giTess1,0
gluTessVertexv giTess1,1
gluTessVertexv giTess1,2
gluTessVertexv giTess1,3
gluTessVertexv giTess1,4
gluTessVertexv giTess1,5
gluTessVertexv giTess1,6
gluTessEndContour
gluTessBeginContour
gluTessVertexv giTess2,0
gluTessVertexv giTess2,1
gluTessVertexv giTess2,2
gluTessEndContour
gluTessEndPolygon
glPopMatrix
GLinsert 1.1
endin
i1 0 3600 1