+
+ if ( chart == GFT_HIST)
+ {
+ struct chart ch;
+ double d[frq_n_stats];
+ struct frequencies_proc *frq = &v->p.frq;
+
+ struct normal_curve norm;
+ norm.N = frq->tab.total_cases ;
+
+ calc_stats(v,d);
+ norm.mean = d[frq_mean];
+ norm.stddev = d[frq_stddev];
+
+ chart_initialise(&ch);
+ draw_histogram(&ch, v_variables[i], "HISTOGRAM",&norm,normal);
+ chart_finalise(&ch);
+ }
+
+
+ if ( chart == GFT_PIE)
+ {
+ struct chart ch;
+
+ chart_initialise(&ch);
+
+ draw_piechart(&ch, v_variables[i]);
+
+ chart_finalise(&ch);
+ }
+
+