[brlcad-commits] SF.net SVN: brlcad:[39087] brlcad/trunk/src/tclscripts/archer

[<bo...@us...>]

Revision: 39087
          http://brlcad.svn.sourceforge.net/brlcad/?rev=39087&view=rev
Author:   bob1961
Date:     2010-05-10 15:45:29 +0000 (Mon, 10 May 2010)

Log Message:
-----------
Added a set of images for sph. This is for the new tree view.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
    brlcad/trunk/src/tclscripts/archer/images/Makefile.am

Added Paths:
-----------
    brlcad/trunk/src/tclscripts/archer/images/sph.png
    brlcad/trunk/src/tclscripts/archer/images/sph_intersect.png
    brlcad/trunk/src/tclscripts/archer/images/sph_subtract.png
    brlcad/trunk/src/tclscripts/archer/images/sph_union.png

Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2010-05-10 15:43:02 UTC (rev 39086)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2010-05-10 15:45:29 UTC (rev 39087)
@@ -615,6 +615,10 @@
 	variable mImage_sketchInter ""
 	variable mImage_sketchSub ""
 	variable mImage_sketchUnion ""
+	variable mImage_sph ""
+	variable mImage_sphInter ""
+	variable mImage_sphSub ""
+	variable mImage_sphUnion ""
 	variable mImage_tgc ""
 	variable mImage_tgcInter ""
 	variable mImage_tgcSub ""
@@ -1562,6 +1566,11 @@
     set mImage_sketchSub [image create photo -file [file join $mImgDir sketch_subtract.png]]
     set mImage_sketchUnion [image create photo -file [file join $mImgDir sketch_union.png]]
 
+    set mImage_sph [image create photo -file [file join $mImgDir sph.png]]
+    set mImage_sphInter [image create photo -file [file join $mImgDir sph_intersect.png]]
+    set mImage_sphSub [image create photo -file [file join $mImgDir sph_subtract.png]]
+    set mImage_sphUnion [image create photo -file [file join $mImgDir sph_union.png]]
+
     set mImage_tgc [image create photo -file [file join $mImgDir tgc.png]]
     set mImage_tgcInter [image create photo -file [file join $mImgDir tgc_intersect.png]]
     set mImage_tgcSub [image create photo -file [file join $mImgDir tgc_subtract.png]]
@@ -3338,6 +3347,7 @@
 	rhc -
 	rpc -
 	sketch -
+	sph -
 	tgc -
 	tor {
 	    return [subst $[subst mImage_$_type$_op]]

Modified: brlcad/trunk/src/tclscripts/archer/images/Makefile.am
===================================================================
--- brlcad/trunk/src/tclscripts/archer/images/Makefile.am	2010-05-10 15:43:02 UTC (rev 39086)
+++ brlcad/trunk/src/tclscripts/archer/images/Makefile.am	2010-05-10 15:45:29 UTC (rev 39087)
@@ -180,6 +180,10 @@
 	sketch_intersect.png \
 	sketch_subtract.png \
 	sketch_union.png \
+	sph.png \
+	sph_intersect.png \
+	sph_subtract.png \
+	sph_union.png \
 	tgc.png \
 	tgc_intersect.png \
 	tgc_subtract.png \

Added: brlcad/trunk/src/tclscripts/archer/images/sph.png
===================================================================
(Binary files differ)


Property changes on: brlcad/trunk/src/tclscripts/archer/images/sph.png
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Added: brlcad/trunk/src/tclscripts/archer/images/sph_intersect.png
===================================================================
(Binary files differ)


Property changes on: brlcad/trunk/src/tclscripts/archer/images/sph_intersect.png
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Added: brlcad/trunk/src/tclscripts/archer/images/sph_subtract.png
===================================================================
(Binary files differ)


Property changes on: brlcad/trunk/src/tclscripts/archer/images/sph_subtract.png
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Added: brlcad/trunk/src/tclscripts/archer/images/sph_union.png
===================================================================
(Binary files differ)


Property changes on: brlcad/trunk/src/tclscripts/archer/images/sph_union.png
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.