-+Y sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 30, .5 GLpanel "OpenGL panel", 500, 400 GLpanel_end FLrun #include "OpenGL.h" gi1 ftgen 1,0,256,19,1,1,0,1 gi10 ftgen 10,0,256,10,1 ;giVidHand GLopenVideoFile "madgab.avi", 0 giVidHand GLopenVideoFile "C:/My_Docs4/My_Web/OrcSco/images/madgab.avi", 0 GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 30,.1,10 glMatrixMode $GL_MODELVIEW glLoadIdentity glEnable $GL_DEPTH_TEST glEnable $GL_CULL_FACE glEnable $GL_TEXTURE_2D glEnable $GL_COLOR_MATERIAL GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// tos GLoscili 250, 300, gi1 ;tos = tos tph GLphasor tos+10 trot = tph * 360 tph2 GLphasor 800 tframe = tph2 * 389 gkTex GLvideo2tex giVidHand, tframe 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 .8,.8,1 glColor3 .5+tph,.5,.5+tph2 glTranslate 0, -.5, 0 glTranslate -.5,0,0 GLtexSquare .5, 0,-1, .5,-1, .5,-.5, 0,-.5 glTranslate 1,0,0 GLtexSquare .5, -.5,-1, -1,-1, -1,-.5, -.5,-.5 glTranslate 0,1,0 GLtexSquare .5, -.5,.5, -1,.5, -1,0, -.5,0 glTranslate -1,0,0 GLtexSquare .5, 0,.5, .5,.5, .5,0, 0,0 glPopMatrix GLinsert 1.1 endin i1 0 3600 1