#!vsl

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

// $Log: arcs,v $
# Revision 1.1.1.1  1995/05/01  15:48:48  zeller
# DDD 0.9 distribution
#
// Revision 9.3  1993/06/25  12:04:27  zeller
// Fix: Kommentare Log-Datei angepasst
//
// Revision 9.2  1993/05/22  20:22:13  zeller
// %Q% added by apply-q-flag.sh 1.5
//
// Revision 9.1  1991/07/08  06:00:39  zeller
// Installierte Version
// 
// Revision 8.1  1991/07/06  15:03:54  zeller
// Installierte Version
// 
// Revision 4.1  1991/05/25  12:52:23  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:10  zeller
// Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
// 
// Revision 3.1  1991/02/27  02:09:54  zeller
// Umstellung auf neue Syntax (fast ganz wieder die alte)
// 
// Revision 2.2  1991/02/26  11:51:17  zeller
// Umstellung von 'dispVSL' auf 'vsl'
// 
// Revision 2.1  1991/02/26  11:45:37  zeller
// Anpassung auf neue Syntax (vorerst ungetestet)
// 
// Revision 1.6  1991/02/10  18:24:45  zeller
// Letzte Definition muss global sein, um nicht geloescht zu werden
// 
// Revision 1.5  1991/01/29  15:26:52  zeller
// Version eingefuehrt
// 
// Revision 1.4  1990/08/28  19:24:39  zeller
// main() entfernt
// 
// Revision 1.3  1990/08/28  15:07:56  zeller
// arc_90_2_test() entfernt
// 
// Revision 1.2  1990/08/26  17:33:22  zeller
// ID korrigiert
// 
// Revision 1.1  1990/08/26  17:30:18  zeller
// Initial revision
// 

#include <std.vsl>
#include <arcs.vsl>

arc90_test() =
  fix(ne_arc90() ^ 20) & vwhite() &
  fix(se_arc90() ^ 20) & vwhite() &
  fix(nw_arc90() ^ 20) & vwhite() &
  fix(sw_arc90() ^ 20);

arc180_test() =
  fix(w_arc180() ^ 20) & vwhite() &
  fix(e_arc180() ^ 20) & vwhite() &
  fix(n_arc180() ^ 20) & vwhite() &
  fix(s_arc180() ^ 20);

ellipse_test() =
  ellipse("An ellipse.") & ellipse("1") & ellipse("2") & ellipse("3");

oval_test() =
  oval("An oval.") & oval("1") & oval("2") & oval("3");

vcircle(a) = vcenter(circle(a));
circle_test() =
  vfix(vcircle("A circle.") & vcircle("1") & vcircle("2") & vcircle("3"));

// all tests
all_arcs_tests() = 
  arc90_test() 		& vcenter(" // arc90_test()")
| hwhite()
| arc180_test() 	& vcenter(" // arc180_test()")
| hwhite()
| ellipse_test() 	& vcenter(" // ellipse_test()")
| hwhite()
| oval_test() 		& vcenter(" // oval_test()")
| hwhite()
| circle_test() 	& vcenter(" // circle_test()")
;

arcs_explanation() =
  "This is '$RCSfile: arcs,v $ $Revision: 1.1.1.1 $', based on '" & arcs_version() & "'.";

arcs_main() = arcs_explanation() | all_arcs_tests();
arcs_main(_...) -> arcs_main();
