-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 GLfps 30 GLpanel "OpenGL panel", 512, 512 GLpanel_end FLrun #include "OpenGL.h" gi1 ftgen 1,0,256,19,1,1,0,1 gi2 ftgen 2,0,2048,10,1,0,0,0,.3,0,0,0,0,0,.1,0,0,0,0,0,0,0,.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,.1 gi3 ftgen 3,0,1024,10,1 ; GLfullscreen 1 ;---> Start GL giTex2 GLloadTexture "spirale.png", $PNG_ALPHA,$GL_REPEAT glTexGeni $GL_S, $GL_SPHERE_MAP glTexGeni $GL_T, $GL_SPHERE_MAP giTex1 GLloadTexture "square3.png", $PNG_ALPHA,$GL_REPEAT glTexGeni $GL_S, $GL_SPHERE_MAP glTexGeni $GL_T, $GL_SPHERE_MAP glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T giQuadObj1 gluNewQuadric giQuadObj2 gluNewQuadric gluQuadricDrawStyle giQuadObj1, $GLU_FILL gluQuadricDrawStyle giQuadObj2, $GLU_FILL glEnable $GL_BLEND glEnable $GL_TEXTURE_2D glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glHint $GL_POLYGON_SMOOTH_HINT, $GL_NICEST glHint $GL_PERSPECTIVE_CORRECTION_HINT, $GL_NICEST GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 140,.1,100 glMatrixMode $GL_MODELVIEW glLoadIdentity glColor3 1,1,1 glClearColor 0,0,0,1 GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// iw = 5 ih = 5 k1 oscili 1,.01,1,.75 k2 oscili 1,.13456,1 k3 oscili 1,.023215,1 ;---> Start GL glLineWidth 3 glLoadIdentity glTranslate 0,0,-2.5 glPushMatrix glTranslate 0,0,-3 glRotate k3*360,1,1,0 glRotate k1*360,1,0,0 glDisable $GL_BLEND glBindTexture giTex2 glColor3 .3+k1, .3+k1, .3+k1 gluCylinder giQuadObj1, 8, 8, 12, 30, 10 glPopMatrix glTranslate 0,0, 1 glPushMatrix glBindTexture giTex1 glEnable $GL_BLEND glRotate k1*100,1,1,0 glRotate k2*100,0,0,1 glTranslate 0,0,k3*2 ;glScale k3*1.5+.2,1,1 glColor3 1,1,1 gluSphere giQuadObj2, 2, 60,60 glPopMatrix GLinsert 1.1 endin i1 0 3600 1 e