hvirtual/plugins/resample/resample.C

   1 #include "bcdisplayinfo.h"
   2 #include "defaults.h"
   3 #include "mainprogress.h"
   4 #include "picon_png.h"
   5 #include "../../cinelerra/resample.h"
   6 #include "resample.h"
   7 #include "vframe.h"
   8
   9
  10
  11
  12 PluginClient* new_plugin(PluginServer *server)
  13 {
  14         return new ResampleEffect(server);
  15 }
  16
  17
  18
  19 ResampleFraction::ResampleFraction(ResampleEffect *plugin, int x, int y)
  20  : BC_TextBox(x, y, 100, 1, (float)plugin->scale)
  21 {
  22         this->plugin = plugin;
  23 }
  24
  25 int ResampleFraction::handle_event()
  26 {
  27         plugin->scale = atof(get_text());
  28         return 1;
  29 }
  30
  31
  32
  33
  34
  35
  36
  37
  38 ResampleWindow::ResampleWindow(ResampleEffect *plugin, int x, int y)
  39  : BC_Window(PROGRAM_NAME ": Resample",
  40                                 x - 160,
  41                                 y - 75,
  42                                 320,
  43                                 150,
  44                                 320,
  45                                 150,
  46                                 0,
  47                                 0,
  48                                 1)
  49 {
  50         this->plugin = plugin;
  51 }
  52
  53 void ResampleWindow::create_objects()
  54 {
  55         int x = 10, y = 10;
  56         add_subwindow(new BC_Title(x, y, _("Scale factor:")));
  57         y += 20;
  58         add_subwindow(new ResampleFraction(plugin, x, y));
  59         add_subwindow(new BC_OKButton(this));
  60         add_subwindow(new BC_CancelButton(this));
  61         show_window();
  62         flush();
  63 }
  64
  65
  66
  67
  68
  69
  70
  71
  72 ResampleEffect::ResampleEffect(PluginServer *server)
  73  : PluginAClient(server)
  74 {
  75         reset();
  76         load_defaults();
  77 }
  78
  79 ResampleEffect::~ResampleEffect()
  80 {
  81         save_defaults();
  82         delete defaults;
  83 }
  84
  85 char* ResampleEffect::plugin_title()
  86 {
  87         return _("Resample");
  88 }
  89
  90 VFrame* ResampleEffect::new_picon()
  91 {
  92         return new VFrame(picon_png);
  93 }
  94
  95 void ResampleEffect::reset()
  96 {
  97         resample = 0;
  98 }
  99
 100 int ResampleEffect::get_parameters()
 101 {
 102         BC_DisplayInfo info;
 103         ResampleWindow window(this, info.get_abs_cursor_x(), info.get_abs_cursor_y());
 104         window.create_objects();
 105         int result = window.run_window();
 106
 107         return result;
 108 }
 109
 110
 111 int ResampleEffect::load_defaults()
 112 {
 113         char directory[BCTEXTLEN];
 114
 115 // set the default directory
 116         sprintf(directory, "%sresample.rc", BCASTDIR);
 117 // load the defaults
 118         defaults = new Defaults(directory);
 119         defaults->load();
 120
 121         scale = defaults->get("SCALE", (double)1);
 122         return 0;
 123 }
 124
 125 int ResampleEffect::save_defaults()
 126 {
 127         defaults->update("SCALE", scale);
 128         defaults->save();
 129         return 0;
 130 }
 131
 132
 133
 134 int ResampleEffect::start_loop()
 135 {
 136         if(PluginClient::interactive)
 137         {
 138                 char string[BCTEXTLEN];
 139                 sprintf(string, "%s...", plugin_title());
 140                 progress = start_progress(string,
 141                         (int64_t)((double)(PluginClient::end - PluginClient::start) * scale));
 142         }
 143
 144         current_position = PluginClient::start;
 145         total_written = 0;
 146
 147         resample = new Resample(0, 1);
 148         return 0;
 149 }
 150
 151 int ResampleEffect::stop_loop()
 152 {
 153         if(PluginClient::interactive)
 154         {
 155                 progress->stop_progress();
 156                 delete progress;
 157         }
 158         return 0;
 159 }
 160
 161 int ResampleEffect::process_loop(double *buffer, int64_t &write_length)
 162 {
 163         int result = 0;
 164
 165 // Length to read based on desired output size
 166         int64_t size = (int64_t)((double)PluginAClient::in_buffer_size / scale);
 167         int64_t predicted_total = (int64_t)((double)(PluginClient::end - PluginClient::start) * scale + 0.5);
 168
 169         double *input = new double[size];
 170
 171         read_samples(input, 0, current_position, size);
 172         current_position += size;
 173
 174         resample->resample_chunk(input,
 175                 size,
 176                 1000000,
 177                 (int)(1000000.0 * scale),
 178                 0);
 179
 180
 181         if(resample->get_output_size(0))
 182         {
 183                 int64_t output_size = resample->get_output_size(0);
 184
 185                 if(output_size)
 186                 {
 187                         total_written += output_size;
 188                 }
 189
 190 // Trim output to predicted length of stretched selection.
 191                 if(total_written > predicted_total)
 192                 {
 193                         output_size -= total_written - predicted_total;
 194                         result = 1;
 195                 }
 196
 197                 resample->read_output(buffer, 0, output_size);
 198
 199                 write_length = output_size;
 200         }
 201
 202         if(PluginClient::interactive) result = progress->update(total_written);
 203 //printf("TimeStretch::process_loop 1\n");
 204
 205         delete [] input;
 206 //printf("TimeStretch::process_loop 2\n");
 207         return result;
 208 }
 209
 210
 211
 212
 213
 214
 215
 216
 217
 218
 219
 220