-+Y sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 30, .5 GLpanel "OpenGL panel", 800, 512 GLpanel_end FLrun #include "OpenGL.h" gi1 ftgen 1,0,256,19,1,1,0,1 gi2 ftgen 2,0,256,-7, 0, 128, 1,128,0 gi10 ftgen 10,0,256,10,1 giVidHand GLopenVideoFile "madgab2.avi", 0 GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 30,.1,10 glMatrixMode $GL_MODELVIEW glLoadIdentity glEnable $GL_BLEND glEnable $GL_CULL_FACE glEnable $GL_TEXTURE_2D glEnable $GL_COLOR_MATERIAL glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// tph GLphasor 300 tframe = tph * 241 ;*** avi file frame pointer tph2 GLoscili 1,200,gi2 trot = tph * 720 gtTex GLvideo2tex giVidHand, tframe glBindTexture gtTex glLoadIdentity glRotate trot, 0,0,1 glTranslate 0,0,-1.8 glPushMatrix ;**** standard position ;**** GLtexSquare .5, 0,1, 1,1, 1,0, 0,0 glScale .5,.5,1 glTranslate 0, -.5, 0 glTranslate -.5,0,0 tc GLoscili 1,200,gi10 glColor tph2, .7, 1-tph2,tph+.4 GLtexSquare .5+tc, 0,-1, .5,-1, .5,-.5, 0,-.5 glTranslate 1,0,0 GLtexSquare .5-tc, -.5,-1, -1,-1, -1,-.5, -.5,-.5 glTranslate 0,1,0 GLtexSquare .5+tc, -.5,.5, -1,.5, -1,0, -.5,0 glTranslate -1,0,0 GLtexSquare .5-tc, 0,.5, .5,.5, .5,0, 0,0 glPopMatrix GLinsert 1.1 endin i1 0 3600 1