-+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 gi1 ftgen 1, 0,512, 7, 0, 128, 1, 128, 0, 128 0 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 glOrtho -1.2, 1.2, -1.2, 1.2, -10, 10 ;gluPerspective 30,.1,10 glMatrixMode $GL_MODELVIEW glLoadIdentity glClearColor 0,0,.2,1 glEnable $GL_DEPTH_TEST ; glEnable $GL_CULL_FACE glEnable $GL_TEXTURE_2D ; glEnable $GL_LIGHTING ; glEnable $GL_LIGHT0 glEnable $GL_COLOR_MATERIAL glMaterial $GL_SPECULAR, .8,.8,0,1 GLshininess 19 glShadeModel $GL_FLAT glColor3 0,0,1 GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// k1 oscili 1,.0062,1,.75 k2 oscili 1,.00613456,1 k3 oscili 4,.0613215,1 k3b oscili 4,.0613215,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: glLoadIdentity glTranslate 0,0,-1 glBindTexture kTex glPushMatrix glRotate k1*10,1,1,0 glRotate k2*10,1,0,0 glRotate k2*360,0,0,1 ;glColor k1,k2,k3,0 glColor 1,1,1,1 GLtexSquare 1, 0+k3,1-k3b, 1-k3,1-k3b, 1-k3,0+k3b, k3+0,k3b+0 glPopMatrix GLinsert 1.1 endin i1 0 3600 1