<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#c0c0c0>
<DIV><FONT face=Arial size=2>hi,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>yes, its me again with font problems
:)</FONT></DIV>
<DIV><FONT face=Arial size=2>ok, here are some lines from original pd.tk
(0.35-1) file that i assume are used/needed for setting fonts:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2><snip1></FONT></DIV>
<DIV><FONT face=Arial size=2> radiobutton $name.radiof.radio8
-value 8 -variable fontsize -text "8"<BR> radiobutton
$name.radiof.radio10 -value 10 -variable fontsize -text
"10"<BR> radiobutton $name.radiof.radio12 -value 12 -variable
fontsize -text "12"<BR> radiobutton $name.radiof.radio16
-value 16 -variable fontsize -text "16"<BR> radiobutton
$name.radiof.radio24 -value 24 -variable fontsize -text
"24"<BR> radiobutton $name.radiof.radio36 -value 36 -variable
fontsize -text "36"<BR> pack $name.radiof.radio8 -side top
-anchor w<BR> pack $name.radiof.radio10 -side top -anchor
w<BR> pack $name.radiof.radio12 -side top -anchor
w<BR> pack $name.radiof.radio16 -side top -anchor
w<BR> pack $name.radiof.radio24 -side top -anchor
w<BR> pack $name.radiof.radio36 -side top -anchor
w</FONT></DIV>
<DIV><FONT face=Arial size=2></snip1></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2><snip2></FONT></DIV>
<DIV><FONT face=Arial size=2>############ pdtk_text_new -- create a new text
object #2###########<BR>proc pdtk_text_new {canvasname myname x y text font
color} {<BR># if {$font < 13} {set fontname [format
-*-courier-bold----%d-* $font]}<BR># if {$font >= 13} {set
fontname [format -*-courier-----%d-* $font]}<BR> $canvasname
create text $x $y \<BR> -font [format
-*-courier-bold--normal--%d-* $font] \<BR> -tags $myname
-text $text -fill $color -anchor nw <BR># pd [concat
$myname size [$canvasname bbox $myname] \;]<BR>}</FONT></DIV>
<DIV><FONT face=Arial size=2></snip2></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2><snip3></FONT></DIV>
<DIV><FONT face=Arial size=2>proc pdtk_pd_startup {version}
{<BR> global pd_myversion<BR> set
pd_myversion $version</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width1 [font measure
-*-courier-bold--normal--8-* x]<BR> set height1 [lindex [font
metrics -*-courier-bold--normal--8-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width2 [font measure
-*-courier-bold--normal--10-* x]<BR> set height2 [lindex [font
metrics -*-courier-bold--normal--10-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width3 [font measure
-*-courier-bold--normal--12-* x]<BR> set height3 [lindex [font
metrics -*-courier-bold--normal--12-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width4 [font measure
-*-courier-bold--normal--14-* x]<BR> set height4 [lindex [font
metrics -*-courier-bold--normal--14-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width5 [font measure
-*-courier-bold--normal--16-* x]<BR> set height5 [lindex [font
metrics -*-courier-bold--normal--16-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width6 [font measure
-*-courier-bold--normal--24-* x]<BR> set height6 [lindex [font
metrics -*-courier-bold--normal--24-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> set width7 [font measure
-*-courier-bold--normal--36-* x]<BR> set height7 [lindex [font
metrics -*-courier-bold--normal--36-*] 5]</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> pd [concat pd init [pdtk_enquote
[pwd]] \<BR> 8 $width1 $height1 \<BR>
10 $width2 $height2 \<BR> 12 $width3 $height3
\<BR> 14 $width4 $height4 \<BR>
16 $width5 $height5 \<BR> 24 $width6 $height6
\<BR> 36 $width7 $height7 \<BR>
\;];<BR>}</FONT></DIV>
<DIV><FONT face=Arial size=2></snip3></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>not tragic but i see theres a size calculated for
14pt but is not used in <snip1> reason/error?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>and then a test with this original
pd.tk.</FONT></DIV>
<DIV><FONT face=Arial size=2>i open 14.more.tabread.pd and test the sizes with
"fontbomb"</FONT></DIV>
<DIV><FONT face=Arial size=2>8 : all sizes are changed</FONT></DIV>
<DIV><FONT face=Arial size=2>10 : diddo</FONT></DIV>
<DIV><FONT face=Arial size=2>12 : diddo</FONT></DIV>
<DIV><FONT face=Arial size=2>16 : diddo</FONT></DIV>
<DIV><FONT face=Arial size=2>24 : only the array name text size is changed
(others stay @ 16)?!</FONT></DIV>
<DIV><FONT face=Arial size=2>36 : all sizes changed</FONT></DIV>
<DIV><FONT face=Arial size=2>nothing tragic ?! just wanted to
report...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>then to my font. i change only this</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2><snip2b></FONT></DIV>
<DIV><FONT face=Arial size=2>############ pdtk_text_new -- create a new text
object #2###########<BR>proc pdtk_text_new {canvasname myname x y text font
color} {<BR> if {$font < 13} {set fontname [format
-*-pufo-----%d-* $font]}<BR> if {$font >= 13} {set fontname
[format -*-courier-bold----%d-* $font]}<BR> $canvasname create
text $x $y \<BR> -font $fontname \<BR>
-tags $myname -text $text -fill $color -anchor nw
<BR># pd [concat $myname size [$canvasname bbox $myname]
\;]<BR>}<BR></snip2b></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>and then a test with this modified
pd.tk.</FONT></DIV>
<DIV><FONT face=Arial size=2>i open 14.more.tabread.pd and test the sizes with
"fontbomb"</FONT></DIV>
<DIV><FONT face=Arial size=2>8 : selects my font at 5pt
(5x7pix)</FONT></DIV>
<DIV><FONT face=Arial size=2>10 : selects my font at 7pt (6x9pix)</FONT></DIV>
<DIV><FONT face=Arial size=2>12 : selects courier !? (see <snip2b>
if(s))</FONT></DIV>
<DIV><FONT face=Arial size=2>and so on...</FONT></DIV>
<DIV> </DIV>
<DIV>and then i tried to get the sizes right and changed still this</DIV>
<DIV> </DIV>
<DIV><snip3b></DIV>
<DIV>proc pdtk_pd_startup {version} {<BR> global
pd_myversion<BR> set pd_myversion $version</DIV>
<DIV> </DIV>
<DIV> set width1 [font measure -*-pufo---normal--8-*
x]<BR> set height1 [lindex [font metrics
-*-pufo---normal--8-*] 5]</DIV>
<DIV> </DIV>
<DIV> set width2 [font measure -*-pufo---normal--10-*
x]<BR> set height2 [lindex [font metrics
-*-pufo---normal--10-*] 5]<BR></snip3b></DIV>
<DIV> </DIV>
<DIV>or this (because its a bitmap font)</DIV>
<DIV></snip3c></DIV>
<DIV>proc pdtk_pd_startup {version} {<BR> global
pd_myversion<BR> set pd_myversion $version</DIV>
<DIV> </DIV>
<DIV> set width1 5<BR> set height1 7</DIV>
<DIV> </DIV>
<DIV> set width2 6<BR> set height2
9<BR></snip3c></DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>and then a test with this modified
pd.tk.</FONT></DIV>
<DIV><FONT face=Arial size=2>i open 14.more.tabread.pd and test the sizes with
"fontbomb"</FONT></DIV>
<DIV><FONT face=Arial size=2>8 : selects my font at 7pt (6x9pix) ?! see
test before...</FONT></DIV>
<DIV><FONT face=Arial size=2>10 : selects my font at 7pt (6x9pix)</FONT></DIV>
<DIV><FONT face=Arial size=2>and so on...</FONT></DIV>
<DIV> </DIV>
<DIV>the object sizes are correct but SOME number boxes are couple pixels too
small but NOT ALL ?!?!?!</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>i'm frustated... dunno what i can do... it's all so unlogical to me... but
i hope i've just overseen something important...</DIV>
<DIV> </DIV>
<DIV>on a text editor i get the right sizes</DIV>
<DIV>6pt selects 5x7pix (program says 5pt is too small for the prog. [5pt would
be the right size but 6pt goes too])</DIV>
<DIV>7pt selects 6x9pix</DIV>
<DIV>8pt selects 8x11pix</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>but i wont give up. well, maybe 4 today :)</DIV>
<DIV> </DIV>
<DIV>but this is a tcl/tk problem, right?!</DIV>
<DIV>so maybe i should ask in tcl/tk forums or so...</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>cheers</DIV>
<DIV>-andre</DIV>
<DIV>ps. i'm on win2k...</DIV>
<DIV>pss. yes, i made a new font 5x7pix. but i wont let it out before i get it
to work in pd..</DIV></FONT></DIV></DIV></FONT></BODY></HTML>