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