blob: db37bfde6ff1387ed4a8e66ef3ba9590c543cdac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
(ns dactyl-cave.text
(:use [scad-clj.scad])
(:use [scad-clj.model])
(:import (java.awt Font RenderingHints)
(java.awt.font FontRenderContext)
(java.awt.geom PathIterator)))
(def segment-type
{PathIterator/SEG_CLOSE :close
PathIterator/SEG_CUBICTO :cubic-to
PathIterator/SEG_LINETO :line-to
PathIterator/SEG_MOVETO :move-to
PathIterator/SEG_QUADTO :quad-to})
;; How many points are specified for each segment type
(def segment-length
{PathIterator/SEG_CLOSE 0
PathIterator/SEG_CUBICTO 3
PathIterator/SEG_LINETO 1
PathIterator/SEG_MOVETO 1
PathIterator/SEG_QUADTO 2})
(defn path-iterator->segments
"Converts a PathIterator into a sequence of segments of the form [segment-type [& points]]"
[^PathIterator path-iterator]
(if (not (.isDone path-iterator))
(let [coords (double-array (* 2 (apply max (vals segment-length))))
segment-code (.currentSegment path-iterator coords)]
(cons [(segment-type segment-code)
(take (segment-length segment-code) (partition 2 coords))]
(lazy-seq (path-iterator->segments (doto path-iterator (.next))))))))
(defn quad->fn
"Returns the parametric control equation f(t), 0 <= t <= 1
for the quadratic interpolation of 3 points."
[cp p1 p2]
(fn [t]
(letfn [(interp [a b c] (+ (* (Math/pow (- 1 t) 2) a)
(* 2 t (- 1 t) b)
(* (Math/pow t 2) c)))]
[(apply interp (map first [cp p1 p2]))
(apply interp (map second [cp p1 p2]))])))
(defn cubic->fn
"Returns the parametric control equation f(t), 0 <= t <= 1
for the cubic interpolation of 4 points."
[cp p1 p2 p3]
(fn [t]
(letfn [(interp [a b c d]
(+ (* (Math/pow (- 1 t) 3) a)
(* 3 t (Math/pow (- 1 t) 2) b)
(* 3 (Math/pow t 2) (- 1 t) c)
(* (Math/pow t 3) d)))]
[(apply interp (map first [cp p1 p2 p3]))
(apply interp (map second [cp p1 p2 p3]))])))
(defn segments->lines
"Takes a sequence of segments of the form [segment-type [& points]]
and transforms each segment into a sequence of interpolated points"
[segments]
(reductions (fn [prev-line-points [segment-type control-points]]
#_(println segment-type)
(condp = segment-type
:move-to control-points
:line-to control-points
:quad-to (map (apply quad->fn
(last prev-line-points)
control-points)
(range 1/10 11/10 1/10))
:cubic-to (map (apply cubic->fn
(last prev-line-points)
control-points)
(range 1/10 11/10 1/10))))
(last (rest (first segments)))
(rest segments)))
(defn path2d [points]
(let [path (doto (java.awt.geom.Path2D$Double.)
(.moveTo (-> points first first)
(-> points first second)))]
(doseq [point (rest points)]
(.lineTo path (first point) (second point)))
path))
(defn split-intersecting [paths]
(let [polygons (map path2d paths)
starting-points (map first paths)]
(reduce (fn [acc path]
(let [polygon (path2d path)]
(if (some #(.contains % (-> path first first) (-> path first second))
(:polygons acc))
(merge-with concat acc
{:difference [path]})
(merge-with concat acc
{:polygons [polygon]
:union [path]}))))
{:polygons []
:union []
:difference []}
paths)))
(defn text-polygon [font size text]
(let [frc (FontRenderContext. nil
RenderingHints/VALUE_TEXT_ANTIALIAS_DEFAULT
RenderingHints/VALUE_FRACTIONALMETRICS_DEFAULT)
path-iter (-> (Font. font Font/PLAIN size)
(.createGlyphVector frc text)
(.getOutline)
(.getPathIterator nil))
paths (->> (path-iterator->segments path-iter)
(partition-by #(= (first %) :close))
(take-nth 2)
(map segments->lines)
(map flatten)
(map (partial partition 2)))
split-paths (split-intersecting paths)]
(difference
(apply union (map polygon (:union split-paths)))
(apply union (map polygon (:difference split-paths))))))
(spit "/Users/madereth/text.scad"
(write-scad
(->> "Anonymous Pro" #_(str (java.util.Date.))
(text-polygon "Anonymous Pro" 12)
(extrude-linear {:height 50 :twist 0 :convexity 0}))))
(spit "/Users/madereth/text.scad"
(write-scad
(->> "Anonymous Pro" #_(str (java.util.Date.))
(text-polygon "Anonymous Pro" 12)
(extrude-linear {:height 12 :twist 0 :convexity 0}))))
|
