-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 40 GLpanel "OpenGL panel", 800, 300 GLpanel_end FLrun #include "OpenGL.h" gi1 ftgen 1,0,256,19,1,1,0,1 gi2 ftgen 2,0,2048,10,1,0,0,0,.3,0,0,0,0,0,.1,0,0,0,0,0,0,0,.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,.1 gi3 ftgen 3,0,1024,10,1 ;---> Start GL glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i $GL_INIT glEnable $GL_DEPTH_TEST glEnable $GL_COLOR_MATERIAL glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 200*.2,0.01,20 glMatrixMode $GL_MODELVIEW glLoadIdentity glClearColor 0,0,.2,1 glEnable $GL_BLEND glEnable $GL_TEXTURE_2D glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i $GL_NOT_VALID ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// kred oscili 1.3, p4 * 3.211321, gi3 kg oscili 1.3, p4 * 1.111, gi3 kb oscili 1.3, p4 * 0.5111, gi3 k1 oscili 2, p4* .123, gi3,.75 k2 oscili 2, p4* .23456,gi3 k3 oscili 2, p4* .43215,gi3 k4 oscili 2, p4* .52215,gi3 k5 oscili 2, p4* .052215,gi3 glPushMatrix glLoadIdentity glLineWidth k1*3 glTranslate 0,0,-8 glPushMatrix glMultMatrix 1,k1,k4,0, k5,1,k2,0, 0,0,1,k3, 0,0,0,1 glColor .4 +kred/3,.4+kg/3,.4+kb/3,1 glutCube 1, 0 glPopMatrix glPopMatrix GLinsert 1.1 endin ;/////////////////////////////////////////////////// instr 100 ;/////////////////////////////////////////////////// k1 GLmetro 60 GLclearwhen k1, $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert 1 endin i100 0 3600 i1 0 3600 0.4444 i1 .3 3600 .84444 i1 .7 3600 .9344 i1 .9 3600 .91344