MODULE Init;

​

IMPORT Log, Math, Draw, Forms, Plot;

​

VAR

 x, y, counter: INTEGER;

 bq, bv: REAL;

 visk: Forms.Slider;

 axes: Plot.Axes;

 t: ARRAY 100 OF REAL;

​

PROCEDURE Press;

BEGIN

 IF Draw.mouseY < 300 THEN

  x := Draw.mouseX;

  y := Draw.mouseY;

  bq := 300. - FLT(Draw.mouseY);

 END;

END Press;

​

PROCEDURE Update;

VAR i: INTEGER;

BEGIN

 Draw.SetBackground(Draw.white);

 Draw.FillRGB(255, 0, 0);

 bq := bq + bv * 0.05;

 bv := (bv - 9.8 * 0.05) * visk.value;

 FOR i := LEN(t) - 1 TO 1 BY -1 DO t[i] := t[i-1] END;

 t[0] := bv;

 IF bq < 10.0 THEN bv := - bv END;

 Draw.StrokeWidth(1);

 Draw.Ellipse(FLT(x), 300. - bq, 20., 20.);

 Draw.StrokeRGB(0,0,0);

 Draw.StrokeWidth(2);

 Draw.Linei(0, 300, Draw.width, 300);

 Plot.DrawAxes(axes);

 Plot.Y(axes, t, Draw.red, 2);

END Update;

​

PROCEDURE Setup;

VAR i: INTEGER;

BEGIN

 Draw.SetSize(400, 720);

 Draw.SetFrameRate(20);

 x := 100;

 y := 100;

 bq := 100.0;

 bv := 0.0;

 visk := Forms.NewSlider(10,  330,  350, 50, "коэффициент рассеяния энергии", 0.9, 1.0, 0.001, NIL);

 Forms.SetReal(visk, 0.999);

 axes := Plot.NewAxes(0, 400, 350, 300);

 axes.xtitle := "Вермя, с";

 axes.ytitle := "Скорость тела";

 axes.ymin := -100.0;

 axes.ymax := 100.0;

 axes.xmin := 0.0;

 axes.xmax := 5.0;

 axes.yTicks := 5;

 FOR i := 0 TO LEN(t) - 1 DO t[i] := 0.0 END;

 counter := 0;

END Setup;

​

BEGIN

 Draw.SetSetupProc(Setup);

 Draw.SetPressedProc(Press);

 Draw.SetDrawProc(Update);

 Draw.Start;

END Init.