Skip to content

0.55-1

Latest
Compare
Choose a tag to compare
@sebshader sebshader released this 14 Sep 21:06
· 1 commit to next since this release

to make a theme: 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.

for a user-friendly way to use color themes install https://github.com/sebshader/color-themes-plugin for a tcl plugin that adds a preference dialog for choosing color themes

(see github discussions for other help/instructions)

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. (put set ::curve_cords 1 in a *-plugin.tcl file in the pd path to save/keep bezier cables on)

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

jack has not been enabled in macos due to difficulty in cross-compiling jack for arm and x86_64. In the future I might try extracting/using the official jack package

thank you bvvt for the MacOS Wish build (built on MacOs 13 Ventura, Tcl/Tk 8.6.13)