-+Y ;*** no audio
sr = 100
kr = 100
ksmps = 1
nchnls = 1
GLfps 30,.5
GLpanel "OpenGL panel", 512, 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
giTex1 GLloadTexture "square3.png", $PNG_ALPHA,$GL_REPEAT
glTexGeni $GL_S, $GL_SPHERE_MAP
glTexGeni $GL_T, $GL_SPHERE_MAP
glEnable $GL_TEXTURE_2D
glEnable $GL_TEXTURE_GEN_S
glEnable $GL_TEXTURE_GEN_T
GLinsert_i $GL_INIT
glClearColor 0,0,0,1
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
GLwaitInitStage
GLfullscreen 1
;///////////////////////////////////////////////////
instr 100
;///////////////////////////////////////////////////
gk1 oscili 1.3, .01, gi3,.75
gk2 oscili 1.3, .013456, gi3
gk3 oscili 1.3, .023215, gi3
gk4 oscili 1.3, .0252215, gi3
gk5 oscili 1.3, .012215,gi3, rnd(1)
endin
;///////////////////////////////////////////////////
instr 1
;///////////////////////////////////////////////////
k1 oscili 1, .123, gi3,rnd(1)
k2 oscili 1, .212, gi3,rnd(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