| blob | d21eb3c0f49ce44231946db32508fa24d82dd562 |
1 --*************************************************************\r
2 \r
3 -- compute looped index\r
4 fn exVertIndex index numPts = \r
5 (\r
6 if (index == 0) then numPts\r
7 else if (index == numPts + 1) then 1\r
8 else index\r
9 )\r
10 \r
11 --*************************************************************\r
12 \r
13 -- compute the tangent of the given vertex\r
14 fn getExtrudeTgt mesh index numPoints =\r
15 (\r
16 \r
17 \r
18 i1 = getVert mesh (exVertIndex (index - 1) numPoints)\r
19 --i2 = exVertIndex index numPoints\r
20 i3 = getVert mesh (exVertIndex (index + 1) numPoints)\r
21 dir = [0, 0, 0]\r
22 dir.x = i3.y - i1.y\r
23 dir.y = - (i3.x - i1.x)\r
24 dir.z = i3.z - i1.z\r
25 dir = normalize dir\r
26 dir\r
27 )\r
28 \r
29 \r
30 --*****************************************************\r
31 -- compute the perimeter of the mesh to extrude\r
32 fn computeWaterBorderPerimeter mesh =\r
33 (\r
34 lenght = 0\r
35 for i = 1 to (mesh.numverts - 1) do\r
36 (\r
37 lenght = lenght + (distance (getVert mesh i) (getVert mesh i + 1))\r
38 )\r
39 lenght = lenght + (distance (getVert mesh (mesh.numverts - 1)) (getVert mesh 1))\r
40 return lenght\r
41 )\r
42 \r
43 \r
44 \r
45 --*************************************************************\r
46 \r
47 fn setWEFace mesh indexFace i1 i2 i3 =\r
48 (\r
49 setFace mesh indexFace [i2, i1, i3]\r
50 )\r
51 \r
52 --*************************************************************\r
53 \r
54 plugin simpleMod waterStretch\r
55 name: "WaterStretch"\r
56 classID:#(0x1f7535ea, 0x36423d01)\r
57 version: 1\r
58 ( \r
59 local numSlices\r
60 parameters params rollout:main\r
61 ( \r
62 tgts type:#point3tab tabSizeVariable: true\r
63 vertsNb type:#integer\r
64 amount1 type:#float ui:cAmount1 default:1 \r
65 amount2 type:#float ui:cAmount2 default:1 \r
66 amount3 type:#float ui:cAmount3 default:1 \r
67 amount4 type:#float ui:cAmount4 default:1 \r
68 )\r
69 rollout main "Parameters"\r
70 (\r
71 spinner cAmount1 "amount 1" type:#float range:[-1000, 1000, 0.1]\r
72 spinner cAmount2 "amount 2" type:#float range:[-1000, 1000, 0.1]\r
73 spinner cAmount3 "amount 3" type:#float range:[-1000, 1000, 0.1]\r
74 spinner cAmount4 "amount 4" type:#float range:[-1000, 1000, 0.1]\r
75 \r
76 on main open do\r
77 (\r
78 print "rollout opened"\r
79 if (numSlice < 2) then cAmount2.enabled = false\r
80 if (numSlice < 3) then cAmount3.enabled = false\r
81 if (numSlice < 4) then cAmount4.enabled = false \r
82 )\r
83 )\r
84 on map i p do\r
85 ( \r
86 if (i == 0) then return p\r
87 if (vertsNb != 0) then\r
88 (\r
89 if (i > vertsNb) then\r
90 ( \r
91 numSlice = (floor ((i - 1) / vertsNb)) as integer \r
92 v0 = p \r
93 v0n = tgts[(i - (numSlice * vertsNb))] \r
94 \r
95 if (numSlice == 1) then amount = amount1\r
96 if (numSlice == 2) then amount = amount1 + amount2\r
97 if (numSlice == 3) then amount = amount1 + amount2 + amount3\r
98 if (numSlice == 4) then amount = amount1 + amount2 + amount3 + amount4\r
99 \r
100 return (v0 + (amount * v0n))\r
101 )\r
102 else\r
103 (\r
104 return p\r
105 )\r
106 )\r
107 )\r
108 \r
109 )\r
110 \r
111 fn buildSlice sel startIndex numVerts slice nbSlice perimeter =\r
112 (\r
113 -- setup vertices\r
114 dist = 0\r
115 for i = 1 to numVerts do\r
116 ( \r
117 setVert sel (i + startIndex + numVerts) (getVert sel i)\r
118 setTVert sel (i + startIndex) [dist / perimeter, (slice - 1) / (nbSlice as float), 0]\r
119 setTVert sel (i + startIndex + numVerts) [dist / perimeter, slice / (nbSlice as float), 0]\r
120 if (i != numVerts) then\r
121 (\r
122 dist = dist + (distance (getVert sel i) (getVert sel (i + 1)))\r
123 ) \r
124 )\r
125 \r
126 -- setup faces index\r
127 for i = 0 to (numVerts - 2) do\r
128 ( \r
129 setWEFace sel (2 * startIndex + 2 * i + 1) (startIndex + i + 1) (startIndex + i + numVerts+ 2) (startIndex + 1 + i + numVerts)\r
130 setWEFace sel (2 * startIndex + 2 * i + 2) (startIndex + i + 1) (startIndex + i + 2) (startIndex + i + numVerts + 2)\r
131 setTVFace sel (2 * startIndex + 2 * i + 1) (startIndex + i + numVerts + 2) (startIndex + i + 1) (startIndex + 1 + i + numVerts)\r
132 setTVFace sel (2 * startIndex + 2 * i + 2) (startIndex + i + 2) (startIndex + i + 1) (startIndex + i + numVerts + 2)\r
133 setVCFace sel (2 * startIndex + 2 * i + 1) [slice + 1, slice, slice + 1]\r
134 setVCFace sel (2 * startIndex + 2 * i + 2) [slice, slice, slice + 1]\r
135 )\r
136 \r
137 \r
138 --setup last face\r
139 i = numVerts - 1\r
140 setWEFace sel (2 * startIndex + 2 * i + 1) (startIndex + i + 1) (startIndex + numVerts + 1) (startIndex + 1 + i + numVerts)\r
141 setWEFace sel (2 * startIndex + 2 * i + 2) (startIndex + i + 1) (startIndex + 1) (startIndex + numVerts+ 1)\r
142 setTVFace sel (2 * startIndex + 2 * i + 1) (startIndex + numVerts + 1) (startIndex + i + 1) (startIndex + 1 + i + numVerts)\r
143 setTVFace sel (2 * startIndex + 2 * i + 2) (startIndex + 1) (startIndex + i + 1) (startIndex + numVerts + 1)\r
144 setVCFace sel (2 * startIndex + 2 * i + 1) [slice + 1, slice, slice + 1]\r
145 setVCFace sel (2 * startIndex + 2 * i + 2) [slice, slice, slice + 1]\r
146 )\r
147 \r
148 utility ExtrudeWater "Extrude water"\r
149 (\r
150 button extrude "extrude water"\r
151 spinner cNumSlice "numSlices" type:#integer range:[1, 4, 1]\r
152 \r
153 \r
154 on extrude pressed do\r
155 (\r
156 numSlices = cNumSlice.value\r
157 for currSel = 1 to selection.count do\r
158 ( \r
159 sel = selection[currSel]\r
160 -- make a copy of the selection\r
161 myCopy = copy sel\r
162 myCopy.name = myCopy.name + "_backup"\r
163 ConvertToMesh sel\r
164 --collapseStack sel\r
165 perimeter = computeWaterBorderPerimeter sel \r
166 initialNumVerts = sel.numverts + 1\r
167 -- create additionnal vertices \r
168 setNumVerts sel (initialNumVerts * (1 + numSlices)) true\r
169 -- duplicate last vert (to avoid bad mapping)\r
170 setVert sel initialNumVerts (getVert sel 1)\r
171 setNumFaces sel (2 * initialNumVerts * numSlices) true\r
172 \r
173 -- vertex colors\r
174 setNumCPVVerts sel (numSlices + 1)\r
175 buildVCFaces sel\r
176 for k = 1 to (numSlices + 1) do\r
177 (\r
178 i = 255 - (255 * (k - 1) / numSlices)\r
179 setVertColor sel k (color i i i i)\r
180 )\r
181 \r
182 -- vertex texture coordinates\r
183 setNumTVerts sel (initialNumVerts * (1 + numSlices))\r
184 buildTVFaces sel\r
185 \r
186 -- build slices\r
187 for currSlice = 1 to numSlices do\r
188 (\r
189 buildSlice sel ((currSlice - 1) * initialNumVerts) initialNumVerts currSlice numSlices perimeter\r
190 )\r
191 \r
192 modif = waterStretch()\r
193 \r
194 \r
195 -- compute tangents\r
196 for i = 1 to initialNumVerts do\r
197 ( \r
198 tg = getExtrudeTgt sel i initialNumVerts\r
199 modif.tgts[i] = tg\r
200 ) \r
201 \r
202 modif.vertsNb = initialNumVerts\r
203 modif.numSlices = numSlices\r
204 addModifier sel (vertexPaint()) \r
205 addModifier sel modif \r
206 update sel \r
207 )\r
208 )\r
209 )\r
210 \r
211 -- select vertices from a water extruded object\r
212 fn selectVertices obj slice =\r
213 (\r
214 local vertsNb = obj.numVerts \r
215 tab = #()\r
216 for i = 1 to vertsNb do\r
217 (\r
218 tab[i] = slice * vertsNb + i\r
219 ) \r
220 setVertSelection obj tab\r
221 )\r
222 \r
223 -- a macro to select one slice from a water extruded shape\r
224 macroScript wsChooseSlice1 category:"NEVRAX Tools" tooltip:"Water / choose slice 1"\r
225 (\r
226 if ($ != undefined) then\r
227 (\r
228 selectVertices $ 1\r
229 update $\r
230 ) \r
231 )\r
232 \r
233 macroScript wsChooseSlice2 category:"NEVRAX Tools" tooltip:"Water / choose slice 2"\r
234 (\r
235 if ($ != undefined) then\r
236 (\r
237 selectVertices $ 2\r
238 update $\r
239 ) \r
240 )\r
241 \r
242 macroScript wsChooseSlice3 category:"NEVRAX Tools" tooltip:"Water / choose slice 3"\r
243 (\r
244 if ($ != undefined) then\r
245 (\r
246 selectVertices $ 3\r
247 update $\r
248 ) \r
249 )\r
250 \r
251 macroScript wsChooseSlice4 category:"NEVRAX Tools" tooltip:"Water / choose slice 4"\r
252 (\r
253 if ($ != undefined) then\r
254 (\r
255 selectVertices $ 4\r
256 update $\r
257 ) \r
258 )\r
259 \r
260 \r
261 \r