53 lines
1.2 KiB
C
53 lines
1.2 KiB
C
/* --------------------------------------------------------------- */
|
|
/* gnuplot : xdef.h */
|
|
/* https://fr.wikibooks.org/wiki/Mathc_gnuplot/Fichiers_h_:_xdef */
|
|
/* --------------------------------------------------------------- */
|
|
|
|
#ifndef PI
|
|
#define PI 3.14159265359
|
|
#endif
|
|
|
|
/* ------------------------------------ */
|
|
void clrscrn(void)
|
|
{
|
|
printf("\n\n\n\n\n\n\n\n\n\n\n"
|
|
"\n\n\n\n\n\n\n\n\n\n\n"
|
|
"\n\n\n\n\n\n\n\n\n\n\n");
|
|
}
|
|
/* ------------------------------------ */
|
|
void Pause(void)
|
|
{
|
|
int i=300;
|
|
int j;
|
|
|
|
while(--i){j=600000;while(--j);}
|
|
}
|
|
/* ------------------------------------ */
|
|
/* First file name : */
|
|
/* */
|
|
/* char fname[]= "a_paaa"; */
|
|
/* ------------------------------------ */
|
|
char *NewName(
|
|
char *name
|
|
)
|
|
{
|
|
if(name[5]<'z')
|
|
|
|
++name[5];
|
|
|
|
else if(name[4]<'z')
|
|
{
|
|
name[5]='a';
|
|
++name[4];
|
|
}
|
|
else if(name[3]<'z')
|
|
{
|
|
name[5]='a';
|
|
name[4]='a';
|
|
++name[3];
|
|
}
|
|
|
|
return(name);
|
|
}
|
|
|