-+Y sr = 100 kr = 100 ksmps = 1 nchnls = 1 giFPS = 40 GLfps giFPS 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 glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 45,.1,1000 glMatrixMode $GL_MODELVIEW glLoadIdentity glClearColor 0,0,0,1 glEnable $GL_COLOR_MATERIAL giTex2 GLloadTexture "square4.png", $PNG_ALPHA,$GL_REPEAT glTexGeni $GL_S, $GL_EYE_LINEAR glTexGenfv $GL_S, $GL_EYE_PLANE, .7, .7, .3, 0.0 glTexGeni $GL_T, $GL_EYE_LINEAR glTexGenfv $GL_T, $GL_EYE_PLANE, 0, -.7, 0.0, 0.0 glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T glEnable $GL_BLEND glEnable $GL_TEXTURE_2D glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glColor3 1,1,1 GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// t1 GLoscili 1,giFPS/.05,1,.75 t2 GLoscili 1,giFPS/.023456,1 t3 GLoscili 1,giFPS/.1,gi10 glLoadIdentity glTranslate 0,0,-2 glPushMatrix glRotate t1*360,1,1,0 glRotate t2*360,1,0,0 glBindTexture giTex2 tj GLfor 0, 1,.05 glTranslate 0,(tj*2)^2,-tj glScale 1-tj,1-tj,1-tj glRotate 40*t3,0,0,1 gluTessBeginPolygon gluTessBeginContour gluTessVertex 0.0, 1.0, t3*1.0 gluTessVertex -0.5, -1.0, t3*.5 gluTessVertex -0.4, -1.0, t3*.5 gluTessVertex -0.2, -0.1, t3*.5 gluTessVertex 0.2, -0.1, t3*.5 gluTessVertex 0.4, -1.0, t3*.5 gluTessVertex 0.5, -1.0, t3*.5 gluTessEndContour gluTessBeginContour gluTessVertex 0.0, 0.6, 0.0 gluTessVertex -0.1, 0.1, 0.0 gluTessVertex 0.1, 0.1, 0.0 gluTessEndContour gluTessEndPolygon GLend_for glPopMatrix GLinsert 1.1 endin i1 0 3600 1