aboutsummaryrefslogtreecommitdiff
path: root/sandbox/testpoly.tcl
diff options
context:
space:
mode:
authorlecoanet2000-03-07 13:16:09 +0000
committerlecoanet2000-03-07 13:16:09 +0000
commitf6018b2e4b184a2ec9eca7bbd3e2532cc4ed17ed (patch)
tree92e9d68cd779fab2e6579b20ac574f2cef6ae557 /sandbox/testpoly.tcl
parent3f47be9fe5d3006927c79eb156cfbed946243e26 (diff)
downloadtkzinc-f6018b2e4b184a2ec9eca7bbd3e2532cc4ed17ed.zip
tkzinc-f6018b2e4b184a2ec9eca7bbd3e2532cc4ed17ed.tar.gz
tkzinc-f6018b2e4b184a2ec9eca7bbd3e2532cc4ed17ed.tar.bz2
tkzinc-f6018b2e4b184a2ec9eca7bbd3e2532cc4ed17ed.tar.xz
*** empty log message ***
Diffstat (limited to 'sandbox/testpoly.tcl')
-rw-r--r--sandbox/testpoly.tcl32
1 files changed, 16 insertions, 16 deletions
diff --git a/sandbox/testpoly.tcl b/sandbox/testpoly.tcl
index 1d64a5e..7cb367d 100644
--- a/sandbox/testpoly.tcl
+++ b/sandbox/testpoly.tcl
@@ -13,22 +13,22 @@ set arrow "8 10 6"
# Cap Join Filled Border Relief Title
#
set show {\
- {round round f t flat JoinRound}\
- {round bevel f t flat JoinBevel}\
- {round miter f t flat JoinMiter}\
- {butt round f t flat CapButt}\
- {projecting round f t flat CapProjecting}\
- {round round f t sunken Sunken}\
- {round round f t raised Raised}\
- {round round f t groove Groove}\
- {round round f t ridge Ridge}\
- {round round t t sunken FilledSunken}\
- {round round t t raised FilledRaised}\
- {round round t t groove FilledGroove}\
- {round round t t ridge FilledRidge}\
- {round round f f flat Marker}\
- {round round t f flat Fill}\
- {round round t t flat FillBorder}}
+ {round round f 1 flat JoinRound}\
+ {round bevel f 1 flat JoinBevel}\
+ {round miter f 1 flat JoinMiter}\
+ {butt round f 1 flat CapButt}\
+ {projecting round f 1 flat CapProjecting}\
+ {round round f 1 sunken Sunken}\
+ {round round f 1 raised Raised}\
+ {round round f 1 groove Groove}\
+ {round round f 1 ridge Ridge}\
+ {round round t 1 sunken FilledSunken}\
+ {round round t 1 raised FilledRaised}\
+ {round round t 1 groove FilledGroove}\
+ {round round t 1 ridge FilledRidge}\
+ {round round f 0 flat Marker}\
+ {round round t 0 flat Fill}\
+ {round round t 1 flat FillBorder}}
image create photo logo -file /usr/share/toccata/images/logo.gif
#image create photo papier -file /usr/share/toccata/images/dgtexture-dragstrip.xpm