KGF_dll - nouvelles versions

' test_IsPointInPolygon.bas

label click0, poly, cercle

dim i%,x%,y%,n%, res%, form%

data 7,100,30,180,150,120,300,30,60,90,400,250,80,100,30


full_space 0
on_click 0,click0

dlist 1

button 2 : caption 2,"Polygone" : on_click 2,poly
button 3 : caption 3,"Cercle" : on_click 3,cercle : top 3,25

dll_on "KGF.dll"
end

poly:
color 0,255,255,255
restore
read n%
clear 1
for i%=1 to n%
  read x%
  read y%
  item_add 1,str$(x%)+","+str$(y%)
  if i%=1
    2d_poly_from x%,y%
  else
    2d_poly_to x%,y%
  end_if
next i%
form% = 0
return

cercle:
color 0,254,255,255
2d_circle 300,300,50
form% = 1
return

click0:
  x% = mouse_x_left_down(0)
  y% = mouse_y_left_down(0)
  select form%
    case 0
      res% = dll_call3("IsPointInPolygon",x%,y%,object_internal(1))
    case 1
      res% = dll_call5("IsPointInCircle",x%,y%,300,300,50)
  end_select
  select res%
    case -1
      message "Ce n'est pas un polygone"
    case 0
      message "Le point est en-dehors"
    case 1
      message "Le point est dedans"
  end_select
  return

' zones_actives_dans_image_warcraft.bas

label clic

dim res%, x%, y%, nzones%, ncoins%, i%, j%

dim def% : def% = 0 : ' <======== mettre 1 ici pour passer en mode "définition" !
dim url$ : url$ = "http://jolstatic.fr/www/captures/2212/5/100245.jpg"
dim img$ : img$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\warcraft.jpg"
dim dll$ : dll$ = "KGF.dll"

width 0,970 : height 0,654
picture 1 : width 1,950 : height 1,594

dll_on dll$
res% = dll_call2("DownloadFile",adr(url$),adr(img$))
res% = dll_call1("LoadAnyImageFile",adr(img$))
clipboard_paste 1

if def%=1
  form 100 : left 100,width(0)+5 : height 100,height(0) : width 100,300
  memo 101 : parent 101,100 : full_space 101
end_if

2d_target_is 1
on_click 1,clic

' nombre de zones
data 3
' grande étoile
data 18
data 665,292
data 671,308
data 659,345
data 672,353
data 674,378
data 689,372
data 704,374
data 720,382
data 724,362
data 729,352
data 738,348
data 739,340
data 733,331
data 724,309
data 725,281
data 705,295
data 693,264
data 682,299
' charriot
data 26
data 111,478
data 127,480
data 136,472
data 135,463
data 154,458
data 170,465
data 176,461
data 170,451
data 171,436
data 167,435
data 160,446
data 136,442
data 145,431
data 139,425
data 94,432
data 91,435
data 88,431
data 81,431
data 79,447
data 68,454
data 60,473
data 76,470
data 86,448
data 96,443
data 106,443
data 107,448
' tête du gardien
data 7
data 519,342
data 524,338
data 531,339
data 533,349
data 527,351
data 525,351
data 521,346

if object_exists(100)=0
  read nzones%
  for i%=1 to nzones%
    read ncoins%
    dlist 200 + i%
    for j%=1 to ncoins%
      read x%
      read y%
      item_add 200+i%,str$(x%)+","+str$(y%)
    next j%
    item_add 200+i%,item_read$(200+i%,1)
  next i%
end_if


end

clic:
  x% = mouse_x_left_down(1)
  y% = mouse_y_left_down(1)
  if object_exists(100)=1
    if count(101)=0
      2d_poly_from x%,y%
    else
      2d_poly_to x%,y%
    end_if
    item_add 101,str$(x%)+","+str$(y%)
    return
  end_if
  for i%=1 to nzones%
    res% = dll_call3("IsPointInPolygon",x%,y%,object_internal(200+i%))
    if res%=1
      select i%
        case 1
          message "Grande étoile"
        case 2
          message "Charriot"
        case 3
          message "Tête du gardien"
      end_select
      return
    end_if
  next i%
  message "Partie neutre de l'image"
  return

rem ============================================================================
rem          IsPointInEllipse
rem ============================================================================
label click0
dim x,y,xc,yc,x2,y2,pi,p,a,r,r1,r2
pi = 4*atn(1) : p = pi/180
xc = 350 : yc = 350  : ' Coordonnées du centre de l'ellipse
full_space 0
on_click 0,click0
 r1 = 200 : r2 = 100 : Tracer_Ellipse(xc,yc,r1,r2)  : ' Ellipse large
' r1 = 200 : r2 = 200 : Tracer_Ellipse(xc,yc,r1,r2)  : ' Cercle
' r1 = 200 : r2 = 300 : Tracer_Ellipse(xc,yc,r1,r2)  : ' Ellipse haute
end
rem ============================================================================
' Tracer une ellipse
' xc,yc : coordonnées du centre de l'ellipse
' r1 et r2 respectivement demi-diamètres horizontal et vertical de l'ellipse
' Si r1 = r2 alors léellipse est un cercle
SUB Tracer_Ellipse(xc,yc,r1,r2)
    dim_local x,y
    2d_poly_from xc+r1,yc
    for a = 0 to 2*pi step p
        x = xc + r1*cos(a) : y = yc +r2*sin(a) : 2d_poly_to x,y
    next a
END_SUB
rem ============================================================================
' Déterminer si le clixk est ç l'intérieur ou à l'extérieur de l'ellipse
click0:
   x = mouse_x_left_down(0)
   y = mouse_y_left_down(0)
' Soustraire des coordonnées du point cliqué celles du centre de l'ellipse
   x = x - xc : y = y - yc
' Diviser les coordonnées x par le demi-diamètre horizontal et y par le demi-diamètre vertical
   x = x/r1 : y = y/r2
' Calculer la quantité : r = x² + y²
   r = x*x + y*y
' Selon la valeur de r par rapport à l'unité
   if r > 1
       message "Le point est en dehors de l'ellipse"
   else
       if r = 1
          message "Le point est sur le contours de l'ellipse"
       else
          message "Le point est à l'intérieur de l'ellipse"
       end_if
   end_if
  
return
rem ============================================================================

' test_IsPointInPolygon.bas

label click0, poly, cercle, ellipse

dim i%,x%,y%,n%, res%, form%, sx,sy,xc%,yc%, a, pi, p, r1, r2
pi = 4*atn(1)
p = pi/180

data 7,100,60,180,180,120,330,30,90,90,430,250,110,100,60


full_space 0
on_click 0,click0

dlist 1

button 2 : caption 2,"Polygone" : on_click 2,poly
button 3 : caption 3,"Cercle"  : on_click 3,cercle  : top 3,25
button 4 : caption 4,"Ellipse"  : on_click 4,ellipse : top 4,50

dll_on "KGF.dll"
end

poly:
  color 0,255,255,255
  restore
  read n%
  clear 1
  for i%=1 to n%
    read x%
    read y%
    item_add 1,str$(x%)+","+str$(y%)
    if i%=1
      2d_poly_from x%,y%
    else
      2d_poly_to x%,y%
    end_if
  next i%
  form% = 0
  return

cercle:
  color 0,254,255,255
  2d_circle 300,300,50
  form% = 1
  return

ellipse:
  color 0,255,254,255
    xc% = 450
    yc% = 375
    r1 = 150
    r2 = 75
    2d_poly_from xc%+r1,yc%
    for a = 0 to 2*pi step p
        sx = xc% + r1*cos(a) : sy = yc% +r2*sin(a) : 2d_poly_to sx,sy
    next a
  form% = 2
  return

click0:
  x% = mouse_x_left_down(0)
  y% = mouse_y_left_down(0)
  select form%
    case 0
      res% = dll_call3("IsPointInPolygon",x%,y%,object_internal(1))
    case 1
      res% = dll_call5("IsPointInCircle",x%,y%,300,300,50)
    case 2
      res% = dll_call6("IsPointInEllipse",x%,y%,300,300,600,450)
  end_select
  select res%
    case -1
      message "Ce n'est pas un polygone"
    case 0
      message "Le point est en-dehors"
    case 1
      message "Le point est dedans"
  end_select
  return
 
 

' zones_actives_dans_image_warcraft.bas

label clic, montrer

dim res%, x%, y%, nzones%, ncoins%, i%, j%, vis%, xp%, yp%, clr%

dim def% : def% = 0 : ' <======== mettre 1 ici pour passer en mode "définition" !
dim url$ : url$ = "http://jolstatic.fr/www/captures/2212/5/100245.jpg"
dim img$ : img$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\warcraft.jpg"
dim dll$ : dll$ = "KGF.dll"

width 0,970 : height 0,654
picture 1 : width 1,950 : height 1,594

dll_on dll$
res% = dll_call2("DownloadFile",adr(url$),adr(img$))
res% = dll_call1("LoadAnyImageFile",adr(img$))
clipboard_paste 1

if def%=1
  form 100 : left 100,width(0)+5 : height 100,height(0) : width 100,300
  memo 101 : parent 101,100 : full_space 101
else
  button 101 : caption 101,"Montrer" : on_click 101,montrer
end_if

2d_target_is 1
on_click 1,clic

' nombre de zones
data 3
' grande étoile
data 18
data 665,292
data 671,308
data 659,345
data 672,353
data 674,378
data 689,372
data 704,374
data 720,382
data 724,362
data 729,352
data 738,348
data 739,340
data 733,331
data 724,309
data 725,281
data 705,295
data 693,264
data 682,299
' charriot
data 26
data 111,478
data 127,480
data 136,472
data 135,463
data 154,458
data 170,465
data 176,461
data 170,451
data 171,436
data 167,435
data 160,446
data 136,442
data 145,431
data 139,425
data 94,432
data 91,435
data 88,431
data 81,431
data 79,447
data 68,454
data 60,473
data 76,470
data 86,448
data 96,443
data 106,443
data 107,448
' tête du gardien
data 7
data 519,342
data 524,338
data 531,339
data 533,349
data 527,351
data 525,351
data 521,346

if object_exists(100)=0
  read nzones%
  for i%=1 to nzones%
    read ncoins%
    dlist 200 + i%
    for j%=1 to ncoins%
      read x%
      read y%
      item_add 200+i%,str$(x%)+","+str$(y%)
    next j%
    item_add 200+i%,item_read$(200+i%,1)
  next i%
end_if


end

clic:
  x% = mouse_x_left_down(1)
  y% = mouse_y_left_down(1)
  if object_exists(100)=1
    if count(101)=0
      2d_poly_from x%,y%
    else
      2d_poly_to x%,y%
    end_if
    item_add 101,str$(x%)+","+str$(y%)
    return
  end_if
  for i%=1 to nzones%
    res% = dll_call3("IsPointInPolygon",x%,y%,object_internal(200+i%))
    if res%=1
      select i%
        case 1
          message "Grande étoile"
        case 2
          message "Charriot"
        case 3
          message "Tête du gardien"
      end_select
      return
    end_if
  next i%
  message "Partie neutre de l'image"
  return
 
montrer:
  if nzones%=0
    message "Rien à montrer"
    return
  end_if
  if vis%=0
    clr% = (255*256+255)*256
    clipboard_copy 1
    res% = dll_call0("LoadPicture")
    res% = dll_call1("SetImmediateMode",1)
    for i%=1 to nzones%
      coordonnees(i%,1)
      2d_poly_from x%,y%
      for j%=2 to count(200+i%)
        coordonnees(i%,j%)
        2d_poly_to x%,y%
      next j%
      coordonnees(i%,1)
      2d_poly_to x%,y%
      display
      clipboard_copy 1
      res% = dll_call0("LoadPicture")
      pause 100
      res% = dll_call4("GetInnerPolygonPoint",object_internal(200+i%),5,adr(xp%),adr(yp%))
' message item_read$(200+i%,1)+"/"+item_read$(200+i%,2)+": "+str$(xp%)+","+str$(yp%)
      res% = dll_call4("FloodfillPictureToBorderColor",xp%,yp%,clr%,0)
      clipboard_paste 1
    next i%
    vis% = 1
    caption 101,"Cacher"
  else
    res% = dll_call0("SavePicture")
    res% = dll_call1("LoadAnyImageFile",adr(img$))
    clipboard_paste 1
    vis% = 0
    caption 101,"Montrer"
  end_if
  return
 
sub coordonnees(n%,i%)
  dim_local s$, k%
  s$ = item_read$(200+n%,i%)
  k% = instr(s$,",")
  x% = val(left$(s$,k%-1))
  y% = val(mid$(s$,k%+1,len(s$)))
end_sub
 

dim res%
dll_on "kgf.dll"
res% = DLL_call1("RandomValue",6)
message "Valeur aléatoire: "+str$(res%)

dim res%
dll_on "kgf.dll"
res% = DLL_call1("RandomValue",0-1)  : '  randomize
res% = DLL_call1("RandomValue",6)
message "Valeur aléatoire: "+str$(res%)

dim res%, val%
dll_on "kgf.dll"
val% = 17
res% = dll_call2("bin_ROL",val%,3%)
message "Résultat: "+str$(res%)

 res% = dll_call2("bin_ROL",val%,3)

' zones_actives_dans_image_warcraft.bas

label clic, montrer, percer

dim res%, x%, y%, nzones%, ncoins%, i%, j%, vis%, xp%, yp%, clr%
dim trou%, reg0%, reg1%, reg2%, dx%, dy%
dim fgauche%, fhaut%, flargeur%, fhauteur%
dim cgauche%, chaut%, clargeur%, chauteur%

dim def% : def% = 0 : ' <======== mettre 1 ici pour passer en mode "définition" !
dim url$ : url$ = "http://jolstatic.fr/www/captures/2212/5/100245.jpg"
dim img$ : img$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\warcraft.jpg"
dim dll$ : dll$ = "KGF.dll"

width 0,970 : height 0,654
picture 1 : width 1,950 : height 1,594

dll_on dll$
res% = dll_call2("DownloadFile",adr(url$),adr(img$))
res% = dll_call1("LoadAnyImageFile",adr(img$))
clipboard_paste 1

if def%=1
  form 100 : left 100,width(0)+5 : height 100,height(0) : width 100,300
  memo 101 : parent 101,100 : full_space 101
else
  button 101 : caption 101,"Montrer" : on_click 101,montrer
  button 102 : caption 102,"Percer"  : on_click 102,percer  : top 102,25
end_if

2d_target_is 1
on_click 1,clic

' nombre de zones
data 3
' grande étoile
data 18
data 665,292
data 671,308
data 659,345
data 672,353
data 674,378
data 689,372
data 704,374
data 720,382
data 724,362
data 729,352
data 738,348
data 739,340
data 733,331
data 724,309
data 725,281
data 705,295
data 693,264
data 682,299
' charriot
data 26
data 111,478
data 127,480
data 136,472
data 135,463
data 154,458
data 170,465
data 176,461
data 170,451
data 171,436
data 167,435
data 160,446
data 136,442
data 145,431
data 139,425
data 94,432
data 91,435
data 88,431
data 81,431
data 79,447
data 68,454
data 60,473
data 76,470
data 86,448
data 96,443
data 106,443
data 107,448
' tête du gardien
data 7
data 519,342
data 524,338
data 531,339
data 533,349
data 527,351
data 525,351
data 521,346

res% = DLL_call5("GetFormMetrics",handle(0),adr(fgauche%),adr(fhaut%),adr(flargeur%),adr(fhauteur%))
res% = DLL_call5("GetFormClientMetrics",handle(0),adr(cgauche%),adr(chaut%),adr(clargeur%),adr(chauteur%))

dx% = cgauche% - fgauche%
dy% = chaut% - fhaut%

if object_exists(100)=0
  read nzones%
  for i%=1 to nzones%
    read ncoins%
    dlist 200 + i%
    dlist 300 + i%
    for j%=1 to ncoins%
      read x%
      read y%
      item_add 200+i%,str$(x%)+","+str$(y%)
      item_add 300+i%,str$(x%+dx%)+","+str$(y%+dy%)
    next j%
    item_add 200+i%,item_read$(200+i%,1)
    item_add 300+i%,item_read$(300+i%,1)
  next i%
end_if


end

clic:
  x% = mouse_x_left_down(1)
  y% = mouse_y_left_down(1)
  if object_exists(100)=1
    if count(101)=0
      2d_poly_from x%,y%
    else
      2d_poly_to x%,y%
    end_if
    item_add 101,str$(x%)+","+str$(y%)
    return
  end_if
  for i%=1 to nzones%
    res% = dll_call3("IsPointInPolygon",x%,y%,object_internal(200+i%))
    if res%=1
      select i%
        case 1
          message "Grande étoile"
        case 2
          message "Charriot"
        case 3
          message "Tête du gardien"
      end_select
      return
    end_if
  next i%
  message "Partie neutre de l'image"
  return
  
montrer:
  if nzones%=0
    message "Rien à montrer"
    return
  end_if
  if vis%=0
    clr% = (255*256+255)*256
    clipboard_copy 1
    res% = dll_call0("LoadPicture")
    res% = dll_call1("SetImmediateMode",1)
    for i%=1 to nzones%
      coordonnees(i%,1)
      2d_poly_from x%,y%
      for j%=2 to count(200+i%)
        coordonnees(i%,j%)
        2d_poly_to x%,y%
      next j%
      coordonnees(i%,1)
      2d_poly_to x%,y%
      display
      clipboard_copy 1
      res% = dll_call0("LoadPicture")
      pause 100
      res% = dll_call4("GetInnerPolygonPoint",object_internal(200+i%),5,adr(xp%),adr(yp%))
' message item_read$(200+i%,1)+"/"+item_read$(200+i%,2)+": "+str$(xp%)+","+str$(yp%)
      res% = dll_call4("FloodfillPictureToBorderColor",xp%,yp%,clr%,0)
      clipboard_paste 1
    next i%
    vis% = 1
    caption 101,"Cacher"
  else
    res% = dll_call0("SavePicture")
    res% = dll_call1("LoadAnyImageFile",adr(img$))
    clipboard_paste 1
    vis% = 0
    caption 101,"Montrer"
  end_if
  return
  
percer:
  if nzones%=0
    message "Rien à percer"
    return
  end_if
  if trou%=0
    reg1% = 0
    for i%=1 to nzones%
      res% = dll_call2("WindowAddPolygonRegion",adr(reg1%),object_internal(300+i%))
      reg2% = DLL_call3("WindowRegionHole",handle(0),1,adr(reg1%))
      res% = DLL_call2("WindowRegionAsWindow",handle(0),adr(reg2%))
    next i%
    trou% = 1
    caption 102,"Reboucher"
  else
    reg1% = 0
    for i%=1 to nzones%
      res% = dll_call2("WindowAddPolygonRegion",adr(reg1%),object_internal(300+i%))
      res% = DLL_call3("WindowRegionHole",handle(0),0,adr(reg1%))
      res% = DLL_call2("WindowRegionAsWindow",handle(0),adr(reg2%))
    next i%
    trou% = 0
    caption 102,"Percer"
  end_if
  return
  
sub coordonnees(n%,i%)
  dim_local s$, k%
  s$ = item_read$(200+n%,i%)
  k% = instr(s$,",")
  x% = val(left$(s$,k%-1))
  y% = val(mid$(s$,k%+1,len(s$)))
end_sub