-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 #include "OpenGL.h" GLfps 30 GLpanel "OpenGL panel", 600, 300 GLpanel_end gi1 ftgen 1,0,256,19,1,1,0,1 ; giDspList GLwavefrontModel "C:/Documents and Settings/Proprietario/Desktop/mandel.obj", $GLM_SMOOTH, 50,0,0 giDspList GLwavefrontModel "womanhead.obj", $GLM_SMOOTH, 50,0,0 glMaterial $GL_SPECULAR, .2,.1,.1,1 glMaterial $GL_DIFFUSE, .6,.6,.45,1 GLshininess 90 glClearColor 0,0,0,1 glEnable $GL_DEPTH_TEST glEnable $GL_CULL_FACE glEnable $GL_LIGHTING glEnable $GL_LIGHT0 glEnable $GL_COLOR_MATERIAL glEnable $GL_NORMALIZE GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 30,.1,20 glMatrixMode $GL_MODELVIEW glLoadIdentity glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i $GL_NOT_VALID glClear /*$GL_COLOR_BUFFER_BIT + */ $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ; GLfullscreen 1 FLrun ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// k1 oscili 1,.1,1,.75 k2 oscili 1,.053456,1 k3 oscili 1,.083215,1 glMatrixMode $GL_MODELVIEW glLoadIdentity glTranslate 0,0,-10 ksc = k3*3+.05 glScale ksc,ksc,ksc glPushMatrix glRotate k1*360,1,0,0 glColor3 .6,.6,.45 glPushMatrix glScale 1,1,k1 glTranslate -1,0,0 glCallList giDspList glTranslate 2,0,0 glCallList giDspList glPopMatrix glPushMatrix glScale 1-k2,1+k2,1-k2 glTranslate 0,0,0 glCallList giDspList glPopMatrix glPopMatrix GLinsert 1.1 endin i1 0 3600 1