From: ellson <devnull@localhost>
Date: Thu, 31 Aug 2006 02:15:49 +0000 (+0000)
Subject: upgrade cmap_tester.tcl to display polygon mapping regions
X-Git-Tag: LAST_LIBGRAPH~32^2~5921
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=abc0060ca1f04294966f3e24eb4d4c575c9b32ab;p=graphviz

upgrade cmap_tester.tcl to display polygon mapping regions
---

diff --git a/cmd/dot/cmap_tester.tcl b/cmd/dot/cmap_tester.tcl
index f128b447a..8091e9a76 100755
--- a/cmd/dot/cmap_tester.tcl
+++ b/cmd/dot/cmap_tester.tcl
@@ -30,7 +30,7 @@ if {[file exists $fn.gif]} {
 
 if {[file exists $fn.cmap]} {
 	set map_type cmap
-} elseif {[file exists $fn.png]} {
+} elseif {[file exists $fn.cmapx]} {
 	set map_type cmapx
 } else {
 	puts stderr "map file $fn.cmap or $fn.cmapx does not exist."
@@ -42,13 +42,21 @@ set gd [gd createFrom[string toupper $image_type] $f]
 close $f
 
 set turquoise [gd color resolve $gd 0 255 255]
+set magenta [gd color resolve $gd 255 0 255]
 
 set f [open $fn.$map_type r]
 set map [read $f [file size $fn.$map_type]]
 close $f
 
-foreach {. x1 y1 x2 y2} [regexp -all -inline {(\d*),(\d*),(\d*),(\d*)} $map] {
-	gd rectangle $gd $turquoise $x1 $y1 $x2 $y2
+foreach {. coords} [regexp -all -inline {coords="([-0-9, ]*)"} $map] {
+	set coords [split $coords ", "]
+	if {[llength $coords] == 4} {
+	    eval gd rectangle $gd $turquoise $coords
+#	    puts stderr "rect $coords"
+	} {
+	    eval gd polygon $gd $magenta $coords
+#	    puts stderr "poly $coords"
+	}
 }
 
 gd write[string toupper $image_type] $gd stdout