The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SVG:SVG2zinc::Backend::TclScript - a backend class for generating Tcl script

SYNOPSIS

 use SVG:SVG2zinc::Backend::TclScript;

 $backend = SVG:SVG2zinc::Backend::TclScript->new(
               -out => filename_or_handle,
               -in => svgfilename,
               -verbose => 0|1,
               -render => 0|1|2,
               );

 $backend->fileHeader();

 $backend->treatLines("lineOfCode1", "lineOfCode2",...);

 $backend->comment("comment1", "comment2", ...);

 $backend->printLines("comment1", "comment2", ...);

 $backend->fileTail();

DESCRIPTION

SVG:SVG2zinc::Backend::TclScript is a class for generating Tcl script to display SVG files. The generated script is based on TkZinc.

For more information, you should look at SVG:SVG2zinc::Backend(3pm).

The new method accepts parameters described in the SVG:SVG2zinc::Backend class and the following additionnal parameters:

-render

The render value of the TkZinc widget. 0 means no openGL, 1 or 2 for openGL. Defaults to 1.

SEE ALSO

SVG::SVG2zinc::Backend and SVG::SVG2zinc(3pm)

BUGS and LIMITATIONS

This is higly experimental. Only few tests... The author is not a Tcl coder!

The Tk::Zinc::SVGExtension perl module provided with SVG::SVG2zinc should be converted in Tcl and imported by (or included in) the generated Tcl script.

AUTHORS

Christophe Mertz <mertz@cena.fr>

COPYRIGHT

CENA (C) 2003

This program is free software; you can redistribute it and/or modify it under the term of the LGPL licence.