-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 #include "OpenGL.h" GLfps 35 GLpanel "OpenGL panel", 512, 512 GLpanel_end gi1 ftgen 1,0,256,19,1,1,0,1 giSine ftgen 5,0,128,7, -1, 64, 1, 64,-1 ;---> Start GL giDspList GLwavefrontModel "womanhead.obj", $GLM_SMOOTH, 50,0,0 ; giTex1 GLloadTexture "envmap4.png", $PNG_ALPHA,$GL_REPEAT giTex1 GLloadTexture "mirinoMask.png", $PNG_ALPHA,$GL_REPEAT giTex2 GLloadTexture "phong.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 glEnable $GL_TEXTURE_2D ; glMaterial $GL_SPECULAR, .2,.1,.1,1 ; glMaterial $GL_DIFFUSE, .6,.6,.45,1 glMaterial $GL_SPECULAR, 1,1,1,1 glMaterial $GL_DIFFUSE, 1,1,1,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,10 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,.05,1,.75 k2 oscili 1,.023456,1 k3 oscili 1,.043215,1 ;ktex = (k1>.5) ? giTex1 : giTex2 glMatrixMode $GL_MODELVIEW glLoadIdentity glTranslate 0,0,-4 GLinsert 1.02 glBindTexture giTex1 glScale k3+.5,k3+.5,k3+.5 glPushMatrix glRotate -k1*80+50,1,0,0 glColor3 1,1,1 glPushMatrix glScale 1,1,k1 glDisable $GL_LIGHTING glTranslate -1,0,0 glCallList giDspList glTranslate 2,0,0 glCallList giDspList glPopMatrix glBindTexture giTex2 glPushMatrix glScale 1-k2,1+k2,1-k2 glTranslate 0,0,0 glEnable $GL_LIGHTING glCallList giDspList glPopMatrix glPopMatrix glPopMatrix GLinsert 1.1 endin ;////////////////////////////////////////////// instr 3 ;////////////////////////////////////////////// k1 GLoscili .2,200,giSine k2 GLoscili 4,300.2342,giSine,.25 gluLookAt k2,0,.5, 0,0,0, 0, 1,0 GLinsert 1.05 endin i3 0 3600 i1 0 3600 1