Return to simple-gl-1.rr CVS log

Up to [local] / OpenXM / src / cfep / Samples

Annotation of OpenXM/src/cfep/Samples/simple-gl-1.rr, Revision 1.1.1.1

1.1       takayama    1: /*
                      2:   使い方:
                      3:   ファイル全体を実行したあと test4(); を呼び出す.
                      4:                                          test(); を呼び出す.
                      5: */
                      6: def test4() {
                      7:     glib_init_send("0;[glib3_std_scene0]");
                      8:   glib_init_send("0;[glib_flush]");
                      9:   glib_send("0; [glib3_bounding_box, 1.2]");
                     10:   glib_send("0; [glColor4f, 1.0, 0.0, 0.0, 1.0]");
                     11:   glib_send("0;[glBegin, (int) 4]");  /* GL_TRIANGLES */
                     12:   glib_send("0;[glVertex3f,0s,0,0]");
                     13:   glib_send("0;[glVertex3f,0,1,0]");
                     14:   glib_send("0;[glVertex3f,1,0,0.2]");
                     15:   glib_send("0;[glEnd]");
                     16:   glib_send("0;[glib_flush]");
                     17: }
                     18: def test() {
                     19:   /* gid; commands */
                     20:   glib_init_send("0;[glColor4f,1.0,0.8,1.0,1.0]");
                     21:   glib_send("0;[glColor4f, 1.0, 0.0, 0.0, 0.0, 1.0]");
                     22:   glib_send("0;[glRectf,-0.3, -0.3, 0.3, 0.3]");
                     23:   glib_send("0;[glib_flush]");
                     24:   glib_init_send("1; [glColor4f, 1.0,0.0,0.0,0.3]");
                     25:   glib_init_send("1; [glRectf, -0.1,-0.1,0.1,0.1]");
                     26:   glib_init_send("1; [glib_flush]");
                     27:   glib_send("1; [glib_line,0.0,0.0,0.5,0.5,(int)255]");
                     28:   glib_send("1; [glib_flush]");
                     29: }
                     30: /* test1(); */
                     31: def test1() {
                     32:   for (I= 0; I<1.0; I += 0.05) {
                     33:      myline(0,0,0.6,I, [random()%256,random()%256,random()%256]);
                     34:  }  /* bug なぜか線の色が黒になる.  color が全部0. 2006.02.22*/
                     35:  glib_send("1;[glib_flush]");
                     36: }
                     37: def myline(X,Y,X2,Y2,C) {
                     38:   X = rtostr(deval(X)); Y = rtostr(deval(Y));
                     39:   X2 = rtostr(deval(X2)); Y2=rtostr(deval(Y2));
                     40:   CC = C[0]*(256*256)+C[1]*256+C[0];
                     41:   CC=rtostr(CC); print(C,0); print(CC);
                     42:   glib_send("1; [glib_line,"+X+","+Y+","+X2+","+Y2+","+CC+"]");
                     43: }
                     44: def t_encode1(X) {
                     45:   return [
                     46:      ior(0xf8,iand(0x3,ishift(X,6))),
                     47:      ior(0xf0,iand(0x7,ishift(X,3))),
                     48:      ior(0xf0,iand(0x7,X))];
                     49: }
                     50: def t_encode_str(S) {
                     51:   Ans = [ ];
                     52:   Codes = strtoascii(S);
                     53:   N = length(Codes);
                     54:   for (I=0; I<N; I++) {
                     55:      T = t_encode1(Codes[I]);
                     56:      Ans = cons(T[0],Ans);
                     57:      Ans = cons(T[1],Ans);
                     58:      Ans = cons(T[2],Ans);
                     59:   }
                     60:   return reverse(Ans);
                     61: }
                     62: def t_encode(S) {
                     63:   return asciitostr(t_encode_str(S));
                     64: }
                     65: def glib_send(S) {
                     66:    S=S+"\n";
                     67:    N=length(strtoascii(S))+1;
                     68:    C=t_encode("{1<"+rtostr(N)+" "+S+" >}");
                     69:    ctrl("hex",1);
                     70:    output(); ctrl("hex",0);
                     71:    print(C); output(); /* channel 1 にコマンドを送る */
                     72: }
                     73: def glib_init_send(S) {
                     74:    S=S+"\n";
                     75:    N=length(strtoascii(S))+1;
                     76:    C=t_encode("{2<"+rtostr(N)+" "+S+" >}");
                     77:    ctrl("hex",1);
                     78:    output(); ctrl("hex",0);
                     79:    print(C); output(); /* channel 2 にコマンドを送る. OpenGL 初期化 */
                     80: }
                     81:
                     82:
                     83: