#include "TrueBASIC.h"
void show_particle(double y, double t, double *xmid, double *r, int *nshow);

void show_particle(double y, double t, double *xmid, double *r, int *nshow)
{
    char Stmp1_[_LBUFF_];

    if(t == 0)
    {
        printf("number of time steps between output = ");
        fgets(Stmp1_, _LBUFF_, stdin);
        sscanf(Stmp1_, "%d", nshow);
        GWclear(-1);
        GWindow(0.0f, -1.0f, 11.0f, (float)(y + 1));
        GWline(0.0f, 0.0f, 11.0f, 0.0f);    // 地表面
        (*xmid) = 6;                        // 画面の中央
        (*r) = 0.1;
    }
    GWputmrk((float)(*xmid), (float)(y));   // 質点を表示する
}