-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 30,.5 GLpanel "OpenGL panel", 800, 512 GLpanel_end FLrun giMatr ftgen 10,0,32,-2, 1,0,0,0, 0,1,0,0, 0,0,1,0, 0,0,0,1 #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 glEnable $GL_TEXTURE_2D giTex1 GLloadTexture "square4.png", $PNG_ALPHA,$GL_REPEAT glTexGeni $GL_S, $GL_EYE_LINEAR glTexGenfv $GL_S, $GL_EYE_PLANE, .3, 0, 0, .5 glTexGeni $GL_T, $GL_EYE_LINEAR glTexGenfv $GL_T, $GL_EYE_PLANE, 0, .3, 0, .5 glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T GLinsert_i $GL_INIT glEnable $GL_COLOR_MATERIAL glEnable $GL_BLEND glEnable $GL_TEXTURE_2D glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 50,0.01,20 glMatrixMode $GL_MODELVIEW glLoadIdentity GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 100 ;/////////////////////////////////////////////////// gk1 oscili 1.3, .07, gi3,.75 gk2 oscili 1.3, .0283456, gi3 gk3 oscili 1.3, .01591215, gi3 gk4 oscili 1.3, .02992215, gi3 gk5 oscili 1.3, .012215,gi3, rnd(1) endin ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// k1 oscili 1, .0523, gi3,rnd(1) k2 oscili 1, .112, gi3,rnd(1) glClearColor 0,0,.2*(1-k1),1 glPushMatrix glLoadIdentity glTranslate 0,0,-8*p4 tabw gk1,1,giMatr tabw gk2,6,giMatr tabw gk3,11,giMatr tabw gk4,2,giMatr tabw gk5,4,giMatr glPushMatrix glMultMatrixv giMatr glBindTexture giTex1 glutCube 1.3, 1 glPopMatrix glPopMatrix GLinsert 1.1 endin i100 0 3600 i1 0 3600 .5 i1 0.5 3600 .8 i1 1 3600 1.5