- assert(m);
-
- /* Can't really draw a boxplot if there's no data */
- if ( n_data == 0 )
- return ;
-
- whisker[1] = hinge[2];
- whisker[0] = wvp[0]->v.f;
-
- for ( i = 0 ; i < n_data ; ++i )
- {
- if ( hinge[2] + step > wvp[i]->v.f)
- whisker[1] = wvp[i]->v.f;
-
- if ( hinge[0] - step > wvp[i]->v.f)
- whisker[0] = wvp[i]->v.f;
-
- }
-
- {
- const double bottom_whisker =
- ch->data_bottom + ( whisker[0] - ch->y_min ) * ch->ordinate_scale;
-
- const double top_whisker =
- ch->data_bottom + ( whisker[1] - ch->y_min ) * ch->ordinate_scale;
-
-
- pl_savestate_r(ch->lp);