void xvgr_new_dataset(FILE *out, int nr_first, int nsets,
const char **setname,
const output_env_t oenv)
{
int i;
char buf[STRLEN];
if (output_env_get_print_xvgr_codes(oenv))
{
fprintf(out, "@\n");
for (i = 0; (i < nsets); i++)
{
if (setname[i])
{
if (output_env_get_xvg_format(oenv) == exvgXMGR)
{
fprintf(out, "@ legend string %d \"%s\"\n",
i+nr_first, xvgrstr(setname[i], oenv, buf, STRLEN));
}
else
{
fprintf(out, "@ s%d legend \"%s\"\n",
i+nr_first, xvgrstr(setname[i], oenv, buf, STRLEN));
}
}
}
}
else
{
fprintf(out, "\n");
}
}
void xvgr_legend(FILE *out, int nsets, const char** setname,
const output_env_t oenv)
{
int i;
char buf[STRLEN];
if (output_env_get_print_xvgr_codes(oenv))
{
xvgr_view(out, 0.15, 0.15, 0.75, 0.85, oenv);
fprintf(out, "@ legend on\n");
fprintf(out, "@ legend box on\n");
fprintf(out, "@ legend loctype view\n");
fprintf(out, "@ legend %g, %g\n", 0.78, 0.8);
fprintf(out, "@ legend length %d\n", 2);
for (i = 0; (i < nsets); i++)
{
if (setname[i])
{
if (output_env_get_xvg_format(oenv) == exvgXMGR)
{
fprintf(out, "@ legend string %d \"%s\"\n",
i, xvgrstr(setname[i], oenv, buf, STRLEN));
}
else
{
fprintf(out, "@ s%d legend \"%s\"\n",
i, xvgrstr(setname[i], oenv, buf, STRLEN));
}
}
}
}
}
void xvgr_header(FILE *fp, const char *title, const char *xaxis,
const char *yaxis, int exvg_graph_type,
const gmx_output_env_t *oenv)
{
char pukestr[100], buf[STRLEN];
if (output_env_get_print_xvgr_codes(oenv))
{
gmx_format_current_time(buf, STRLEN);
fprintf(fp, "# This file was created %s", buf);
try
{
gmx::BinaryInformationSettings settings;
settings.generatedByHeader(true);
settings.linePrefix("# ");
gmx::printBinaryInformation(fp, output_env_get_program_context(oenv),
settings);
}
GMX_CATCH_ALL_AND_EXIT_WITH_FATAL_ERROR;
fprintf(fp, "# %s is part of G R O M A C S:\n#\n",
output_env_get_program_display_name(oenv));
bromacs(pukestr, 99);
fprintf(fp, "# %s\n#\n", pukestr);
fprintf(fp, "@ title \"%s\"\n", xvgrstr(title, oenv, buf, STRLEN));
fprintf(fp, "@ xaxis label \"%s\"\n",
xvgrstr(xaxis, oenv, buf, STRLEN));
fprintf(fp, "@ yaxis label \"%s\"\n",
xvgrstr(yaxis, oenv, buf, STRLEN));
switch (exvg_graph_type)
{
case exvggtXNY:
if (output_env_get_xvg_format(oenv) == exvgXMGR)
{
fprintf(fp, "@TYPE nxy\n");
}
else
{
fprintf(fp, "@TYPE xy\n");
}
break;
case exvggtXYDY:
fprintf(fp, "@TYPE xydy\n");
break;
case exvggtXYDYDY:
fprintf(fp, "@TYPE xydydy\n");
break;
}
}
}
void xvgr_subtitle(FILE *out, const char *subtitle, const output_env_t oenv)
{
char buf[STRLEN];
if (output_env_get_print_xvgr_codes(oenv))
{
fprintf(out, "@ subtitle \"%s\"\n", xvgrstr(subtitle, oenv, buf, STRLEN));
}
}
void xvgr_header(FILE *fp, const char *title, const char *xaxis,
const char *yaxis, int exvg_graph_type,
const output_env_t oenv)
{
char pukestr[100], buf[STRLEN];
time_t t;
if (output_env_get_print_xvgr_codes(oenv))
{
time(&t);
gmx_ctime_r(&t, buf, STRLEN);
fprintf(fp, "# This file was created %s", buf);
fprintf(fp, "# by the following command:\n# %s\n#\n", command_line());
fprintf(fp, "# %s is part of G R O M A C S:\n#\n", ShortProgram());
bromacs(pukestr, 99);
fprintf(fp, "# %s\n#\n", pukestr);
fprintf(fp, "@ title \"%s\"\n", xvgrstr(title, oenv, buf, STRLEN));
fprintf(fp, "@ xaxis label \"%s\"\n",
xvgrstr(xaxis, oenv, buf, STRLEN));
fprintf(fp, "@ yaxis label \"%s\"\n",
xvgrstr(yaxis, oenv, buf, STRLEN));
switch (exvg_graph_type)
{
case exvggtXNY:
if (output_env_get_xvg_format(oenv) == exvgXMGR)
{
fprintf(fp, "@TYPE nxy\n");
}
else
{
fprintf(fp, "@TYPE xy\n");
}
break;
case exvggtXYDY:
fprintf(fp, "@TYPE xydy\n");
break;
case exvggtXYDYDY:
fprintf(fp, "@TYPE xydydy\n");
break;
}
}
}
