!****h* Main/StemPattern
!  NAME
!  StemPattern -- Develop a pattern for cutting the stem board.
!  [StemPattern.MBS]
!
!  DESCRIPTION
!  Use 
!
!  The steps in the module are:
!  * 
!
!  SOURCE

GLOBAL GEOMETRY MODULE StemPattern(
	   VAR REF HullSurface(12);		!Array containing hull-surfaces
	   VAR STRING LevelStat(100,2)*24);	!Layer name control array
!***
!
!    Copyright 2006, John J. Hughes
!
!    This source code file is part of the 'NGBproject' files which   
!    execute interactively under the 'VARKON' program, which is   
!    distributed under the terms of the GNU General Public License.
!
!    The 'NGBproject' files are also distributed under the terms of  
!    the GNU GeneralPublic License.  See the GNU General Public License n
!    included ithe file name "COPYING.txt" in the Varkon ./app/NGB/doc 
!    directory for more details.
!
BEGINMODULE

!*********************************************************************** 
!  ~ Generate xy_planes to intersect the side of the stem board (1.25"thk) !-----------------------------------------------------------------------
   
   csys_1p(#10,"StemSidePlane",vec(0.625,-2.5,180),,-90:BLANK=1);!Nearside
   cur_int(#30,HullSurface(1),#10:BLANK=1);
   cur_approx(#40,#30,"CUB_SEG",1,1);
   mode_local(#10);
   
ENDMODULE