13 |
14 |
21 |
22 |
23 |
--------------------------------------------------------------------------------
/project.clj:
--------------------------------------------------------------------------------
1 | (defproject thi.ng/cgg "0.1.0-SNAPSHOT"
2 | :description "Cosine gradient designer for thi.ng/color"
3 | :url "http://thi.ng/gdt"
4 | :license {:name "Apache Software License"
5 | :url "http://www.apache.org/licenses/LICENSE-2.0"
6 | :distribution :repo}
7 |
8 | :min-lein-version "2.6.1"
9 |
10 | :dependencies [[org.clojure/clojure "1.8.0"]
11 | [org.clojure/clojurescript "1.7.228"]
12 | [org.clojure/core.async "0.2.374" :exclusions [org.clojure/tools.reader]]
13 | [thi.ng/geom "0.0.1062"]
14 | [thi.ng/color "1.1.1"]
15 | [cljs-log "0.2.2"]
16 | [reagent "0.5.1"]]
17 |
18 | :plugins [[lein-figwheel "0.5.2"]
19 | [lein-cljsbuild "1.1.3" :exclusions [[org.clojure/clojure]]]]
20 |
21 | :source-paths ["src"]
22 |
23 | :clean-targets ^{:protect false} ["resources/public/js/compiled" "target"]
24 |
25 | :cljsbuild {:builds
26 | [{:id "dev"
27 | :source-paths ["src"]
28 | :figwheel true
29 | :compiler {:main thi.ng.cgg.core
30 | :asset-path "js/compiled/out"
31 | :output-to "resources/public/js/compiled/app.js"
32 | :output-dir "resources/public/js/compiled/out"
33 | :source-map-timestamp true}}
34 | {:id "prod"
35 | :source-paths ["src"]
36 | :compiler {:output-to "resources/public/js/compiled/app.js"
37 | :main thi.ng.cgg.core
38 | :optimizations :advanced
39 | :pretty-print false}}]}
40 |
41 | :figwheel {:css-dirs ["resources/public/css"]})
42 |
--------------------------------------------------------------------------------
/src/thi/ng/cgg/core.cljs:
--------------------------------------------------------------------------------
1 | (ns thi.ng.cgg.core
2 | (:require-macros
3 | [reagent.ratom :refer [reaction]]
4 | [cljs-log.core :refer [debug info]])
5 | (:require
6 | [reagent.core :as r]
7 | [thi.ng.color.core :as col]
8 | [thi.ng.color.gradients :as grad]
9 | [thi.ng.strf.core :as f]
10 | [thi.ng.math.core :as m :refer [PI TWO_PI HALF_PI]]
11 | [thi.ng.geom.core :as g]
12 | [thi.ng.geom.vector :refer [vec2]]
13 | [thi.ng.geom.svg.core :as svg]
14 | [thi.ng.geom.svg.adapter :as svgadapt]
15 | [thi.ng.geom.viz.core :as viz]))
16 |
17 | (defonce app
18 | (r/atom
19 | {:ranges [[0 1] [0 1] [0 HALF_PI] [0 TWO_PI]]
20 | :globals [0 1 1 0]
21 | :mode :viz-cart
22 | :viz-cart {:x-axis (viz/linear-axis
23 | {:domain [0 1] :range [50 580] :major 0.5 :minor 0.125 :pos 250})
24 | :y-axis (viz/linear-axis
25 | {:domain [0 1] :range [250 20] :major 0.2 :minor 0.1 :pos 50
26 | :label-dist 15 :label-style {:text-anchor "end"}})
27 | :grid {:minor-x true :minor-y true}}
28 | :viz-polar {:x-axis (viz/linear-axis
29 | {:domain [0 1] :range [0 TWO_PI]
30 | :major 0.5 :minor 0.0625
31 | :pos 133
32 | :label (constantly nil)})
33 | :y-axis (viz/linear-axis
34 | {:domain [0 1] :range [0 130]
35 | :major 0.5 :minor 0.25
36 | :major-size 8 :minor-size 4
37 | :pos 0
38 | :label-dist 12 :label-style {:text-anchor "end"}})
39 | :origin (vec2 325 136)
40 | :circle true
41 | :grid {:minor-x true :minor-y true}}}))
42 |
43 | (def fmt-vec (let [ff (f/float 3)] #(apply f/format ["[" ff " " ff " " ff "]"] %)))
44 |
45 | (defn channel-specs
46 | [colors]
47 | (->> ["red" "green" "blue"]
48 | (map-indexed
49 | (fn [idx col]
50 | {:values (viz/uniform-domain-points [0 1] (map #(nth (deref %) idx) colors))
51 | :attribs {:fill "none" :stroke col}
52 | :layout viz/svg-line-plot}))
53 | (vec)))
54 |
55 | (defn color-bars
56 | [x1 x2 y w h colors]
57 | (let [n (dec (count colors))]
58 | (for [i (m/norm-range n)]
59 | (svg/rect [(m/mix* x1 x2 i) y] w h {:fill (nth colors (int (* i n)))}))))
60 |
61 | (defn clear-preset!
62 | [] (swap! app assoc :preset :user))
63 |
64 | (defn backup-coeffs!
65 | [] (swap! app assoc :coeffs-orig (:coeffs @app)))
66 |
67 | (defn update-viz!
68 | []
69 | (let [grad (grad/cosine-gradient 100 (:coeffs @app))]
70 | (swap! app assoc :gradient grad)
71 | (swap! app assoc :viz-data (channel-specs grad))))
72 |
73 | (defn update-coeff!
74 | [id idx]
75 | (fn [e]
76 | (swap! app assoc-in [:coeffs id idx] (-> e .-target .-value f/parse-float))
77 | (backup-coeffs!)
78 | (clear-preset!)
79 | (update-viz!)))
80 |
81 | (defn update-global!
82 | [id f]
83 | (fn [e]
84 | (let [x (-> e .-target .-value f/parse-float)]
85 | (swap! app assoc-in [:globals id] x)
86 | (swap! app assoc-in [:coeffs id] (mapv #(f % x) (get-in @app [:coeffs-orig id])))
87 | (clear-preset!)
88 | (update-viz!))))
89 |
90 | (defn set-preset!
91 | [id]
92 | (swap! app assoc :preset id :coeffs (grad/cosine-schemes id) :globals [0 1 1 0])
93 | (backup-coeffs!)
94 | (update-viz!))
95 |
96 | (defn set-mode!
97 | [id] (swap! app assoc :mode id))
98 |
99 | (defn randomize-coeffs!
100 | []
101 | (swap! app assoc :coeffs
102 | (mapv (fn [i] (vec (repeatedly 3 #(apply m/random (get-in @app [:ranges i])))))
103 | (range 4)))
104 | (backup-coeffs!)
105 | (clear-preset!)
106 | (update-viz!))
107 |
108 | (defn slider
109 | [props]
110 | [:p
111 | [:input (merge {:type :range :min (- PI) :max PI :step 0.01} props)]
112 | [:input (merge {:type :number :step 0.01} props)]])
113 |
114 | (defn preset-chooser
115 | []
116 | (let [presets (->> grad/cosine-schemes keys (map name) sort (cons "Choose a preset:"))
117 | sel (reaction (name (:preset @app)))]
118 | (fn []
119 | [:select {:on-change #(-> % .-target .-value keyword set-preset!)
120 | :value @sel}
121 | (for [id presets] [:option {:key id :value id} id])])))
122 |
123 | (defn mode-chooser
124 | []
125 | (let [mode (reaction (:mode @app))]
126 | (fn []
127 | [:select {:on-change #(->> % .-target .-value keyword set-mode!)
128 | :value @mode}
129 | [:option {:value "viz-cart"} "Cartesian"]
130 | [:option {:value "viz-polar"} "Polar"]])))
131 |
132 | (defn gradient-graph
133 | []
134 | (let [colors (reaction (:gradient @app))
135 | data (reaction (:viz-data @app))
136 | mode (reaction (:mode @app))]
137 | #(let [layout (if (= :viz-cart @mode) viz/svg-plot2d-cartesian viz/svg-plot2d-polar)
138 | body (layout (assoc (get @app @mode) :data @data))
139 | bars (color-bars 50 570 280 10 20 @colors)]
140 | [:div#viz
141 | (svgadapt/inject-element-attribs
142 | (svg/svg {:width 650 :height 300} body bars))])))
143 |
144 | (defn channel-controls
145 | [id [r g b]]
146 | [:div
147 | [slider {:value r :on-change (update-coeff! id 0)}]
148 | [slider {:value g :on-change (update-coeff! id 1)}]
149 | [slider {:value b :on-change (update-coeff! id 2)}]])
150 |
151 | (defn global-controls
152 | [id params f min max]
153 | [slider {:value (nth params id) :min min :max max :on-change (update-global! id f)}])
154 |
155 | (defn gradient-controls
156 | []
157 | (let [coeffs (reaction (:coeffs @app))
158 | globals (reaction (:globals @app))]
159 | (fn []
160 | [:div
161 | [:table
162 | [:tbody
163 | [:tr [:th "DC Offset"] [:th "Amp"] [:th "Freq"] [:th "Phase"]]
164 | [:tr
165 | [:td [channel-controls 0 (nth @coeffs 0)]]
166 | [:td [channel-controls 1 (nth @coeffs 1)]]
167 | [:td [channel-controls 2 (nth @coeffs 2)]]
168 | [:td [channel-controls 3 (nth @coeffs 3)]]]
169 | [:tr [:th "Global controls"]]
170 | [:tr
171 | [:td [global-controls 0 @globals + -1 1]]
172 | [:td [global-controls 1 @globals * 0 2]]
173 | [:td [global-controls 2 @globals * 0 2]]
174 | [:td [global-controls 3 @globals + (- PI) PI]]]]]])))
175 |
176 | (defn app-component
177 | []
178 | (let [coeffs (reaction (:coeffs @app))]
179 | (fn []
180 | (let [coeffs' (interpose " " (map fmt-vec @coeffs))]
181 | [:div
182 | [:div
183 | [preset-chooser]
184 | [mode-chooser]
185 | [:button {:on-click randomize-coeffs!} "Randomize"]]
186 | [gradient-graph]
187 | [gradient-controls]
188 | [:p "Vector of coefficients for the above shown gradient:" [:br] [:pre "[" coeffs' "]"]]
189 | [:p "To sample the gradient and produce a seq of N RGBA colors:"
190 | [:pre "(require '[thi.ng.color.gradients :as grad])\n\n(grad/cosine-gradient\n 100 [" coeffs' "]))"]]]))))
191 |
192 | (defn main
193 | []
194 | (set-preset! :rainbow1)
195 | (r/render-component [app-component] (.getElementById js/document "app")))
196 |
197 | (main)
198 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | Apache License
2 | Version 2.0, January 2004
3 | http://www.apache.org/licenses/
4 |
5 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
6 |
7 | 1. Definitions.
8 |
9 | "License" shall mean the terms and conditions for use, reproduction,
10 | and distribution as defined by Sections 1 through 9 of this document.
11 |
12 | "Licensor" shall mean the copyright owner or entity authorized by
13 | the copyright owner that is granting the License.
14 |
15 | "Legal Entity" shall mean the union of the acting entity and all
16 | other entities that control, are controlled by, or are under common
17 | control with that entity. For the purposes of this definition,
18 | "control" means (i) the power, direct or indirect, to cause the
19 | direction or management of such entity, whether by contract or
20 | otherwise, or (ii) ownership of fifty percent (50%) or more of the
21 | outstanding shares, or (iii) beneficial ownership of such entity.
22 |
23 | "You" (or "Your") shall mean an individual or Legal Entity
24 | exercising permissions granted by this License.
25 |
26 | "Source" form shall mean the preferred form for making modifications,
27 | including but not limited to software source code, documentation
28 | source, and configuration files.
29 |
30 | "Object" form shall mean any form resulting from mechanical
31 | transformation or translation of a Source form, including but
32 | not limited to compiled object code, generated documentation,
33 | and conversions to other media types.
34 |
35 | "Work" shall mean the work of authorship, whether in Source or
36 | Object form, made available under the License, as indicated by a
37 | copyright notice that is included in or attached to the work
38 | (an example is provided in the Appendix below).
39 |
40 | "Derivative Works" shall mean any work, whether in Source or Object
41 | form, that is based on (or derived from) the Work and for which the
42 | editorial revisions, annotations, elaborations, or other modifications
43 | represent, as a whole, an original work of authorship. For the purposes
44 | of this License, Derivative Works shall not include works that remain
45 | separable from, or merely link (or bind by name) to the interfaces of,
46 | the Work and Derivative Works thereof.
47 |
48 | "Contribution" shall mean any work of authorship, including
49 | the original version of the Work and any modifications or additions
50 | to that Work or Derivative Works thereof, that is intentionally
51 | submitted to Licensor for inclusion in the Work by the copyright owner
52 | or by an individual or Legal Entity authorized to submit on behalf of
53 | the copyright owner. For the purposes of this definition, "submitted"
54 | means any form of electronic, verbal, or written communication sent
55 | to the Licensor or its representatives, including but not limited to
56 | communication on electronic mailing lists, source code control systems,
57 | and issue tracking systems that are managed by, or on behalf of, the
58 | Licensor for the purpose of discussing and improving the Work, but
59 | excluding communication that is conspicuously marked or otherwise
60 | designated in writing by the copyright owner as "Not a Contribution."
61 |
62 | "Contributor" shall mean Licensor and any individual or Legal Entity
63 | on behalf of whom a Contribution has been received by Licensor and
64 | subsequently incorporated within the Work.
65 |
66 | 2. Grant of Copyright License. Subject to the terms and conditions of
67 | this License, each Contributor hereby grants to You a perpetual,
68 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable
69 | copyright license to reproduce, prepare Derivative Works of,
70 | publicly display, publicly perform, sublicense, and distribute the
71 | Work and such Derivative Works in Source or Object form.
72 |
73 | 3. Grant of Patent License. Subject to the terms and conditions of
74 | this License, each Contributor hereby grants to You a perpetual,
75 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable
76 | (except as stated in this section) patent license to make, have made,
77 | use, offer to sell, sell, import, and otherwise transfer the Work,
78 | where such license applies only to those patent claims licensable
79 | by such Contributor that are necessarily infringed by their
80 | Contribution(s) alone or by combination of their Contribution(s)
81 | with the Work to which such Contribution(s) was submitted. If You
82 | institute patent litigation against any entity (including a
83 | cross-claim or counterclaim in a lawsuit) alleging that the Work
84 | or a Contribution incorporated within the Work constitutes direct
85 | or contributory patent infringement, then any patent licenses
86 | granted to You under this License for that Work shall terminate
87 | as of the date such litigation is filed.
88 |
89 | 4. Redistribution. You may reproduce and distribute copies of the
90 | Work or Derivative Works thereof in any medium, with or without
91 | modifications, and in Source or Object form, provided that You
92 | meet the following conditions:
93 |
94 | (a) You must give any other recipients of the Work or
95 | Derivative Works a copy of this License; and
96 |
97 | (b) You must cause any modified files to carry prominent notices
98 | stating that You changed the files; and
99 |
100 | (c) You must retain, in the Source form of any Derivative Works
101 | that You distribute, all copyright, patent, trademark, and
102 | attribution notices from the Source form of the Work,
103 | excluding those notices that do not pertain to any part of
104 | the Derivative Works; and
105 |
106 | (d) If the Work includes a "NOTICE" text file as part of its
107 | distribution, then any Derivative Works that You distribute must
108 | include a readable copy of the attribution notices contained
109 | within such NOTICE file, excluding those notices that do not
110 | pertain to any part of the Derivative Works, in at least one
111 | of the following places: within a NOTICE text file distributed
112 | as part of the Derivative Works; within the Source form or
113 | documentation, if provided along with the Derivative Works; or,
114 | within a display generated by the Derivative Works, if and
115 | wherever such third-party notices normally appear. The contents
116 | of the NOTICE file are for informational purposes only and
117 | do not modify the License. You may add Your own attribution
118 | notices within Derivative Works that You distribute, alongside
119 | or as an addendum to the NOTICE text from the Work, provided
120 | that such additional attribution notices cannot be construed
121 | as modifying the License.
122 |
123 | You may add Your own copyright statement to Your modifications and
124 | may provide additional or different license terms and conditions
125 | for use, reproduction, or distribution of Your modifications, or
126 | for any such Derivative Works as a whole, provided Your use,
127 | reproduction, and distribution of the Work otherwise complies with
128 | the conditions stated in this License.
129 |
130 | 5. Submission of Contributions. Unless You explicitly state otherwise,
131 | any Contribution intentionally submitted for inclusion in the Work
132 | by You to the Licensor shall be under the terms and conditions of
133 | this License, without any additional terms or conditions.
134 | Notwithstanding the above, nothing herein shall supersede or modify
135 | the terms of any separate license agreement you may have executed
136 | with Licensor regarding such Contributions.
137 |
138 | 6. Trademarks. This License does not grant permission to use the trade
139 | names, trademarks, service marks, or product names of the Licensor,
140 | except as required for reasonable and customary use in describing the
141 | origin of the Work and reproducing the content of the NOTICE file.
142 |
143 | 7. Disclaimer of Warranty. Unless required by applicable law or
144 | agreed to in writing, Licensor provides the Work (and each
145 | Contributor provides its Contributions) on an "AS IS" BASIS,
146 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
147 | implied, including, without limitation, any warranties or conditions
148 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
149 | PARTICULAR PURPOSE. You are solely responsible for determining the
150 | appropriateness of using or redistributing the Work and assume any
151 | risks associated with Your exercise of permissions under this License.
152 |
153 | 8. Limitation of Liability. In no event and under no legal theory,
154 | whether in tort (including negligence), contract, or otherwise,
155 | unless required by applicable law (such as deliberate and grossly
156 | negligent acts) or agreed to in writing, shall any Contributor be
157 | liable to You for damages, including any direct, indirect, special,
158 | incidental, or consequential damages of any character arising as a
159 | result of this License or out of the use or inability to use the
160 | Work (including but not limited to damages for loss of goodwill,
161 | work stoppage, computer failure or malfunction, or any and all
162 | other commercial damages or losses), even if such Contributor
163 | has been advised of the possibility of such damages.
164 |
165 | 9. Accepting Warranty or Additional Liability. While redistributing
166 | the Work or Derivative Works thereof, You may choose to offer,
167 | and charge a fee for, acceptance of support, warranty, indemnity,
168 | or other liability obligations and/or rights consistent with this
169 | License. However, in accepting such obligations, You may act only
170 | on Your own behalf and on Your sole responsibility, not on behalf
171 | of any other Contributor, and only if You agree to indemnify,
172 | defend, and hold each Contributor harmless for any liability
173 | incurred by, or claims asserted against, such Contributor by reason
174 | of your accepting any such warranty or additional liability.
175 |
176 | END OF TERMS AND CONDITIONS
177 |
178 | APPENDIX: How to apply the Apache License to your work.
179 |
180 | To apply the Apache License to your work, attach the following
181 | boilerplate notice, with the fields enclosed by brackets "{}"
182 | replaced with your own identifying information. (Don't include
183 | the brackets!) The text should be enclosed in the appropriate
184 | comment syntax for the file format. We also recommend that a
185 | file or class name and description of purpose be included on the
186 | same "printed page" as the copyright notice for easier
187 | identification within third-party archives.
188 |
189 | Copyright {yyyy} {name of copyright owner}
190 |
191 | Licensed under the Apache License, Version 2.0 (the "License");
192 | you may not use this file except in compliance with the License.
193 | You may obtain a copy of the License at
194 |
195 | http://www.apache.org/licenses/LICENSE-2.0
196 |
197 | Unless required by applicable law or agreed to in writing, software
198 | distributed under the License is distributed on an "AS IS" BASIS,
199 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
200 | See the License for the specific language governing permissions and
201 | limitations under the License.
202 |
--------------------------------------------------------------------------------