//  Copyright (c) CNES  2008
//
//  This software is part of CelestLab, a CNES toolbox for Scilab
//
//  This software is governed by the CeCILL  license under French law and
//  abiding by the rules of distribution of free software.  You can  use,
//  modify and/ or redistribute the software under the terms of the CeCILL
//  license as circulated by CEA, CNRS and INRIA at the following URL
//  'http://www.cecill.info'.

// Displays CelestLab menu 
function CL__banner()

  txt = "CelestLab - Version " + CL_version("str"); 
  aut = "CNES - DCT/SB"; 
  l = max(length(txt) + 10, 36); 

  mprintf("\n");
  for i=1:l; mprintf("-"); end
  mprintf("\n");

  for i=1:(l-length(txt ))/2; mprintf(" "); end
  mprintf("%s\n", txt);

  for i=1:(l-length(aut))/2; mprintf(" "); end
  mprintf("%s\n", aut);

  for i=1:l; mprintf("-"); end
  mprintf("\n\n");
 
endfunction