GroovX: src/tcl-gfx/recttcl.h Source File

00001 
00003 
00004 //
00005 // Copyright (c) 2002-2004 California Institute of Technology
00006 // Copyright (c) 2004-2007 University of Southern California
00007 // Rob Peters <rjpeters at usc dot edu>
00008 //
00009 // created: Thu Nov 14 18:59:55 2002
00010 // commit: $Id: recttcl.h 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/tcl-gfx/recttcl.h $
00012 //
00013 // --------------------------------------------------------------------
00014 //
00015 // This file is part of GroovX.
00016 //   [http://ilab.usc.edu/rjpeters/groovx/]
00017 //
00018 // GroovX is free software; you can redistribute it and/or modify it
00019 // under the terms of the GNU General Public License as published by
00020 // the Free Software Foundation; either version 2 of the License, or
00021 // (at your option) any later version.
00022 //
00023 // GroovX is distributed in the hope that it will be useful, but
00024 // WITHOUT ANY WARRANTY; without even the implied warranty of
00025 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00026 // General Public License for more details.
00027 //
00028 // You should have received a copy of the GNU General Public License
00029 // along with GroovX; if not, write to the Free Software Foundation,
00030 // Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
00031 //
00033 
00034 #ifndef GROOVX_GFX_RECTTCL_H_UTC20050626084023_DEFINED
00035 #define GROOVX_GFX_RECTTCL_H_UTC20050626084023_DEFINED
00036 
00037 #include "geom/rect.h"
00038 
00039 #include "tcl/conversions.h"
00040 #include "tcl/list.h"
00041 
00042 #include "rutz/error.h"
00043 
00044 namespace tcl
00045 {
00047   template <class T>
00048   inline geom::rect<T> aux_convert_to(Tcl_Obj* obj, geom::rect<T>*)
00049   {
00050     tcl::list listObj(obj);
00051     geom::rect<T> result = geom::rect<T>::ltrb(listObj.template get<T>(0),
00052                                                listObj.template get<T>(1),
00053                                                listObj.template get<T>(2),
00054                                                listObj.template get<T>(3));
00055 
00056     if (result.width() <= 0.0)
00057       throw rutz::error("invalid rect (width was <= 0)", SRC_POS);
00058 
00059     if (result.height() <= 0.0)
00060       throw rutz::error("invalid rect (height was <= 0)", SRC_POS);
00061 
00062     return result;
00063   }
00064 
00066   template <class T>
00067   inline tcl::obj aux_convert_from( const geom::rect<T>& rect )
00068   {
00069     tcl::list listObj;
00070     listObj.append(rect.left());
00071     listObj.append(rect.top());
00072     listObj.append(rect.right());
00073     listObj.append(rect.bottom());
00074     return listObj.as_obj();
00075   }
00076 }
00077 
00078 static const char __attribute__((used)) vcid_groovx_gfx_recttcl_h_utc20050626084023[] = "$Id: recttcl.h 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00079 #endif // !GROOVX_GFX_RECTTCL_H_UTC20050626084023_DEFINED