// $Id$
// VSL symbols

// Copyright (C) 1993 Technische Universitaet Braunschweig, Germany.
// Written by Andreas Zeller <zeller@gnu.org>.
// 
// This file is part of DDD.
// 
// DDD 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 3 of the License, or (at your option) any later version.
// 
// DDD is distributed in the hope that it will be useful,
// but 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.
// 
// You should have received a copy of the GNU General Public
// License along with DDD -- see the file COPYING.
// If not, see <http://www.gnu.org/licenses/>.
// 
// DDD is the data display debugger.
// For details, see the DDD World-Wide-Web page, 
// `http://www.gnu.org/software/ddd/',
// or send a mail to the DDD developers <ddd@gnu.org>.

#include "std.vsl"

// Symbol sizes
_symbol_size(x) = x;
_symbol_size()  = square(vspace("A")) - 3;

symbol_size(...) = even(_symbol_size(...)) - 1;

// Some local definitions
vrule_symbol(...) = vrule() & vspace(symbol_size(...));
hrule_symbol(...) = hrule() | hspace(symbol_size(...));

// Lattice symbols
bot(...) = whiteframe(hcenter(vrule_symbol(...)) | hrule_symbol(...));
top(...) = whiteframe(hrule_symbol(...) | hcenter(vrule_symbol(...)));

cup(...) = whiteframe(
	vrule_symbol(...) & hfill() & vrule_symbol(...) | hrule_symbol(...));
cap(...) = whiteframe(
	hrule_symbol(...) | vrule_symbol(...) & hfill() & vrule_symbol(...));