Il s’agit de la fonction Scale de Vb6 dont je n’ai par trouv l’equivalent
en Xojo.
J’ai simplifi au maximum le problme que je pose:
Un carr de 200 x 200 px, Picture box vb , Canvas xojo.
picturePlot dans l’exemple est un control Picture box.
je place Lng_e et Lat_e au centre du carr demie longueur des cots.
- mode pixel
PicturePlot.ScaleMode = vbPixels- Intervalle de +/- dz autour du milieu du carr, dz= 1 sur l’image
Lat_e = Lng_e = 0, equateur.
Alors notre point est encadr par ces 4 valeurs ci dessous.
LongSup_org = Lng_e + dz
LongInf_org = Lng_e - dz
LatiSup_org = Lat_e + dz
LatiInf_org = Lat_e - dz
[code]- CurrentY, CurrentY ont elles un equivalent xojo ?
currentX = (LongInf_org + LongSup_org) / 2
currentY = (LatiInf_org + LatiSup_org) / 2[/code]
Mise a l’echelle:
PicturePlot.Scale (LongSup_org, LatiSup_org)-(LongInf_org, LatiInf_org)ensuite tout se fait a partir des ces 4 valeurs, les boucles
pour les meridiens par des for-next entre longInf et LongSup.
pour les paralleles, entre LatiSup et latiInf, idem pour les graduations des marges.
j’ai attach l’image affiche sous Vb.
