Beta HP Prime 12951/12969: 3D, Python, étude de fonctions...

[ggauny@live.fr]

Bonjour,

Dans l'étude de M Critor, au paragraphe concernant les graphiques 3D, je vois
une "image de saturne" obtenue grâce à 3 fonctions. La troisième me pose problème :
je ne parviens pas à l'écrire partant "saturne pas rond".

La commande IFTE fonctionne, mais j'aimerais savoir comment écrire cette fonction
comme vous.

Merci d'avance et bonne journée.

Gérard.

[critor]

Bonjour.

Il suffit lors de la saisie d'utiliser la touche juste à droite de la boîte à outils :

[ggauny@live.fr]

Merci beaucoup.

[critor]

De rien.

[critor]

Petit code d'une mire qui teste une liste de modes RGB incluse :

Code: Select all

mireRGB(y,h,lc)
BEGIN
LOCAL s,p:=0,n,i:=1,yt:=y,str:="";
lc(SIZE(lc)+1):=0;
n:=SIZE(lc);
s:=h/n;
FOR i FROM 1 TO n DO
  IF i<n THEN
   str:=str+STRING(lc(i));
  END;
  FOR X FROM 0 TO W-1 DO
   RECT_P(X,yt,X,yt+s,2^p*IP(X/(W-1)*(2^lc(i)-1)));
  END;
  yt:=yt+s;
  p:=p+lc(i);
END;
TEXTOUT_P("RGB"+str+" ("+STRING(p)+"-bits)",0,y,1,RGB(255,255,255));
END;

EXPORT mire()
BEGIN
LOCAL lrgb:={{5,5,5},{5,6,5},{8,8,8}},i,n;
W:=320;
H:=240;
n:=SIZE(lrgb);
S:=H/n;
Y:=0;
FOR i FROM 1 TO n DO
  mireRGB(Y,S,lrgb(i));
  Y:=Y+S;
END;
WAIT(0)
END;

Avec le firmware beta, c'est RGB-888 qui produit une mire parfaite, comme on s'y attendait :