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