!****h* Parts/ssa
! NAME
!   ssa -- Sets up lines for 'Sub-Sub-Assembly' continusous linework. [ssa.MBS]
! DESCRIPTION
!   See 'Layers.txt' for layer configuration for 'ssa':
!   *ssa()  -Sub-Sub-Assembly -Brown/Grey/8  5  -Contin/0
! SOURCE

GLOBAL GEOMETRY MODULE ssa(
	STRING LevelName*24; 
	VAR STRING LevelStat(100,2)*24;
	FLOAT SF:=24);
!***
!
!    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.
!
   INT i,LevNo;

BEGINMODULE

   LevNo:=0;
   FOR i:=1 TO 100 DO
	IF (LevelStat(i,1)=LevelName) THEN
	   LevNo:=i;
	   goto next;
	ENDIF;
   ENDFOR;

next:	
	set_basic(LEVEL=LevNo);
	set_basic(PEN=8);
	set_basic(WIDTH=SF*5/1000);
	set_basic(LFONT=0);
	IF (LevelStat(LevNo,2)<>"ON") THEN
	   blank_lev(LevNo);
	ELSE 
	   unblank_lev(LevNo);
	ENDIF;
	
ENDMODULE