-+Y
sr = 100
kr = 100
ksmps = 1
nchnls = 1
giFPS = 20
GLfps giFPS, .5
GLpanel "OpenGL panel", 512, 512
GLpanel_end
FLrun
#include "OpenGL.h"
ginpoint = 18
gincp = 17
giPosSine ftgen 0,0,256,19,1,1,0,1
giSine ftgen 0,0,256,10,1
giSTARTXF ftgen 0,0,-3*2,-2, .02,0,0,0,.02,0
giXFORMD ftgen 0,0,-3*2,-2, .85,0,0,0,1.2,0
glEnable $GL_DEPTH_TEST
glEnable $GL_CULL_FACE
glEnable $GL_LIGHTING
glEnable $GL_LIGHT0
glEnable $GL_COLOR_MATERIAL
glEnable $GL_NORMALIZE
glFrontFace $GL_CCW
glMaterial $GL_SPECULAR, 0,.8,.8,1
GLshininess 19
glColor3 1,0,0
gleSetJoinStyle $TUBE_NORM_EDGE + $TUBE_JN_ROUND + $TUBE_JN_CAP
gleTextureMode $GLE_TEXTURE_ENABLE + $GLE_TEXTURE_VERTEX_FLAT
;gleSetNumSides 30
GLinsert_i $GL_INIT
glMatrixMode $GL_PROJECTION
glLoadIdentity
gluPerspective 60,.1,200
glMatrixMode $GL_MODELVIEW
glLoadIdentity
glClearColor 0,0,0,1
GLinsert_i $GL_NOT_VALID
glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT
GLinsert_i 1
;///////////////////////////////////////////////////
instr 1
;///////////////////////////////////////////////////
k1 oscili 1, .0212, giPosSine,.75
k2 oscili 1, .02113456, giPosSine
k3 oscili 1, .02105, giPosSine
;k3b oscili 4.5, .043215, giPosSine,.25
k4 oscili 1, .2, giPosSine
;k5 oscili 1, 2, giPosSine
k6 oscili 1, .1, giSine
k7 oscili 1, .05, giPosSine
kph phasor .01
glLoadIdentity
glTranslate 0,0,-5
glPushMatrix
glRotate k1*360,0,1,0
glRotate k2*360,1,0,0
glRotate k3*360,0,0,1
gleHelicoid .5, \;*** circle contour (torus) radius
k4, \;*** spiral start radius in x-y plane
.1, \;*** change in radius per revolution
0, \;*** starting z value
k6*.65, \;*** change in Z per revolution
giSTARTXF,\;*** starting contour affine xform
giXFORMD, \;*** tangent change xform per revoln
0, \;*** start angle in x-y plane
360*4; ;*** degrees to spiral around
glPopMatrix
GLinsert 1.1
endin
i1 0 3600