Changeset 2023 for trunk/lang/tcl/src/RpVideoTclInterface.cc

Timestamp:

Jan 9, 2011, 9:30:53 PM (14 years ago)

Author:

dkearney

Message:

updates for video widgets
two new video dials
video chooser widget for selecting movies
video preview widget is a no frills movie player.
updated c code to more correctly report the last frame of the movie.
new video speed widget which allows for fractional values between 0x and 1.0x
updated piv/pve example application
fixed "release" function in tcl bindings for RpVideo?

File:

• trunk/lang/tcl/src/RpVideoTclInterface.cc (modified) (4 diffs)

trunk/lang/tcl/src/RpVideoTclInterface.cc

@@ -30 +30 @@
 
 static Rp_OpSpec rpVideoOps[] = {
-    {"get",  1, (void *)GetOp, 3, 5, "[image ?width height?]|[position cur|end]|[framerate]",},
+    {"get",   1, (void *)GetOp, 3, 5, "[image ?width height?]|[position cur|end]|[framerate]",},
     {"next",  1, (void *)NextOp, 2, 2, "",},
+    {"release", 1, (void *)ReleaseOp, 2, 2, "",},
     {"seek",  1, (void *)SeekOp, 3, 3, "+n|-n|n",},
     {"size",  1, (void *)SizeOp, 2, 2, "",},
-    {"release", 1, (void *)ReleaseOp, 2, 2, "",},
 };
 
@@ -243 +243 @@
          Tcl_Obj *const *objv)
 {
-
-//    void *img = NULL;
-//    int width = 960;
-//    int height = 540;
-//    int bufSize = 0;
-
     int pos = 0;
     VideoGoNext((VideoObj *)clientData);
     VideoGetPositionCur((VideoObj *)clientData,&pos);
     Tcl_SetObjResult(interp, Tcl_NewIntObj(pos));
-//    VideoGetImage((VideoObj *)clientData, width, height, &img, &bufSize);
-
-//    Tcl_SetByteArrayObj(Tcl_GetObjResult(interp),
-//                        (const unsigned char*)img, bufSize);
 
     return TCL_OK;
@@ -277 +267 @@
          Tcl_Obj *const *objv)
 {
-
-//    void *img = NULL;
-//    int width = 960;
-//    int height = 540;
-//    int bufSize = 0;
     const char *val_s = NULL;
     int val = 0;
@@ -311 +296 @@
         int c = 0;
         c = VideoGoToN((VideoObj *)clientData, val);
-        // printf("c = %d\tval = %d\n",c,val);
-    }
-
-//    VideoGetImage((VideoObj *)clientData, width, height, &img, &bufSize);
-
-//    if (img == NULL) {
-//        printf("img is null\n");
-//    }
-
-//    Tcl_SetByteArrayObj(Tcl_GetObjResult(interp),
-//                        (const unsigned char*)img, bufSize);
+    }
 
     VideoGetPositionCur((VideoObj *)clientData,&pos);