use separate $titlefont in entities demo so that we can view symbol font

diff --git a/tclpkg/gdtclft/demo/entities b/tclpkg/gdtclft/demo/entities
index bb277a007e3f28b49874ef2eabb0cdf92a8fd435..db8d662b3ea6fc89bf687bd7cab1741893b822aa 100755 (executable)
--- a/tclpkg/gdtclft/demo/entities
+++ b/tclpkg/gdtclft/demo/entities
@@ -8,8 +8,10 @@ package require Gdtclft
 #
 # John Ellson <ellson@graphviz.org>
 
+#set font symbol
 set font times
 
+set titlefont times
 set gd [gd create 1100 850]
 set white [gd color new $gd 255 255 255]
 set black [gd color new $gd 0 0 0]
@@ -30,7 +32,7 @@ proc incr_rowcol {} {
 }
 
 # lay down a title on the background
-gd text $gd $green $font 50. .7 350 500 "HTML 4.0 Entities\r\nfont = $font"
+gd text $gd $green $titlefont 50. .7 350 500 "HTML 4.0 Entities\r\nfont = $font"
 
 set row 0
 set col 0
@@ -59,9 +61,9 @@ foreach val [lsort -integer [array names entity]] {
        } {
                set fontcolor $black
        }
-       gd text $gd $black $font 8. 0. $x1 $y [format {%5d} $val]
+       gd text $gd $black $titlefont 8. 0. $x1 $y [format {%5d} $val]
        gd text $gd $fontcolor $font 16. 0. $x2 $y [format {&#%d;} $val]
-       gd text $gd $black $font 12. 0. $x3 $y $entity($val)
+       gd text $gd $black $titlefont 12. 0. $x3 $y $entity($val)
 }
 close $f