add shuttle dev support, use dflt ff_a/v.png icons, mjpegtools typo patch
[goodguy/cinelerra.git] / cinelerra-5.1 / cinelerra / proxy.C
1
2 /*
3  * CINELERRA
4  * Copyright (C) 2015 Adam Williams <broadcast at earthling dot net>
5  * 
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  * 
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  * 
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  * 
20  */
21
22 #include "assets.h"
23 #include "audiodevice.h"
24 #include "bcsignals.h"
25 #include "cache.h"
26 #include "clip.h"
27 #include "cstrdup.h"
28 #include "edl.h"
29 #include "edlsession.h"
30 #include "errorbox.h"
31 #include "file.h"
32 #include "filesystem.h"
33 #include "formattools.h"
34 #include "language.h"
35 #include "mainerror.h"
36 #include "mainindexes.h"
37 #include "mainprogress.h"
38 #include "mainundo.h"
39 #include "mutex.h"
40 #include "mwindow.h"
41 #include "mwindowgui.h"
42 #include "overlayframe.h"
43 #include "preferences.h"
44 #include "proxy.h"
45 #include "renderengine.h"
46 #include "theme.h"
47 #include "transportque.h"
48 #include "vrender.h"
49
50 #define WIDTH 400
51 #define HEIGHT 330
52 #define MAX_SCALE 16
53
54 ProxyMenuItem::ProxyMenuItem(MWindow *mwindow)
55  : BC_MenuItem(_("Proxy settings..."),  _("Alt-r"), 'r')
56 {
57         this->mwindow = mwindow;
58         set_alt();
59         dialog = 0;
60 }
61 ProxyMenuItem::~ProxyMenuItem()
62 {
63         delete dialog;
64 }
65
66 void ProxyMenuItem::create_objects()
67 {
68         dialog = new ProxyDialog(mwindow);
69 }
70
71 int ProxyMenuItem::handle_event()
72 {
73         mwindow->gui->unlock_window();
74         dialog->start();
75         mwindow->gui->lock_window("ProxyMenuItem::handle_event");
76
77         return 1;
78 }
79
80 ProxyDialog::ProxyDialog(MWindow *mwindow)
81 {
82         this->mwindow = mwindow;
83         gui = 0;
84         asset = new Asset;
85
86 // quicker than some, not as good as others
87         asset->format = FILE_FFMPEG;
88         strcpy(asset->fformat, "mpeg");
89         strcpy(asset->vcodec, "mpeg.mpeg");
90         asset->ff_video_bitrate = 2000000;
91
92         bzero(size_text, sizeof(char*) * MAX_SIZES);
93         bzero(size_factors, sizeof(int) * MAX_SIZES);
94         size_text[0] = cstrdup(_("Original size"));
95         size_factors[0] = 1;
96         total_sizes = 1;
97 }
98
99 ProxyDialog::~ProxyDialog()
100 {
101         close_window();
102         for( int i=0; i<MAX_SIZES; ++i ) delete [] size_text[i];
103         asset->remove_user();
104 }
105
106 BC_Window* ProxyDialog::new_gui()
107 {
108         asset->format = FILE_FFMPEG;
109         asset->load_defaults(mwindow->defaults, "PROXY_", 1, 1, 0, 0, 0);
110         mwindow->gui->lock_window("ProxyDialog::new_gui");
111         int cx, cy;
112         mwindow->gui->get_abs_cursor(cx, cy);
113         gui = new ProxyWindow(mwindow, this, cx - WIDTH/2, cy - HEIGHT/2);
114         gui->create_objects();
115         mwindow->gui->unlock_window();
116         return gui;
117 }
118
119 void ProxyDialog::scale_to_text(char *string, int scale)
120 {
121         strcpy(string, size_text[0]);
122         for( int i = 0; i < total_sizes; i++ ) {
123                 if( scale == size_factors[i] ) {
124                         strcpy(string, size_text[i]);
125                         break;
126                 }
127         }
128 }
129
130
131 void ProxyDialog::calculate_sizes()
132 {
133         for( int i=1; i<total_sizes; ++i ) {
134                 delete [] size_text[i];
135                 size_text[i] = 0;
136                 size_factors[i] = 0;
137         }
138         total_sizes = 1;
139
140         int orig_w = mwindow->edl->session->output_w * orig_scale;
141         int orig_h = mwindow->edl->session->output_h * orig_scale;
142
143         if( !use_scaler ) {
144 // w,h should stay even for yuv
145                 int ow = orig_w, oh = orig_h;
146                 if( BC_CModels::is_yuv(mwindow->edl->session->color_model) ) {
147                         ow /= 2;  oh /= 2;
148                 }
149                 for( int i=2; i<MAX_SCALE; ++i ) {
150                         if( (ow % i) != 0 ) continue;
151                         if( (oh % i) != 0 ) continue;
152                         size_factors[total_sizes++] = i;
153                 }
154         }
155         else {
156                 size_factors[total_sizes++] = 2;   size_factors[total_sizes++] = 3;
157                 size_factors[total_sizes++] = 8;   size_factors[total_sizes++] = 12;
158                 size_factors[total_sizes++] = 16;  size_factors[total_sizes++] = 24;
159                 size_factors[total_sizes++] = 32;
160         }
161         for( int i=1; i<total_sizes; ++i ) {
162                 char string[BCTEXTLEN];
163                 sprintf(string, "1/%d", size_factors[i]);
164                 size_text[i] = cstrdup(string);
165         }
166 }
167
168 void ProxyDialog::handle_close_event(int result)
169 {
170         if( result ) return;
171         if( !File::renders_video(asset) ) {
172                 eprintf("Specified format does not render video");
173                 return;
174         }
175         mwindow->edl->session->proxy_auto_scale = auto_scale;
176         mwindow->edl->session->proxy_beep = beep;
177         mwindow->edl->session->proxy_disabled_scale = 1;
178         mwindow->gui->lock_window("ProxyDialog::handle_close_event");
179         mwindow->gui->update_proxy_toggle();
180         mwindow->gui->unlock_window();
181         asset->save_defaults(mwindow->defaults, "PROXY_", 1, 1, 0, 0, 0); 
182         result = mwindow->to_proxy(asset, new_scale, use_scaler);
183         if( result >= 0 && beep && new_scale != 1 ) {
184                 static struct { double freq, secs, gain; }
185                     tone[2] = { { 2000., 1.5, 0.5 }, { 4000., 0.25, 0.5 } };
186                 int i = result > 0 ? 0 : 1;
187                 mwindow->beep(tone[i].freq, tone[i].secs, tone[i].gain);
188         }
189 }
190
191 void ProxyRender::to_proxy_path(char *new_path, Indexable *indexable, int scale)
192 {
193 // path is already a proxy
194         if( strstr(indexable->path, ".proxy") ) return;
195         strcpy(new_path, indexable->path);
196         char prxy[BCSTRLEN];
197         int n = sprintf(prxy, ".proxy%d", scale);
198 // insert proxy, path.sfx => path.proxy#-sfx.ext
199         char *ep = new_path + strlen(new_path);
200         char *sfx = strrchr(new_path, '.');
201         if( sfx ) {
202                 char *bp = ep, *cp = (ep += n);
203                 while( --bp > sfx ) *--cp = *bp;
204                 *--cp = '-';
205         }
206         else {
207                 sfx = ep;  ep += n;
208         }
209         for( char *cp=prxy; --n>=0; ++cp ) *sfx++ = *cp;
210         *ep++ = '.';
211         const char *ext = indexable->get_video_frames() < 0 ?  "png" :
212                 format_asset->format == FILE_FFMPEG ?
213                         format_asset->fformat :
214                         File::get_tag(format_asset->format);
215         while( *ext ) *ep++ = *ext++;
216         *ep = 0;
217 //printf("ProxyRender::to_proxy_path %d %s %s\n", __LINE__, new_path), asset->path);
218 }
219
220 int ProxyRender::from_proxy_path(char *new_path, Indexable *indexable, int scale)
221 {
222         char prxy[BCTEXTLEN];
223         int n = sprintf(prxy, ".proxy%d", scale);
224         strcpy(new_path, indexable->path);
225         char *ptr = strstr(new_path, prxy);
226         if( !ptr || (ptr[n] != '-' && ptr[n] != '.') ) return 1;
227 // remove proxy, path.proxy#-sfx.ext => path.sfx
228         char *ext = strrchr(ptr, '.');
229         if( !ext ) ext = ptr + strlen(ptr);
230         char *cp = ptr + n;
231         for( *cp='.'; cp<ext; ++cp ) *ptr++ = *cp;
232         *ptr = 0;
233         return 0;
234 }
235
236 ProxyRender::ProxyRender(MWindow *mwindow, Asset *format_asset)
237 {
238         this->mwindow = mwindow;
239         this->format_asset = format_asset;
240         progress = 0;
241         counter_lock = new Mutex("ProxyDialog::counter_lock");
242         total_rendered = 0;
243         failed = 0;  canceled = 0;
244 }
245
246 ProxyRender::~ProxyRender()
247 {
248         delete progress;
249         delete counter_lock;
250
251         for( int i=0,n=orig_idxbls.size(); i<n; ++i ) orig_idxbls[i]->remove_user();
252         for( int i=0,n=orig_proxies.size(); i<n; ++i ) orig_proxies[i]->remove_user();
253         for( int i=0,n=needed_idxbls.size(); i<n; ++i ) needed_idxbls[i]->remove_user();
254         for( int i=0,n=needed_proxies.size(); i<n; ++i ) needed_proxies[i]->remove_user();
255 }
256
257 Asset *ProxyRender::add_original(Indexable *idxbl, int new_scale)
258 {
259         if( !idxbl->have_video() ) return 0;
260 // don't proxy proxies
261         if( strstr(idxbl->path,".proxy") ) return 0;
262         char new_path[BCTEXTLEN];
263         to_proxy_path(new_path, idxbl, new_scale);
264 // don't proxy if not readable
265         if( idxbl->is_asset && access(idxbl->path, R_OK) ) return 0;
266 // add to orig_idxbls & orig_proxies if it isn't already there.
267         int got_it = 0;
268         for( int i = 0; !got_it && i<orig_proxies.size(); ++i )
269                 got_it = !strcmp(orig_proxies[i]->path, new_path);
270         if( got_it ) return 0;
271         Assets *edl_assets = mwindow->edl->assets;
272         Asset *proxy = edl_assets->get_asset(new_path);
273         if( !proxy ) {
274                 proxy = new Asset(new_path);
275 // new compression parameters
276                 int64_t video_frames = idxbl->get_video_frames();
277                 if( video_frames < 0 ) {
278                         proxy->format = FILE_PNG;
279                         proxy->png_use_alpha = 1;
280                         proxy->video_length = -1;
281                 }
282                 else {
283                         proxy->copy_format(format_asset, 0);
284                         proxy->video_length = video_frames;
285                 }
286                 proxy->folder_no = AW_PROXY_FOLDER;
287                 proxy->audio_data = 0;
288                 proxy->video_data = 1;
289                 proxy->layers = 1;
290                 proxy->width = idxbl->get_w() / new_scale;
291                 if( proxy->width & 1 ) ++proxy->width;
292                 proxy->actual_width = proxy->width;
293                 proxy->height = idxbl->get_h() / new_scale;
294                 if( proxy->height & 1 ) ++proxy->height;
295                 proxy->actual_height = proxy->height;
296                 proxy->frame_rate = idxbl->get_frame_rate();
297         }
298         orig_proxies.append(proxy);
299         idxbl->add_user();
300         orig_idxbls.append(idxbl);
301         return proxy;
302 }
303
304 void ProxyRender::add_needed(Indexable *idxbl, Asset *proxy)
305 {
306         needed_idxbls.append(idxbl);
307         idxbl->add_user();
308         needed_proxies.append(proxy);
309         proxy->add_user();
310 }
311
312 void ProxyRender::update_progress()
313 {
314         counter_lock->lock();
315         ++total_rendered;
316         counter_lock->unlock();
317         progress->update(total_rendered);
318 }
319
320 int ProxyRender::is_canceled()
321 {
322         return progress->is_cancelled();
323 }
324
325 int ProxyRender::create_needed_proxies(int new_scale)
326 {
327         if( !needed_proxies.size() ) return 0;
328         total_rendered = 0;
329         failed = 0;  canceled = 0;
330
331 // create proxy assets which don't already exist
332         int64_t total_len = 0;
333         for( int i = 0; i < needed_idxbls.size(); i++ ) {
334                 total_len += needed_idxbls[i]->get_video_frames();
335         }
336
337 // start progress bar.  MWindow is locked inside this
338         progress = mwindow->mainprogress->
339                 start_progress(_("Creating proxy files..."), total_len);
340
341         ProxyFarm engine(mwindow, this, &needed_idxbls, &needed_proxies);
342         engine.process_packages();
343 printf("failed=%d canceled=%d\n", failed, progress->is_cancelled());
344
345 // stop progress bar
346         canceled = progress->is_cancelled();
347         progress->stop_progress();
348         delete progress;  progress = 0;
349
350         if( failed && !canceled ) {
351                 eprintf("Error making proxy.");
352         }
353         return !failed && !canceled ? 0 : 1;
354 }
355
356
357 ProxyWindow::ProxyWindow(MWindow *mwindow, ProxyDialog *dialog, int x, int y)
358  : BC_Window(_(PROGRAM_NAME ": Proxy settings"), x, y, WIDTH, HEIGHT,
359                 -1, -1, 0, 0, 1)
360 {
361         this->mwindow = mwindow;
362         this->dialog = dialog;
363         format_tools = 0;
364 }
365
366 ProxyWindow::~ProxyWindow()
367 {
368         lock_window("ProxyWindow::~ProxyWindow");
369         delete format_tools;
370         unlock_window();
371 }
372
373
374 void ProxyWindow::create_objects()
375 {
376         lock_window("ProxyWindow::create_objects");
377         int margin = mwindow->theme->widget_border;
378
379         dialog->use_scaler = mwindow->edl->session->proxy_use_scaler;
380         dialog->orig_scale = mwindow->edl->session->proxy_scale;
381         dialog->auto_scale = mwindow->edl->session->proxy_auto_scale;
382         dialog->beep = mwindow->edl->session->proxy_beep;
383         dialog->new_scale = dialog->orig_scale;
384
385         int x = margin;
386         int y = margin+10;
387         add_subwindow(use_scaler = new ProxyUseScaler(this, x, y));
388         y += use_scaler->get_h() + margin;
389
390         BC_Title *text;
391         add_subwindow(text = new BC_Title(x, y, _("Scale factor:")));
392         x += text->get_w() + margin;
393
394         int popupmenu_w = BC_PopupMenu::calculate_w(get_text_width(MEDIUMFONT, dialog->size_text[0]));
395         add_subwindow(scale_factor = new ProxyMenu(mwindow, this, x, y, popupmenu_w, ""));
396         scale_factor->update_sizes();
397         x += scale_factor->get_w() + margin;
398
399         ProxyTumbler *tumbler;
400         add_subwindow(tumbler = new ProxyTumbler(mwindow, this, x, y));
401         y += tumbler->get_h() + margin;
402
403         x = margin;
404         add_subwindow(text = new BC_Title(x, y, _("New media dimensions: ")));
405         x += text->get_w() + margin;
406         add_subwindow(new_dimensions = new BC_Title(x, y, ""));
407         y += new_dimensions->get_h() + margin;
408
409         x = margin;
410         add_subwindow(text = new BC_Title(x, y, _("Active Scale: ")));
411         x += text->get_w() + margin;
412         add_subwindow(active_scale = new BC_Title(x, y, ""));
413         y += active_scale->get_h() + margin;
414
415         x = margin;  y += 25;
416         format_tools = new ProxyFormatTools(mwindow, this, dialog->asset);
417         format_tools->create_objects(x, y, 0, 1, 0, 0, 0, 1, 0, 1, // skip the path
418                 0, 0);
419
420         x = margin;
421         add_subwindow(auto_scale = new ProxyAutoScale(this, x, y));
422         y += auto_scale->get_h() + margin;
423         add_subwindow(beep_on_done = new ProxyBeepOnDone(this, x, y));
424         y += beep_on_done->get_h() + margin;
425
426         update();
427
428         add_subwindow(new BC_OKButton(this));
429         add_subwindow(new BC_CancelButton(this));
430         show_window(1);
431         unlock_window();
432 }
433
434 ProxyFormatTools::ProxyFormatTools(MWindow *mwindow, ProxyWindow *pwindow, Asset *asset)
435  : FormatTools(mwindow, pwindow, asset)
436 {
437         this->pwindow = pwindow;
438 }
439
440 void ProxyFormatTools::update_format()
441 {
442         FormatTools::update_format();
443         pwindow->use_scaler->update();
444 }
445
446 void ProxyWindow::update()
447 {
448         char string[BCSTRLEN];
449         int orig_w = mwindow->edl->session->output_w * dialog->orig_scale;
450         int orig_h = mwindow->edl->session->output_h * dialog->orig_scale;
451         int new_w = orig_w / dialog->new_scale;
452         if( new_w & 1 ) ++new_w;
453         int new_h = orig_h / dialog->new_scale;
454         if( new_h & 1 ) ++new_h;
455         sprintf(string, "%dx%d", new_w, new_h);
456         new_dimensions->update(string);
457         dialog->scale_to_text(string, dialog->new_scale);
458         scale_factor->set_text(string);
459         use_scaler->update();
460         auto_scale->update();
461         int scale = mwindow->edl->session->proxy_scale;
462         if( scale == 1 ) scale = mwindow->edl->session->proxy_disabled_scale;
463         sprintf(string, scale>1 ? "1/%d" : "%d", scale);
464         active_scale->update(string);
465 }
466
467
468 ProxyUseScaler::ProxyUseScaler(ProxyWindow *pwindow, int x, int y)
469  : BC_CheckBox(x, y, pwindow->dialog->use_scaler, _("Use scaler   (FFMPEG only)"))
470 {
471         this->pwindow = pwindow;
472 }
473
474 void ProxyUseScaler::update()
475 {
476         ProxyDialog *dialog = pwindow->dialog;
477         if( dialog->asset->format != FILE_FFMPEG ) dialog->use_scaler = 0;
478         BC_CheckBox::update(dialog->use_scaler);
479         int scaler_avail = dialog->asset->format == FILE_FFMPEG ? 1 : 0;
480         if( !scaler_avail &&  enabled ) disable();
481         if( scaler_avail  && !enabled ) enable();
482 }
483
484 int ProxyUseScaler::handle_event()
485 {
486         pwindow->dialog->new_scale = 1;
487         pwindow->dialog->use_scaler = get_value();
488         pwindow->scale_factor->update_sizes();
489         pwindow->update();
490         return 1;
491 }
492
493 ProxyAutoScale::ProxyAutoScale(ProxyWindow *pwindow, int x, int y)
494  : BC_CheckBox(x, y, pwindow->dialog->auto_scale, _("Auto proxy/scale media loads"))
495 {
496         this->pwindow = pwindow;
497 }
498
499 void ProxyAutoScale::update()
500 {
501         ProxyDialog *dialog = pwindow->dialog;
502         if( dialog->new_scale == 1 ) dialog->auto_scale = 0;
503         BC_CheckBox::update(dialog->auto_scale);
504         int can_auto_proxy = dialog->new_scale != 1 ? 1 : 0;
505         if( !can_auto_proxy &&  enabled ) disable();
506         if( can_auto_proxy  && !enabled ) enable();
507 }
508
509 int ProxyAutoScale::handle_event()
510 {
511         pwindow->dialog->auto_scale = get_value();
512         pwindow->update();
513         return 1;
514 }
515
516 ProxyBeepOnDone::ProxyBeepOnDone(ProxyWindow *pwindow, int x, int y)
517  : BC_CheckBox(x, y, pwindow->dialog->beep, _("Beep on done"))
518 {
519         this->pwindow = pwindow;
520 }
521
522 int ProxyBeepOnDone::handle_event()
523 {
524         pwindow->dialog->beep = get_value();
525         pwindow->update();
526         return 1;
527 }
528
529
530 ProxyMenu::ProxyMenu(MWindow *mwindow, ProxyWindow *pwindow,
531                 int x, int y, int w, const char *text)
532  : BC_PopupMenu(x, y, w, text, 1)
533 {
534         this->mwindow = mwindow;
535         this->pwindow = pwindow;
536 }
537
538 void ProxyMenu::update_sizes()
539 {
540         while( total_items() > 0 ) del_item(0);
541         ProxyDialog *dialog = pwindow->dialog;
542         dialog->calculate_sizes();
543         for( int i=0; i < dialog->total_sizes; i++ )
544                 add_item(new BC_MenuItem(dialog->size_text[i]));
545 }
546
547 int ProxyMenu::handle_event()
548 {
549         ProxyDialog *dialog = pwindow->dialog;
550         for( int i = 0; i < dialog->total_sizes; i++ ) {
551                 if( !strcmp(get_text(), pwindow->dialog->size_text[i]) ) {
552                         dialog->new_scale = pwindow->dialog->size_factors[i];
553                         if( dialog->new_scale == 1 ) dialog->use_scaler = 0;
554                         pwindow->update();
555                         break;
556                 }
557         }
558         return 1;
559 }
560
561
562 ProxyTumbler::ProxyTumbler(MWindow *mwindow, ProxyWindow *pwindow, int x, int y)
563  : BC_Tumbler(x, y, 0)
564 {
565         this->mwindow = mwindow;
566         this->pwindow = pwindow;
567 }
568
569 int ProxyTumbler::handle_up_event()
570 {
571         if( pwindow->dialog->new_scale > 1 ) {
572                 int i;
573                 for( i = 0; i < pwindow->dialog->total_sizes; i++ ) {
574                         if( pwindow->dialog->new_scale == pwindow->dialog->size_factors[i] ) {
575                                 i--;
576                                 pwindow->dialog->new_scale = pwindow->dialog->size_factors[i];
577                                 pwindow->update();
578                                 return 1;
579                         }
580                 }               
581         }
582
583         return 0;
584 }
585
586 int ProxyTumbler::handle_down_event()
587 {
588         int i;
589         for( i = 0; i < pwindow->dialog->total_sizes - 1; i++ ) {
590                 if( pwindow->dialog->new_scale == pwindow->dialog->size_factors[i] ) {
591                         i++;
592                         pwindow->dialog->new_scale = pwindow->dialog->size_factors[i];
593                         pwindow->update();
594                         return 1;
595                 }
596         }
597
598         return 0;
599 }
600
601
602
603 ProxyPackage::ProxyPackage()
604  : LoadPackage()
605 {
606 }
607
608 ProxyClient::ProxyClient(MWindow *mwindow,
609                 ProxyRender *proxy_render, ProxyFarm *server)
610  : LoadClient(server)
611 {
612         this->mwindow = mwindow;
613         this->proxy_render = proxy_render;
614         render_engine = 0;
615         video_cache = 0;
616         src_file = 0;
617 }
618 ProxyClient::~ProxyClient()
619 {
620         delete render_engine;
621         delete video_cache;
622         delete src_file;
623 }
624
625 void ProxyClient::process_package(LoadPackage *ptr)
626 {
627         if( proxy_render->failed ) return;
628         if( proxy_render->is_canceled() ) return;
629
630         EDL *edl = mwindow->edl;
631         Preferences *preferences = mwindow->preferences;
632         ProxyPackage *package = (ProxyPackage*)ptr;
633         Indexable *orig = package->orig_idxbl;
634         Asset *proxy = package->proxy_asset;
635 //printf("%s %s\n", orig->path, proxy->path);
636         VRender *vrender = 0;
637         int jobs = proxy_render->needed_proxies.size();
638         int processors = preferences->project_smp / jobs + 1, result = 0;
639
640 // each cpu should process at least about 1 MB, or it thrashes
641         int size = edl->session->output_w * edl->session->output_h * 4;
642         int cpus = size / 0x100000 + 1;
643         if( processors > cpus ) processors = cpus;
644
645         if( orig->is_asset ) {
646                 src_file = new File;
647                 src_file->set_processors(processors);
648                 src_file->set_preload(edl->session->playback_preload);
649                 src_file->set_subtitle(edl->session->decode_subtitles ? 
650                         edl->session->subtitle_number : -1);
651                 src_file->set_interpolate_raw(edl->session->interpolate_raw);
652                 src_file->set_white_balance_raw(edl->session->white_balance_raw);
653                 if( src_file->open_file(preferences, (Asset*)orig, 1, 0) != FILE_OK )
654                         result = 1;
655         }
656         else {
657                 TransportCommand command;
658                 command.command = CURRENT_FRAME;
659                 command.get_edl()->copy_all((EDL *)orig);
660                 command.change_type = CHANGE_ALL;
661                 command.realtime = 0;
662                 render_engine = new RenderEngine(0, preferences, 0, 0);
663                 render_engine->set_vcache(video_cache = new CICache(preferences));
664                 render_engine->arm_command(&command);
665                 if( !(vrender = render_engine->vrender) )
666                         result = 1;
667         }
668         if( result ) {
669 // go to the next asset if the reader fails
670 //              proxy_render->failed = 1;
671                 return;
672         }
673
674         File dst_file;
675         dst_file.set_processors(processors);
676         result = dst_file.open_file(preferences, proxy, 0, 1);
677         if( result ) {
678                 proxy_render->failed = 1;
679                 ::remove(proxy->path);
680                 return;
681         }
682
683         dst_file.start_video_thread(1, edl->session->color_model,
684                         processors > 1 ? 2 : 1, 0);
685
686         int src_w = orig->get_w(), src_h = orig->get_h();
687         VFrame src_frame(src_w,src_h, edl->session->color_model);
688
689         OverlayFrame scaler(processors);
690         int64_t video_length = orig->get_video_frames();
691         if( video_length < 0 ) video_length = 1;
692
693         for( int64_t i=0; i<video_length &&
694              !proxy_render->failed && !proxy_render->is_canceled(); ++i ) {
695                 if( orig->is_asset ) {
696                         src_file->set_video_position(i, 0);
697                         result = src_file->read_frame(&src_frame);
698                 }
699                 else
700                         result = vrender->process_buffer(&src_frame, i, 0);
701 //printf("result=%d\n", result);
702
703                 if( result ) {
704 // go to the next asset if the reader fails
705 //                      proxy_render->failed = 1;
706                         break;
707                 }
708
709 // have to write after getting the video buffer or it locks up
710                 VFrame ***dst_frames = dst_file.get_video_buffer();
711                 VFrame *dst_frame = dst_frames[0][0];
712                 int dst_w = dst_frame->get_w(), dst_h = dst_frame->get_h();
713                 scaler.overlay(dst_frame, &src_frame,
714                         0,0, src_w,src_h, 0,0, dst_w,dst_h,
715                         1.0, TRANSFER_REPLACE, NEAREST_NEIGHBOR);
716                 result = dst_file.write_video_buffer(1);
717                 if( result ) {
718 // only fail if the writer fails
719                         proxy_render->failed = 1;
720                         break;
721                 }
722                 proxy_render->update_progress();
723         }
724         if( !proxy_render->failed && !proxy_render->is_canceled() ) {
725                 Asset *asset = mwindow->edl->assets->update(proxy);
726                 mwindow->mainindexes->add_next_asset(0, asset);
727                 mwindow->mainindexes->start_build();
728         }
729         else
730                 ::remove(proxy->path);
731 }
732
733
734 ProxyFarm::ProxyFarm(MWindow *mwindow, ProxyRender *proxy_render,
735                 ArrayList<Indexable*> *orig_idxbls,
736                 ArrayList<Asset*> *proxy_assets)
737  : LoadServer(MIN(mwindow->preferences->processors, proxy_assets->size()), 
738         proxy_assets->size())
739 {
740         this->mwindow = mwindow;
741         this->proxy_render = proxy_render;
742         this->orig_idxbls = orig_idxbls;
743         this->proxy_assets = proxy_assets;
744 }
745
746 void ProxyFarm::init_packages()
747 {
748         for( int i = 0; i < get_total_packages(); i++ ) {
749                 ProxyPackage *package = (ProxyPackage*)get_package(i);
750                 package->proxy_asset = proxy_assets->get(i);
751                 package->orig_idxbl = orig_idxbls->get(i);
752         }
753 }
754
755 LoadClient* ProxyFarm::new_client()
756 {
757         return new ProxyClient(mwindow, proxy_render, this);
758 }
759
760 LoadPackage* ProxyFarm::new_package()
761 {
762         return new ProxyPackage;
763 }
764
765
766 ProxyBeep::ProxyBeep(MWindow *mwindow)
767  : Thread(1, 0, 0)
768 {
769         this->mwindow = mwindow;
770         audio = new AudioDevice(mwindow);
771         playing_audio = 0;
772         interrupted = -1;
773 }
774
775 ProxyBeep::~ProxyBeep()
776 {
777         stop(0);
778         delete audio;
779 }
780
781 void ProxyBeep::run()
782 {
783         int channels = 2;
784         int64_t bfrsz = BEEP_SAMPLE_RATE;
785         EDL *edl = mwindow->edl;
786         EDLSession *session = edl->session;
787         AudioOutConfig *aconfig = session->playback_config->aconfig;
788         audio->open_output(aconfig, BEEP_SAMPLE_RATE, bfrsz, channels, 0);
789         audio->start_playback();
790
791         double out0[bfrsz], out1[bfrsz], *out[2] = { out0, out1 };
792         const double two_pi = 2*M_PI;
793         int64_t audio_len = BEEP_SAMPLE_RATE * secs;
794         const double dt = two_pi * freq/BEEP_SAMPLE_RATE;
795         double th = 0;
796
797         audio_pos = 0;
798         playing_audio = 1;
799         while( !interrupted ) {
800                 int len = audio_len - audio_pos;
801                 if( len <= 0 ) break;
802                 if( len > bfrsz ) len = bfrsz;
803                 int k = audio_pos;
804                 for( int i=0; i<len; ++i,++k,th+=dt ) {
805                         double t = th - two_pi;
806                         if( t >= 0 ) th = t;
807                         out0[i] = out1[i] = sin(th) * gain;
808                 }
809                 audio->write_buffer(out, channels, len);
810                 audio_pos = k;
811         }
812
813         if( !interrupted )
814                 audio->set_last_buffer();
815         audio->stop_audio(interrupted ? 0 : 1);
816         playing_audio = 0;
817
818         audio->close_all();
819 }
820
821 void ProxyBeep::start()
822 {
823         if( running() ) return;
824         audio_pos = -1;
825         interrupted = 0;
826         Thread::start();
827 }
828
829 void ProxyBeep::stop(int wait)
830 {
831         if( running() && !interrupted ) {
832                 interrupted = 1;
833                 audio->stop_audio(wait);
834         }
835         Thread::join();
836 }
837
838 void ProxyBeep::tone(double freq, double secs, double gain)
839 {
840         stop(0);
841         this->freq = freq;
842         this->secs = secs;
843         this->gain = gain;
844         start();
845 }
846