! show_one_range.MBS
! Show a single range of Hershey glyphs at (0,0) in a local coordinate system.

local drawing module show_one_range(
int    range_number;
int    toplevel;         ! 0 = false = not top level; 1 = true = top level
int    box_visibility;   ! 0 = plain = invisible (no boxes); 1 = boxed = visible
int    verbosity);

int    rc;
int    range_start;
int    range_stop;
int    range_radius;
string range_name*132;

constant int toplevel_false = 0;
constant int toplevel_true  = 1;

beginmodule

! Check that the range exists and get its starting glyph number,
! stopping glyph number, "radius," and name.
part(#1,check_range(range_number, rc, 
                    range_start, range_stop, range_radius, range_name,
                    verbosity));
if rc <> 0 then
   if verbosity > 0 then
      lst_lin("show_one_range: range number " +
              str(range_number,1,0) + " not found");
   endif;
   goto fail;
endif;

! Create a coordinate system in which to show the range
csys_1p(#2,"range",vec(0,0):blank=1);

! display the range
part(#3,display_range(range_number, 
                      range_name, 
                      range_start, range_stop, 
                      range_radius, 
                      toplevel,
                      box_visibility,
                      verbosity), #2);

fail:;

endmodule

! Copyright 2003 by David M. MacMillan

! This work is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation; either version 2 of the License, or
! (at your option) any later version.

! NOTICE OF DISCLAIMER OF WARRANTY AND LIABILITY:

! This work is distributed WITHOUT ANY WARRANTY;
! without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
! See the GNU General Public License for more details.

! In no event will the author(s), editor(s), or publisher(s) of this work
! be liable to you or to any other party for damages,
! including but not limited to any general, special, incidental
! or consequential damages arising out of your use of or inability to use this
! work or the information contained in it, even if you have been advised
! of the possibility of such damages.

! In no event will the author(s), editor(s), or publisher(s) of this work
! be liable to you or to any other party for any injury, death,
! disfigurement, or other personal damage arising out of your use of
! or inability to use this work or the information
! contained in it, even if you have been advised of the
! possibility of such injury, death, disfigurement, or other
! personal damage.

! You should have received a copy of the GNU General Public License
! along with this work; if not, write to the
! Free Software Foundation, Inc., 59 Temple Place - Suite 330,
! Boston, MA  02111-1307, USA.