From 5389f61b5592d1fe5924fa3caf43cd34d0f6289c Mon Sep 17 00:00:00 2001 From: Seb Shader Date: Tue, 4 Jan 2022 18:35:24 -0800 Subject: [PATCH] add max-theme and vital-theme from https://github.com/MikeMorenoDSP/pd-mkmr --- themes/max-theme.tcl | 100 +++++++++++++++++++++++++++++++++++++++++ themes/vital-theme.tcl | 100 +++++++++++++++++++++++++++++++++++++++++ 2 files changed, 200 insertions(+) create mode 100644 themes/max-theme.tcl create mode 100644 themes/vital-theme.tcl diff --git a/themes/max-theme.tcl b/themes/max-theme.tcl new file mode 100644 index 0000000..acbfe17 --- /dev/null +++ b/themes/max-theme.tcl @@ -0,0 +1,100 @@ +# theme by mike moreno: +# https://github.com/MikeMorenoDSP/pd-mkmr/blob/master/gui/pd-next-themes/max-theme.tcl +# canvas_fill - the canvas (patch background) +# canvas_text_cursor - text insertion cursor for all canvas objects +# gop_box - the GOP rectangle (when editing GOP patches) +# obj_box_text - text in an object box +# msg_box_text - text in a message box +# comment +# selected - selection +# obj_box_outline_broken - outline of "broken" object +# (that failed to create) +# obj_box_outline +# msg_box_outline +# msg_box_fill - fill of a message box +# obj_box_fill - " " object box +# signal_cord - signal cord and outline of signal inlets +# msg_cord - message cord and outline of message inlets +# msg_iolet - message inlet/outlet fill +# signal_iolet - signal inlet/outlet fill +# graph_outline - outline of arrays and GOP patches in the parent patch +# graph_text - color of the names of GOP patches in the parent patch +# selection_rectangle - selection rectangle color in edit mode +# txt_highlight - color text is highlighted (in the "background") when selected +# array_name - garray names +# array_values - array elements +# atom_box_fill - fill of gatoms (number box, symbol box) +# atom_box_text - text of gatoms +# atom_box_label - label of gatoms +# atom_box_outline - outline of gatoms +# text_window_fill - [text] window background +# text_window_text - [text] window text +# text_window_highlight - like txt_highlight but for [text] window +# text_window_cursor - [text] window cursor +# pdwindow_fill - background of post window +# pdwindow_fatal_text - text for fatal errors +# pdwindow_fatal_highlight - highlight (background) for fatal errors +# pdwindow_error_text - text for errors +# pdwindow_post_text - text for posting +# pdwindow_debug_text - text for verbose logs +# helpbrowser_fill +# helpbrowser_text +# helpbrowser_highlight - like txt_highlight but for help browser + +# this is an example of a color plugin for pure data (saved as a .tcl file) +array set ::pd_colors { +canvas_fill "gray50" +gop_box "white" +obj_box_text "white" +msg_box_text "white" +comment "DarkSlateGray1" +selected "gold" +obj_box_outline_broken "coral1" +obj_box_outline "white" +msg_box_outline "gray35" +msg_box_fill "gray35" +obj_box_fill "gray25" +signal_cord "OliveDrab1" +msg_cord "white" +msg_iolet "gray25" +signal_iolet "OliveDrab1" +graph_outline "white" +selection_rectangle "gold" +txt_highlight "SteelBlue2" +graph_text "white" +array_name "white" +array_values "DarkSlateGray1" +atom_box_fill "white" +atom_box_text "black" +atom_box_label "white" +atom_box_outline "black" +text_window_fill "gray25" +text_window_text "white" +text_window_hl_text "white" +text_window_highlight "SteelBlue2" +text_window_cursor "OliveDrab1" +pdwindow_fill "gray25" +pdwindow_fatal_text "OliveDrab1" +pdwindow_fatal_highlight "SteelBlue2" +pdwindow_error_text "coral1" +pdwindow_post_text "white" +pdwindow_debug_text "white" +helpbrowser_fill "gray25" +helpbrowser_text "white" +helpbrowser_hl_text "white" +helpbrowser_highlight "SteelBlue2" +canvas_text_cursor "white" +} +set ::pd_colors(txt_highlight_front) $::pd_colors(selected) +set ::pd_colors(msg_iolet_border) $::pd_colors(msg_cord) +set ::pd_colors(signal_iolet_border) $::pd_colors(signal_cord) +set ::pd_colors(atom_box_focus_outline) $::pd_colors(atom_box_outline) + +# how to set individual colors +#set ::pd_colors(msg_box_fill) "white" +#set ::pd_colors(obj_box_fill) "white" + +#random colors for everything +#proc ::pdtk_canvas::get_color {type {window 0}} { +# return [format #%06x [expr {int(rand() * 0xFFFFFF)}]] +#} diff --git a/themes/vital-theme.tcl b/themes/vital-theme.tcl new file mode 100644 index 0000000..857e5a0 --- /dev/null +++ b/themes/vital-theme.tcl @@ -0,0 +1,100 @@ +# theme by mike moreno +# https://github.com/MikeMorenoDSP/pd-mkmr/blob/master/gui/pd-next-themes/vital-theme.tcl +# canvas_fill - the canvas (patch background) +# canvas_text_cursor - text insertion cursor for all canvas objects +# gop_box - the GOP rectangle (when editing GOP patches) +# obj_box_text - text in an object box +# msg_box_text - text in a message box +# comment +# selected - selection +# obj_box_outline_broken - outline of "broken" object +# (that failed to create) +# obj_box_outline +# msg_box_outline +# msg_box_fill - fill of a message box +# obj_box_fill - " " object box +# signal_cord - signal cord and outline of signal inlets +# msg_cord - message cord and outline of message inlets +# msg_iolet - message inlet/outlet fill +# signal_iolet - signal inlet/outlet fill +# graph_outline - outline of arrays and GOP patches in the parent patch +# graph_text - color of the names of GOP patches in the parent patch +# selection_rectangle - selection rectangle color in edit mode +# txt_highlight - color text is highlighted (in the "background") when selected +# array_name - garray names +# array_values - array elements +# atom_box_fill - fill of gatoms (number box, symbol box) +# atom_box_text - text of gatoms +# atom_box_label - label of gatoms +# atom_box_outline - outline of gatoms +# text_window_fill - [text] window background +# text_window_text - [text] window text +# text_window_highlight - like txt_highlight but for [text] window +# text_window_cursor - [text] window cursor +# pdwindow_fill - background of post window +# pdwindow_fatal_text - text for fatal errors +# pdwindow_fatal_highlight - highlight (background) for fatal errors +# pdwindow_error_text - text for errors +# pdwindow_post_text - text for posting +# pdwindow_debug_text - text for verbose logs +# helpbrowser_fill +# helpbrowser_text +# helpbrowser_highlight - like txt_highlight but for help browser + +# this is an example of a color plugin for pure data (saved as a .tcl file) +array set ::pd_colors { +canvas_fill "gray12" +gop_box "white" +obj_box_text "white" +msg_box_text "white" +comment "green yellow" +selected "gold" +obj_box_outline_broken "aquamarine" +obj_box_outline "white" +msg_box_outline "aquamarine" +msg_box_fill "gray25" +obj_box_fill "gray25" +signal_cord "orchid1" +msg_cord "aquamarine" +msg_iolet "aquamarine" +signal_iolet "orchid1" +graph_outline "white" +selection_rectangle "gold" +txt_highlight "SteelBlue2" +graph_text "white" +array_name "white" +array_values "aquamarine" +atom_box_fill "white" +atom_box_text "black" +atom_box_label "white" +atom_box_outline "black" +text_window_fill "gray12" +text_window_text "white" +text_window_hl_text "white" +text_window_highlight "SteelBlue2" +text_window_cursor "aquamarine" +pdwindow_fill "gray12" +pdwindow_fatal_text "orchid1" +pdwindow_fatal_highlight "SteelBlue2" +pdwindow_error_text "orchid1" +pdwindow_post_text "white" +pdwindow_debug_text "aquamarine" +helpbrowser_fill "gray12" +helpbrowser_text "white" +helpbrowser_hl_text "white" +helpbrowser_highlight "SteelBlue2" +canvas_text_cursor "white" +} +set ::pd_colors(txt_highlight_front) $::pd_colors(selected) +set ::pd_colors(msg_iolet_border) $::pd_colors(msg_cord) +set ::pd_colors(signal_iolet_border) $::pd_colors(signal_cord) +set ::pd_colors(atom_box_focus_outline) $::pd_colors(atom_box_outline) + +# how to set individual colors +#set ::pd_colors(msg_box_fill) "white" +#set ::pd_colors(obj_box_fill) "white" + +#random colors for everything +#proc ::pdtk_canvas::get_color {type {window 0}} { +# return [format #%06x [expr {int(rand() * 0xFFFFFF)}]] +#}