Edit: Ca y est!
(nomimg,theta)
Prgm
Local x,y,co,si,pic
If nomimg=/="" Then
mainzoompxl()
RplcPic #nomimg
Else
StoPic pic,0,0,8,1
EndIf
For x,80,158
PxlVert x,0
EndFor
approx(cos(theta))»co
approx(sin(theta))»si
For y,0,76
For x,80,158
(c)x et y: coordonnées d'arrivée
Try
(c) commande de test, clippée par le try:
(c) 32+ -> CentreX de rotation, Image de départ
(c) x-119 -> 119=CentreX de rotation, image d'arrivée
(c) y-38 -> 38=CentreY de rotation, image d'arrivée
(c) 32+ -> CentreY de rotation, image de départ
If pxlTest(int(32+(x-119)*si+(y-38)*co),int(32+(x-119)*co-(y-38)*si))
PxlOn y,x
Else
EndTry
EndFor
EndFor
EndPrgm
Ce programme affiche l'image #nomimg à l'écran et fait une rotation d'angle theta dans la partie droite (TI-89)
