.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Games::Go::Sgf2Dg::Dg2TkPs 3pm"
.TH Games::Go::Sgf2Dg::Dg2TkPs 3pm "2019-10-27" "perl v5.30.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Games::Go::Sgf2Dg::Dg2TkPs \- convert Games::Go::Sgf2Dg::Diagrams to Postscript from a Tk window
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
use Games::Go::Sgf2Dg::Dg2TkPs
.PP
.Vb 2
\& my $dg2ps = B<Games::Go::Sgf2Dg::Dg2TkPs\-E<gt>new> (options);
\& my $canvas = $dg2ps\->convertDiagram($diagram);
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This is a real hack to get PostScript output from the Dg2Tk
converter.  All it does is use the built-in PostScript that a
Tk::Canvas widget provides to convert the Dg2Tk canvas pages to
PostScript.  The resulting PostScript is fairly crude because the
Canvas that it is drawn from is crude to begin with.  See
Games::Go::Sgf2Dg::Dg2Ps for a better PostScript converter.
.PP
A Games::Go::Sgf2Dg::Dg2TkPs inherits from Games::Go::Sgf2Dg::Dg2Tk, and uses all
its methods and options.  The main difference is that after
conversion to Tk is complete, each diagram Tk::Canvas is
converted to PostScript via the Tk::Canvas\->postscript method.
Some minor massaging of the PostScript source is done to string the
canvas pages together.
.SH "METHODS"
.IX Header "METHODS"
See Dg2Tk for the usual Dg2* conversion methods.
.ie n .IP "$dg2ps\->\fBcomment\fR ($comment ? , ... ?)" 4
.el .IP "\f(CW$dg2ps\fR\->\fBcomment\fR ($comment ? , ... ?)" 4
.IX Item "$dg2ps->comment ($comment ? , ... ?)"
Inserts comments into the PostScript source code.  Note that since
the PostScript is generated \fBafter\fR the diagrams are all
constructed by Dg2Tk, comments are likely to be out of order \- they
will all be at the head of the PostScript file.
.ie n .IP "$dg2ps\->\fBconfigure\fR (option => value, ?...?)" 4
.el .IP "\f(CW$dg2ps\fR\->\fBconfigure\fR (option => value, ?...?)" 4
.IX Item "$dg2ps->configure (option => value, ?...?)"
Grabs 'file' configuration option, passes all other requests to
Dg2Tk.
.ie n .IP "$dg2ps\->\fBclose\fR" 4
.el .IP "\f(CW$dg2ps\fR\->\fBclose\fR" 4
.IX Item "$dg2ps->close"
Converts each diagram Tk::Canvas in the Dg2Tk NoteBook to
PostScript via the Tk::Canvas\->postscript method.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
.IP "sgf2dg(1)" 4
.IX Item "sgf2dg(1)"
Script to convert \s-1SGF\s0 format files to Go diagrams
.SH "BUGS"
.IX Header "BUGS"
The output is pretty ugly.  Oh well, what can one expect from such a
simple hack?