cinelerra-5.1/plugins/bluebanana/bluebananaslider.C

   1 /*
   2  * Cinelerra :: Blue Banana - color modification plugin for Cinelerra-CV
   3  * Copyright (C) 2012-2013 Monty <monty@xiph.org>
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  *
  19  */
  20
  21 #include "bluebananaslider.h"
  22 #include "language.h"
  23
  24 #undef CLAMP
  25 #define CLAMP(x, y, z) ((x) < (y) ? (y) : ((x) > (z) ? (z) : (x)))
  26
  27 #define CW (get_h()/2+2)
  28 #define SW (get_h()*2/5+1)
  29 #define Z1 (get_h()/7+2)
  30 #define Z2 (get_h()*2/5+1)
  31 #define Z3 (get_h()-Z2-1)
  32 #define Z4 (get_h()-Z1-1)
  33 #define ZC ((Z3+Z2)/2)
  34
  35 #define ZS 3
  36 #define ZL 1
  37 #define ZR 3
  38
  39 #include <math.h>
  40
  41 static int scale_color(int color, float scale){
  42   int r = ((color >> 16) & 0xff)*scale;
  43   int g = ((color >> 8) & 0xff)*scale;
  44   int b = (color & 0xff)*scale;
  45
  46   if(r>255)r=255;
  47   if(g>255)g=255;
  48   if(b>255)b=255;
  49   return (r<<16)|(g<<8)|b;
  50 }
  51 #if 0
  52 static int mix_color(int c1, float s1, int c2, float s2){
  53   int r = ((c1 >> 16) & 0xff)*s1 + ((c2 >> 16) & 0xff)*s2;
  54   int g = ((c1 >> 8) & 0xff)*s1 + ((c2 >> 8) & 0xff)*s2;
  55   int b = (c1 & 0xff)*s1 + (c2 & 0xff)*s2;
  56
  57   if(r>255)r=255;
  58   if(g>255)g=255;
  59   if(b>255)b=255;
  60   return (r<<16)|(g<<8)|b;
  61 }
  62 #endif
  63 BluebananaSlider::BluebananaSlider(BluebananaMain *plugin,
  64                                    BluebananaWindow *gui,
  65                                    int x,
  66                                    int y,
  67                                    int w,
  68                                    int h,
  69                                    float minval,
  70                                    float maxval)
  71   : BC_SubWindow(x, y, w, h){
  72
  73   this->plugin = plugin;
  74   this->gui = gui;
  75   this->minval = minval;
  76   this->maxval = maxval;
  77   histval=NULL;
  78   histred=NULL;
  79   histgreen=NULL;
  80   histblue=NULL;
  81   drag = 0;
  82   light = -1;
  83
  84   int bg_c = get_resources()->get_bg_color();
  85   int bg_r = ((bg_c >> 16) & 0xff);
  86   int bg_g = ((bg_c >> 8) & 0xff);
  87   int bg_b = (bg_c & 0xff);
  88   int bg_v = (bg_r * 76 + bg_g *150 + bg_b *29) >> 8;
  89
  90   int dt_c = get_resources()->default_text_color;
  91   int dt_r = ((dt_c >> 16) & 0xff);
  92   int dt_g = ((dt_c >> 8) & 0xff);
  93   int dt_b = (dt_c & 0xff);
  94   int dt_v = (dt_r * 76 + dt_g *150 + dt_b *29) >> 8;
  95
  96   if(dt_v>bg_v){
  97     /* light text, dark background */
  98     int dg_c = get_resources()->default_text_color;
  99     int dg_r = (((dg_c >> 16) & 0xff) + bg_r*2) /3;
 100     int dg_g = (((dg_c >> 8) & 0xff) + bg_g*2) /3;
 101     int dg_b = ((dg_c & 0xff) + bg_b*2) /3;
 102     dg_c = (dg_r<<16) | (dg_g<<8) | dg_b;
 103
 104     active_bordercolor = get_resources()->default_text_color;
 105     inactive_bordercolor = dg_c;
 106     dimtextcolor = dg_c;
 107     troughcolor = scale_color(dg_c,.5);
 108     slidercolor = (bg_v > 0xa0 ? 0x606060 : 0xa0a0a0);
 109     sliderlit = (bg_v > 0xa0 ? 0x909070 : 0xd0d0b0);
 110     outline = 0x000000;
 111   }else{
 112     /* dark text, light background */
 113     active_bordercolor = scale_color(bg_c,1.25);
 114     inactive_bordercolor = scale_color(bg_c,1.01);
 115     troughcolor = scale_color(bg_c,.8);
 116     dimtextcolor = this->troughcolor;
 117     sliderlit =  scale_color(bg_c,1.75);
 118     slidercolor = scale_color(this->sliderlit,.90);
 119     outline = 0x606060;
 120   }
 121
 122   needlecolor = 0xe07000;
 123   needlelit = 0xff9000;
 124   highlight = 0;
 125   trough = NULL;
 126   troughlines = Z4-Z1-1;
 127   troughcols = w-CW-CW-ZR-ZL;
 128 }
 129
 130 BluebananaSlider::~BluebananaSlider(){
 131   if(trough) delete trough;
 132   if(histval) delete[] histval;
 133   if(histred) delete[] histred;
 134   if(histgreen) delete[] histgreen;
 135   if(histblue) delete[] histblue;
 136 }
 137
 138 void BluebananaSlider::reposition(int x, int y, int w, int h){
 139   BC_WindowBase::reposition_window(x,y,w,h);
 140   if(trough) delete trough;
 141   trough=NULL;
 142   if(histval) delete[] histval;
 143   histval=NULL;
 144   if(histred) delete[] histred;
 145   histred=NULL;
 146   if(histgreen) delete[] histgreen;
 147   histgreen=NULL;
 148   if(histblue) delete[] histblue;
 149   histblue=NULL;
 150   troughlines = Z4-Z1-1;
 151   troughcols = w-CW-CW-ZR-ZL;
 152   update();
 153 }
 154
 155 int BluebananaSlider::fraction_to_pixel(float input){
 156   return (int)rint((input*(troughcols-1)+CW+ZL)+.001);
 157 }
 158
 159 int BluebananaSlider::value_to_pixel(float input){
 160   return fraction_to_pixel((input-minval)/(maxval-minval));
 161 }
 162
 163 float BluebananaSlider::pixel_to_fraction(int pixel){
 164   return (float)((pixel-CW-ZL)/(float)(troughcols-1));
 165 }
 166
 167 float BluebananaSlider::pixel_to_value(int pixel){
 168   float fraction=((pixel-CW-ZL)/(float)(troughcols-1));
 169   return fraction*(maxval-minval)+minval;
 170 }
 171 #if 0
 172 static int inside_box(int cx, int cy, int x, int y, int w, int h){
 173   return (cx>=x && cx<x+w && cy>=y && cy<y+h);
 174 }
 175 #endif
 176 static int inside_vline(int cx, int cy, int x, int y0, int y1){
 177   if(cx==x){
 178     if(cy>=y0 && cy<=y1)return 1;
 179     if(cy>=y1 && cy<=y0)return 1;
 180   }
 181   return 0;
 182 }
 183
 184 static int inside_hline(int cx, int cy, int x0, int x1, int y){
 185   if(cy==y){
 186     if(cx>=x0 && cx<=x1)return 1;
 187     if(cx>=x1 && cx<=x0)return 1;
 188   }
 189   return 0;
 190 }
 191
 192 int BluebananaSlider::in_midslider(int x, int cx,int cy){
 193   int h = get_h();
 194   int y = (Z4-Z1+h)/2;
 195   int r = Z1-2;
 196   if( (cx-x)*(cx-x) + (cy-y)*(cy-y) < r*r ) return 1;
 197   return 0;
 198 }
 199
 200 int BluebananaSlider::in_leftslider(int x,int cx, int cy){
 201   int i;
 202   int h = get_h();
 203
 204   if(inside_hline(cx,cy,x-1,x-Z1*2-1,Z4)) return 1;
 205   for(i=1;i<Z1+1;i++){
 206     if(inside_hline(cx,cy,x-(i*2),x-Z1*2-1,Z4-i)) return 1;
 207     if(inside_hline(cx,cy,x-(i*2),x-Z1*2-1,Z4+i)) return 1;
 208   }
 209
 210   if(inside_vline(cx,cy,x-Z1*2-2,Z4-Z1+1,Z4+Z1-1))return 1;
 211   if(inside_vline(cx,cy,x,Z1+1,h-1))return 1;
 212
 213   return 0;
 214 }
 215
 216 int BluebananaSlider::in_rightslider(int x, int cx, int cy){
 217   int i;
 218   int h = get_h();
 219
 220   if(inside_hline(cx,cy,x+1,x+Z1*2+1,Z4)) return 1;
 221   for(i=1;i<Z1+1;i++){
 222     if(inside_hline(cx,cy,x+(i*2),x+Z1*2+1,Z4-i)) return 1;
 223     if(inside_hline(cx,cy,x+(i*2),x+Z1*2+1,Z4+i)) return 1;
 224   }
 225
 226   if(inside_vline(cx,cy,x+Z1*2+2,Z4-Z1+1,Z4+Z1-1))return 1;
 227   if(inside_vline(cx,cy,x,Z1+1,h-1))return 1;
 228   return 0;
 229 }
 230
 231 int BluebananaSlider::in_topslider(int x, int cx, int cy){
 232   int i;
 233   //int h = get_h();
 234   if(inside_vline(cx,cy,x,Z1*2,1))return 1;
 235   for(i=1;i<Z1+1;i++){
 236     if(inside_vline(cx,cy,x+i,1,Z1*2-i*2+1))return 1;
 237     if(inside_vline(cx,cy,x-i,1,Z1*2-i*2+1))return 1;
 238     }
 239   if(inside_hline(cx,cy,x-Z1+1,x+Z1-1,0)) return 1;
 240   return 0;
 241 }
 242
 243 int BluebananaSlider::in_overslider(int x,int cx, int cy){
 244   //int i;
 245   //int h = get_h();
 246   //int y0 = 0;
 247   //int y1 = Z1*2-1;
 248   int w2 = CW;//Z1*2-1;
 249   if(cy<=Z1 && cx>=x-w2 && cx<=x+w2) return 1;
 250   return 0;
 251 }
 252
 253 int BluebananaSlider::in_bottomslider(int x,int cx, int cy){
 254   int i;
 255   int h = get_h();
 256
 257   if(inside_vline(cx,cy,x,h-Z1*2-1,h-2))return 1;
 258   for(i=1;i<Z1+1;i++){
 259     if(inside_vline(cx,cy,x+i,h-2,h-Z1*2+i*2-2))return 1;
 260     if(inside_vline(cx,cy,x-i,h-2,h-Z1*2+i*2-2))return 1;
 261   }
 262   if(inside_hline(cx,cy,x-Z1+1,x+Z1-1,h-1)) return 1;
 263   return 0;
 264 }
 265
 266 int BluebananaSlider::in_leftslider2(int x,int cx){
 267   if(cx<=x+2 && cx>x-CW) return 1;
 268   return 0;
 269 }
 270
 271 int BluebananaSlider::in_rightslider2(int x,int cx){
 272   if(cx<x+CW && cx>=x-2) return 1;
 273   return 0;
 274 }
 275
 276 int BluebananaSlider::in_midslider2(int x,int cx){
 277   if(cx>x-CW/2 && cx<x+CW/2) return 1;
 278   return 0;
 279 }
 280
 281 int BluebananaSlider::in_overslider2(int x,int cx, int cy){
 282   if(cx>x-CW/2 && cx<x+CW/2 && cy<=(Z1+Z4)/2) return 1;
 283   return 0;
 284 }
 285
 286 void BluebananaSlider::draw_midslider(int x,int lit){
 287   //int i;
 288   int h = get_h();
 289   int y0 = Z4-Z1+2;
 290   int y1 = h-2;
 291
 292   set_color(lit?sliderlit:slidercolor);
 293   draw_disc(x-Z1+2,y0,Z1*2-3,y1-y0+1);
 294
 295   set_color(outline);
 296   draw_circle(x-Z1+2,y0,Z1*2-3,y1-y0+1);
 297 }
 298
 299 void BluebananaSlider::draw_leftslider(int x, int lit){
 300   int i;
 301   //int h = get_h();
 302
 303   set_color(lit?sliderlit:slidercolor);
 304   draw_line(x-1,Z4,x-Z1*2-1,Z4);
 305   for(i=1;i<Z1+1;i++){
 306     draw_line(x-(i*2),Z4-i,x-Z1*2-1,Z4-i);
 307     draw_line(x-(i*2),Z4+i,x-Z1*2-1,Z4+i);
 308   }
 309
 310   set_color(outline);
 311   draw_line(x-1,Z4,x-1,Z4);
 312   draw_line(x-Z1*2-2,Z4-Z1+1,x-Z1*2-2,Z4+Z1-1);
 313   for(i=1;i<Z1+1;i++){
 314     draw_line(x-(i*2),Z4-i,x-(i*2)-1,Z4-i);
 315     draw_line(x-(i*2),Z4+i,x-(i*2)-1,Z4+i);
 316   }
 317
 318   set_color(lit?needlelit:needlecolor);
 319   draw_line(x,Z4-Z1,x,Z4+Z1);
 320 }
 321
 322 void BluebananaSlider::draw_rightslider(int x, int lit){
 323   int i;
 324   //int h = get_h();
 325
 326   set_color(lit?sliderlit:slidercolor);
 327   draw_line(x+1,Z4,x+Z1*2+1,Z4);
 328   for(i=1;i<Z1+1;i++){
 329     draw_line(x+(i*2),Z4-i,x+Z1*2+1,Z4-i);
 330     draw_line(x+(i*2),Z4+i,x+Z1*2+1,Z4+i);
 331   }
 332
 333   set_color(outline);
 334   draw_line(x+1,Z4,x+1,Z4);
 335   draw_line(x+Z1*2+2,Z4-Z1+1,x+Z1*2+2,Z4+Z1-1);
 336   for(i=1;i<Z1+1;i++){
 337     draw_line(x+(i*2),Z4-i,x+(i*2)+1,Z4-i);
 338     draw_line(x+(i*2),Z4+i,x+(i*2)+1,Z4+i);
 339   }
 340
 341   set_color(lit?needlelit:needlecolor);
 342   draw_line(x,Z4-Z1,x,Z4+Z1);
 343 }
 344
 345 void BluebananaSlider::draw_topslider(int x, int lit){
 346   int i;
 347   //int h = get_h();
 348
 349   set_color(lit?sliderlit:slidercolor);
 350   draw_line(x,Z1*2,x,1);
 351   for(i=1;i<Z1+1;i++){
 352     draw_line(x+i,1,x+i,Z1*2-i*2+1);
 353     draw_line(x-i,1,x-i,Z1*2-i*2+1);
 354   }
 355
 356   set_color(outline);
 357   draw_line(x-Z1+1,0,x+Z1-1,0);
 358   draw_line(x,Z1*2+1,x,Z1*2+1);
 359   for(i=1;i<Z1+1;i++){
 360     draw_line(x+i, Z1*2-i*2+1, x+i, Z1*2-i*2+2);
 361     draw_line(x-i, Z1*2-i*2+1, x-i, Z1*2-i*2+2);
 362   }
 363 }
 364
 365 void BluebananaSlider::draw_bottomslider(int x, int lit){
 366   int i;
 367   int h = get_h();
 368
 369   set_color(lit?sliderlit:slidercolor);
 370   draw_line(x,h-Z1*2-1,x,h-2);
 371   for(i=1;i<Z1+1;i++){
 372     draw_line(x+i,h-2,x+i,h-Z1*2+i*2-2);
 373     draw_line(x-i,h-2,x-i,h-Z1*2+i*2-2);
 374   }
 375
 376   set_color(outline);
 377   draw_line(x-Z1+1,h-1,x+Z1-1,h-1);
 378   draw_line(x,h-Z1*2-2,x,h-Z1*2-2);
 379   for(i=1;i<Z1+1;i++){
 380     draw_line(x+i,h-Z1*2+i*2-2,x+i,h-Z1*2+i*2-3);
 381     draw_line(x-i,h-Z1*2+i*2-2,x-i,h-Z1*2+i*2-3);
 382   }
 383 }
 384
 385 void BluebananaSlider::draw_overslider(int x, int lit){
 386   //int i;
 387   //int h = get_h();
 388   //int y0 = 0;
 389   //int y1 = Z1*2-1;
 390   int w2 = CW+1;
 391
 392   int bg_c = get_resources()->get_bg_color();
 393   int bg_r = ((bg_c >> 16) & 0xff);
 394   int bg_g = ((bg_c >> 8) & 0xff);
 395   int bg_b = (bg_c & 0xff);
 396   float del = lit ? 1. : .9;
 397   set_color(((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del)));
 398   draw_box(x-w2+1,0,w2*2-2,Z1);
 399   draw_box(x-w2,1,w2*2+1,Z1-2);
 400
 401   set_color(lit?sliderlit:slidercolor);
 402   draw_box(x-w2+2,1,w2*2-3,Z1-2);
 403   draw_box(x-w2+1,2,w2*2-1,Z1-4);
 404
 405   set_color(((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del)));
 406   draw_line(x,2,x,Z1-3);
 407 }
 408
 409 int BluebananaSlider::button_release_event(){
 410   if(is_event_win()){
 411     if(drag>0) {
 412       drag = 0;
 413       update();
 414       cursor_motion_event();
 415     }
 416     return 1;
 417   }
 418   return 0;
 419 }
 420
 421 void BluebananaSlider::update(){
 422   int w = get_w();
 423   int h = get_h();
 424   int bg_c = get_resources()->get_bg_color();
 425   int bg_r = ((bg_c >> 16) & 0xff);
 426   int bg_g = ((bg_c >> 8) & 0xff);
 427   int bg_b = (bg_c & 0xff);
 428   int b_c = highlight ? active_bordercolor : inactive_bordercolor;
 429   int b_r = ((b_c >> 16) & 0xff);
 430   int b_g = ((b_c >> 8) & 0xff);
 431   int b_b = (b_c & 0xff);
 432   int tb_c = troughcolor;
 433   int tb_r = ((tb_c >> 16) & 0xff);
 434   int tb_g = ((tb_c >> 8) & 0xff);
 435   int tb_b = (tb_c & 0xff);
 436
 437   int ZH = Z4-Z1+1;
 438   //int ZHC = Z4-ZC+1;
 439
 440   int i,j;
 441
 442   clear_box(0, 0, w, h);
 443
 444   /* trough shadow */
 445   float del = .9;
 446   int shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
 447   set_color(shadow_c);
 448   draw_box (0,Z1,w,ZH+2);
 449   draw_box (1,Z1-1,w-2,ZH+4);
 450
 451   del = .8;
 452   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
 453   set_color(shadow_c);
 454   draw_box (1,Z1+1,w-2,ZH);
 455   draw_box (2,Z1,w-4,ZH+2);
 456
 457   del = .7;
 458   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
 459   set_color(shadow_c);
 460   draw_box (2,Z1+2,w-4,ZH-2);
 461   draw_box (3,Z1+1,w-6,ZH);
 462
 463   /* trough border */
 464   set_color(b_c);
 465   draw_box (1,Z1+1,w-4,ZH-2);
 466   draw_box (2,Z1,w-6,ZH);
 467
 468   /* trough inner */
 469   int ntw = troughcols;
 470   int nth = troughlines;
 471   int ntx = CW+ZL;
 472   int nty = Z1+1;
 473
 474   if(!trough){
 475     trough = new VFrame(ntw,nth,BC_RGBA8888);
 476   }
 477
 478   if(!trough){
 479     fprintf(stderr,_("Bluebanana: Unable to create Frame for slider\n"));
 480   }else{
 481     unsigned char *data = trough->get_data();
 482     long bpr = trough->get_bytes_per_line();
 483     float ha = 1.;
 484     if(!highlight){
 485       ha*=.25;
 486       tb_r = bg_r;
 487       tb_g = bg_g;
 488       tb_b = bg_b;
 489     }
 490
 491     if(histval){ // trough is a histogram and has data
 492       long bpp = trough->get_bytes_per_pixel();
 493       float rr,gg,bb,aa;
 494
 495       for(i=0;i<ntw;i++){
 496
 497         unsigned char *row = data;
 498         float y = nth-histval[i];
 499         float y0 = i>0?nth-histval[i-1]:y;
 500         float y1 = i+1<ntw?nth-histval[i+1]:y;
 501         float yp = MIN(y,MIN(y0+1,y1+1));
 502         float y3 = (y0+y+y1)*.333f;
 503         float r,g,b,a;
 504
 505         trough_color((i+.5f)/ntw,0.f,rr,gg,bb,aa);
 506         rr*=255;
 507         gg*=255;
 508         bb*=255;
 509         rr = CLAMP((rr+b_r*3)/4,0,255);
 510         gg = CLAMP((gg+b_g*3)/4,0,255);
 511         bb = CLAMP((bb+b_b*3)/4,0,255);
 512
 513         if(histred){
 514           r=histred[i];
 515           g=histgreen[i];
 516           b=histblue[i];
 517         }else{
 518           trough_color((i+.5)/ntw,0,r,g,b,a);
 519           r=CLAMP(r,0,255);
 520           g=CLAMP(g,0,255);
 521           b=CLAMP(b,0,255);
 522         }
 523
 524         for(j=0;j<yp-1 && j<nth;j++){
 525           row[0] = tb_r;
 526           row[1] = tb_g;
 527           row[2] = tb_b;
 528           row[3] = 0xff;
 529           row+=bpr;
 530         }
 531
 532         a=.75*ha;
 533         for(;j<y && j<nth;j++){
 534           row[0] = rint(rr*a + tb_r*(1-a));
 535           row[1] = rint(gg*a + tb_g*(1-a));
 536           row[2] = rint(bb*a + tb_b*(1-a));
 537           row[3] = 0xff;
 538           row+=bpr;
 539         }
 540
 541         a=ha;
 542         for(;j<nth;j++){
 543           float a = CLAMP(1. - .3*(float)(j-y3)/(nth-y3+1),0.f,1.f)*ha;
 544           row[0] = rint(r*a*255.f + tb_r*(1-a));
 545           row[1] = rint(g*a*255.f + tb_g*(1-a));
 546           row[2] = rint(b*a*255.f + tb_b*(1-a));
 547           row[3] = 0xff;
 548           row+=bpr;
 549         }
 550
 551         data+=bpp;
 552       }
 553     }else{
 554       for(i=0;i<ntw;i++){
 555         unsigned char *row = data + i*trough->get_bytes_per_pixel();
 556         for(j=0;j<nth;j++){
 557           float r,g,b,a;
 558           trough_color((i+.5f)/ntw,(j+.5)/nth,r,g,b,a);
 559           r=CLAMP(r,0,255);
 560           g=CLAMP(g,0,255);
 561           b=CLAMP(b,0,255);
 562
 563           a*=ha;
 564           row[0] = rint(r*a*255 + tb_r*(1-a));
 565           row[1] = rint(g*a*255 + tb_g*(1-a));
 566           row[2] = rint(b*a*255 + tb_b*(1-a));
 567           row[3] = 0xff;
 568           row+=bpr;
 569         }
 570       }
 571     }
 572     draw_vframe(trough,ntx,nty);
 573   }
 574 }
 575
 576 // quick/dirty unnormalized linear resample from native -> display size
 577 static void resample_histogram(float *raw, float *raw_red, float *raw_green, float *raw_blue,
 578                                float *out, float *out_red, float *out_green, float *out_blue,
 579                                int raw_n, int raw_off, int out_n, int out_start, int out_end){
 580   float coverage = (float)raw_n/out_n;
 581   float scale = coverage;
 582   if(coverage<1.)coverage=1.;
 583   float icoverage = 1./coverage;
 584
 585   float raw_center = out_start*scale+raw_off;
 586   float raw_start = raw_center-coverage;
 587   float raw_end = raw_center+coverage;
 588
 589   for(int i=out_start; i<out_end; i++){
 590     int j = raw_start+1;
 591     int e = raw_end;
 592     if(j<0)j=0;
 593     if(e>HISTSIZE)e=HISTSIZE;
 594     //int jj=j;
 595     float k = (j-raw_start)*icoverage-1.f;
 596     float a = 0;
 597
 598     for(; j<=e; j++){
 599       float ik = 1.-fabs(k);
 600       a += raw[j]*ik;
 601       k += icoverage;
 602     }
 603     out[i] = a;
 604     raw_start += scale;
 605     raw_end += scale;
 606   }
 607
 608   if(raw_red){
 609     coverage = (float)raw_n/out_n;
 610     scale = coverage;
 611     if(coverage<(1<<HRGBSHIFT))coverage=(1<<HRGBSHIFT);
 612     icoverage = 1./coverage;
 613
 614     raw_center = out_start*scale+raw_off;
 615     raw_start = raw_center-coverage;
 616     raw_end = raw_center+coverage;
 617
 618     for(int i=out_start; i<out_end; i++){
 619       int j = raw_start+1;
 620       int e = raw_end;
 621       if(j<0)j=0;
 622       if(e>HISTSIZE)e=HISTSIZE;
 623       //int jj=j;
 624       float k = (j-raw_start)*icoverage-1.f;
 625       float r=0.f, g=0.f, b=0.f, a=0.f;
 626       for(; j<=e; j++){
 627         float ik = 1.-fabs(k);
 628         int sj = (j>>HRGBSHIFT);
 629         int sjs = sj<<HRGBSHIFT;
 630
 631 #if (HRGBSHIFT==0)
 632         a += raw[sjs]*ik;
 633 #endif
 634 #if (HRGBSHIFT==1)
 635         a += (raw[sjs] +
 636               raw[sjs+1])*ik;
 637 #endif
 638 #if (HRGBSHIFT==2)
 639         a += (raw[sjs] +
 640               raw[sjs+1] +
 641               raw[sjs+2] +
 642               raw[sjs+3])*ik;
 643 #endif
 644 #if (HRGBSHIFT==3)
 645         a += (raw[sjs] +
 646               raw[sjs+1] +
 647               raw[sjs+2] +
 648               raw[sjs+3] +
 649               raw[sjs+4] +
 650               raw[sjs+5] +
 651               raw[sjs+6] +
 652               raw[sjs+7])*ik;
 653 #endif
 654         r += raw_red[sj]*ik;
 655         g += raw_green[sj]*ik;
 656         b += raw_blue[sj]*ik;
 657         k += icoverage;
 658       }
 659
 660       a = a?1.f/a:0;
 661       out_red[i] = CLAMP(r*a,0.f,1.f);
 662       out_green[i] = CLAMP(g*a,0.f,1.f);
 663       out_blue[i] = CLAMP(b*a,0.f,1.f);
 664       raw_start += scale;
 665       raw_end += scale;
 666     }
 667   }
 668 }
 669
 670 void BluebananaSlider::update_histogram(float *raw, float *red, float *green, float *blue, int n){
 671   int i;
 672   int h = troughlines;
 673   int w = troughcols;
 674   float il2n = 1./log2(n);
 675
 676   if(!histval)
 677     histval = new float[w];
 678
 679   if(!histred && red){
 680     histred = new float[w];
 681     histgreen = new float[w];
 682     histblue = new float[w];
 683   }
 684
 685   /* resample center */
 686   resample_histogram(raw, red, green, blue, histval, histred, histgreen, histblue,
 687                      HISTSIZE, 0, w, 0, w);
 688
 689   /* select value normalization */
 690   for(i=0;i<w;i++){
 691     if(histval[i]<=.0001f){
 692       histval[i]=-2;
 693     }else{
 694       float val = log2(histval[i])*il2n;
 695       val = pow(val<0?0:val,.75)*h;
 696       if(val<0)val=0;
 697       if(val>h)val=h;
 698       histval[i]=val;
 699     }
 700   }
 701   render();
 702 }
 703
 704 // ---------------------------- Single ----------------------------------
 705
 706 BluebananaSliderSingle::BluebananaSliderSingle(BluebananaMain *plugin,
 707                                                BluebananaWindow *gui,
 708                                                int x,
 709                                                int y,
 710                                                int w,
 711                                                int h,
 712                                                float minval,
 713                                                float maxval)
 714   : BluebananaSlider(plugin,gui,x,y,w,h,minval,maxval){
 715   val = (minval+maxval)/2;
 716   increment = 1;
 717 }
 718
 719 int BluebananaSliderSingle::button_press_event(){
 720   if(is_event_win() && cursor_inside()){
 721     //int min;
 722     //int max;
 723     int cx = get_cursor_x();
 724
 725     gui->deactivate();
 726
 727     if(get_buttonpress() == 4){
 728       set_val(val - increment);
 729       return 1;
 730     }else if(get_buttonpress() == 5){
 731       set_val(val + increment);
 732       return 1;
 733     }
 734
 735     switch(light){
 736     case 0:
 737       xoff = cx-value_to_pixel(val);
 738       break;
 739     default:
 740       return 1;
 741     }
 742
 743     drag = 1;
 744     update();
 745     return 1;
 746   }
 747   return 0;
 748 }
 749
 750 int BluebananaSliderSingle::cursor_motion_event(){
 751   int cx = get_cursor_x();
 752   //int cy = get_cursor_y();
 753
 754   if(drag){
 755     switch(light){
 756     case 0:
 757       set_val(pixel_to_value(cx - xoff));
 758       break;
 759     default:
 760       drag = 0;
 761       light = -1;
 762       update();
 763       break;
 764     }
 765     return 1;
 766   }else{
 767     if(is_event_win() && cursor_inside()){
 768
 769       if(in_midslider2(value_to_pixel(val),cx)){
 770         if(light!=0){
 771           light = 0;
 772           update();
 773         }
 774       }else{
 775         if(light!=-1){
 776           light = -1;
 777           update();
 778         }
 779       }
 780       return 1;
 781     }else{
 782       if(light!=-1){
 783         light = -1;
 784         update();
 785       }
 786     }
 787   }
 788   return 0;
 789 }
 790
 791 void BluebananaSliderSingle::set_val(float v){
 792   val=v;
 793   if(val<minval)val=minval;
 794   if(val>maxval)val=maxval;
 795   handle_event();
 796   update();
 797 }
 798
 799 void BluebananaSliderSingle::update(){
 800   BluebananaSlider::update();
 801   draw_bottomslider(value_to_pixel(val),light==0);
 802   flash();
 803   flush();
 804 }
 805
 806 // ---------------------------- Bracket ----------------------------------
 807
 808 BluebananaSliderBracket::BluebananaSliderBracket(BluebananaMain *plugin,
 809                                                  BluebananaWindow *gui,
 810                                                  int x,
 811                                                  int y,
 812                                                  int w,
 813                                                  int h,
 814                                                  float minval,
 815                                                  float maxval)
 816   : BluebananaSlider(plugin,gui,x,y,w,h,minval,maxval){
 817   loval = minval;
 818   midval = (minval+maxval)/2;
 819   hival = maxval;
 820   overval = minval;
 821   increment = 1;
 822 }
 823
 824 int BluebananaSliderBracket::button_press_event(){
 825   if(is_event_win() && cursor_inside()){
 826     //int min;
 827     //int max;
 828     int cx = get_cursor_x();
 829
 830     gui->deactivate();
 831
 832     if(shift_down()){
 833         /* narrow/widen range */
 834       if(get_buttonpress() == 4){
 835         set_delta(increment*2);
 836         return 1;
 837       }else if(get_buttonpress() == 5){
 838         set_delta(-increment*2);
 839         return 1;
 840       }
 841     }else if (ctrl_down()){
 842       /* shift all vals up/down */
 843       if(get_buttonpress() == 4){
 844         set_mid(midval-increment);
 845         return 1;
 846       }else if(get_buttonpress() == 5){
 847         set_mid(midval+increment);
 848         return 1;
 849       }
 850     }else{
 851       /* increase/decrease overlap */
 852       if(get_buttonpress() == 4){
 853         set_over(overval-1);
 854         return 1;
 855       }else if(get_buttonpress() == 5){
 856         set_over(overval+1);
 857         return 1;
 858       }
 859     }
 860
 861     switch(light){
 862     case 0:
 863       xoff = cx-value_to_pixel(loval);
 864       break;
 865     case 1:
 866       xoff = cx-value_to_pixel(midval);
 867       break;
 868     case 2:
 869       xoff = cx-value_to_pixel(hival);
 870       break;
 871     case 3:
 872       xoff = cx-value_to_pixel(overval);
 873       break;
 874     default:
 875       return 1;
 876     }
 877
 878     drag = 1;
 879     update();
 880     return 1;
 881   }
 882   return 0;
 883 }
 884
 885 int BluebananaSliderBracket::cursor_motion_event(){
 886   int cx = get_cursor_x();
 887   int cy = get_cursor_y();
 888
 889   if(drag){
 890     switch(light){
 891     case 0:
 892       set_lo(pixel_to_value(cx - xoff));
 893       break;
 894     case 1:
 895       set_mid(pixel_to_value(cx - xoff));
 896       break;
 897     case 2:
 898       set_hi(pixel_to_value(cx - xoff));
 899       break;
 900     case 3:
 901       set_over(pixel_to_value(cx - xoff));
 902       break;
 903     default:
 904       drag = 0;
 905       light = -1;
 906       update();
 907       break;
 908     }
 909     return 1;
 910   }else{
 911     if(is_event_win() && cursor_inside()){
 912       if(in_overslider(value_to_pixel(overval),cx,cy)){
 913         if(light!=3){
 914           light = 3;
 915           update();
 916         }
 917       }else if(in_midslider(value_to_pixel(midval),cx,cy)){
 918         if(light!=1){
 919           light = 1;
 920           update();
 921         }
 922       }else if(in_leftslider(value_to_pixel(loval),cx,cy)){
 923         if(light!=0){
 924           light = 0;
 925           update();
 926         }
 927       }else if(in_rightslider(value_to_pixel(hival),cx,cy)){
 928         if(light!=2){
 929           light = 2;
 930           update();
 931         }
 932       }else if(in_midslider2(value_to_pixel(midval),cx)){
 933         if(light!=1){
 934           light = 1;
 935           update();
 936         }
 937       }else if(in_rightslider2(value_to_pixel(hival),cx)){
 938         if(light!=2){
 939           light = 2;
 940           update();
 941         }
 942       }else if(in_leftslider2(value_to_pixel(loval),cx)){
 943         if(light!=0){
 944           light = 0;
 945           update();
 946         }
 947       }else if(in_overslider2(value_to_pixel(overval),cx,cy)){
 948         if(light!=3){
 949           light = 3;
 950           update();
 951         }
 952       }else{
 953         if(light!=-1){
 954           light = -1;
 955           update();
 956         }
 957       }
 958       return 1;
 959     }else{
 960       if(light!=-1){
 961         light = -1;
 962         update();
 963       }
 964     }
 965   }
 966   return 0;
 967 }
 968
 969 void BluebananaSliderBracket::set_lo(float val){
 970   if(val<minval)val=minval;
 971   if(val>maxval)val=maxval;
 972   if(val > hival) val=hival;
 973   loval=val;
 974
 975   if(hival<loval)hival+=(maxval-minval);
 976   if(midval<loval)midval+=(maxval-minval);
 977   midval = (hival+loval)/2.;
 978   if(hival>maxval)hival-=(maxval-minval);
 979   if(midval>maxval)midval-=(maxval-minval);
 980   if(loval>maxval)loval-=(maxval-minval);
 981   if(hival<minval)hival+=(maxval-minval);
 982   if(midval<minval)midval+=(maxval-minval);
 983   if(loval<minval)loval+=(maxval-minval);
 984   handle_event();
 985   update();
 986 }
 987
 988 void BluebananaSliderBracket::set_mid(float val){
 989   //float oldmid=midval;
 990   if(val<minval)val=minval;
 991   if(val>maxval)val=maxval;
 992   midval=val;
 993
 994   float delta = (hival+loval)/2.;
 995   hival+=midval-delta;
 996   loval+=midval-delta;
 997   if(hival>maxval){
 998     loval += maxval-hival;
 999     midval += maxval-hival;
1000     hival = maxval;
1001   }
1002   if(loval<minval){
1003     hival-=loval;
1004     midval-=loval;
1005     loval=minval;
1006   }
1007   handle_event();
1008   update();
1009 }
1010
1011 void BluebananaSliderBracket::set_hi(float val){
1012   if(val<minval)val=minval;
1013   if(val>maxval)val=maxval;
1014   if(val<loval)val=loval;
1015   hival=val;
1016
1017   if(loval>hival)loval-=(maxval-minval);
1018   if(midval>hival)midval-=(maxval-minval);
1019   midval=(hival+loval)/2.;
1020   if(hival>maxval)hival-=(maxval-minval);
1021   if(midval>maxval)midval-=(maxval-minval);
1022   if(loval>maxval)loval-=(maxval-minval);
1023   if(hival<minval)hival+=(maxval-minval);
1024   if(midval<minval)midval+=(maxval-minval);
1025   if(loval<minval)loval+=(maxval-minval);
1026
1027   handle_event();
1028   update();
1029 }
1030
1031 void BluebananaSliderBracket::set_delta(float incr){
1032   float delta = (hival-loval)+incr;
1033   if(delta<minval)delta=minval;
1034   if(delta>maxval)delta=maxval;
1035   loval = midval-delta/2;
1036   hival = loval+delta;
1037
1038   if(loval<minval){
1039     hival-=loval;
1040     midval-=loval;
1041     loval=minval;
1042   }
1043   if(hival>maxval){
1044     loval-=(hival-maxval);
1045     midval-=(hival-maxval);
1046     hival=maxval;
1047   }
1048   handle_event();
1049   update();
1050 }
1051
1052 void BluebananaSliderBracket::set_over(float val){
1053   if(val<minval)val=minval;
1054   if(val>maxval)val=maxval;
1055   overval=val;
1056   handle_event();
1057   update();
1058 }
1059
1060
1061 void BluebananaSliderBracket::update(){
1062   BluebananaSlider::update();
1063   draw_overslider(value_to_pixel(overval),light==3);
1064   draw_leftslider(value_to_pixel(loval),light==0);
1065   draw_rightslider(value_to_pixel(hival),light==2);
1066   draw_midslider(value_to_pixel(midval),light==1);
1067   flash();
1068   flush();
1069 }
1070
1071 // ----------------------- Circular Bracket -----------------------------
1072
1073 BluebananaSliderCircular::BluebananaSliderCircular(BluebananaMain *plugin,
1074                                                    BluebananaWindow *gui,
1075                                                    int x,
1076                                                    int y,
1077                                                    int w,
1078                                                    int h,
1079                                                    float minval,
1080                                                    float maxval)
1081   : BluebananaSliderBracket(plugin,gui,x,y,w,h,minval,maxval){}
1082
1083 void BluebananaSliderCircular::set_lo(float val){
1084   if(val<minval)val=minval;
1085   if(val>maxval)val=maxval;
1086   loval=val;
1087
1088   if(hival<loval)hival+=(maxval-minval);
1089   if(midval<loval)midval+=(maxval-minval);
1090   midval = (hival+loval)/2.;
1091   if(hival>maxval)hival-=(maxval-minval);
1092   if(midval>maxval)midval-=(maxval-minval);
1093   if(loval>maxval)loval-=(maxval-minval);
1094   if(hival<minval)hival+=(maxval-minval);
1095   if(midval<minval)midval+=(maxval-minval);
1096   if(loval<minval)loval+=(maxval-minval);
1097
1098   handle_event();
1099   update();
1100 }
1101
1102 void BluebananaSliderCircular::set_mid(float val){
1103   float oldmid=midval;
1104   if(val<minval)val=minval;
1105   if(val>maxval)val=maxval;
1106   midval=val;
1107   if(hival<oldmid)hival+=(maxval-minval);
1108   if(loval>oldmid)loval-=(maxval-minval);
1109   float delta = hival-loval;
1110   loval = midval-delta/2;
1111   hival = loval+delta;
1112   if(hival>maxval)hival-=(maxval-minval);
1113   if(loval>maxval)loval-=(maxval-minval);
1114   if(hival<minval)hival+=(maxval-minval);
1115   if(loval<minval)loval+=(maxval-minval);
1116   handle_event();
1117   update();
1118 }
1119
1120 void BluebananaSliderCircular::set_hi(float val){
1121   if(val<minval)val=minval;
1122   if(val>maxval)val=maxval;
1123   hival=val;
1124   if(loval>hival)loval-=(maxval-minval);
1125   if(midval>hival)midval-=(maxval-minval);
1126   midval = (hival+loval)/2.;
1127   if(hival>maxval)hival-=(maxval-minval);
1128   if(midval>maxval)midval-=(maxval-minval);
1129   if(loval>maxval)loval-=(maxval-minval);
1130   if(hival<minval)hival+=(maxval-minval);
1131   if(midval<minval)midval+=(maxval-minval);
1132   if(loval<minval)loval+=(maxval-minval);
1133   handle_event();
1134   update();
1135 }
1136
1137 void BluebananaSliderCircular::set_delta(float incr){
1138   if(hival<midval)hival+=(maxval-minval);
1139   if(loval>midval)loval-=(maxval-minval);
1140
1141   float delta = (hival-loval)+incr;
1142   if(delta<minval)delta=minval;
1143   if(delta>maxval)delta=maxval;
1144   loval = midval-delta/2;
1145   hival = loval+delta;
1146
1147   if(hival>maxval)hival-=(maxval-minval);
1148   if(loval>maxval)loval-=(maxval-minval);
1149   if(hival<minval)hival+=(maxval-minval);
1150   if(loval<minval)loval+=(maxval-minval);
1151   handle_event();
1152   update();
1153 }
1154
1155 void BluebananaSliderCircular::update(){
1156   BluebananaSliderBracket::update();
1157   flash();
1158   flush();
1159 }
1160
1161 // -------------------------- In + Out + Gamma --------------------------------
1162
1163 #define mG2 (2.f-2.f*MIN_GAMMA)
1164 #define MG2 (2.f*MAX_GAMMA-2.f)
1165
1166 float BluebananaSliderChannel::pixel_to_gamma(float pixel){
1167   float unit = (1.-pixel_to_fraction(pixel)-FRAC0)/(FRAC100-FRAC0);
1168   return (unit > .5f ?
1169           (1.f-unit) * mG2 + MIN_GAMMA :
1170           (.5f-unit) * MG2 + 1.f );
1171 }
1172
1173 float BluebananaSliderChannel::gamma_to_pixel(float gamma){
1174   float fraction =
1175     gamma<1 ? 1.f - (gamma-MIN_GAMMA) / mG2 :
1176     .5f - (gamma-1.f) / MG2 ;
1177   return fraction_to_pixel((1.-fraction) * (FRAC100-FRAC0) + FRAC0);
1178 }
1179
1180 float BluebananaSliderChannel::pixel_to_value(float pixel){
1181   if(pixel<t_x1){
1182     return (t_x0-pixel)/t_w01*MIN_HISTBRACKET+MIN_HISTBRACKET;
1183   }else if (pixel<t_x2){
1184     return (pixel-t_x1)/t_w12*100;
1185   }else{
1186     return (pixel-t_x2)/t_w23*(MAX_HISTBRACKET-100)+100;
1187   }
1188 }
1189
1190 float BluebananaSliderChannel::value_to_pixel(float val){
1191   if(val<0){
1192     return rint(MIN_HISTBRACKET-val)/MIN_HISTBRACKET*t_w01+t_x0;
1193   }else if(val<100){
1194     return rint(val/100.*t_w12+t_x1+.01);
1195   }else{
1196     return rint((val-100)/(MAX_HISTBRACKET-100.)*t_w23+t_x2);
1197   }
1198 }
1199
1200 BluebananaSliderChannel::BluebananaSliderChannel(BluebananaMain *plugin,
1201                                              BluebananaWindow *gui,
1202                                              int x,
1203                                              int y,
1204                                              int w,
1205                                              int h)
1206   : BluebananaSlider(plugin,gui,x,y,w,h,0,100){
1207   loval = 0;
1208   gamma = 1.;
1209   hival = 100.;
1210 }
1211
1212 BluebananaSliderChannel::~BluebananaSliderChannel(){}
1213
1214 int BluebananaSliderChannel::button_press_event(){
1215   if(is_event_win() && cursor_inside()){
1216     //int min;
1217     //int max;
1218     int cx = get_cursor_x();
1219     //int cy = get_cursor_y();
1220
1221     gui->deactivate();
1222
1223     if(shift_down()){
1224       /* narrow/widen range */
1225       if(get_buttonpress() == 4){
1226         set_range(hival-loval-2);
1227         return 1;
1228       }else if(get_buttonpress() == 5){
1229         if(loval<hival){
1230           set_range(hival-loval+2);
1231         }
1232         return 1;
1233       }
1234     }else if (ctrl_down()){
1235       /* shift all vals up/down */
1236       if(get_buttonpress() == 4){
1237         set_mid((loval+hival)/2+1);
1238         return 1;
1239       }else if(get_buttonpress() == 5){
1240         set_mid((loval+hival)/2-1);
1241         return 1;
1242       }
1243     }else{
1244       /* increase/decrease gamma */
1245       if(get_buttonpress() == 4){
1246         set_gamma(gamma-.01);
1247         return 1;
1248       }else if(get_buttonpress() == 5){
1249         set_gamma(gamma+.01);
1250         return 1;
1251       }
1252     }
1253
1254     switch(light){
1255     case 0:
1256       xoff = cx-value_to_pixel(loval);
1257       break;
1258     case 1:
1259       xoff = cx-value_to_pixel((loval+hival)/2);
1260       break;
1261     case 2:
1262       xoff = cx-value_to_pixel(hival);
1263       break;
1264     case 3:
1265       xoff = cx-gamma_to_pixel(gamma);
1266       break;
1267     default:
1268       return 1;
1269     }
1270
1271     drag = 1;
1272     update();
1273     return 1;
1274   }
1275   return 0;
1276 }
1277
1278 int BluebananaSliderChannel::cursor_motion_event(){
1279   int cx = get_cursor_x();
1280   int cy = get_cursor_y();
1281
1282   if(drag){
1283     switch(light){
1284     case 0:
1285       set_lo(pixel_to_value(cx - xoff));
1286       break;
1287     case 1:
1288       set_mid(pixel_to_value(cx - xoff));
1289       break;
1290     case 2:
1291       set_hi(pixel_to_value(cx - xoff));
1292       break;
1293     case 3:
1294       set_gamma(pixel_to_gamma(cx - xoff));
1295       break;
1296     default:
1297       drag = 0;
1298       light = -1;
1299       update();
1300       break;
1301     }
1302     return 1;
1303   }else{
1304     if(is_event_win() && cursor_inside()){
1305       if(in_topslider(gamma_to_pixel(gamma),cx,cy)){
1306         if(light!=3){
1307           light = 3;
1308           update();
1309         }
1310       }else if(in_midslider(value_to_pixel((loval+hival)/2),cx,cy)){
1311         if(light!=1){
1312           light = 1;
1313           update();
1314         }
1315       }else if(in_leftslider(value_to_pixel(loval),cx,cy)){
1316         if(light!=0){
1317           light = 0;
1318           update();
1319         }
1320       }else if(in_rightslider(value_to_pixel(hival),cx,cy)){
1321         if(light!=2){
1322           light = 2;
1323           update();
1324         }
1325       }else if(in_bottomslider(value_to_pixel(hival),cx,cy)){
1326         if(light!=2){
1327           light = 2;
1328           update();
1329         }
1330       }else if(in_bottomslider(value_to_pixel(loval),cx,cy)){
1331         if(light!=0){
1332           light = 0;
1333           update();
1334         }
1335       }else if(in_midslider2(value_to_pixel((loval+hival)/2),cx)){
1336         if(light!=1){
1337           light = 1;
1338           update();
1339         }
1340       }else if(in_overslider2(gamma_to_pixel(gamma),cx,cy)){
1341         if(light!=3){
1342           light = 3;
1343           update();
1344         }
1345       }else{
1346         if(light!=-1){
1347           light = -1;
1348           update();
1349         }
1350       }
1351       return 1;
1352     }else{
1353       if(light!=-1){
1354         light = -1;
1355         update();
1356       }
1357     }
1358   }
1359   return 0;
1360 }
1361
1362 void BluebananaSliderChannel::set_lo(float v){
1363   if(v>hival)v=hival;
1364   if(v<-100)v=-100;
1365   if(v>100)v=100;
1366   loval=rint(v);
1367   handle_event();
1368   update();
1369 }
1370
1371 void BluebananaSliderChannel::set_hi(float v){
1372   if(v<loval)v=loval;
1373   if(v<0)v=0;
1374   if(v>200)v=200;
1375   hival=rint(v);
1376   handle_event();
1377   update();
1378 }
1379
1380 void BluebananaSliderChannel::set_mid(float v){
1381   float mid = (hival+loval)*.5;
1382   float range = hival-loval;
1383   float del = v-mid;
1384
1385   if(hival+del>200)del=200-hival;
1386   if(hival+del<0)del=0-hival;
1387   if(loval+del>100)del=100-loval;
1388   if(loval+del<-100)del=-100-loval;
1389
1390   loval+=rint(del);
1391   hival=loval+rint(range);
1392   handle_event();
1393   update();
1394 }
1395
1396 void BluebananaSliderChannel::set_range(float v){
1397   //float mid = (hival+loval)*.5;
1398   float range = hival-loval;
1399
1400   if(v>200)v=200;
1401   if(v<0)v=0;
1402
1403   float del = (v-range)/2;
1404
1405   if(hival+del>200)del=200-hival;
1406   if(hival+del<0)del=0-hival;
1407
1408   if(loval-del>100)del=loval-100;
1409   if(loval-del<-100)del=loval+100;
1410
1411   loval-=rint(del);
1412   hival=rint(loval+v);
1413   handle_event();
1414   update();
1415 }
1416
1417 void BluebananaSliderChannel::set_gamma(float v){
1418   if(v>MAX_GAMMA)v=MAX_GAMMA;
1419   if(v<MIN_GAMMA)v=MIN_GAMMA;
1420   gamma=v;
1421   handle_event();
1422   update();
1423 }
1424
1425 void BluebananaSliderChannel::update(){
1426   int w = get_w();
1427   int h = get_h();
1428   int bg_c = get_resources()->get_bg_color();
1429   int bg_r = ((bg_c >> 16) & 0xff);
1430   int bg_g = ((bg_c >> 8) & 0xff);
1431   int bg_b = (bg_c & 0xff);
1432   int b_c = highlight ? active_bordercolor : inactive_bordercolor;
1433   int b_r = ((b_c >> 16) & 0xff);
1434   int b_g = ((b_c >> 8) & 0xff);
1435   int b_b = (b_c & 0xff);
1436   int tb_c = troughcolor;
1437   int tb_r = ((tb_c >> 16) & 0xff);
1438   int tb_g = ((tb_c >> 8) & 0xff);
1439   int tb_b = (tb_c & 0xff);
1440
1441   int ZH = Z4-Z1+1;
1442   //int ZHC = Z4-ZC+1;
1443
1444   int i,j;
1445
1446   t_x0 = fraction_to_pixel(0);
1447   t_x1 = fraction_to_pixel(FRAC0);
1448   t_x2 = fraction_to_pixel(FRAC100);
1449   t_x3 = fraction_to_pixel(1.);
1450   t_w01 = t_x1-t_x0;
1451   t_w12 = t_x2-t_x1;
1452   t_w23 = t_x3-t_x2;
1453
1454
1455   int ntw = troughcols-6;
1456   int nth = troughlines;
1457   int ntx = t_x0;
1458   int nty = Z1+1;
1459
1460   clear_box(0, 0, w, h);
1461
1462   /* trough shadow */
1463
1464   /* w+4 h+4 x-1 y-1 */
1465   float del = .9;
1466   int shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1467   set_color(shadow_c);
1468   draw_box (0,Z1,t_x1+3,ZH+2);
1469   draw_box (1,Z1-1,t_x1+1,ZH+4);
1470   draw_box (t_x1,Z1,t_w12+3,ZH+2);
1471   draw_box (t_x1+1,Z1-1,t_w12+1,ZH+4);
1472   draw_box (t_x2,Z1,w-t_x2,ZH-2+2);
1473   draw_box (t_x2+1,Z1-1,w-t_x2-2,ZH+4);
1474
1475   /* w+2 h+2 x y */
1476   del = .8;
1477   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1478   set_color(shadow_c);
1479   draw_box (1,Z1+1,t_x1+1,ZH);
1480   draw_box (2,Z1,t_x1-1,ZH+2);
1481   draw_box (t_x1+1,Z1+1,t_w12+1,ZH);
1482   draw_box (t_x1+2,Z1,t_w12-1,ZH+2);
1483   draw_box (t_x2+1,Z1+1,w-t_x2-2,ZH);
1484   draw_box (t_x2+2,Z1,w-t_x2-4,ZH+2);
1485
1486   /* w h x+1 y+1 */
1487   del = .7;
1488   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1489   set_color(shadow_c);
1490   draw_box (2,Z1+2,t_x1-1,ZH-2);
1491   draw_box (3,Z1+1,t_x1-3,ZH);
1492   draw_box (t_x1+2,Z1+2,t_w12-1,ZH-2);
1493   draw_box (t_x1+3,Z1+1,t_w12-3,ZH);
1494   draw_box (t_x2+2,Z1+2,w-t_x2-4,ZH-2);
1495   draw_box (t_x2+3,Z1+1,w-t_x2-6,ZH);
1496
1497   /* trough border */
1498   set_color(b_c);
1499   draw_box (1,Z1+1,t_x1-1,ZH-2);
1500   draw_box (2,Z1,t_x1-3,ZH);
1501   draw_box (t_x1+1,Z1+1,t_w12-1,ZH-2);
1502   draw_box (t_x1+2,Z1,t_w12-3,ZH);
1503   draw_box (t_x2+1,Z1+1,w-t_x2-4,ZH-2);
1504   draw_box (t_x2+2,Z1,w-t_x2-6,ZH);
1505
1506   /* trough inner */
1507   /* the trough in the three-part hist slider is slightly smaller than
1508      the full slider range, and cut into three sections */
1509   if(!trough){
1510     trough = new VFrame(ntw,nth,BC_RGBA8888);
1511   }
1512
1513   if(!trough){
1514     fprintf(stderr,_("Bluebanana: Unable to create Frame for slider\n"));
1515   }else{
1516     unsigned char *data = trough->get_data();
1517     float ha = 1.;
1518     long bpp = trough->get_bytes_per_pixel();
1519     long bpr = trough->get_bytes_per_line();
1520     float r,g,b,a,rr,gg,bb;
1521
1522     if(!highlight){
1523       ha*=.25;
1524       tb_r = bg_r;
1525       tb_g = bg_g;
1526       tb_b = bg_b;
1527     }
1528
1529     if(!histval){
1530
1531       unsigned char *row = data;
1532       for(j=0;j<nth;j++){
1533         unsigned char *rp = row;
1534         for(i=0;i<ntw;i++){
1535           rp[0] = tb_r;
1536           rp[1] = tb_g;
1537           rp[2] = tb_b;
1538           rp[3] = 0xff;
1539           rp += bpp;
1540         }
1541         row += bpr;
1542       }
1543
1544     }else{
1545
1546       trough_color(1.,rr,gg,bb);
1547       rr*=255;
1548       gg*=255;
1549       bb*=255;
1550       rr = CLAMP((rr+b_r*3)/4,0,255);
1551       gg = CLAMP((gg+b_g*3)/4,0,255);
1552       bb = CLAMP((bb+b_b*3)/4,0,255);
1553
1554       for(i=0;i<ntw;i++){
1555         unsigned char *row = data;
1556         float y = nth-histval[i];
1557         float y0 = i>0?nth-histval[i-1]:y;
1558         float y1 = i+1<ntw?nth-histval[i+1]:y;
1559         float yp = MIN(y,MIN(y0+1,y1+1));
1560         float y3 = (y0+y+y1)*.333f;
1561
1562         if(histred){
1563           r=histred[i];
1564           g=histgreen[i];
1565           b=histblue[i];
1566         }else{
1567           float val = (i < t_w01-1 ?
1568                        ((MIN_HISTBRACKET/100.f) - i/(t_w01-1.f)*(MIN_HISTBRACKET/100.f)) :
1569                        (i<t_w01+t_w12-4 ?
1570                         ((i - t_w01 + 1) / (t_w12-4.f)) :
1571                         ((i - t_w01 - t_w12 + 5) / (t_w23-1.f)*((MAX_HISTBRACKET/100.f)-1.f)+1.f)));
1572
1573           trough_color(val,r,g,b);
1574           r=CLAMP(r,0,255);
1575           g=CLAMP(g,0,255);
1576           b=CLAMP(b,0,255);
1577
1578         }
1579
1580         for(j=0;j<yp-1 && j<nth;j++){
1581           row[0] = tb_r;
1582           row[1] = tb_g;
1583           row[2] = tb_b;
1584           row[3] = 0xff;
1585           row+=bpr;
1586         }
1587
1588         a=.75*ha;
1589         for(;j<y && j<nth;j++){
1590           row[0] = rint(rr*a + tb_r*(1-a));
1591           row[1] = rint(gg*a + tb_g*(1-a));
1592           row[2] = rint(bb*a + tb_b*(1-a));
1593           row[3] = 0xff;
1594           row+=bpr;
1595         }
1596
1597         a=ha;
1598         for(;j<nth;j++){
1599           float a = CLAMP(1. - .3*(float)(j-y3)/(nth-y3+1),0.f,1.f)*ha;
1600           row[0] = rint(r*a*255.f + tb_r*(1-a));
1601           row[1] = rint(g*a*255.f + tb_g*(1-a));
1602           row[2] = rint(b*a*255.f + tb_b*(1-a));
1603           row[3] = 0xff;
1604           row+=bpr;
1605         }
1606
1607         data+=bpp;
1608       }
1609     }
1610
1611     draw_vframe(trough, ntx,    nty,       t_w01-2, 1,     0,             0,     t_w01-2, 1);
1612     draw_vframe(trough, ntx,    nty+1,     t_w01-1, nth-2, 0,             1,     t_w01-1, nth-2);
1613     draw_vframe(trough, ntx,    nty+nth-1, t_w01-2, 1,     0,             nth-1, t_w01-2, 1);
1614
1615     draw_vframe(trough, t_x1+3, nty,       t_w12-5, 1,     t_w01,         0,     t_w12-5, 1);
1616     draw_vframe(trough, t_x1+2, nty+1,     t_w12-3, nth-2, t_w01-1,       1,     t_w12-3, nth-2);
1617     draw_vframe(trough, t_x1+3, nty+nth-1, t_w12-5, 1,     t_w01,         nth-1, t_w12-5, 1);
1618
1619     draw_vframe(trough, t_x2+3, nty,       t_w23-2, 1,     t_w01+t_w12-3, 0,     t_w23-2, 1);
1620     draw_vframe(trough, t_x2+2, nty+1,     t_w23-1, nth-2, t_w01+t_w12-4, 1,     t_w23-1, nth-2);
1621     draw_vframe(trough, t_x2+3, nty+nth-1, t_w23-2, 1,     t_w01+t_w12-3, nth-1, t_w23-2, 1);
1622   }
1623
1624   draw_topslider(rint(gamma_to_pixel(gamma)),light==3);
1625
1626   draw_bottomslider(rint(value_to_pixel(loval)),light==0);
1627   draw_bottomslider(rint(value_to_pixel(hival)),light==2);
1628   draw_midslider(rint(value_to_pixel((loval+hival)/2.)),light==1);
1629
1630   flash();
1631   flush();
1632 }
1633
1634 void BluebananaSliderChannel::update_histogram(float *raw, float *red, float *green, float *blue, int n){
1635   int i;
1636   //int h = troughlines;
1637   int w = troughcols-6;
1638   float il2n = 1./log2(n);
1639   int w0 = t_w01-1;
1640   int w1 = t_w12-4;
1641   int w2 = t_w23-1;
1642
1643   if(!histval)
1644     histval = new float[w];
1645
1646   if(!histred && red){
1647     histred = new float[w];
1648     histgreen = new float[w];
1649     histblue = new float[w];
1650   }
1651
1652   /* resample left */
1653   int span0 = rint((0.f-MIN_HISTBRACKET) / (MAX_HISTBRACKET-MIN_HISTBRACKET) * HISTSIZE);
1654   resample_histogram(raw, red, green, blue, histval, histred, histgreen, histblue,
1655                      span0, 0, w0, 0, w0);
1656
1657   /* resample center */
1658   int span1 = rint(100.f/(MAX_HISTBRACKET-MIN_HISTBRACKET) * HISTSIZE);
1659   resample_histogram(raw, red, green, blue, histval+w0, histred+w0, histgreen+w0, histblue+w0,
1660                      span1, span0, w1, 0, w1+1);
1661
1662   /* resample right */
1663   int span2 = rint((MAX_HISTBRACKET-100.f) / (MAX_HISTBRACKET-MIN_HISTBRACKET) * HISTSIZE);
1664   resample_histogram(raw, red, green, blue, histval+w0+w1, histred+w0+w1, histgreen+w0+w1, histblue+w0+w1,
1665                      span2, span0+span1, w2, 1, w2+1);
1666
1667   /* select value normalization */
1668   for(i=0;i<w;i++){
1669     if(histval[i]<=.0001f){
1670       histval[i]=-2;
1671     }else{
1672       float val = log2(histval[i])*il2n;
1673       val = pow(val<0?0:val,.75)*troughlines;
1674       if(val<0)val=0;
1675       if(val>troughlines)val=troughlines;
1676       histval[i]=val;
1677     }
1678   }
1679   render();
1680 }
1681
1682 // ---------------------------- Fill ----------------------------------
1683
1684 int BluebananaSliderFill::over_to_pixel(float input){
1685   return fraction_to_pixel(input/maxover);
1686 }
1687
1688 float BluebananaSliderFill::pixel_to_over(int pixel){
1689   return pixel_to_fraction(pixel)*maxover;
1690 }
1691
1692 BluebananaSliderFill::BluebananaSliderFill(BluebananaMain *plugin,
1693                                            BluebananaWindow *gui,
1694                                            int x,
1695                                            int y,
1696                                            int w,
1697                                            int h,
1698                                            float minval,
1699                                            float maxval,
1700                                            float maxover)
1701   : BluebananaSlider(plugin,gui,x,y,w,h,minval,maxval){
1702   loval = -2;
1703   midval = 0;
1704   hival = 2;
1705   overval = 0;
1706   this->maxover = maxover;
1707 }
1708
1709 int BluebananaSliderFill::button_press_event(){
1710   if(is_event_win() && cursor_inside()){
1711     //int min;
1712     //int max;
1713     int cx = get_cursor_x();
1714
1715     gui->deactivate();
1716
1717     if(shift_down()){
1718         /* narrow/widen range */
1719       if(get_buttonpress() == 4){
1720         set_delta(1);
1721         return 1;
1722       }else if(get_buttonpress() == 5){
1723         set_delta(-1);
1724         return 1;
1725       }
1726     }else if (ctrl_down()){
1727       /* shift all vals up/down */
1728       if(get_buttonpress() == 4){
1729         if(loval-increment>minval)
1730           set_fill(loval-1,midval-1,hival-1);
1731         return 1;
1732       }else if(get_buttonpress() == 5){
1733         if(hival+increment<maxval)
1734           set_fill(loval+1,midval+1,hival+1);
1735         return 1;
1736       }
1737     }else{
1738       /* increase/decrease feather */
1739       if(get_buttonpress() == 4){
1740         set_over(overval-1);
1741         return 1;
1742       }else if(get_buttonpress() == 5){
1743         set_over(overval+1);
1744         return 1;
1745       }
1746     }
1747
1748     switch(light){
1749     case 0:
1750       xoff = cx-value_to_pixel(loval);
1751       break;
1752     case 1:
1753       xoff = cx-value_to_pixel(midval);
1754       break;
1755     case 2:
1756       xoff = cx-value_to_pixel(hival);
1757       break;
1758     case 3:
1759       xoff = cx-over_to_pixel(overval);
1760       break;
1761     default:
1762       return 1;
1763     }
1764
1765     drag = 1;
1766     update();
1767     return 1;
1768   }
1769   return 0;
1770 }
1771
1772 int BluebananaSliderFill::cursor_motion_event(){
1773   int cx = get_cursor_x();
1774   int cy = get_cursor_y();
1775
1776   if(drag){
1777     switch(light){
1778     case 0:
1779       set_fill(pixel_to_value(cx - xoff),midval,hival);
1780       break;
1781     case 1:
1782       set_fill(loval,pixel_to_value(cx - xoff),hival);
1783       break;
1784     case 2:
1785       set_fill(loval,midval,pixel_to_value(cx - xoff));
1786       break;
1787     case 3:
1788       set_over(pixel_to_over(cx - xoff));
1789       break;
1790     default:
1791       drag = 0;
1792       light = -1;
1793       update();
1794       break;
1795     }
1796     return 1;
1797   }else{
1798     if(is_event_win() && cursor_inside()){
1799       if(in_overslider(over_to_pixel(overval),cx,cy)){
1800         if(light!=3){
1801           light = 3;
1802           update();
1803         }
1804       }else if(in_bottomslider(value_to_pixel(midval),cx,cy)){
1805         if(light!=1){
1806           light = 1;
1807           update();
1808         }
1809       }else if(in_leftslider(value_to_pixel(loval),cx,cy)){
1810         if(light!=0){
1811           light = 0;
1812           update();
1813         }
1814       }else if(in_rightslider(value_to_pixel(hival),cx,cy)){
1815         if(light!=2){
1816           light = 2;
1817           update();
1818         }
1819       }else if(in_midslider2(value_to_pixel(midval),cx)){
1820         if(light!=1){
1821           light = 1;
1822           update();
1823         }
1824       }else if(in_rightslider2(value_to_pixel(hival),cx)){
1825         if(light!=2){
1826           light = 2;
1827           update();
1828         }
1829       }else if(in_leftslider2(value_to_pixel(loval),cx)){
1830         if(light!=0){
1831           light = 0;
1832           update();
1833         }
1834       }else if(in_overslider2(over_to_pixel(overval),cx,cy)){
1835         if(light!=3){
1836           light = 3;
1837           update();
1838         }
1839       }else{
1840         if(light!=-1){
1841           light = -1;
1842           update();
1843         }
1844       }
1845       return 1;
1846     }else{
1847       if(light!=-1){
1848         light = -1;
1849         update();
1850       }
1851     }
1852   }
1853   return 0;
1854 }
1855
1856 void BluebananaSliderFill::set_fill(float lo, float mid, float hi){
1857   if(lo<minval)lo=minval;
1858   if(mid<minval)mid=minval;
1859   if(hi<0)hi=0;
1860   if(lo>0)lo=0;
1861   if(mid>maxval)mid=maxval;
1862   if(hi>maxval)hi=maxval;
1863
1864   if(lo>midval)mid=lo;
1865   if(mid<loval)lo=mid;
1866   if(mid>hival)hi=mid;
1867   if(hi<midval)mid=hi;
1868
1869   loval=lo;
1870   midval=mid;
1871   hival=hi;
1872
1873   handle_event();
1874   update();
1875 }
1876
1877 void BluebananaSliderFill::set_delta(float del){
1878   if(loval+del>=minval && hival+del<=maxval){
1879     loval-=del;
1880     hival+=del;
1881     if(loval>hival)
1882       loval=hival=rint((loval+hival)/2);
1883     if(midval<loval)midval=loval;
1884     if(midval>hival)midval=hival;
1885     handle_event();
1886     update();
1887   }
1888 }
1889
1890 void BluebananaSliderFill::set_over(float over){
1891   if(over>=0 && over<=maxover){
1892     overval=over;
1893     handle_event();
1894     update();
1895   }
1896 }
1897
1898 void BluebananaSliderFill::update(){
1899   int w = get_w();
1900   int h = get_h();
1901   int bg_c = get_resources()->get_bg_color();
1902   int bg_r = ((bg_c >> 16) & 0xff);
1903   int bg_g = ((bg_c >> 8) & 0xff);
1904   int bg_b = (bg_c & 0xff);
1905   int b_c = highlight ? active_bordercolor : inactive_bordercolor;
1906   //int b_r = ((b_c >> 16) & 0xff);
1907   //int b_g = ((b_c >> 8) & 0xff);
1908   //int b_b = (b_c & 0xff);
1909   int tb_c = troughcolor;
1910   int tb_r = ((tb_c >> 16) & 0xff);
1911   int tb_g = ((tb_c >> 8) & 0xff);
1912   int tb_b = (tb_c & 0xff);
1913
1914   int ZH = Z4-Z1+1;
1915   //int ZHC = Z4-ZC+1;
1916
1917   int i,j;
1918
1919   int xC = value_to_pixel(0);
1920   int ntw = troughcols;
1921   int nth = troughlines;
1922   int ntx = CW+ZL;
1923   int nty = Z1+1;
1924
1925   clear_box(0, 0, w, h);
1926
1927   /* trough shadow */
1928
1929   /* w+4 h+4 x-1 y-1 */
1930   float del = .9;
1931   int shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1932   set_color(shadow_c);
1933   draw_box (0,Z1,xC+3,ZH+2);
1934   draw_box (1,Z1-1,xC+1,ZH+4);
1935   draw_box (xC,Z1,w-xC,ZH+2);
1936   draw_box (xC+1,Z1-1,w-xC-2,ZH+4);
1937
1938   /* w+2 h+2 x y */
1939   del = .8;
1940   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1941   set_color(shadow_c);
1942   draw_box (1,Z1+1,xC+1,ZH);
1943   draw_box (2,Z1,xC-1,ZH+2);
1944   draw_box (xC+1,Z1+1,w-xC-2,ZH);
1945   draw_box (xC+2,Z1,w-xC-4,ZH+2);
1946
1947   /* w h x+1 y+1 */
1948   del = .7;
1949   shadow_c = ((int)(bg_r*del) << 16) | ((int)(bg_g*del) << 8) | ((int)(bg_b*del));
1950   set_color(shadow_c);
1951   draw_box (2,Z1+2,xC-1,ZH-2);
1952   draw_box (3,Z1+1,xC-3,ZH);
1953   draw_box (xC+2,Z1+2,w-xC-4,ZH-2);
1954   draw_box (xC+3,Z1+1,w-xC-6,ZH);
1955
1956   /* trough border */
1957   set_color(b_c);
1958   draw_box (1,Z1+1,xC-1,ZH-2);
1959   draw_box (2,Z1,xC-3,ZH);
1960   draw_box (xC+1,Z1+1,w-xC-4,ZH-2);
1961   draw_box (xC+2,Z1,w-xC-6,ZH);
1962
1963   /* trough inner */
1964   /* the trough in the two-part contour slider is slightly smaller than
1965      the full slider range, and cut into two sections */
1966   if(!trough){
1967     trough = new VFrame(ntw,nth,BC_RGBA8888);
1968   }
1969
1970   /* Unlike the hist slider, we just drop the three pixel columns in the center */
1971   if(!trough){
1972     fprintf(stderr,_("Bluebanana: Unable to create Frame for slider\n"));
1973   }else{
1974     unsigned char *data = trough->get_data();
1975     long bpr = trough->get_bytes_per_line();
1976     float ha = 1.;
1977     if(!highlight){
1978       ha*=.25;
1979       tb_r = bg_r;
1980       tb_g = bg_g;
1981       tb_b = bg_b;
1982     }
1983
1984     for(i=0;i<ntw;i++){
1985       unsigned char *row = data + i*trough->get_bytes_per_pixel();
1986       for(j=0;j<nth;j++){
1987         float r,g,b,a;
1988         trough_color((i+.5f)/ntw,(j+.5)/nth,r,g,b,a);
1989         r=CLAMP(r,0,255);
1990         g=CLAMP(g,0,255);
1991         b=CLAMP(b,0,255);
1992         a*=ha;
1993         row[0] = rint(r*a*255 + tb_r*(1-a));
1994         row[1] = rint(g*a*255 + tb_g*(1-a));
1995         row[2] = rint(b*a*255 + tb_b*(1-a));
1996         row[3] = 0xff;
1997         row+=bpr;
1998       }
1999     }
2000
2001     draw_vframe(trough, ntx,  nty,       xC-ntx-2, 1,     0,        0,     xC-ntx-2, 1);
2002     draw_vframe(trough, ntx,  nty+1,     xC-ntx-1, nth-2, 0,        1,     xC-ntx-1, nth-2);
2003     draw_vframe(trough, ntx,  nty+nth-1, xC-ntx-2, 1,     0,        nth-1, xC-ntx-2, 1);
2004
2005     draw_vframe(trough, xC+3, nty,       ntw-xC+ntx-3, 1,     xC-ntx+2, 0,     ntw-xC+ntx-3, 1);
2006     draw_vframe(trough, xC+2, nty+1,     ntw-xC+ntx-2, nth-2, xC-ntx+1, 1,     ntx-xC+ntx-2, nth-2);
2007     draw_vframe(trough, xC+3, nty+nth-1, ntw-xC+ntx-3, 1,     xC-ntx+2, nth-1, ntw-xC+ntx-3, 1);
2008   }
2009
2010   draw_overslider(over_to_pixel(overval),light==3);
2011   draw_leftslider(value_to_pixel(loval),light==0);
2012   draw_rightslider(value_to_pixel(hival),light==2);
2013   draw_bottomslider(value_to_pixel(midval),light==1);
2014   flash();
2015   flush();
2016 }