Skip to content

better font dialog

Compare
Choose a tag to compare
@sebshader sebshader released this 12 Mar 21:27
· 3073 commits to next since this release

updated to pd 0.51-4, added improved font dialog (separate "Apply" button for stretch)
now uses tk 8.6.11
edit: uploaded version using tk 8.6.10 for osx (to avoid ttk "alt" theme bug in tk 8.6.11)
edit April 30th 2021: upload version with fix for tk 8.6.11 not respecting the system preference for key repeats on MacOS
edit May 27th 2021: took out splinesteps option for the bezier cords; default looks better
edit Nov. 5th 2021: see https://github.com/sebshader/color-themes-plugin for a tcl plugin that adds a preference dialog for choosing color themes

to get started with colors: copy doc/7.stuff/colors-plugin.txt into your pd path and change the extension to .tcl. Then change the values below "array set ::pd_colors {" using values from a hex color picker, or tk color names.

bezier cords can also be turned on/off by setting the tcl variable "::curve_cords" e.g. "set ::curve_cords 1", as well as in the "preferences" menu.

if you want the changes to the bezier cord variable to take effect when it is changed put the following lines in some -plugin.tcl file in your pd path:

proc redraw_cords {name, blank, op} {
    foreach wind [wm stackorder .] {
        if {[winfo class $wind] eq "PatchWindow"} {
            set canv ${wind}.c
            foreach record [$canv find withtag cord] {
                set tag [lindex [$canv gettags $record] 0]
                set coords [lreplace [$canv coords $tag] 2 end-2]
                ::pdtk_canvas::pdtk_coords {*}$coords $tag $canv
            }
        }
    }   
}

trace variable ::curve_cords w redraw_cords

Screen Shot 2021-03-12 at 1 24 09 PM