-+P5 -+O -m0 -+K0 sr = 44100.0 kr = 4410.0 ksmps = 10.0 nchnls = 2 zakinit 3, 6 #include "OpenGL.h" GLfps 30.0, .5 GLpanel "OpenGL panel", 1024, 480 GLpanel_end FLrun giTextOsc ftgen 0,0,128,7,0,128,1 giNurbObj13 gluNewNurbsRenderer gluNurbsProperty giNurbObj13, $GLU_DISPLAY_MODE, $GLU_FILL gluNurbsProperty giNurbObj13, $GLU_SAMPLING_METHOD, $GLU_DOMAIN_DISTANCE gluNurbsProperty giNurbObj13, $GLU_U_STEP, 40 gluNurbsProperty giNurbObj13, $GLU_V_STEP, 40 giCPoints13 ftgen 0,0,256, -2, 0, 0, 0.0, \;*** u = 0 v = 0 0, 1, 0.0, \;*** v = 1 0, 2.0, 0.0, \;*** v = 2 .0, 3.0, 0.0, \;*** v = 3 1, 0, 0.0, \;*** u = 1 v = 0 1, 1, 0.0, \;*** v = 1 1, 2, 0.0, \;*** v = 2 1, 3, 0.0, \;*** v = 3 2.0, 0, 0.0, \;*** u = 2 v = 0 2.0, 1.0, 0.0, \;*** v = 1 2.0, 2.0, 0.0, \;*** v = 2 2.0, 3.0, 0.0, \;*** v = 3 3.0, 0, 0.0, \;*** u = 3 v = 0 3.0, 1, 0.0, \;*** v = 1 3.0, 2, 0.0, \;*** v = 2 3.0, 3, 0.0 ;*** v = 3 giKnots13 ftgen 0,0,64, -2, 0.0, 0.0, 0.0, 0.0, 1.0, 1.0, 1.0, 1.0 giTex13_1_1 GLloadTexture "C:/HplanK/textures/givre/givre053m.PNG", $PNG_ALPHA, $GL_REPEAT giGeo14 GLwavefrontModel "C:/HplanK/models/sphereBig.obj", $GLM_SMOOTH, 50.0, 0, 0 giTex14_1_1 GLloadTexture "C:/HplanK/textures/bw/bw3.png", $PNG_ALPHA, $GL_REPEAT giTex14_1_2 GLloadTexture "C:/HplanK/textures/bw/bw2.png", $PNG_ALPHA, $GL_REPEAT giTex14_1_3 GLloadTexture "C:/HplanK/textures/blue/bb2.png", $PNG_ALPHA, $GL_REPEAT giTex14_1_4 GLloadTexture "C:/HplanK/textures/red/rb2.png", $PNG_ALPHA, $GL_REPEAT giGeo15 GLwavefrontModel "C:/HplanK/models/sphereBig.obj", $GLM_SMOOTH, 50.0, 0, 0 giTex15_1_1 GLloadTexture "C:/HplanK/textures/bw/bw3.png", $PNG_ALPHA, $GL_REPEAT giTex15_1_2 GLloadTexture "C:/HplanK/textures/bw/bw2.png", $PNG_ALPHA, $GL_REPEAT giTex15_1_3 GLloadTexture "C:/HplanK/textures/bw/croix1.png", $PNG_ALPHA, $GL_REPEAT giTex15_1_4 GLloadTexture "C:/HplanK/textures/bw/bw5.png", $PNG_ALPHA, $GL_REPEAT giGeo16 GLwavefrontModel "C:/HplanK/models/sphereBig.obj", $GLM_SMOOTH, 50.0, 0, 0 giTex16_1_1 GLloadTexture "C:/HplanK/textures/bw/bw3.png", $PNG_ALPHA, $GL_REPEAT giTex16_1_2 GLloadTexture "C:/HplanK/textures/bw/bw2.png", $PNG_ALPHA, $GL_REPEAT giTex16_1_3 GLloadTexture "C:/HplanK/textures/bw/croix1.png", $PNG_ALPHA, $GL_REPEAT giTex16_1_4 GLloadTexture "C:/HplanK/textures/bw/bw5.png", $PNG_ALPHA, $GL_REPEAT glEnable $GL_DEPTH_TEST glEnable $GL_TEXTURE_2D glEnable $GL_CULL_FACE glShadeModel $GL_SMOOTH glEnable $GL_LIGHTING glEnable $GL_COLOR_MATERIAL glEnable $GL_AUTO_NORMAL glEnable $GL_NORMALIZE glEnable $GL_BLEND glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glHint $GL_POLYGON_SMOOTH_HINT, $GL_NICEST glHint $GL_PERSPECTIVE_CORRECTION_HINT, $GL_NICEST glEnable $GL_LIGHT1 glLight $GL_LIGHT1, $GL_SPOT_CUTOFF, 180 glLight $GL_LIGHT1, $GL_SPOT_EXPONENT, 0 glLight $GL_LIGHT1, $GL_CONSTANT_ATTENUATION, 0.1 glLight $GL_LIGHT1, $GL_LINEAR_ATTENUATION, 0 glLight $GL_LIGHT1, $GL_QUADRATIC_ATTENUATION, 0.01 glEnable $GL_LIGHT2 glLight $GL_LIGHT2, $GL_SPOT_CUTOFF, 180 glLight $GL_LIGHT2, $GL_SPOT_EXPONENT, 0 glLight $GL_LIGHT2, $GL_CONSTANT_ATTENUATION, 0.1 glLight $GL_LIGHT2, $GL_LINEAR_ATTENUATION, 0 glLight $GL_LIGHT2, $GL_QUADRATIC_ATTENUATION, 0.01 GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 45,.1,1000 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 ; Sound instr 10 kres linseg 1.0, 7.38, 449.9809, 0.48, 274.9141, 12.14, 1.0, 27.19, 93.8926 \ , 2.08, 415.4439, 7.8, 35.537, 36.73, 41.4916, 8.2, 467.8449, 13.0, 214.1766 \ , 15.2, 8.1456, 78.44, 302.3233 km1 linseg 0.01, 2.55, 0.0957, 15.87, 0.0225, 1.58, 0.1, 31.84, 0.0635 \ , 5.52, 0.0156, 23.04, 0.0747 km2 = 0.5 km3 linseg 0.01, 20.0, 0.1, 49.19, 0.0231, 81.92, 0.0936 km4 = 1.0 km5 = 0.1 km6 linseg 0.01, 12.54, 0.0171, 7.46, 0.1, 20.56, 0.0396, 17.28, 0.0796 \ , 13.88, 0.0298, 5.32, 0.0126, 2.64, 0.0704, 10.08, 0.0489, 9.6, 0.0905 \ , 3.6, 0.0184, 10.8, 0.0603, 14.16, 0.0156, 13.92, 0.0854, 18.48, 0.0274 \ , 69.98, 0.0646, 23.5, 0.0167 kf1 linseg 0.1, 20.0, 2.0, 15.49, 1.9728, 0.78, 0.1862, 35.75, 0.236 \ , 10.01, 1.9547 kf2 = 1.0 kc1 = 1.0 kamod linseg 0.7283, 1.68, 1.0, 5.1, 0.0163, 4.05, 0.685, 3.57, 0.5537 \ , 5.6, 1.0, 0.54, 0.0738, 2.14, 0.8449, 24.24, 0.9881, 1.57, 0.0413 \ , 1.55, 0.9881, 24.96, 0.1225, 0.12, 0.9714, 47.48, 0.6539, 4.8, 0.0392 \ , 20.72, 0.3601, 56.18, 0.2673, 19.35, 0.4535, 7.35, 0.0538, 9.3, 0.611 \ , 107.58, 0.0333 kfi linseg 500.0, 1.38, 2000.0, 4.23, 500.0, 14.39, 2000.0, 10.0, 500.0 \ , 11.4, 1630.621, 38.1, 500.0, 18.36, 2000.0, 12.14, 1362.4105, 55.75, 543.3174 \ , 25.74, 1431.4775 koutput = 3000.0 ; FM parameters varation k1 randomh .01, kc1, km1 ; carrier 1 k2 randomh .08, kf1, km2 ; mod 1 k3 randomh .1, 1.01, km3 ; index 1 k4 randomh 1, 7, km4 ; carrier 2 k5 randomh .1, kf2, km5 ; mod 2 k6 randomh .1, 1.01, km6 ; index 2 k7 randomh .1, 1.03, .1 ; sound generator kplu1 jitter 9, .1, .01 kplu2 jitter 11, .1, .03 kfreq1 randomh 10, 100, .013 a3 gbuzz 1, 1128+kplu1+kfreq1, k4, 1, 1, 17 a4 gbuzz 1, 498+kplu2+kfreq1, 1, k4, 1, 17 ;a3 foscili 1, 28+kplu1+kfreq1, 1, k3, k5, 10 ;a4 foscili 1, 8+kplu2+kfreq1, 1, k3, k6, 10 a6 foscili 1, 68+kplu2+kfreq1, 1, k3, k7, 10 a5 foscili 1, 108+kplu2+kfreq1, 1, k3, 1, 10 as sum a3, a4, a5, a6 ; waveguide transformation asig wguide1 as, 15, 600, .82 ; flanger krp randomi .1, .5, .1 kff randomi .1, .3, .03 arf oscili 1, kff, 10 asig flanger asig, arf, krp, 1 ; Ring Mod kringmod randomh .1, 10, .5 kringmod2 randomh 10, 520, .1 kring randomh 0.1, kringmod2, kringmod ar oscili 1, kring, 10 aring = asig * ar ; Filter varation kim1 randomh .1, 5, .01 kf1 randomh 220, kfi, kim1 alow, ahigh, aband svfilter aring, kf1, kres, 1 kfh randomi .1, 1, .01 asig sum alow * kfh, ahigh, aband * (1-kfh) asig balance asig, aring kph randomh 100, 5000, .03 asigp phaser1 asig, kph, 64, .95 asig sum asigp, asig kph2 randomh 100, 3550, .033 asigph phaser1 ahigh, kph2, 64, .98 ar2 balance asigph, asig ; amplitude variation kamp randomi .9, 1, .07 asig = asig * kamod * kamp ; compression asig dam asig, .5, .05, .1, .1, .1 krr rms asig krms portk krr, .08 zaw asig, 2 zaw ar2, 1 outs asig * koutput, asig * koutput zkw krms, 1 endin instr 11 ; FDN koutput = 100.0 asig zar 1 ifdbk = 0.9 idelay = 7.575 / 4 afdbk1 init 0 asign = asig + afdbk1*ifdbk atemp delayr 1 atap1 deltapi .0396*idelay atap2 deltapi .0662*idelay atap3 deltapi .1194*idelay atap4 deltapi .1726*idelay atap5 deltapi .2790*idelay atap6 deltapi .3328*idelay delayw asign afdbk1 butterlp atap6, 2260.5 abbd sum atap1, atap2, atap3, atap4, atap5, atap6 asigo butterlp abbd, 1068.5 asigof1 balance asigo, asig asigof2 butterbr abbd, 500, 100 asigof2 balance asigof2, asig kpan oscil 1, .05, 19 kpan2 oscil 1, .021, 19 asigr = asigof2 * kpan2 + asigof1 * kpan asigl = asigof2 * (1-kpan2) + asigof1 * (1-kpan) kdclick linseg 0, 1, 0, 1, 1, p3-3, 1, 1, 0 asigl = asigl * kdclick asigr = asigr * kdclick krr rms asigl krms portk krr, .08 outs asigl * 100.0, asigr * 100.0 zkw kpan, 2 zkw kpan2, 3 zkw krms, 4 endin instr 12 ; Reverb koutput = 800.0 asig zar 2 af1 init 0 af2 init 0 af3 init 0 af4 init 0 igain = 0.68 ; gain of reverb 0.708710678117 ipitchmod = 1.0 ; amount of random pitch mod, between 0 and 1 idelaytime = 2 ; controls overall length of delay lines kfilt = 6000 ; controls cutoff of lowpass filters at outputs of delay lines ifreq = 1.0 ; controls frequency of random noise k1 randi .001, 3.1 * ifreq, .06 k2 randi .0011, 3.5 * ifreq, .9 k3 randi .0017, 1.11 * ifreq, .7 k4 randi .0006, 3.973 * ifreq, .3 atap multitap asig, 0.00043, 0.0215, 0.00268, 0.0298, 0.00485, 0.0572, 0.00595, 0.0708, 0.00741, 0.0797, 0.0142, 0.134, 0.0217, 0.181, 0.0272, 0.192, 0.0379, 0.346, 0.0841, 0.504 adum1 delayr 0.072 adel1 deltapi 0.0663 * idelaytime + k1 * ipitchmod delayw asig + af2 + af3 adum2 delayr 0.082 adel2 deltapi 0.0753 * idelaytime + k2 * ipitchmod delayw asig - af1 - af4 adum3 delayr 0.095 adel3 deltapi 0.0882 * idelaytime + k3 * ipitchmod delayw asig + af1 - af4 adum4 delayr 0.11 adel4 deltapi 0.0971 * idelaytime + k4 * ipitchmod delayw asig + af2 - af3 af1 tone adel1 * igain, kfilt af2 tone adel2 * igain, kfilt af3 tone adel3 * igain, kfilt af4 tone adel4 * igain, kfilt asigl = af1 + af4 + atap asigr = af2 + af3 + atap asigl dcblock asigl asigr dcblock asigr krr rms asigl krms portk krr, .08 outs asigl * 800.0, asigr * 800.0 zkw krms, 5 endin instr 13 ; background ki54 zkr 1 ti54 = t(ki54*2.5-10.0) ki55 zkr 1 ti55 = t(ki55*0.5+1.0) ki56 zkr 2 ti56 = t(ki56*10.0) ki57 zkr 3 ti57 = t(ki57*5.0) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate -16.0, -7.0, -5.0 glTranslate 0.0, 0.0, 0.0 glRotate -10.0, 0.0, 1.0, 0.0 glRotate 0.0, 0.0, 1.0, 0.0 glScale 11.0, 7.0, 1.0 glRotate 0.0, 0.0, 1.0, 0.0 glTranslate 0.0, 0.0, 0.0 glDisable $GL_BLEND glEnable $GL_DEPTH_TEST glColor 0.0, 0.0, 0.25098039215686274, 1.0 glMaterial $GL_SPECULAR, 0.5019607843137255, 0.5019607843137255, 1.0, 1 glMaterial $GL_EMISSION, 0.0, 0.0, 0.0, 1 GLshininess 20.0 glEnable $GL_TEXTURE_2D glMatrixMode $GL_TEXTURE glLoadIdentity glTranslate -0.0, -0.0, 0 glScale 5.0, 3.0, 1 glRotate 0.0, 0, 0, 1 glTranslate 0.0, 0.0, 0 glTranslate 0.0, 0.0, 0 glTexEnvi $GL_MODULATE glBindTexture giTex13_1_1 glTexGeni $GL_S, $GL_SPHERE_MAP glTexGeni $GL_T, $GL_SPHERE_MAP glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T glMatrixMode $GL_MODELVIEW GLtabw ti54, 17, giCPoints13 GLtabw ti55, 32, giCPoints13 GLtabw ti56, 20, giCPoints13 GLtabw ti57, 29, giCPoints13 gluBeginSurface giNurbObj13 gluNurbsSurface giNurbObj13, \ ;** NURBS renderer object 8, giKnots13, \ ;** No. of knots and knot array u direction 8, giKnots13, \ ;** No. of knots and knot array v direction 12.0, \ ;** Distance between control points in u dir. 3.0, \ ;** Distance between control points in v dir. giCPoints13, \ ;** Control points 4, 4, \ ;** u and v order of surface $GL_MAP2_TEXTURE_COORD_2 ;** Type of surface gluNurbsSurface giNurbObj13, \ ;** NURBS renderer object 8, giKnots13, \ ;** No. of knots and knot array u direction 8, giKnots13, \ ;** No. of knots and knot array v direction 12, \ ;** Distance between control points in u dir. 3, \ ;** Distance between control points in v dir. giCPoints13, \ ;** Control points 4, 4, \ ;** u and v order of surface $GL_MAP2_VERTEX_3 ;** Type of surface gluEndSurface giNurbObj13 ;** Done with surface glDisable $GL_TEXTURE_2D glDisable $GL_TEXTURE_GEN_S glDisable $GL_TEXTURE_GEN_T glPopMatrix GLinsert 1.2 endin instr 14 ; sphere 1 ki58 zkr 3 ti58 = t(ki58*3.0) ki68 zkr 1 ti68 = t(ki68*0.25+1.0) ki69 zkr 1 ti69 = t(ki69*0.25+1.0) ki70 zkr 1 ti70 = t(ki70*0.5+1.0) ki87 linseg 0.0, 2.7, 1.9088, 11.46, 0.118, 5.84, 2.0, 5.5, 0.1716 \ , 38.2, 1.6944, 42.3, 0.7721, 107.12, 1.6354, 83.44, 0.193 ti87 = t(ki87) ki90 linseg 0.1, 20.0, 2.0, 226.4, 0.2019 ti90 = t(ki90) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate ti58, 0.0, 0.0 glTranslate 0.0, 0.0, 0.0 glRotate 0.0, 0.0, 1.0, 0.0 glRotate 0.0, 0.0, 1.0, 0.0 glScale ti68, ti69, ti70 glRotate 0.0, 0.0, 1.0, 0.0 glTranslate 0.0, 0.0, 0.0 glDisable $GL_BLEND glEnable $GL_DEPTH_TEST glColor 0.5019607843137255, 0.5019607843137255, 0.5019607843137255, 1.0 glMaterial $GL_SPECULAR, 0.0, 0.0, 1.0, 1 glMaterial $GL_EMISSION, 0.0, 0.0, 0.0, 1 GLshininess 2.0 glEnable $GL_TEXTURE_2D glMatrixMode $GL_TEXTURE glLoadIdentity glTranslate -0.0, -0.0, 0 glScale 1.0, ti90, 1 glRotate 0.0, 0, 0, 1 glTranslate 0.0, 0.0, 0 glTranslate ti87, 0.0, 0 glTexEnvi $GL_MODULATE tevol_14 GLoscil 4, 840.0, giTextOsc GLif (tevol_14 < 1) tTex14 = giTex14_1_1 GLelse GLif (tevol_14 < 2) tTex14 = giTex14_1_2 GLelse GLif (tevol_14 < 3) tTex14 = giTex14_1_3 GLelse GLif (tevol_14 < 4) tTex14 = giTex14_1_4 GLend_if GLend_if GLend_if GLend_if glBindTexture tTex14 glTexGeni $GL_S, $GL_OBJECT_LINEAR glTexGeni $GL_T, $GL_OBJECT_LINEAR glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T glMatrixMode $GL_MODELVIEW glCallList giGeo14 glDisable $GL_TEXTURE_2D glDisable $GL_TEXTURE_GEN_S glDisable $GL_TEXTURE_GEN_T glPopMatrix GLinsert 1.2 endin instr 15 ; sphere 2 ki96 zkr 3 ti96 = t(ki96*4.0) ki105 zkr 2 ti105 = t(ki105*180.0+180.0) ki106 zkr 4 ti106 = t(ki106*0.1+1.0) ki107 zkr 4 ti107 = t(ki107*0.1+1.0) ki108 zkr 4 ti108 = t(ki108*0.1+1.0) ki125 linseg 0.0, 2.7, 1.9088, 11.46, 0.118, 5.84, 2.0, 5.5, 0.1716 \ , 38.2, 1.6944, 42.3, 0.7721, 107.12, 1.6354, 83.44, 0.193 ti125 = t(ki125) ki128 linseg 0.1, 20.0, 2.0, 226.4, 0.2019 ti128 = t(ki128) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate ti96, 0.0, 0.0 glTranslate 0.0, 0.0, 0.0 glRotate ti105, 1.0, 1.0, 0.0 glRotate 100.0, 0.3, 0.3, 0.3 glScale ti106, ti107, ti108 glRotate 100.0 * -1, 0.3, 0.3, 0.3 glTranslate 0.0, 0.0, 0.0 glEnable $GL_BLEND glDisable $GL_DEPTH_TEST glBlendFunc $GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA glColor 0.5019607843137255, 0.5019607843137255, 0.5019607843137255, 0.7 glMaterial $GL_SPECULAR, 0.5019607843137255, 1.0, 1.0, 1 glMaterial $GL_EMISSION, 0.0, 0.0, 0.0, 1 GLshininess 2.0 glEnable $GL_TEXTURE_2D glMatrixMode $GL_TEXTURE glLoadIdentity glTranslate -0.0, -0.0, 0 glScale 1.0, ti128, 1 glRotate 0.0, 0, 0, 1 glTranslate 0.0, 0.0, 0 glTranslate ti125, 0.0, 0 glTexEnvi $GL_MODULATE tevol_15 GLoscil 4, 840.0, giTextOsc GLif (tevol_15 < 1) tTex15 = giTex15_1_1 GLelse GLif (tevol_15 < 2) tTex15 = giTex15_1_2 GLelse GLif (tevol_15 < 3) tTex15 = giTex15_1_3 GLelse GLif (tevol_15 < 4) tTex15 = giTex15_1_4 GLend_if GLend_if GLend_if GLend_if glBindTexture tTex15 glTexGeni $GL_S, $GL_OBJECT_LINEAR glTexGeni $GL_T, $GL_OBJECT_LINEAR glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T glMatrixMode $GL_MODELVIEW glCallList giGeo15 glDisable $GL_TEXTURE_2D glDisable $GL_TEXTURE_GEN_S glDisable $GL_TEXTURE_GEN_T glPopMatrix GLinsert 1.2 endin instr 16 ; sphere 3 ki134 zkr 3 ti134 = t(ki134*4.0) ki143 zkr 3 ti143 = t(ki143*180.0+180.0) ki144 zkr 5 ti144 = t(ki144*0.2+1.0) ki145 zkr 5 ti145 = t(ki145*0.2+1.0) ki146 zkr 5 ti146 = t(ki146*0.1+1.0) ki163 linseg 0.0, 2.7, 1.9088, 11.46, 0.118, 5.84, 2.0, 5.5, 0.1716 \ , 38.2, 1.6944, 42.3, 0.7721, 107.12, 1.6354, 83.44, 0.193 ti163 = t(ki163) ki166 linseg 0.1, 20.0, 2.0, 226.4, 0.2019 ti166 = t(ki166) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate ti134, 0.0, 0.0 glTranslate 0.0, 0.0, 0.0 glRotate ti143, 1.0, 1.0, 0.0 glRotate 100.0, 0.3, 0.3, 0.3 glScale ti144, ti145, ti146 glRotate 100.0 * -1, 0.3, 0.3, 0.3 glTranslate 0.0, 0.0, 0.0 glEnable $GL_BLEND glDisable $GL_DEPTH_TEST glBlendFunc $GL_ONE_MINUS_SRC_ALPHA, $GL_ONE glColor 0.5019607843137255, 0.5019607843137255, 0.5019607843137255, 0.7 glMaterial $GL_SPECULAR, 0.0, 0.5019607843137255, 0.7529411764705882, 1 glMaterial $GL_EMISSION, 0.0, 0.0, 0.0, 1 GLshininess 2.0 glEnable $GL_TEXTURE_2D glMatrixMode $GL_TEXTURE glLoadIdentity glTranslate -0.0, -0.0, 0 glScale 1.0, ti166, 1 glRotate 0.0, 0, 0, 1 glTranslate 0.0, 0.0, 0 glTranslate ti163, 0.0, 0 glTexEnvi $GL_MODULATE tevol_16 GLoscil 4, 840.0, giTextOsc GLif (tevol_16 < 1) tTex16 = giTex16_1_1 GLelse GLif (tevol_16 < 2) tTex16 = giTex16_1_2 GLelse GLif (tevol_16 < 3) tTex16 = giTex16_1_3 GLelse GLif (tevol_16 < 4) tTex16 = giTex16_1_4 GLend_if GLend_if GLend_if GLend_if glBindTexture tTex16 glTexGeni $GL_S, $GL_OBJECT_LINEAR glTexGeni $GL_T, $GL_OBJECT_LINEAR glEnable $GL_TEXTURE_GEN_S glEnable $GL_TEXTURE_GEN_T glMatrixMode $GL_MODELVIEW glCallList giGeo16 glDisable $GL_TEXTURE_2D glDisable $GL_TEXTURE_GEN_S glDisable $GL_TEXTURE_GEN_T glPopMatrix GLinsert 1.2 endin instr 17 ; no description ki190 linseg -7.6211, 0.29, -7.6211, 19.71, 10.0, 21.76, -12.0421, 95.44, -13.1049, 42.31, 45.5789 \ , 12.01, -15.803, 81.28, -11.4526 ti190 = t(ki190) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate -4.0, 0.0, 0.0 glTranslate 0.0, 0.0, 0.0 glRotate 0.0, 0.0, 1.0, 0.0 glTranslate 0.0, 0.0, 0.0 glLightv $GL_LIGHT1, $GL_AMBIENT, 0.3, 0.3 * 0.5019607843137255, 0, 1 glLightv $GL_LIGHT1, $GL_DIFFUSE, 1.0, 0.5019607843137255, 0, 1 glLightv $GL_LIGHT1, $GL_SPECULAR, 1.0, 0.5019607843137255, 0, 1 glLightv $GL_LIGHT1, $GL_POSITION, 0.0, 0.0, ti190, 1 glPopMatrix GLinsert 1.2 endin instr 18 ; no description ki203 linseg 0.0, 2.4, 347.666, 17.6, 360.0, 18.48, 38.5439, 19.36, 341.4989 \ , 89.28, 24.6681, 15.12, 346.1242 ti203 = t(ki203) glLoadIdentity glTranslate 0, 0, -10 glPushMatrix glTranslate 5.0, 0.0, 0.0 glTranslate 0.0, 0.0, 0.0 glRotate ti203, 0.0, 1.0, 0.0 glTranslate 0.0, 0.0, 0.0 glLightv $GL_LIGHT2, $GL_AMBIENT, 0, 0.3 * 0.3058823529411765, 0.3 * 0.6078431372549019, 1 glLightv $GL_LIGHT2, $GL_DIFFUSE, 0, 0.3058823529411765, 0.6078431372549019, 1 glLightv $GL_LIGHT2, $GL_SPECULAR, 0, 0.3058823529411765, 0.6078431372549019, 1 glLightv $GL_LIGHT2, $GL_POSITION, 0.0, 0.0, 0.0, 1 glPopMatrix GLinsert 1.2 endin f1 0 128 7 0 128 1 f10 0.0 65536 10 1 f11 0.0 65536 10 1 f12 0.0 65536 10 .4 .3 .35 .5 .1 .2 .15 0 .02 .05 .03 f13 0.0 1025 13 1 1 0 8 0 0 0 0 0 0 0 1 0 1 3 2 7 1 5 f14 0.0 65536 7 0 2048 1 4096 -1 2048 0 f15 0.0 65536 10 1 2 3 4 5 6 5 4 3 2 1 f16 0.0 65536 10 .4 .3 .35 .5 .1 .2 .15 0 .02 .05 .03 f17 0.0 16385 9 1 1 90 f18 0.0 4097 7 0 512 1 1536 1 512 0 f19 0.0 65536 10 1 i10 0 250.0 i11 0 250.0 i12 0 250.0 i13 0 250.0 i14 0 250.0 i15 0 250.0 i16 0 250.0 i17 0 250.0 i18 0 250.0