Changeset 309 for trunk/thune/gl

Timestamp:

11/09/06 02:31:27 (2 years ago)

Author:

krobillard

Message:

Thune - set-select works on coord!. GL ortho camera now puts origin at
lower left.

Location:

trunk/thune/gl

Files:

• draw_list.c (modified) (2 diffs)
• test.t (modified) (4 diffs)

trunk/thune/gl/draw_list.c

@@ -352 +352 @@
         else
         {
-            w *= 0.5;   // * aspect
-            h *= 0.5;
-            glOrtho( -w, w, -h, h,
+            glOrtho( 0, w, 0, h,
                      number_d( ctxCells + CAM_CTX_NEAR ),
                      number_d( ctxCells + CAM_CTX_FAR ) );
@@ -692 +690 @@
                 break;
 
+            case DOP_TRANSLATE:
+                ++pc;
+                VAL_WORD_OR_PC
+                if( ur_is(val, UT_VEC3) )
+                {
+                    glTranslatef( val->vec3.xyz[0],
+                                  val->vec3.xyz[1],
+                                  val->vec3.xyz[2] );
+                }
+                break;
+
+            case DOP_ROTATE:
+                break;
+
             case DOP_SCALE:
             {

trunk/thune/gl/test.t

@@ -9 +9 @@
 
 10.0 :zoom
+
+0.0,0.0,0.0 :center
 
 [
@@ -155 +157 @@
 
         dup :.t
-        .t/3 2 div :.t/3
-        .t/4 2 div :.t/4
+        .t/3 2 div  dup :center/x  :.t/3
+        .t/4 2 div  dup :center/y  :.t/4
         .t :visual-cam/viewport
     ]
@@ -194 +196 @@
         lighting off
         push
+            translate center
             scale zoom
             call bg-list
@@ -199 +202 @@
 
         font fontA  color $ffffff
-        text "Hello^/There"
+        text 0,400 "Line 1^/Line 2"
         text "More"
-        text -200,-200 "-200,-200"
+        text 200,200 "200,200"
         text mouse-pos mouse-pos
 
         font fontF
-        text 0,40 "Ceti Alpha III"
+        text 0,0 "ZERO"
 
         ;children ['draw get do] iter