void FormantGrid_init (FormantGrid me, double tmin, double tmax, long numberOfFormants) {
my formants = Ordered_create ();
my bandwidths = Ordered_create ();
for (long iformant = 1; iformant <= numberOfFormants; iformant ++) {
RealTier formant = RealTier_create (tmin, tmax);
Collection_addItem (my formants, formant);
RealTier bandwidth = RealTier_create (tmin, tmax);
Collection_addItem (my bandwidths, bandwidth);
}
my xmin = tmin;
my xmax = tmax;
}
int FormantGrid_init (I, double tmin, double tmax, long numberOfFormants) {
iam (FormantGrid);
my formants = Ordered_create (); cherror
my bandwidths = Ordered_create (); cherror
for (long iformant = 1; iformant <= numberOfFormants; iformant ++) {
RealTier formant = RealTier_create (tmin, tmax); cherror
Collection_addItem (my formants, formant); cherror
RealTier bandwidth = RealTier_create (tmin, tmax); cherror
Collection_addItem (my bandwidths, bandwidth); cherror
}
my xmin = tmin;
my xmax = tmax;
end:
iferror return 0;
return 1;
}
void Index_init (Index me, long numberOfElements) {
if (numberOfElements < 1) {
Melder_throw (U"Cannot create index without elements.");
}
my classes = Ordered_create ();
my numberOfElements = numberOfElements;
my classIndex = NUMvector<long> (1, numberOfElements);
}
autoPairDistribution PairDistribution_create () {
try {
autoPairDistribution me = Thing_new (PairDistribution);
my pairs = Ordered_create ();
return me;
} catch (MelderError) {
Melder_throw (U"PairDistribution not created.");
}
}
class_methods_end
int Index_init (I, long numberOfElements)
{
iam (Index);
my classes = Ordered_create ();
if (my classes == NULL) return 0;
my numberOfElements = numberOfElements;
my classIndex = NUMlvector (1, numberOfElements);
if (my classIndex == NULL) return 0;
return 1;
}
void structGuiOptionMenu :: f_init (GuiForm parent, int left, int right, int top, int bottom, unsigned long flags)
{
d_shell = parent -> d_shell;
d_parent = parent;
d_options = Ordered_create ();
#if gtk
d_widget = gtk_combo_box_new_text ();
gtk_widget_set_size_request (GTK_WIDGET (d_widget), right - left, bottom - top + 8);
gtk_fixed_put (GTK_FIXED (parent -> d_widget), GTK_WIDGET (d_widget), left, top - 6);
gtk_combo_box_set_focus_on_click (GTK_COMBO_BOX (d_widget), false);
GTK_WIDGET_UNSET_FLAGS (d_widget, GTK_CAN_DEFAULT);
#elif cocoa
d_widget = (GuiObject) [GuiCocoaOptionMenu alloc];
v_positionInForm (d_widget, left, right, top, bottom, parent);
[(GuiCocoaOptionMenu *) d_widget setUserData: this];
[(NSTextField *) d_widget setBezelStyle: NSRoundedBezelStyle];
[(NSTextField *) d_widget setBordered: NO];
[(NSTextField *) d_widget setSelectable: NO];
#elif motif
d_xmMenuBar = XmCreateMenuBar (parent -> d_widget, "UiOptionMenu", NULL, 0);
XtVaSetValues (d_xmMenuBar, XmNx, left - 4, XmNy, top - 4
#if mac
- 1
#endif
, XmNwidth, right - left + 8, XmNheight, bottom - top + 8, NULL);
d_xmCascadeButton = XmCreateCascadeButton (d_xmMenuBar, "choice", NULL, 0);
d_widget = XmCreatePulldownMenu (d_xmMenuBar, "choice", NULL, 0);
if (flags & GuiMenu_INSENSITIVE)
XtSetSensitive (d_widget, False);
XtVaSetValues (d_xmCascadeButton, XmNsubMenuId, d_widget, NULL);
XtManageChild (d_xmCascadeButton);
XtVaSetValues (d_xmMenuBar, XmNwidth, right - left + 8, NULL); // BUG: twice?
XtVaSetValues (d_xmCascadeButton, XmNx, 4, XmNy, 4, XmNwidth, right - left, XmNheight, bottom - top, NULL);
#endif
#if gtk
g_signal_connect (G_OBJECT (d_widget), "destroy", G_CALLBACK (_guiGtkOptionMenu_destroyCallback), this);
#elif cocoa
#elif motif
XtAddCallback (d_widget, XmNdestroyCallback, _guiMotifOptionMenu_destroyCallback, this);
#endif
}
void Regression_init (Regression me) {
my parameters = Ordered_create ();
}
void Regression_init (I) {
iam (Regression);
my parameters = Ordered_create ();
}
Melder_informationReal (entropy, L"bits");
END
DIRECT (Categories_sort)
WHERE (SELECTED) {
iam_LOOP (Categories);
Categories_sort (me);
praat_dataChanged (me);
}
END
/***** EXPERIMENT_MFC *****/
DIRECT (ExperimentMFC_run)
if (theCurrentPraatApplication -> batch) Melder_throw ("Cannot run experiments from the command line.");
autoOrdered experiments = Ordered_create ();
Collection_dontOwnItems (experiments.peek());
WHERE (SELECTED) {
iam_LOOP (ExperimentMFC);
Melder_assert (my classInfo == classExperimentMFC);
Collection_addItem (experiments.peek(), me); // reference copy of me
}
Melder_assert (experiments-> size >= 1);
Melder_assert (((Data) experiments -> item [1]) -> classInfo == classExperimentMFC);
Melder_assert (((Data) experiments -> item [experiments -> size]) -> classInfo == classExperimentMFC);
autoOrdered experimentsCopy = experiments.clone(); // we need a copy, because we do a transfer, then a peek
Melder_assert (experimentsCopy -> size == experiments -> size);
Melder_assert (experimentsCopy -> item [1] == experiments -> item [1]);
Melder_assert (experimentsCopy -> item [experimentsCopy -> size] == experiments -> item [experiments -> size]);
autoRunnerMFC runner = RunnerMFC_create (L"listening experiments", experimentsCopy.transfer());
praat_installEditorN (runner.transfer(), experiments.peek());
