-+Y sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 40, .5 GLpanel "OpenGL panel", 512, 512 GLpanel_end FLrun #include "OpenGL.h" gi1 ftgen 1,0,256,19,1,1,0,1 gi10 ftgen 10,0,256,10,1 giTex1 GLloadTexture "fractal3.png", $PNG_ALPHA,$GL_REPEAT giTex2 GLloadTexture "fractal9.png", $PNG_ALPHA,$GL_REPEAT giTex3 GLloadTexture "fractal2.png", $PNG_ALPHA,$GL_REPEAT giTex4 GLloadTexture "fractal13.png", $PNG_ALPHA,$GL_REPEAT giTex5 GLloadTexture "fractal14.png", $PNG_ALPHA,$GL_REPEAT giTex6 GLloadTexture "fractal15b.png", $PNG_ALPHA,$GL_REPEAT giTex7 GLloadTexture "fractal12.png", $PNG_ALPHA,$GL_REPEAT 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 glEnable $GL_BLEND glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glColor3 0,0,1 GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// ; glMatrixMode $GL_MODELVIEW ; glLoadIdentity ;GLinsert 1.02 k1 oscili 2,.02,1,.75 k2 oscili 2,.013456,1 k3 oscili 2,.13215,1 k3b oscili 2,.13215,1,.25 k4 oscili 3,.0413215,1 k4b oscili 3,.0413215,1,.25 k4 phasor .0211111 k_ = k4*7 if k_ < 1 kgoto then1 if k_ < 2 kgoto then2 if k_ < 3 kgoto then3 if k_ < 4 kgoto then4 if k_ < 5 kgoto then5 if k_ < 6 kgoto then6 kTex = giTex7 kgoto endif then1: kTex = giTex1 kgoto endif then2: kTex = giTex2 kgoto endif then3: kTex = giTex3 kgoto endif then4: kTex = giTex4 kgoto endif then5: kTex = giTex5 kgoto endif then6: kTex = giTex6 endif: ; glMatrixMode $GL_MODELVIEW ; glLoadIdentity glPushMatrix glClearColor 0,0,0,0 glBindTexture kTex glTranslate 0,0,-k3b*2 -.5 glPushMatrix glRotate k2*360,0,0,1 glColor .5+k1, .5+k2, .5+k3, 1 ;glColor 1,1,1,1 GLtexCircle .25, p4, 0+k4, 1-k4b, 1-k4, 1-k4b glPopMatrix glPopMatrix GLinsert 1.1 endin ;////////////////////////////////////////////// instr 2 ;////////////////////////////////////////////// glMatrixMode $GL_MODELVIEW glLoadIdentity k1 oscili .04,.063123,gi10 k2 oscili .051,.0574321,gi10,.25 gluLookAt k1,k2,0, 0,0,-8, 0, 1,0 ; glRotate k2,0,10 ;glPushMatrix ;glPopMatrix GLinsert 1.05 endin i2 0 3600 i1 0 3600 6 i1 1 3600 4 i1 2 3600 3 i1 3 3600 100 i1 4 3600 6 i1 5 3600 4 i1 6 3600 3 i1 7 3600 100