sawfish r4419 - in trunk: . lisp/sawfish/wm/ext

[chrisb svn gnome org]

Author: chrisb
Date: Tue Feb 17 10:01:31 2009
New Revision: 4419
URL: http://svn.gnome.org/viewvc/sawfish?rev=4419&view=rev

Log:
* lisp/sawfish/wm/ext/3d-hack.jl: remove annotate-points - not beeing used


Modified:
   trunk/ChangeLog
   trunk/config.h.in
   trunk/lisp/sawfish/wm/ext/3d-hack.jl

Modified: trunk/config.h.in
==============================================================================
--- trunk/config.h.in	(original)
+++ trunk/config.h.in	Tue Feb 17 10:01:31 2009
@@ -1,8 +1,5 @@
 /* config.h.in.  Generated from configure.in by autoheader.  */
 
-/* Define if building universal (internal helper macro) */
-#undef AC_APPLE_UNIVERSAL_BUILD
-
 /* Define to one of `_getb67', `GETB67', `getb67' for Cray-2 and Cray-YMP
    systems. This function is required for `alloca.c' support on those systems.
    */
@@ -164,17 +161,9 @@
 /* Define to 1 if you can safely include both <sys/time.h> and <time.h>. */
 #undef TIME_WITH_SYS_TIME
 
-/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
-   significant byte first (like Motorola and SPARC, unlike Intel). */
-#if defined AC_APPLE_UNIVERSAL_BUILD
-# if defined __BIG_ENDIAN__
-#  define WORDS_BIGENDIAN 1
-# endif
-#else
-# ifndef WORDS_BIGENDIAN
-#  undef WORDS_BIGENDIAN
-# endif
-#endif
+/* Define to 1 if your processor stores words with the most significant byte
+   first (like Motorola and SPARC, unlike Intel and VAX). */
+#undef WORDS_BIGENDIAN
 
 /* Have x11 */
 #undef X_DISPLAY_MISSING

Modified: trunk/lisp/sawfish/wm/ext/3d-hack.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/3d-hack.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/3d-hack.jl	Tue Feb 17 10:01:31 2009
@@ -170,19 +170,7 @@
 					 (aref 3d-face-gcs i)
 				       3d-white-gc))))
 
-    (define (annotate-points)
-      (do ((i 0 (1+ i))
-	   (len (length 3d-vertices)))
-	  ((= i len))
-	(x-draw-string (x-window-back-buffer 3d-window)
-		       3d-white-gc (aref 3d-flattened-vertices i)
-		       (format nil "(%.2d %.2d %.2d)"
-			       (aref (aref 3d-rotated-vertices i) 0)
-			       (aref (aref 3d-rotated-vertices i) 1)
-			       (aref (aref 3d-rotated-vertices i) 2)))))
-
     (draw-all)
-    ;;(annotate-points)
     )
 
   (define (3d-rotate)