[brlcad-commits] SF.net SVN: brlcad:[55379] brlcad/trunk/src
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2013-05-10 15:51:55
|
Revision: 55379 http://sourceforge.net/p/brlcad/code/55379 Author: bob1961 Date: 2013-05-10 15:51:35 +0000 (Fri, 10 May 2013) Log Message: ----------- Expose polybinout in cadwidgets::Ged. Modified Paths: -------------- brlcad/trunk/src/libtclcad/tclcad_obj.c brlcad/trunk/src/tclscripts/lib/Ged.tcl Modified: brlcad/trunk/src/libtclcad/tclcad_obj.c =================================================================== --- brlcad/trunk/src/libtclcad/tclcad_obj.c 2013-05-10 15:11:42 UTC (rev 55378) +++ brlcad/trunk/src/libtclcad/tclcad_obj.c 2013-05-10 15:51:35 UTC (rev 55379) @@ -1160,6 +1160,7 @@ {"poly_cont_build_end", "y", TO_UNLIMITED, to_poly_cont_build_end, GED_FUNC_PTR_NULL}, {"poly_ell_mode", "x y", TO_UNLIMITED, to_poly_ell_mode, GED_FUNC_PTR_NULL}, {"poly_rect_mode", "x y [s]", TO_UNLIMITED, to_poly_rect_mode, GED_FUNC_PTR_NULL}, + {"polybinout", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_polybinout}, {"pov", "center quat scale eye_pos perspective", 7, to_view_func_plus, ged_pmat}, {"prcolor", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_prcolor}, {"prefix", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_prefix}, Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl =================================================================== --- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-05-10 15:11:42 UTC (rev 55378) +++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-05-10 15:51:35 UTC (rev 55379) @@ -525,6 +525,7 @@ method pmodel2view {args} method png {args} method pngwf {args} + method polybinout {args} method pov {args} method prcolor {args} method prefix {args} @@ -3285,6 +3286,10 @@ eval $mGed pngwf $itk_component($itk_option(-pane)) $args } +::itcl::body cadwidgets::Ged::polybinout {args} { + eval $mGed polybinout $args +} + ::itcl::body cadwidgets::Ged::pov {args} { eval $mGed pov $itk_component($itk_option(-pane)) $args } @@ -6128,6 +6133,7 @@ $help add pmat {{} {get the perspective matrix}} $help add pmodel2view {{} {get the pmodel2view matrix}} $help add png {{[-c r/g/b] [-s size] file} {creates a png file of the current view (wireframe only)}} + $help add polybinout {{file} {write out polygons (binary) of the currently displayed geometry}} $help add pov {{args} {experimental: set point-of-view}} $help add prcolor {{} {print color and material table}} $help add prefix {{new_prefix object(s)} {prefix each occurrence of object name(s)}} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |