Discussion :

[tintin62]

Bonjour
je voudrais translater des formules Java en Delphi comme si dessous

Code java :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var a, b, c, d, e, t, j, flip, xi, yi, xn, yn, vertical, offset, width, heigth;
      function first() { e = uniform(-j, j); next();}
      function next()  { var flipold = flip; flip = rbool(); a = (flip == flipold ? -e: e); b = uniform(-j, j); c = uniform(-j, j); d = uniform(-j, j); e = uniform(-j, j);}
      function sl()  { return vertical ? height / yn : width / xn; }
      function sw()  { return vertical ? width / xn : height / yn;}
      function ol()  { return offset + sl() * (vertical ? yi : xi); }
      function ow()  { return offset + sw() * (vertical ? xi : yi); }
      function l(v)  { var ret = ol() + sl() * v; return Math.round(ret * 100) / 100; }
      function w(v)  { var ret = ow() + sw() * v * (flip ? -1.0 : 1.0); return Math.round(ret * 100) / 100; }
      function p0l() { return l(0.0); }
      function p0w() { return w(0.0); }
      function p1l() { return l(0.2); }
      function p1w() { return w(a); }
      function p2l() { return l(0.5 + b + d); }
      function p2w() { return w(-t + c); }
      function p3l() { return l(0.5 - t + b); }
      function p3w() { return w(t + c); }
      function p4l() { return l(0.5 - 2.0 * t + b - d); }
      function p4w() { return w(3.0 * t + c); }
      function p5l() { return l(0.5 + 2.0 * t + b - d); }
      function p5w() { return w(3.0 * t + c); }
      function p6l() { return l(0.5 + t + b); }
      function p6w() { return w(t + c); }
      function p7l() { return l(0.5 + b + d); }
      function p7w() { return w(-t + c); }
      function p8l() { return l(0.8); }
      function p8w() { return w(e); }
      function p9l() { return l(1.0); }
      function p9w() { return w(0.0); }

deja je comprends pas le signe ? dans cette formule function sl() { return vertical ? height / yn : width / xn; }
joint fichier HTLM
merci

[Paul TOTH]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
// x = y  > 0 ? 1 : 0;
 
// ? donne un if
// : donne un else
 
  if y > 0 then x := 1 else x := 0;

On trouve aussi parfois la fonction iif qu'on pourra mettre en "inline"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function iif(cond: Boolean; value1, value2: Integer): Integer; inline;
begin
  if cond then
    Result := value1
  else
    Result := Vaue2;
end;
 
x := iif(y > 0, 1, 0);

[tintin62]

Bonjour
et merci déjà un peu plus clair

[tintin62]

bonjour
j'essai de transcrire car je ne trouve rien sur des sources en delphi
pour faire sa rien que dessin grille puzzle mais en vecteur genre dxf ou svg

merci

[SergioMaster]

Bonjour, quelle version de Delphi car en coupant un peu le fichier cela ressemble à des données pour un TPath

[tintin62]

bonjour
j'utilise encore delphi 7
donc Tpath plutôt programmation firemonkey
je bute encore sur certaine conversion de function Java
si des pro pouvait m'aider a les traduire je les remercie d'avance