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