'listing 1 'KRZYWE BLASKU 'RUCH OKRĘGU PRZESŁANIAJĄCEGO Screen 9 Color 1,45:Locate 12,70:Print "x":Locate 2,42:Print"y" Window(-320, 175)-(319, -174):Color 3,63 Line (-250,0)-(250,0),40: Line (0,170)-(0,-170),40 Const R1=100:Const R2=50 R=R1+R2 Dim As Double x,y,y1,y2,x0,y0,vx,vy,t FOr t=0 TO 240 Step 30 For x=-R TO R Step 0.001 x0=120:y0=0 vx=1:vy=0 x0=x0-vx*t:y0=y0-vy*t y1=Sqr(R1^2-x^2):y2=Sqr(R2^2-x^2) Pset (x,y1),2:Pset (x+x0,y0+y2),4 Pset (x,-y1),2:Pset (x+x0,y0-y2),4 Next x Next t Sleep End