No Corresponding END_WHILE found V 0.9.23i5

dim xa%,ya%,xb%,yb%,xc%,yc%,xd%,yd%,xe%,ye%,xf%,yf%,xp%,yp%,xv%,yv%
dim lg%,ha%,dh%,a,k,pi,mx,my,x1%,y1%,x2%,y2%,ka%,j,clic
label pos_souris,trace,calcul_points,fin,cliquer

full_space 0:picture 1:full_space 1::on_click 1,cliquer

color 1,100,0,0

image 100
pi=4*atn(1):ha%=300:dh%=ha%/2:2d_target_is 1

main_menu 10
sub_menu 11:parent 11,10:caption 11,"Trace rectangle":on_click 11,trace
on_close 0,fin

end

' Routine de détection du double clic
cliquer:
wait 120:' <=== Valeur à ajuster (j'obtiens de bon résultats entre 100 et 200)
if scancode=1 then clic=clic+1
if scancode=1 then clic=clic+1
' if clic=1 then print "simple clic!"
' if clic=2 then print "double clic!"
clic=0
return

pos_souris:
2d_fill_color 255,255,100
print_locate xp%-20,yp%-30:print "x=";str$(xp%);" y=";str$(yp%)
wait 200
return

trace:
2d_image_copy 100,0,0,width(1),height(1)
cursor_cross 1
print_target_is 1
repeat
  xd%=mouse_x_position(1):yd%=mouse_y_position(1)
  if xd%<>xp% or yd%<>yp%
      2d_image_paste 100,0,0
      xp%=xd%:yp%=yd%:gosub pos_souris
  end_if
until (mouse_left_down(1)=1 and mouse_left_up(1)=0)
2d_image_paste 100,0,0:2d_image_copy 100,0,0,width(1),height(1)
2d_pen_color 0,0,0:2d_pen_width 2
while mouse_left_up(1)=0
  xf%=mouse_x_position(1):yf%=mouse_y_position(1)
  lg%=sqr(power(xf%-xd%,2)+power(yd%-yf%,2))
  if xf%<>xv% or yf%<>yv%
      2d_image_paste 100,0,0:gosub calcul_points
      2d_line xa%,ya%,xe%,ye%:2d_poly_to xc%,yc%:2d_poly_to xb%,yb%:2d_poly_to xa%,ya%
      xv%=xf%:yv%=yf%:xp%=xf%:yp%=yf%
      print_locate xp%-20,yp%-60:print "Angle: ";str$(wrap_value(a));"°";" Épaisseur= ";str$(ha%)
      print_locate xp%-20,yp%-45:print "Longueur= ";str$(lg%)
      gosub pos_souris:wait 100
  end_if
end_while
2d_image_paste 100,0,0
if lg%<>0
' Nettoyage
2d_pen_color 255,255,255:2d_pen_width 2
  for j=-1*dh% to dh%
      x1%=xd%-j*sin(k):y1%=yd%-j*cos(k)
      x2%=x1%+lg%*cos(k):y2%=y1%-lg%*sin(k)
      2d_line x1%,y1%,x2%,y2%
  next j
' Trace rectangle final
2d_pen_color 0,0,0
2d_line xa%,ya%,xe%,ye%:2d_poly_to xc%,yc%:2d_poly_to xb%,yb%:2d_poly_to xa%,ya%
mx=(xd%+xf%)/2:my=(yd%+yf%)/2:2d_fill_cross:2d_flood mx,my,0,0,255
end_if
cursor_arrow 1
return

calcul_points:
      if xf%>xd%
        k=atn((yd%-yf%)/(xf%-xd%)):a=k*180/pi:a=int(a*100)/100
      end_if
      if xf%<xd%
        k=atn((yd%-yf%)/(xf%-xd%)):a=k*180/pi:a=int(a*100)/100:a=180+a:k=k+3.14
      end_if
      if xd%=xf%
        if yf%<yd% then a=90:k=1.57
        if yf%>yd% then a=270:k=4.71
      end_if
      xa%=xd%-dh%*sin(k):ya%=yd%-dh%*cos(k): ' point A
      xe%=xd%+dh%*sin(k):ye%=yd%+dh%*cos(k): ' point E
      xc%=xe%+lg%*cos(k):yc%=ye%-lg%*sin(k): ' point C
      xb%=xa%+lg%*cos(k):yb%=ya%-lg%*sin(k): ' point B
return

fin:
terminate