#!vsl

// $Id: slopes,v 1.1.1.1 1995/05/01 15:48:50 zeller Exp $ 
// Testdatei fuer "slopes.vsl"

// $Log: slopes,v $
# Revision 1.1.1.1  1995/05/01  15:48:50  zeller
# DDD 0.9 distribution
#
// Revision 9.3  1993/06/25  12:00:58  zeller
// Fix: Kommentare Log-Datei angepasst
//
// Revision 9.2  1993/05/22  20:22:42  zeller
// %Q% added by apply-q-flag.sh 1.5
//
// Revision 9.1  1991/07/08  06:01:56  zeller
// Installierte Version
// 
// Revision 8.1  1991/07/06  15:04:58  zeller
// Installierte Version
// 
// Revision 4.1  1991/05/25  12:52:28  zeller
// Neue Version mit folgenden Eigenschaften:
// Let- und Where-Konstrukten;
// Lokalen und globalen Funktionen, Overloading;
// Erweiterten Fehlermeldungen.
// 
// Revision 3.2  1991/04/27  14:46:24  zeller
// Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
// 
// Revision 3.1  1991/02/27  02:10:21  zeller
// Umstellung auf neue Syntax (fast ganz wieder die alte)
// 
// Revision 2.2  1991/02/26  11:51:35  zeller
// Umstellung von 'dispVSL' auf 'vsl'
// 
// Revision 2.1  1991/02/26  11:45:58  zeller
// Anpassung auf neue Syntax (vorerst ungetestet)
// 
// Revision 1.7  1991/02/10  18:24:57  zeller
// Letzte Definition muss global sein, um nicht geloescht zu werden
// 
// Revision 1.6  1991/01/29  15:27:03  zeller
// Version eingefuehrt
// 
// Revision 1.5  1990/08/28  19:24:42  zeller
// main() entfernt
// 
// Revision 1.4  1990/08/28  15:08:17  zeller
// ID angepasst
// 
// Revision 1.3  1990/08/26  17:33:12  zeller
// Neu: punchcard_test
// 
// Revision 1.2  1990/08/26  13:46:05  zeller
// ID's korrigiert
// 
// Revision 1.1  1990/08/26  13:44:04  zeller
// Initial revision
// 

#include <std.vsl>
#include <slopes.vsl>

arrow_test() =
  fix(vcenter(w_arrow()) ^ 20) & vwhite() &
  fix(vcenter(e_arrow()) ^ 20) & vwhite() &
  fix(hcenter(n_arrow()) ^ 20) & vwhite() &
  fix(hcenter(s_arrow()) ^ 20);

slope_arrow_test() =
  fix(ne_arrow() ^ 20) & vwhite() &
  fix(se_arrow() ^ 20) & vwhite() &
  fix(nw_arrow() ^ 20) & vwhite() &
  fix(sw_arrow() ^ 20);

angle_test() =
  fix(w_angle() ^ 20) & vwhite() &
  fix(e_angle() ^ 20) & vwhite() &
  fix(n_angle() ^ 20) & vwhite() &
  fix(s_angle() ^ 20);

punchcard_test() =
  punchcard("A punchcard.");

rhomb_test() =
  rhomb("A rhomb.");

octogon_test() =
  octogon("An octogon.");

// all tests
all_slopes_tests() = 
  arrow_test()  		& vcenter(" // arrow_test()")
| hwhite()
| slope_arrow_test() 	& vcenter(" // slope_arrow_test()")
| hwhite()
| angle_test() 			& vcenter(" // angle_test()")
| hwhite()
| punchcard_test() 		& vcenter(" // punchcard_test()")
| hwhite()
| rhomb_test() 			& vcenter(" // rhomb_test()")
| hwhite()
| octogon_test() 		& vcenter(" // octogon_test()")
;

slopes_explanation() =
  "This is '$RCSfile: slopes,v $ $Revision: 1.1.1.1 $', based on '" & slopes_version() & "'.";

slopes_main() = slopes_explanation() | all_slopes_tests();
slopes_main(_...) -> slopes_main();
