NoMainWin
  Dim p(3,1)
 WindowWidth = 600  '§§§§§§§§§
 WindowHeight = 500  '§§§§§§§§§§
 
  BUTTON #gr.go, "go", [go], UL, WindowWidth-70, 50, 35, 20
  BUTTON #gr.ne, "new", [new], UL, WindowWidth-70, 100, 35, 20
  open "test" for graphics_nsb_nf as #gr
  #gr "trapclose [quit]"
  #gr "down"
 
 [new]
   #gr "cls"
   [deb]
   go=0
 
  hor=280'180
  vert=300'200
    #gr "line 150 280 300 280"  ' horiz
    #gr "line 300 150 300 350"  ' vertic
    #gr "line 150 350 400 350"  '§§§§§§§§ sol
 
  d1=50 'from roller
  h=100 'starting point for the weight
  arm=150 'arm length longueur bras
  corde=114 'longueur corde '§§§§§
  rad=114: pi=3.1416: size=1: pi2=6.28: jj=0.225:j=4.8
 
  'drop  it
  v=0
  a=1
  r=5
  dt=.1
 
  [start]
  while 1
    'frame
    #gr "color red"  '§§§§++++++  ' initial red
    #gr "line 232 314 340 350"
    #gr "color blue"  '§§§§§§§! initial Boulet
    #gr "backcolor blue"
    #gr "place 340 350"
    #gr "circlefilled 4"
    #gr "color black"  '§§§§-------
    #gr "line 300 150 300 350" 'vertic line
    #gr "line 150 280 350 280" 'horiz line
    'draw
    y=hor-h 'y is reverced
    #gr "color green"  '////////////////
    #gr "place ";vert;" ";y
    #gr "circle ";r
    'draw arm
    if h>0 then
        a1=sqr(h^2+d1^2)  ' hypothenuse
        xa=d1*arm/a1
        ya=h*arm/a1
        'print a1, xa, ya
    else 'roller on the arm start working
        'roller coords
        yr=0
        if h<0-d1 then
            xr=0
        else
            xr=sqr(d1^2-h^2)
        end if
        'arm coords
        xa=xr*arm/d1
        ya=h*arm/d1
    end if
    #gr "goto ";vert-xa;" ";hor+ya-h
    xx=int(vert-xa): yy=int(hor+ya-h)  '§§§§§§§§§§
 
   if go=0 then  wait  '§§§§§§§§§§§ for step
  [step]  '§§§§§§§§§§§§§§§
        'call coco xx, yy  'report coord bout de mat
    #gr "color white"  '§§§§++++++ 1er efface initial red
    #gr "line 232 314 340 350"
        #gr "color white"  '§§§§§§§! efface initial Boulet
    #gr "backcolor white"
    #gr "place 340 350"
    #gr "circlefilled 4"
    #gr "color black"  '§§§§-------
    if yy > 236 then  '§§§§§§§§§§§§§§§ traine
       #gr "color red"  '§§§§§§
       #gr "line ";xx;" ";yy;" ";340-(232-xx+(315-yy));" 350"  'foin des sinus
       #gr "color blue"  '§§§§§§§§§§§ Boulet Traine
       #gr "backcolor blue"
       #gr "place ";340-(232-xx+(315-yy));" 350"
       #gr "circlefilled 4"
       #gr "color black"  '§§§§§§
    end if  '§§§§§  fin de traine
    if yy <= 236 then 'timer 0: wait  '§§§§ debut pseudo centrifuge
       nx = Cos(j)*rad + xx
       ny = Sin(j)*rad + yy
      #gr "color red"  '§§§§§§
      #gr "place ";xx;" ";yy
      #gr "goto ";nx;" ";ny
      #gr "color blue"  '§§§§§§§ Boulet Centrifuge
      #gr "backcolor blue"
      #gr "place ";nx;" ";ny
      #gr "circlefilled 4"
       #gr "color black"  '§§§§§§
    end if  '
    call pause 500*dt
    'check quit
    if h < 0-d1 then exit while
    'clear
    #gr "color white"
    #gr "place ";vert;" ";y
    #gr "circle ";r
    #gr "goto ";vert-xa;" ";hor+ya-h
    if yy > 236 then   '§§§§§§§§§§§§§§§ efface traine
       #gr "color white"  '§§§§§§
       #gr "line ";xx;" ";yy;" ";340-(232-xx+(315-yy));" 350"  '§§§§§§
       #gr "color white"  '§§§§§§§§§§§§ efface boulet traine
       #gr "backcolor white"
       #gr "place ";340-(232-xx+(315-yy));" 350"
       #gr "circlefilled 4"
       #gr "color black"  '§§§§§§
       #gr "line 150 350 400 350"  '§§§§§§§§ retace sol
    end if  '§§§§§ fin efface traine
    if yy <= 236 then '§§§§ efface centrifuge
       nx = Cos(j)*rad + xx
       ny = Sin(j)*rad + yy
       #gr "color white"  '§§§§§§
       #gr "place ";xx;" ";yy
       #gr "goto ";nx;" ";ny
       #gr "color white"  '§§§§§§ efface Boulet Centrifuge
       #gr "backcolor white"
       #gr "place ";nx;" ";ny
       #gr "circlefilled 4"
       #gr "color black"  '§§§§§§
    end if
 
    v=v+a*dt
    h=h-v
     'coeff=coeff+coeff
     j=j+jj
  wend
  [lance]
    nx=nx+3: ny=ny-2
    if nx > 400 or ny < 1 then
       #gr,"Color pink; BackColor white"  '0 32 96
       Print text(400, 30," *")  'radius = "+Str$(hor)) 'Satellisation!!"
       call pause 300
       Print text(420, 20," *")
       call pause 300
       Print text(420, 40," *")
       call pause 400
       Print text(400, 50," Ouille!!")
       #gr "color black"
       timer 0: wait
    end if
    #gr "color blue"  '§§§§§§§! lance Boulet
    #gr "backcolor blue"
    #gr "place ";nx;" ";ny
    #gr "circlefilled 4"
    oldnx=nx: oldny=ny
    call pause 50  ' tempo lance boulet
    #gr "color white"  '§§§§§§ efface lance Boulet
    #gr "backcolor white"
    #gr "place ";oldnx;" ";oldny
    #gr "circlefilled 7"
    goto [lance]
 
  #gr "flush"
  timer 0 'just for the case
  wait
 
  [go]  '§§§§§§§§§+++++++++
  go=1
  goto [start]
  wait  '§§§§§§§§----------
 
  [sto]
  sto=1
  goto [start]
  wait
 
  sub pause mil
    timer int(mil), [up]
    wait
  [up]
    timer 0
  end sub
 
[quit]
    close #gr
    end
 
   Function text(x,y,msg$)
    #gr,"Place ";x;" ";y;";|";msg$
   End Function