Rotate text?

[Damien]

Something like that may help you ?
(angles are in radian)

Code:


EXPORT ROT()
BEGIN 
 LOCAL sa,ca,a,x,y;
 DIMGROB(G1,40,40);
 RECT_P(99,79,140,120,0,RGB(255,255,255));
 FOR a:=0 to 2*π STEP π/15 DO
  RECT_P(G1);
  sa:=-SIN(a); ca:=COS(a);
  FOR x=-20 TO 20 DO
   FOR y=-20 TO 20 DO
    PIXON_P(G1,x+20,y+20,GETPIX_P(G0,x*ca-y*sa+20,x*sa+y*ca+20);
   END;
  END;
  BLIT_P(G0,100,80,140,120,G1,0,0,40,40);
 END;
 WAIT(1);
END;

I hope it will work, i haven't got the prime with me to verify.

Regards,

Damien