Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^4: Tcl::Tk exit ( Tcl::pTk )

by Sandy (Curate)
on May 29, 2017 at 02:07 UTC ( #1191471=note: print w/replies, xml ) Need Help??


in reply to Re^3: Tcl::Tk exit ( Tcl::pTk )
in thread Tcl::Tk exit

Perhaps I should have been more specific. The canvas on perl/Tk does not render nicely in Perl/Tk, especially on Mac. Although the fonts don't look so great, whether in canvas or not.

I create videos for youtube using stuff I wrote in Perl/Tk (Euclid). The fonts render in a very chunky fashion (I think the issue is that XQuartz is mimicking a resolution that is much less than the real resolution, so I end up with blocky fonts).

I tried all possible fonts, I really did.

In desperation, I created a library of png images by screen capturing text written in OpenOffice, in the font that I wanted. And then overrode the ->text function to replace the given text with individual pics. It worked, but let me tell you, that is quite the hack, and limited me to my predefined pics. I did this for the first 4 books. Then, to make the lines look nice, I drew a fat grey line, a slightly less fat slightly darker line, until I drew the final black line.

Finally, I ended up trying Tcl/Tk (book 5 playlist uses Tcl/Tk), which works well enough that I can just use the regular fonts.

Here are two pics for comparison (Tk screenshots). This is what Perl/Tk looks like without doing any of the fancy stuff I described in the previous paragraph. Exact same code.

Notice that even the drawing of the circle in Perl/Tk is jagged, whereas Tcl/Tk is nice and smooth. The font of the labels is Arial. The regular text is also Arial.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1191471]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2021-12-04 19:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (30 votes). Check out past polls.

    Notices?