ckx/gldemo1.ck

   1
   2 "gl.ckx" => (:gl:);
   3 "glu.ckx" => (:glu:);
   4 "gluck.ckx" => (:gluck:);
   5
   6
   7 //MUST be called before any other gluck function
   8 gluck.Init();
   9
  10 gluck.InitBasicWindow("danger! teapot!"); //generate a simple window
  11
  12 gluck.InitCallbacks(1, 1, 1); //register callbacks for the window
  13 //arguments monitor ( mouse, motion, keyboard );
  14
  15 //why is dummy here?
  16 //using actual values ( from the glut.h headers ) for these because
  17 //we haven't set up the constant (huge) namespace..
  18 5889 => uint dummy; //PROJECTION_MATRIX
  19 gl.MatrixMode(dummy);
  20 gl.LoadIdentity();
  21 gl.Ortho(-1.0, 1.0, -1.0 , 1.0, -4.0 , 4.0 );
  22
  23 5888 => dummy; //GL MODELVIEW_MATRIX
  24 gl.MatrixMode(dummy);
  25 gl.LoadIdentity();
  26 gl.ClearColor ( 0.0 , 0.0, 0.3, 0.0 );
  27
  28
  29
  30 //our variables
  31
  32 0.0 => float tm;
  33 440.0 => float fc;
  34 220.0 => float ampM;
  35 0.0 => float frac;
  36
  37 0 => int lastx;
  38 0 => int lasty;
  39
  40 0.0 => float curx;
  41 0.0 => float cury;
  42
  43 0.0 => float bg;
  44 0.0 => float avol;
  45
  46 noise n => biquad b => dac;
  47
  48 0.99 => b.prad;
  49 1    => b.eqzs;
  50
  51 100.0 => b.pfreq;
  52 0.1 => b.gain;
  53
  54
  55 sinosc a => dac;
  56 fc => a.freq;
  57 0.3 => a.gain;
  58
  59 function void thedrawloop() {
  60
  61                 16640 => dummy; //GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
  62                 gl.Clear( dummy );
  63
  64                 gl.LineWidth(2.0);
  65                 gl.PushMatrix();
  66                 gl.Translatef ( curx, cury, 0.0);
  67 //              gl.Scalef  ( 1.1 + math.sin ( tm * 0.2 ), 1.1 + math.sin ( tm * 0.2 ), 1.1 + math.sin ( tm * 0.2 ) );
  68                 gl.Scalef  ( 0.1 + avol , 0.1 + avol , 0.1 + avol );
  69                 gl.Rotatef ( tm * 45.0, 1.0, 0.0 , 0.0 );
  70                 gl.Rotatef (tm * 60.0, 0.0, 1.0 , 0.0 );
  71
  72                 if ( bg > 0.0 ) {
  73                         gl.Color4f( 0.0, 0.0, 0.0, 0.95 );
  74                         gluck.SolidTeapot ( 0.5  );
  75                         gl.Color4f( frac , 0.5 + 0.5 * curx , 0.05 + 0.5 * cury, 0.5 );
  76                         gluck.WireTeapot ( 0.5 + bg );
  77
  78                 }
  79                 else {
  80                         gl.Color4f( frac , 0.5 + 0.5 * curx , 0.05 + 0.5 * cury, 0.5 );
  81                         gluck.WireTeapot( 0.5 );
  82                 }
  83                 gl.PopMatrix();
  84                 gl.Flush();
  85                 gluck.SwapBuffers();
  86
  87 }
  88
  89 function void theeventloop() {
  90         while ( gluck.HasEvents() ) {
  91                 gluck.GetNextEvent() => int id;
  92
  93                 if ( gluck.GetEventType(id) == 0 ) {
  94                         if ( gluck.GetEventX(id) == lastx & gluck.GetEventY(id) == lasty  ) {
  95                                 0.2 => bg;
  96                                 avol + 0.04 => avol;
  97                         }
  98                         gluck.GetEventX(id) => lastx;
  99                         gluck.GetEventY(id) => lasty;
 100
 101                 }
 102                 if ( gluck.GetEventType(id) == 1 ) {
 103                         2.0 * ( (float) gluck.GetEventX(id) / (float) gluck.GetViewDims(0) ) - 1.0  => curx;
 104                         -2.0 * ( (float) gluck.GetEventY(id) / (float) gluck.GetViewDims(1) ) + 1.0  => cury;
 105                         (float) gluck.GetEventX(id) => fc;
 106                         (float) gluck.GetEventY(id) => ampM;
 107                         gl.ClearColor(0.0, 0.5 + -0.5 * curx, 0.5 + -0.5 * cury, 0.0);
 108                 }
 109                 if ( gluck.GetEventType(id) == 3 ) {
 110                         gluck.GetEventKey(id) => uint k;
 111                         100.0 + (float) ( k - 65 ) * 50.0 => b.pfreq;
 112                         0.2 => bg;
 113                         avol + 0.04 => avol;
 114                 }
 115         }
 116 }
 117
 118 function void theaudiocontrol( ) {
 119         fc + ampM * frac => a.sfreq;
 120 //      0.4 + 0.3 * math.sin ( tm * 0.2 ) => a.gain;
 121         if ( avol > 1.5 ) 1.5 => avol;
 122         0.1 + avol => a.gain;
 123         avol + ( 0.033 * -0.1 ) => avol;
 124         if ( avol < 0.0 ) { 0.0 => avol; }
 125         bg + ( 0.033 * -0.4 ) => bg ; //drain bg
 126         if ( bg < 0.0 ) { 0.0 => bg; }
 127         bg => b.gain;
 128 }
 129
 130 function void thegraphicscall( ) {
 131
 132         gluck.MainLoopEvent(); //...
 133
 134         if ( gluck.NeedDraw()  ) { thedrawloop(); }
 135         if ( gluck.NeedEvent() ) { theeventloop(); }
 136
 137         gluck.PostRedisplay();
 138
 139 }
 140
 141 while ( true ) {
 142
 143         std.abs ( 2.0 * ( -0.5 + tm - math.floor(tm)) ) => frac;
 144
 145         thegraphicscall ();
 146
 147         theaudiocontrol();
 148
 149         tm + 0.033 => tm;
 150
 151         33::ms => now;
 152 }