/[svn]/linuxsampler/trunk/src/engines/gig/Voice.cpp
ViewVC logotype

Contents of /linuxsampler/trunk/src/engines/gig/Voice.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2408 - (show annotations) (download)
Sat Feb 2 08:22:49 2013 UTC (11 years, 2 months ago) by persson
File size: 22594 byte(s)
* gig engine: fixed EG1 modulation when attack or release is zero

1 /***************************************************************************
2 * *
3 * LinuxSampler - modular, streaming capable sampler *
4 * *
5 * Copyright (C) 2003, 2004 by Benno Senoner and Christian Schoenebeck *
6 * Copyright (C) 2005 - 2008 Christian Schoenebeck *
7 * Copyright (C) 2009 - 2013 Christian Schoenebeck and Grigor Iliev *
8 * *
9 * This program is free software; you can redistribute it and/or modify *
10 * it under the terms of the GNU General Public License as published by *
11 * the Free Software Foundation; either version 2 of the License, or *
12 * (at your option) any later version. *
13 * *
14 * This program is distributed in the hope that it will be useful, *
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
17 * GNU General Public License for more details. *
18 * *
19 * You should have received a copy of the GNU General Public License *
20 * along with this program; if not, write to the Free Software *
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, *
22 * MA 02111-1307 USA *
23 ***************************************************************************/
24
25 #include "../../common/Features.h"
26 #include "Synthesizer.h"
27 #include "Profiler.h"
28 #include "Engine.h"
29 #include "EngineChannel.h"
30
31 #include "Voice.h"
32
33 namespace LinuxSampler { namespace gig {
34
35 Voice::Voice() {
36 pEngine = NULL;
37 pEG1 = &EG1;
38 pEG2 = &EG2;
39 }
40
41 Voice::~Voice() {
42 }
43
44 EngineChannel* Voice::GetGigEngineChannel() {
45 return static_cast<EngineChannel*>(pEngineChannel);
46 }
47
48 void Voice::SetEngine(LinuxSampler::Engine* pEngine) {
49 Engine* engine = static_cast<Engine*>(pEngine);
50 this->pEngine = engine;
51 this->pDiskThread = engine->pDiskThread;
52 dmsg(6,("Voice::SetEngine()\n"));
53 }
54
55 Voice::SampleInfo Voice::GetSampleInfo() {
56 SampleInfo si;
57 si.SampleRate = pSample->SamplesPerSecond;
58 si.ChannelCount = pSample->Channels;
59 si.FrameSize = pSample->FrameSize;
60 si.BitDepth = pSample->BitDepth;
61 si.TotalFrameCount = pSample->SamplesTotal;
62
63 si.HasLoops = pRegion->SampleLoops;
64 si.LoopStart = (si.HasLoops) ? pRegion->pSampleLoops[0].LoopStart : 0;
65 si.LoopLength = (si.HasLoops) ? pRegion->pSampleLoops[0].LoopLength : 0;
66 si.LoopPlayCount = pSample->LoopPlayCount;
67 si.Unpitched = !pRegion->PitchTrack;
68
69 return si;
70 }
71
72 Voice::RegionInfo Voice::GetRegionInfo() {
73 RegionInfo ri;
74 ri.UnityNote = pRegion->UnityNote;
75 ri.FineTune = pRegion->FineTune;
76 ri.Pan = pRegion->Pan;
77 ri.SampleStartOffset = pRegion->SampleStartOffset;
78
79 ri.EG2PreAttack = pRegion->EG2PreAttack;
80 ri.EG2Attack = pRegion->EG2Attack;
81 ri.EG2Decay1 = pRegion->EG2Decay1;
82 ri.EG2Decay2 = pRegion->EG2Decay2;
83 ri.EG2Sustain = pRegion->EG2Sustain;
84 ri.EG2InfiniteSustain = pRegion->EG2InfiniteSustain;
85 ri.EG2Release = pRegion->EG2Release;
86
87 ri.EG3Attack = pRegion->EG3Attack;
88 ri.EG3Depth = pRegion->EG3Depth;
89 ri.VCFEnabled = pRegion->VCFEnabled;
90 ri.VCFType = Filter::vcf_type_t(pRegion->VCFType);
91 ri.VCFResonance = pRegion->VCFResonance;
92
93 ri.ReleaseTriggerDecay = 0.01053 * (256 >> pRegion->ReleaseTriggerDecay);
94
95 return ri;
96 }
97
98 Voice::InstrumentInfo Voice::GetInstrumentInfo() {
99 InstrumentInfo ii;
100 ii.FineTune = GetGigEngineChannel()->pInstrument->FineTune;
101 ii.PitchbendRange = GetGigEngineChannel()->pInstrument->PitchbendRange;
102
103 return ii;
104 }
105
106 double Voice::GetSampleAttenuation() {
107 return pRegion->SampleAttenuation;
108 }
109
110 double Voice::GetVelocityAttenuation(uint8_t MIDIKeyVelocity) {
111 return pRegion->GetVelocityAttenuation(MIDIKeyVelocity);
112 }
113
114 double Voice::GetVelocityRelease(uint8_t MIDIKeyVelocity) {
115 return pRegion->GetVelocityRelease(MIDIKeyVelocity);
116 }
117
118 void Voice::ProcessCCEvent(RTList<Event>::Iterator& itEvent) {
119 if (itEvent->Type == Event::type_control_change && itEvent->Param.CC.Controller) { // if (valid) MIDI control change event
120 if (pRegion->AttenuationController.type == ::gig::attenuation_ctrl_t::type_controlchange &&
121 itEvent->Param.CC.Controller == pRegion->AttenuationController.controller_number) {
122 CrossfadeSmoother.update(AbstractEngine::CrossfadeCurve[CrossfadeAttenuation(itEvent->Param.CC.Value)]);
123 }
124 }
125 }
126
127 void Voice::ProcessCutoffEvent(RTList<Event>::Iterator& itEvent) {
128 int ccvalue = itEvent->Param.CC.Value;
129 if (VCFCutoffCtrl.value == ccvalue) return;
130 VCFCutoffCtrl.value = ccvalue;
131 if (pRegion->VCFCutoffControllerInvert) ccvalue = 127 - ccvalue;
132 if (ccvalue < pRegion->VCFVelocityScale) ccvalue = pRegion->VCFVelocityScale;
133 float cutoff = CutoffBase * float(ccvalue);
134 if (cutoff > 127.0f) cutoff = 127.0f;
135
136 VCFCutoffCtrl.fvalue = cutoff; // needed for initialization of fFinalCutoff next time
137 fFinalCutoff = cutoff;
138 }
139
140 double Voice::CalculateCrossfadeVolume(uint8_t MIDIKeyVelocity) {
141 float crossfadeVolume;
142 switch (pRegion->AttenuationController.type) {
143 case ::gig::attenuation_ctrl_t::type_channelaftertouch:
144 crossfadeVolume = Engine::CrossfadeCurve[CrossfadeAttenuation(GetGigEngineChannel()->ControllerTable[128])];
145 break;
146 case ::gig::attenuation_ctrl_t::type_velocity:
147 crossfadeVolume = Engine::CrossfadeCurve[CrossfadeAttenuation(MIDIKeyVelocity)];
148 break;
149 case ::gig::attenuation_ctrl_t::type_controlchange: //FIXME: currently not sample accurate
150 crossfadeVolume = Engine::CrossfadeCurve[CrossfadeAttenuation(GetGigEngineChannel()->ControllerTable[pRegion->AttenuationController.controller_number])];
151 break;
152 case ::gig::attenuation_ctrl_t::type_none: // no crossfade defined
153 default:
154 crossfadeVolume = 1.0f;
155 }
156
157 return crossfadeVolume;
158 }
159
160 double Voice::GetEG1ControllerValue(uint8_t MIDIKeyVelocity) {
161 double eg1controllervalue = 0;
162 switch (pRegion->EG1Controller.type) {
163 case ::gig::eg1_ctrl_t::type_none: // no controller defined
164 eg1controllervalue = 0;
165 break;
166 case ::gig::eg1_ctrl_t::type_channelaftertouch:
167 eg1controllervalue = GetGigEngineChannel()->ControllerTable[128];
168 break;
169 case ::gig::eg1_ctrl_t::type_velocity:
170 eg1controllervalue = MIDIKeyVelocity;
171 break;
172 case ::gig::eg1_ctrl_t::type_controlchange: // MIDI control change controller
173 eg1controllervalue = GetGigEngineChannel()->ControllerTable[pRegion->EG1Controller.controller_number];
174 break;
175 }
176 if (pRegion->EG1ControllerInvert) eg1controllervalue = 127 - eg1controllervalue;
177
178 return eg1controllervalue;
179 }
180
181 Voice::EGInfo Voice::CalculateEG1ControllerInfluence(double eg1ControllerValue) {
182 EGInfo eg;
183 // (eg1attack is different from the others)
184 if (pRegion->EG1Attack < 1e-8 && // attack in gig == 0
185 (pRegion->EG1ControllerAttackInfluence == 0 ||
186 eg1ControllerValue <= 10)) { // strange GSt special case
187 eg.Attack = 0; // this will force the attack to be 0 in the call to EG1.trigger
188 } else {
189 eg.Attack = (pRegion->EG1ControllerAttackInfluence) ?
190 1 + 0.031 * (double) (pRegion->EG1ControllerAttackInfluence == 1 ?
191 1 : 1 << pRegion->EG1ControllerAttackInfluence) * eg1ControllerValue : 1.0;
192 }
193 eg.Decay = (pRegion->EG1ControllerDecayInfluence) ? 1 + 0.00775 * (double) (1 << pRegion->EG1ControllerDecayInfluence) * eg1ControllerValue : 1.0;
194 eg.Release = (pRegion->EG1ControllerReleaseInfluence) ? 1 + 0.00775 * (double) (1 << pRegion->EG1ControllerReleaseInfluence) * eg1ControllerValue : 1.0;
195
196 return eg;
197 }
198
199 double Voice::GetEG2ControllerValue(uint8_t MIDIKeyVelocity) {
200 double eg2controllervalue = 0;
201 switch (pRegion->EG2Controller.type) {
202 case ::gig::eg2_ctrl_t::type_none: // no controller defined
203 eg2controllervalue = 0;
204 break;
205 case ::gig::eg2_ctrl_t::type_channelaftertouch:
206 eg2controllervalue = GetGigEngineChannel()->ControllerTable[128];
207 break;
208 case ::gig::eg2_ctrl_t::type_velocity:
209 eg2controllervalue = MIDIKeyVelocity;
210 break;
211 case ::gig::eg2_ctrl_t::type_controlchange: // MIDI control change controller
212 eg2controllervalue = GetGigEngineChannel()->ControllerTable[pRegion->EG2Controller.controller_number];
213 break;
214 }
215 if (pRegion->EG2ControllerInvert) eg2controllervalue = 127 - eg2controllervalue;
216
217 return eg2controllervalue;
218 }
219
220 Voice::EGInfo Voice::CalculateEG2ControllerInfluence(double eg2ControllerValue) {
221 EGInfo eg;
222 eg.Attack = (pRegion->EG2ControllerAttackInfluence) ? 1 + 0.00775 * (double) (1 << pRegion->EG2ControllerAttackInfluence) * eg2ControllerValue : 1.0;
223 eg.Decay = (pRegion->EG2ControllerDecayInfluence) ? 1 + 0.00775 * (double) (1 << pRegion->EG2ControllerDecayInfluence) * eg2ControllerValue : 1.0;
224 eg.Release = (pRegion->EG2ControllerReleaseInfluence) ? 1 + 0.00775 * (double) (1 << pRegion->EG2ControllerReleaseInfluence) * eg2ControllerValue : 1.0;
225
226 return eg;
227 }
228
229 void Voice::InitLFO1() {
230 uint16_t lfo1_internal_depth;
231 switch (pRegion->LFO1Controller) {
232 case ::gig::lfo1_ctrl_internal:
233 lfo1_internal_depth = pRegion->LFO1InternalDepth;
234 pLFO1->ExtController = 0; // no external controller
235 bLFO1Enabled = (lfo1_internal_depth > 0);
236 break;
237 case ::gig::lfo1_ctrl_modwheel:
238 lfo1_internal_depth = 0;
239 pLFO1->ExtController = 1; // MIDI controller 1
240 bLFO1Enabled = (pRegion->LFO1ControlDepth > 0);
241 break;
242 case ::gig::lfo1_ctrl_breath:
243 lfo1_internal_depth = 0;
244 pLFO1->ExtController = 2; // MIDI controller 2
245 bLFO1Enabled = (pRegion->LFO1ControlDepth > 0);
246 break;
247 case ::gig::lfo1_ctrl_internal_modwheel:
248 lfo1_internal_depth = pRegion->LFO1InternalDepth;
249 pLFO1->ExtController = 1; // MIDI controller 1
250 bLFO1Enabled = (lfo1_internal_depth > 0 || pRegion->LFO1ControlDepth > 0);
251 break;
252 case ::gig::lfo1_ctrl_internal_breath:
253 lfo1_internal_depth = pRegion->LFO1InternalDepth;
254 pLFO1->ExtController = 2; // MIDI controller 2
255 bLFO1Enabled = (lfo1_internal_depth > 0 || pRegion->LFO1ControlDepth > 0);
256 break;
257 default:
258 lfo1_internal_depth = 0;
259 pLFO1->ExtController = 0; // no external controller
260 bLFO1Enabled = false;
261 }
262 if (bLFO1Enabled) {
263 pLFO1->trigger(pRegion->LFO1Frequency,
264 start_level_min,
265 lfo1_internal_depth,
266 pRegion->LFO1ControlDepth,
267 pRegion->LFO1FlipPhase,
268 pEngine->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE);
269 pLFO1->update(pLFO1->ExtController ? GetGigEngineChannel()->ControllerTable[pLFO1->ExtController] : 0);
270 }
271 }
272
273 void Voice::InitLFO2() {
274 uint16_t lfo2_internal_depth;
275 switch (pRegion->LFO2Controller) {
276 case ::gig::lfo2_ctrl_internal:
277 lfo2_internal_depth = pRegion->LFO2InternalDepth;
278 pLFO2->ExtController = 0; // no external controller
279 bLFO2Enabled = (lfo2_internal_depth > 0);
280 break;
281 case ::gig::lfo2_ctrl_modwheel:
282 lfo2_internal_depth = 0;
283 pLFO2->ExtController = 1; // MIDI controller 1
284 bLFO2Enabled = (pRegion->LFO2ControlDepth > 0);
285 break;
286 case ::gig::lfo2_ctrl_foot:
287 lfo2_internal_depth = 0;
288 pLFO2->ExtController = 4; // MIDI controller 4
289 bLFO2Enabled = (pRegion->LFO2ControlDepth > 0);
290 break;
291 case ::gig::lfo2_ctrl_internal_modwheel:
292 lfo2_internal_depth = pRegion->LFO2InternalDepth;
293 pLFO2->ExtController = 1; // MIDI controller 1
294 bLFO2Enabled = (lfo2_internal_depth > 0 || pRegion->LFO2ControlDepth > 0);
295 break;
296 case ::gig::lfo2_ctrl_internal_foot:
297 lfo2_internal_depth = pRegion->LFO2InternalDepth;
298 pLFO2->ExtController = 4; // MIDI controller 4
299 bLFO2Enabled = (lfo2_internal_depth > 0 || pRegion->LFO2ControlDepth > 0);
300 break;
301 default:
302 lfo2_internal_depth = 0;
303 pLFO2->ExtController = 0; // no external controller
304 bLFO2Enabled = false;
305 }
306 if (bLFO2Enabled) {
307 pLFO2->trigger(pRegion->LFO2Frequency,
308 start_level_max,
309 lfo2_internal_depth,
310 pRegion->LFO2ControlDepth,
311 pRegion->LFO2FlipPhase,
312 pEngine->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE);
313 pLFO2->update(pLFO2->ExtController ? GetGigEngineChannel()->ControllerTable[pLFO2->ExtController] : 0);
314 }
315 }
316
317 void Voice::InitLFO3() {
318 uint16_t lfo3_internal_depth;
319 switch (pRegion->LFO3Controller) {
320 case ::gig::lfo3_ctrl_internal:
321 lfo3_internal_depth = pRegion->LFO3InternalDepth;
322 pLFO3->ExtController = 0; // no external controller
323 bLFO3Enabled = (lfo3_internal_depth > 0);
324 break;
325 case ::gig::lfo3_ctrl_modwheel:
326 lfo3_internal_depth = 0;
327 pLFO3->ExtController = 1; // MIDI controller 1
328 bLFO3Enabled = (pRegion->LFO3ControlDepth > 0);
329 break;
330 case ::gig::lfo3_ctrl_aftertouch:
331 lfo3_internal_depth = 0;
332 pLFO3->ExtController = 128;
333 bLFO3Enabled = true;
334 break;
335 case ::gig::lfo3_ctrl_internal_modwheel:
336 lfo3_internal_depth = pRegion->LFO3InternalDepth;
337 pLFO3->ExtController = 1; // MIDI controller 1
338 bLFO3Enabled = (lfo3_internal_depth > 0 || pRegion->LFO3ControlDepth > 0);
339 break;
340 case ::gig::lfo3_ctrl_internal_aftertouch:
341 lfo3_internal_depth = pRegion->LFO3InternalDepth;
342 pLFO3->ExtController = 128;
343 bLFO3Enabled = (lfo3_internal_depth > 0 || pRegion->LFO3ControlDepth > 0);
344 break;
345 default:
346 lfo3_internal_depth = 0;
347 pLFO3->ExtController = 0; // no external controller
348 bLFO3Enabled = false;
349 }
350 if (bLFO3Enabled) {
351 pLFO3->trigger(pRegion->LFO3Frequency,
352 start_level_mid,
353 lfo3_internal_depth,
354 pRegion->LFO3ControlDepth,
355 false,
356 pEngine->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE);
357 pLFO3->update(pLFO3->ExtController ? GetGigEngineChannel()->ControllerTable[pLFO3->ExtController] : 0);
358 }
359 }
360
361 float Voice::CalculateCutoffBase(uint8_t MIDIKeyVelocity) {
362 float cutoff = pRegion->GetVelocityCutoff(MIDIKeyVelocity);
363 if (pRegion->VCFKeyboardTracking) {
364 cutoff *= RTMath::CentsToFreqRatioUnlimited((MIDIKey - pRegion->VCFKeyboardTrackingBreakpoint) * 100);
365 }
366 return cutoff;
367 }
368
369 float Voice::CalculateFinalCutoff(float cutoffBase) {
370 int cvalue;
371 if (VCFCutoffCtrl.controller) {
372 cvalue = GetGigEngineChannel()->ControllerTable[VCFCutoffCtrl.controller];
373 if (pRegion->VCFCutoffControllerInvert) cvalue = 127 - cvalue;
374 // VCFVelocityScale in this case means Minimum cutoff
375 if (cvalue < pRegion->VCFVelocityScale) cvalue = pRegion->VCFVelocityScale;
376 }
377 else {
378 cvalue = pRegion->VCFCutoff;
379 }
380 float fco = cutoffBase * float(cvalue);
381 if (fco > 127.0f) fco = 127.0f;
382
383 return fco;
384 }
385
386 uint8_t Voice::GetVCFCutoffCtrl() {
387 uint8_t ctrl;
388 switch (pRegion->VCFCutoffController) {
389 case ::gig::vcf_cutoff_ctrl_modwheel:
390 ctrl = 1;
391 break;
392 case ::gig::vcf_cutoff_ctrl_effect1:
393 ctrl = 12;
394 break;
395 case ::gig::vcf_cutoff_ctrl_effect2:
396 ctrl = 13;
397 break;
398 case ::gig::vcf_cutoff_ctrl_breath:
399 ctrl = 2;
400 break;
401 case ::gig::vcf_cutoff_ctrl_foot:
402 ctrl = 4;
403 break;
404 case ::gig::vcf_cutoff_ctrl_sustainpedal:
405 ctrl = 64;
406 break;
407 case ::gig::vcf_cutoff_ctrl_softpedal:
408 ctrl = 67;
409 break;
410 case ::gig::vcf_cutoff_ctrl_genpurpose7:
411 ctrl = 82;
412 break;
413 case ::gig::vcf_cutoff_ctrl_genpurpose8:
414 ctrl = 83;
415 break;
416 case ::gig::vcf_cutoff_ctrl_aftertouch:
417 ctrl = 128;
418 break;
419 case ::gig::vcf_cutoff_ctrl_none:
420 default:
421 ctrl = 0;
422 break;
423 }
424
425 return ctrl;
426 }
427
428 uint8_t Voice::GetVCFResonanceCtrl() {
429 uint8_t ctrl;
430 switch (pRegion->VCFResonanceController) {
431 case ::gig::vcf_res_ctrl_genpurpose3:
432 ctrl = 18;
433 break;
434 case ::gig::vcf_res_ctrl_genpurpose4:
435 ctrl = 19;
436 break;
437 case ::gig::vcf_res_ctrl_genpurpose5:
438 ctrl = 80;
439 break;
440 case ::gig::vcf_res_ctrl_genpurpose6:
441 ctrl = 81;
442 break;
443 case ::gig::vcf_res_ctrl_none:
444 default:
445 ctrl = 0;
446 }
447
448 return ctrl;
449 }
450
451 void Voice::TriggerEG1(const EGInfo& egInfo, double velrelease, double velocityAttenuation, uint sampleRate, uint8_t velocity) {
452 EG1.trigger(pRegion->EG1PreAttack,
453 RTMath::Max(pRegion->EG1Attack, 0.0316) * egInfo.Attack,
454 pRegion->EG1Hold,
455 pRegion->EG1Decay1 * egInfo.Decay * velrelease,
456 pRegion->EG1Decay2 * egInfo.Decay * velrelease,
457 pRegion->EG1InfiniteSustain,
458 pRegion->EG1Sustain,
459 RTMath::Max(pRegion->EG1Release * velrelease, 0.014) * egInfo.Release,
460 velocityAttenuation,
461 sampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE);
462 }
463
464 void Voice::TriggerEG2(const EGInfo& egInfo, double velrelease, double velocityAttenuation, uint sampleRate, uint8_t velocity) {
465 EG2.trigger(uint(RgnInfo.EG2PreAttack),
466 RgnInfo.EG2Attack * egInfo.Attack,
467 false,
468 RgnInfo.EG2Decay1 * egInfo.Decay * velrelease,
469 RgnInfo.EG2Decay2 * egInfo.Decay * velrelease,
470 RgnInfo.EG2InfiniteSustain,
471 uint(RgnInfo.EG2Sustain),
472 RgnInfo.EG2Release * egInfo.Release * velrelease,
473 velocityAttenuation,
474 sampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE);
475 }
476
477 void Voice::ProcessGroupEvent(RTList<Event>::Iterator& itEvent) {
478 dmsg(4,("Voice %x processGroupEvents event type=%d", this, itEvent->Type));
479
480 // TODO: The SustainPedal condition could be wrong, maybe the
481 // check should be if this Voice is in release stage or is a
482 // release sample instead. Need to test this in GSt.
483 // -- Andreas
484 //
485 // Commented sustain pedal check out. I don't think voices of the same
486 // note should be stopped at all, because it doesn't sound naturally
487 // with a drumkit.
488 // -- Christian, 2013-01-08
489 if (itEvent->Param.Note.Key != MIDIKey /*||
490 !GetGigEngineChannel()->SustainPedal*/) {
491 dmsg(4,("Voice %x - kill", this));
492
493 // kill the voice fast
494 pEG1->enterFadeOutStage();
495 }
496 }
497
498 void Voice::CalculateFadeOutCoeff(float FadeOutTime, float SampleRate) {
499 EG1.CalculateFadeOutCoeff(FadeOutTime, SampleRate);
500 }
501
502 int Voice::CalculatePan(uint8_t pan) {
503 int p;
504 // Gst behaviour: -64 and 63 are special cases
505 if (RgnInfo.Pan == -64) p = pan * 2 - 127;
506 else if (RgnInfo.Pan == 63) p = pan * 2;
507 else p = pan + RgnInfo.Pan;
508
509 if (p < 0) return 0;
510 if (p > 127) return 127;
511 return p;
512 }
513
514 }} // namespace LinuxSampler::gig

  ViewVC Help
Powered by ViewVC