-+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