-+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