#!vsl

// $Id: fonts,v 1.1.1.1 1995/05/01 15:48:49 zeller Exp $ 
// Tester Fonts

// $Log: fonts,v $
# Revision 1.1.1.1  1995/05/01  15:48:49  zeller
# DDD 0.9 distribution
#
// Revision 9.3  1993/06/25  12:02:46  zeller
// Fix: Kommentare Log-Datei angepasst
//
// Revision 9.2  1993/05/22  20:22:32  zeller
// %Q% added by apply-q-flag.sh 1.5
//
// Revision 9.1  1991/07/08  06:01:33  zeller
// Installierte Version
// 
// Revision 8.1  1991/07/06  15:04:34  zeller
// Installierte Version
// 
// Revision 4.2  1991/06/07  17:10:12  zeller
// family_typewriter() hinzugefuegt
// 
// Revision 4.1  1991/05/25  12:52:08  zeller
// Neue Version mit folgenden Eigenschaften:
// Let- und Where-Konstrukten;
// Lokalen und globalen Funktionen, Overloading;
// Erweiterten Fehlermeldungen.
// 
// Revision 3.2  1991/04/27  14:45:09  zeller
// Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
// 
// Revision 3.1  1991/02/27  02:09:36  zeller
// Umstellung auf neue Syntax (fast ganz wieder die alte)
// 
// Revision 2.3  1991/02/26  23:03:14  zeller
// Fehlerkorrektur
// 
// Revision 2.2  1991/02/26  11:51:08  zeller
// Umstellung von 'dispVSL' auf 'vsl'
// 
// Revision 2.1  1991/02/26  11:45:16  zeller
// Anpassung auf neue Syntax (vorerst ungetestet)
// 
// Revision 1.3  1991/02/10  18:24:07  zeller
// Letzte Definition muss global sein, um nicht geloescht zu werden
// 
// Revision 1.2  1991/01/29  15:26:42  zeller
// Version eingefuehrt
// 
// Revision 1.1  1991/01/28  22:20:50  zeller
// Initial revision
// 

#include <std.vsl>
#include <fonts.vsl>

font_text() = "The quick brown fox jumps over the lazy dog. 123";
rm_test(...) = rm("rm: " & font_text(), ...);
it_test(...) = it("it: " & font_text(), ...);
bf_test(...) = bf("bf: " & font_text(), ...);
bi_test(...) = bi("bi: " & font_text(), ...);

comb_test() = rm("See how " & it("this") & " is " & bf("bold!"));

family_test(family, size, ...) = 
"'" & family & "' at " & num(size) & " pixels"
| rm_test(family, size, ...)
| it_test(family, size, ...)
| bf_test(family, size, ...)
| bi_test(family, size, ...)
| vspace(20);

family_tests(size, ...) =
  family_test(family_times(), size, ...)
| family_test(family_courier(), size, ...)
| family_test(family_helvetica(), size, ...)
| family_test(family_new_century(), size, ...)
| family_test(family_typewriter(), size, ...);

size_tests() = 
  family_tests(10)
| family_tests(12)
| family_tests(14)
| family_tests(20)
| family_tests(34);

// all tests
all_font_tests() = size_tests() | comb_test();

fonts_explanation() =
  "This is '$RCSfile: fonts,v $ $Revision: 1.1.1.1 $', based on '" & fonts_version() & "'.";

fonts_main() = fonts_explanation() | all_font_tests();
fonts_main(_...) -> fonts_main();
